Here's a koth script I have I'm having errors on running it on eathena can anyone help me?
script KOHannouncer -1,{
OnInit:
disablenpc "KingOfHillRace";
disablenpc "kohfinish";
end;
}
quiz_00,26,111,5 script Koth Assistant 56,{
if ($started == 1) donpcevent "KingOfHill::Onregister";
if (getgmlevel()>=60) goto L_GAMEMASTER;
mes "^FF0000Scripted by: Fantomexâ„¢^000000";
mes "[King Of Hill]";
mes "Only Freedom RO GameMaster's can open the race";
L_no:
close;
L_GAMEMASTER:
mes "[Koth Assistant]";
mes "Good day, Would you like to start the KOTH event?";
menu " - Yes",-,"- No",L_no;
close2;
cleararray $kohplayers[0],0,getarraysize($kohplayers);
announce "King Of Hill Event Has started",0;
enablenpc "KingOfHill";
enablenpc "kohfinish";
set $started,1;
sleep2 10000;
announce "Please proceed to the upper part of Prontera if you want to participate",0;
sleep 10000;
announce "Enter the portal before it closes",0;
initnpctimer;
close;
OnTimer30000:
announce "King Of Hill event will start in 30 seconds",0;
sleep2 5000;
announce "Hurry before the portal closes",0;
end;
OnTimer50000:
announce "King Of Hill Portal is now closed",0;
end;
OnTimer51000:
donpcevent "KOHannouncer::OnEnable";
stopnpctimer;
disablenpc "KingOfHillRace";
end;
}
//===========================================================
prontera,156,220,5 script KingOfHillRace 905,{
Onregister:
if ($started == 1) {
mes "Hello would you like to register to join the race?";
next;
menu " -Yes",-," -No",L_no;
next;
mes "Thankyou for registering " + strcharinfo(0) + ", Remember Run as fast as your can and Have fun!";
if (getarraysize($kohplayers) == 0) setarray $kohplayers[0], getcharid(3);
else setarray $kohplayers[getarraysize($kohplayers)], getcharid(3);
atcommand "@option 255,0,0";
warp "mjolnir_04",77,304;
end;
}
end;
L_no:
close;
end;
}
//===========================================================
- script KOHannouncer -1,{
OnEnable:
mapannounce "mjolnir_04","The one who will reach the end of the bridge found at the top of the Hill will win the event",16;
announce "Get Ready... Countdown will begin at 5",bc_all;
sleep2 1000;
mapannounce "4",bc_all;
sleep2 1000;
mapannounce "3",bc_all;
sleep2 1000;
mapannounce "2",bc_all;
sleep2 1000;
mapannounce "1",bc_all;
sleep2 1000;
donpcevent "freezer::OnEvent";
//areawarp "mjolnir_04",72,307,82,300,"mjolnir_04",77,304;
mapannounce "GO!",bc_all;
end;
}
mjolnir_04,135,208,5 script Finish Line!::kohfinish 111,2,2,{
if ($started == 0) end;
OnTouch:
if (.winner == 1) {
mes "We now have a winner!.";
end;
}
if (.winner == 0) {
mes "You win !!";
set .winner,1;
close2;
}
announce strcharinfo(0)+" is the King of the Hill!!!",bc_all;
getitem 7227,3;
getitem 674,30;
getitem 7608,5;
set $started,0;
atcommand "@doommap";
atcommand "@kill "+strcharinfo(0);
set .winner,0;
cleararray $kohplayers[0],0,getarraysize($kohplayers);
disablenpc "kohfinish";
end;
}
mjolnir_04,0,0,0 script freezer 111,2,2,{
OnEvent:
for (set .@i, 0; .@i < getarraysize($kohplayers); set .@i, .@i + 1) {
attachrid($kohplayers[.@i]);
atcommand "@option 0 0 0";
}
end;
}
//=================MapFlags=============================
mjolnir_04 mapflag noteleport
mjolnir_04 mapflag nosave SavePoint
mjolnir_04 mapflag nobranch
mjolnir_04 mapflag restricted.txt
mjolnir_04 mapflag gvg
mjolnir_04 mapflag nomemo
mjolnir_04 mapflag nowarpto
mjolnir_04 mapflag noreturn
mjolnir_04 mapflag noskill
mjolnir_04 mapflag novending
mjolnir_04 mapflag monster_noteleport
Question
Microsoft
Here's a koth script I have I'm having errors on running it on eathena can anyone help me?
Here's the error
Link to comment
Share on other sites
11 answers to this question
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.