Find the baphomet Clean for hercules

[mrlongshen 22]

Here I attach my script.

//Created by youtubenew_4-4,131,169,5	script	Find the Baphomet	736,{mes "[ Find The Baphomet ]";if(getgmlevel() < 50) {    if(.Event==0) mes "There is no Find the Baphomet event.";    else {        mes "There is a Find the Baphomet event on now!";        mes "Location: "+ .Map$;        mes "Prize: " + getitemname(.ItemID);        mes "Number of Baphomets: " + .Baphomets;    }    close;}    mes "Hello "+strcharinfo(0)+"! Please customize this event:";Main:next;mes "[ Find The Baphomet ]";    switch(select("Item [" + getitemname(.ItemID) + "]:Start Event:End Event")) {        case 1:            mes "Which item would you like the Baphomet to drop?";            mes "Please input the item ID:";			OnInit:			set .ItemID, 7227;			//input .ItemID, 7227;            goto Main;        case 2:            mes "Starting the event now...";            set .Event,1;            close2;            goto OnStart;                case 3:            mes "Ending the event now...";            if(.Event) announce ""+strcharinfo(0)+" ended Find the Baphomet Event!",bc_all;            killmonster  .Map$,"All";            set .Event,0;        close;}OnMinute45: //CHANGE THIS TO THE MINUTE YOU WOULD LIKE THIS EVENT TO LOAD!OnStart:    announce "Find the Baphomet : It's time to play Find the Baphomet!",0;    sleep2 1000;    set $@ran, rand(1,11);    if ($@ran == 11) set .Map$,"splendide";    if ($@ran == 10) set .Map$,"hugel";    if ($@ran == 9) set .Map$,"yuno";    if ($@ran == 8) set .Map$,"comodo";    if ($@ran == 7) set .Map$,"xmas";    if ($@ran == 6) set .Map$,"aldebaran";    if ($@ran == 5) set .Map$,"izlude";    if ($@ran == 4) set .Map$,"payon";    if ($@ran == 3) set .Map$,"geffen";    if ($@ran == 2) set .Map$,"morocc";    if ($@ran == 1) set .Map$,"prontera";    sleep2 1000;    set $@ran2, rand(1,5);    if ($@ran2 == 5) set .Baphomets,"5";    if ($@ran2 == 4) set .Baphomets,"4";    if ($@ran2 == 3) set .Baphomets,"3";    if ($@ran2 == 2) set .Baphomets,"2";    if ($@ran2 == 1) set .Baphomets,"1";    announce "Find the Baphomet : The Baphomet has spawned in "+ .Map$ +"!",0;    sleep2 10000;    announce "Find the Baphomet : " + .Baphomets + " Baphomets have spawned in "+ .Map$ +"!",0;    sleep2 10000;    monster .Map$,0,0,"PLEASE DONT HIT ME!",1039,.Baphomets,"Find the Baphomet::OnMobKilled";    end;OnMobKilled:    mapannounce .Map$,"We've got a winner: " + strcharinfo(0) + " Congrats!",0;    set Zeny,Zeny+100000000;    getitem .7227,30;    set .Event,0;    end;} 

 

An error will coming like this.

[Error]: script_rid2sd: fatal error ! player not attached![Debug]: Function: next (no parameters)[Debug]: Source (NPC): Find the Baphomet at new_4-4 (131,169)[Error]: script_rid2sd: fatal error ! player not attached!

 

can someone make it clean ?

[evilpuncker 503]

change the "close" in the very last line for an "end"

[evilpuncker 503]

try it

[mrlongshen 22]

@@evilpuncker thanks its working.

how about this ? 

 

//===== Hercules Script =======================================//= Poring Summoner//===== Created By: ===========================================//= Mysterious//===== Current Version: ======================================//= 1.2//===== Link: =================================================//= Old - http://www.eathena.ws/board/index.php?showtopic=236779//===== Description: ==========================================//= Basically what this event does is summon a set of Normal//= and Special Porings. Normal Porings don't drop anything,//= Special Porings do.//=============================================================new_4-4,148,169,4	script	Poring Summoner	99,{mes "[Poring Summoner]";if(getgroupid() < 10) {	if(.Event) mes "There is no Poring Summon Event on now.";	else {		mes "There is a Poring Summon Event on now!";		mes "Location: " + .Map$;		mes "Special Porings: " + .SpecialPorings[1];		mes "Normal Porings: " + .NormalPorings[0];	}	close;}mes "Please customize the Poring Summon Event:";Main:next;mes "[Poring Summoner]";	switch(select("Item [" + getitemname(.ItemID) + "]:Special Porings [" + .SpecialPorings + "]:Normal Porings [" + .NormalPorings + "]:Start Event:End Event")) {		case 1:			mes "Which item would you like Special Porings to drop?";			mes "Please input the item ID:";			input .ItemID;			goto Main;		case 2:			mes "How many Special Porings would you like me to summon?";			input .SpecialPorings;			goto Main;		case 3:			mes "How many Normal Porings would you like me to summon?";			input .NormalPorings;			goto Main;		case 4:			mes "Starting the event now...";OnMinute30: //Triggers at each new hour, so 1:30, 2:30, 3:30, 4:30 etc.	set $@ran, rand(1,24);	if ($@ran == 24) set .Map$,"morroc";	if ($@ran == 23) set .Map$,"geffen";	if ($@ran == 22) set .Map$,"payon";	if ($@ran == 21) set .Map$,"alberta";	if ($@ran == 20) set .Map$,"izlude";	if ($@ran == 19) set .Map$,"aldebaran";	if ($@ran == 18) set .Map$,"comodo";	if ($@ran == 17) set .Map$,"yuno";	if ($@ran == 16) set .Map$,"amatsu";	if ($@ran == 15) set .Map$,"gonryun";	if ($@ran == 14) set .Map$,"umbala";	if ($@ran == 13) set .Map$,"niflheim";	if ($@ran == 12) set .Map$,"louyang";	if ($@ran == 11) set .Map$,"jawaii";	if ($@ran == 10) set .Map$,"ayothaya";	if ($@ran == 9) set .Map$,"einbroch";	if ($@ran == 8) set .Map$,"lighthalzen";	if ($@ran == 7) set .Map$,"einbech";	if ($@ran == 6) set .Map$,"hugel";	if ($@ran == 5) set .Map$,"rachel";	if ($@ran == 4) set .Map$,"veins";	if ($@ran == 3) set .Map$,"moscovia";	if ($@ran == 2) set .Map$,"manuk";	if ($@ran == 1) set .Map$,"splendide";			set .Event,1;			monster .Map$,0,0,"Poring",1002,.SpecialPorings,"Poring Summoner::OnSpecialKill";			monster .Map$,0,0,"Poring",1002,.NormalPorings,"Poring Summoner::OnNormalKill";			set .SpecialPorings[1],.SpecialPorings;			set .NormalPorings[1],.NormalPorings;				OnInit:				set .ItemID, 7539;				set .NormalPorings,40;				set .SpecialPorings,20;				announce "The Poring Event has begun!",bc_all;			announce "Location: " + .Map$,bc_all;			announce "Special Porings: " + .SpecialPorings,bc_all;			announce "Normal Porings: " + .NormalPorings,bc_all;			close;			end;		case 5:			mes "Ending the event now...";			goto EndEvent;	}OnTimer216000000:	announce "Poring Summoner has ended. No one killed the Porings.",bc_all;	killmonster .Map$,"All";	set .Event,0;	stopnpctimer;	end;OnSpecialKill:	set .SpecialPorings[1],.SpecialPorings[1]-1;	announce strcharinfo(0) + " got a " + getitemname(.ItemID) + "!",bc_map;	getitem .ItemID,1;	goto PoringCount;OnNormalKill:	set .NormalPorings[1],.NormalPorings[1]-1;	goto PoringCount;PoringCount:	announce "Special Porings: " + .SpecialPorings[1] + " || Normal Porings: " + .NormalPorings[1],bc_map;	if(!.SpecialPorings[1]) goto EndEvent;	end;EndEvent:	if(.Event) announce "The Poring Summon Event is now over!",bc_all;	killmonster .Map$,"All";	set .Event,0;	set .SpecialPorings[1],0;	set .NormalPorings[1],0;	close;

[Error]: script_rid2sd: fatal error ! player not attached![Debug]: Function: close (no parameters)[Debug]: Source (NPC): Poring Summoner at new_4-4 (148,169)

 

[mrlongshen 22]

@@evilpuncker ok thanks you.