Search the Community

[Debug]: script debug : 0 110173929 : Quest requirement #0 invalid (skipped).[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![Debug]: Function: close (no parameters)[Debug]: Source (NPC): Poring Summoner at new_4-4 (148,169) Why this warning coming out ? //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;} //===== 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,7); if ($@ran == 7) set .Map$,"dic_fild01"; if ($@ran == 6) set .Map$,"dic_fild02"; 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"; 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;}