Multiple Treasure Summoner

Valcars · February 28, 2016

Hi, I have a problem with a modified script from me, in practice the script works, however the problem is that the event which starts OnMinute30 :, does not release the items and does not announce when killed the treasure. I do not know if I was clear enough, sorry for my english

prontera,124,197,7	script	Treasure Box Summoner	856,{
	mes "[ Treasure Box Event ]";
	mes "Hello! I'm trying to improve my ability to summon monsters.. and by doing so, I've been refining on how to summon Treasure Boxes.";
        if( $@tboxevent == 0 )
		{
        	mes "Sadly, I've ^ff0000failed^000000 to summon last time.";
		} 
		else 
		{
        	mes "I was able to successfully summon last time!";
		}
		if( $@tboxsevent == 0 ){
        	mes "Sadly, I've ^ff0000failed^000000 to summon last time.";
		} 
		else 
		{
        	mes "I was able to successfully summon last time!";
		}
	close;

OnMinute00: // Change to whatever you want the event to start
	set $@tboxevent, rand(2);
	if ( $@tboxevent != 0 ){
		announce "A rare Treasure Box will be spawned in 30 seconds in Prontera.",0;
		sleep2 30000;
		monster "prontera",0,0,"Treasure Box",1845,10,"Treasure Box Summoner::OnTBoxKilled";
		end;
	} else {
		end;
	}
	end;

OnTBoxKilled:
	announce "The rare Treasure Box has been found and destroyed by "+strcharinfo(0)+"!", bc_all;
	getitem 7539,1; // Change your prize here
	end;
	
	
OnMinute30: // Change to whatever you want the event to start

	set $@ran, rand(1,9);
	if ($@ran == 9) set $@jmpmap$,"hugel";
	if ($@ran == 8) set $@jmpmap$,"yuno";
	if ($@ran == 7) set $@jmpmap$,"comodo";
	if ($@ran == 6) set $@jmpmap$,"aldebaran";
	if ($@ran == 5) set $@jmpmap$,"izlude";
	if ($@ran == 4) set $@jmpmap$,"payon";
	if ($@ran == 3) set $@jmpmap$,"geffen";
	if ($@ran == 2) set $@jmpmap$,"morocc";
	if ($@ran == 1) set $@jmpmap$,"prontera";

	set $@tboxsevent, rand(2);
	if ( $@tboxsevent != 0 ){
		announce "A rare Treasure Box will be spawned in 30 seconds in "+$@jmpmap$+" .",0;
		sleep2 80000;
		monster $@jmpmap$,0,0,"Treasure Box",1845,5,"Treasure Summoner::OnTBoxsKilled";
		end;
	} else {
		end;
	}
	end;

OnTBoxsKilled:
	announce "The rare Treasure Box has been found and destroyed by "+strcharinfo(0)+"!", bc_all;
	getitem 50040,1; // Change your prize here
	end;
	
}

Where did I wrong?

Edited February 28, 2016 by Valcars

PandaLovesHamster · February 28, 2016

Were there any map server errors during execution of the script? Perhaps during the spawning of the treasure box maybe?

Valcars · February 28, 2016

No, the treasure box is successfully created, the only error is that not drop the items and does not announce when killed the treasure box.

I tried to put this script only, and so it works properly

//===== Mysterious Script ====================================
//= Treasure Hunter
//===== By: ==================================================
//= ARTHistic, Mysterious
//===== Current Version: =====================================
//= 1.2
//===== Compatible With: =====================================
//= Hercules, rAthena
//===== Description: =========================================
//= NPC summons a treasure box and players will have to find it
//= and kill it.
//===== Additional Comments: =================================
//= v1.0 - First release [ARTHistic]
//= v1.1 - Just fixed credits [Mysterious]
//= v1.2 - Little bit more information [Mysterious]
//===== TODO: ================================================
// OPTIMIZE MORE
//============================================================

prontera,122,188,5	script	Argo	81,{

	


	mes "[Argo]";
	mes "Hello! I'm trying to improve my ability to summon monsters.. and by doing so, I've been refining on how to summon Treasure Boxes.";
        if( $@tboxsevent == 0 ){
        	mes "Sadly, I've ^ff0000failed^000000 to summon last time.";
	} else {
        	mes "I was able to successfully summon last time!";
	}
	close;



OnMinute30: // Change to whatever you want the event to start

	set $@ran, rand(1,9);
	if ($@ran == 9) set $@jmpmap$,"hugel";
	if ($@ran == 8) set $@jmpmap$,"yuno";
	if ($@ran == 7) set $@jmpmap$,"comodo";
	if ($@ran == 6) set $@jmpmap$,"aldebaran";
	if ($@ran == 5) set $@jmpmap$,"izlude";
	if ($@ran == 4) set $@jmpmap$,"payon";
	if ($@ran == 3) set $@jmpmap$,"geffen";
	if ($@ran == 2) set $@jmpmap$,"morocc";
	if ($@ran == 1) set $@jmpmap$,"prontera";

	set $@tboxsevent, rand(2);
	if ( $@tboxsevent != 0 ){
		announce "A rare Treasure Box will be spawned in 30 seconds in "+$@jmpmap$+" .",0;
		sleep2 80000;
		monster $@jmpmap$,0,0,"Treasure Box",1845,5,"Treasure Summoner::OnTBoxsKilled";
		end;
	} else {
		end;
	}
	end;

OnTBoxsKilled:
	announce "The rare Treasure Box has been found and destroyed by "+strcharinfo(0)+"!", bc_all;
	getitem 50040,1; // Change your prize here
	end;
}

but I need to use them both.
But when I use them I always make the same mistake.

PandaLovesHamster · February 29, 2016

Can you try to @item 50040? I think someone had trouble with item IDs past 50k.

Valcars · February 29, 2016

I tried it and the item is successfully created with @item, sir I tried to create two files one I called treasure.txt and it is this:

prontera,124,197,7	script	Treasure Box Summoner	856,{
	mes "[ Treasure Box Event ]";
	mes "Hello! I'm trying to improve my ability to summon monsters.. and by doing so, I've been refining on how to summon Treasure Boxes.";
        if( $@tboxevent == 0 ){
        	mes "Sadly, I've ^ff0000failed^000000 to summon last time.";
	} else {
        	mes "I was able to successfully summon last time!";
	}
	close;

OnMinute00: // Change to whatever you want the event to start
	set $@tboxevent, rand(2);
	if ( $@tboxevent != 0 ){
		announce "A rare Treasure Box will be spawned in 30 seconds in Prontera.",0;
		sleep2 30000;
		monster "prontera",0,0,"Treasure Box",1845,10,"Treasure Box Summoner::OnTBoxKilled";
		end;
	} else {
		end;
	}
	end;

OnTBoxKilled:
	announce "The rare Treasure Box has been found and destroyed by "+strcharinfo(0)+"!", bc_all;
	getitem 7539,1; // Change your prize here
	end;

and the second file is trasuere2.txt

prontera,122,188,5	script	Argo	81,{

	


	mes "[Argo]";
	mes "Hello! I'm trying to improve my ability to summon monsters.. and by doing so, I've been refining on how to summon Treasure Boxes.";
        if( $@tboxsevent == 0 ){
        	mes "Sadly, I've ^ff0000failed^000000 to summon last time.";
	} else {
        	mes "I was able to successfully summon last time!";
	}
	close;



OnMinute30: // Change to whatever you want the event to start

	set $@ran, rand(1,9);
	if ($@ran == 9) set $@jmpmap$,"hugel";
	if ($@ran == 8) set $@jmpmap$,"yuno";
	if ($@ran == 7) set $@jmpmap$,"comodo";
	if ($@ran == 6) set $@jmpmap$,"aldebaran";
	if ($@ran == 5) set $@jmpmap$,"izlude";
	if ($@ran == 4) set $@jmpmap$,"payon";
	if ($@ran == 3) set $@jmpmap$,"geffen";
	if ($@ran == 2) set $@jmpmap$,"morocc";
	if ($@ran == 1) set $@jmpmap$,"prontera";

	set $@tboxsevent, rand(2);
	if ( $@tboxsevent != 0 ){
		announce "A rare Treasure Box will be spawned in 30 seconds in "+$@jmpmap$+" .",0;
		sleep2 80000;
		monster $@jmpmap$,0,0,"Treasure Box",1845,5,"Treasure Summoner::OnTBoxsKilled";
		end;
	} else {
		end;
	}
	end;

OnTBoxsKilled:
	announce "The rare Treasure Box has been found and destroyed by "+strcharinfo(0)+"!", bc_all;
	getitem 50040,1; // Change your prize here
	end;
}

basically if you use only one script at a time it works without problems, but if you use them both gives me the problem always the script trasure2.txt

I repeat the item is successfully created both @item getitem with that, the problem comes when you use them together.

I just can not understand what the problem is ...

Edited February 29, 2016 by Valcars

Sign In

Multiple Treasure Summoner

Question

Valcars

4 answers to this question

Recommended Posts

PandaLovesHamster

Valcars

PandaLovesHamster

Valcars

Join the conversation

Recently Browsing 0 members

Docs

Get Started

Github

Community

My Account