GM_MENU:
menu "-Normal Menu",normalcharmenu,
"-^777777Reset Variables^000000",L_RVARS,
"-^777777Set Max Players ["+$AOP+"]^000000",L_AOP,
"-^777777Set Max Score ["+$SCR+"]^000000",L_SCR,
"-^777777Set Autowin Score ["+$ASCR+"]^000000",L_ASCR,
"-^777777Set Rbs win per Match ["+$HH_rbs+"]^000000",L_RBS,
"-^777777Set Match ["+$@match+"]^000000",L_SETM;
L_AOP:
input @AOP;
if(@AOP > 14) { message strcharinfo(0),"~The max amount of players is 15."; goto L_AOP; end; }
set $AOP,@AOP;
message strcharinfo(0),"~Max amount of players able to register per match ("+$AOP+").";
close;
L_SCR:
input @SCR;
if(@SCR > 24) { message strcharinfo(0),"~The max Score able to set is 25."; goto L_SCR; end; }
set $SCR,@SCR;
message strcharinfo(0),"~Max amount of score per match is now ("+$SCR+").";
close;
L_ASCR:
input @ASCR;
if(@ASCR > 9) { message strcharinfo(0),"~The max autowin score is 10."; goto L_ASCR; end; }
set $ASCR,@ASCR;
message strcharinfo(0),"~Max amount of Autowin score per match is now ("+$ASCR+").";
close;
L_RBS:
input @HH_RBS;
if(@HH_RBS > 9) { message strcharinfo(0),"~The max amount of RBs Win per Match is 10."; goto L_RBS; end; }
set $HH_RBS,@HH_RBS;
message strcharinfo(0),"~Amount of Rbs Win per Match ("+$HH_RBS+").";
close;
L_SETM:
input @SETM;
if(@SETM > 1) { message strcharinfo(0),"~The max amount of players is 1."; goto L_SETM; end; }
set $@match,@SETM;
message strcharinfo(0),"~SETM("+$@match+").";
close;
L_RVARS:
stopnpctimer "HH_CHECKWINNER1";
stopnpctimer "HH_HILL_TIME";
stopnpctimer "HEADHUNTERS_TIMR1";
mapwarp "2@cata","turbo_room",80,107;
// Reset Variables
set $@HHwinner,0;
set $@HH_player1,0;
set $@HH_player2,0;
set $@HH_player3,0;
set $@HH_player4,0;
set $@HH_player5,0;
set $@HH_player6,0;
set $@HH_player7,0;
set $@HH_player8,0;
set $@match,0;
set $@HH_active_hill,0;
set $@HH_temphill,0;
set $@HH_score1,0;
set $@HH_score2,0;
set $@HH_score3,0;
set $@HH_score4,0;
set $@HH_score5,0;
set $@HH_score6,0;
set $@HH_score7,0;
set $@HH_score8,0;
close;
}
normalcharmenu:
set HH_loses,(HH_matches-HH_Matchwin);
mes .HHunter$;
mes "Welcome, how can I help you?";
mes "Matchs Won: ^00ff00"+HH_Matchwin+"^000000.";
mes "Matchs Lost: ^ff0000"+HH_loses+"^000000.";
mes "Matchs Played: ^777777"+HH_matches+"^000000.";
mes "Head Hunters EXP: ^0000ff"+HH_exp+"^000000.";
menu "~Play Head Hunter",LplayHH,"~Ranks",L_ranks,"~Register my hhTag",L_RegisterTag,"~Information",L_info;
LplayHH:
next;
mes .HHunter$;
mes "Are you sure you want to participate?";
menu "~Let's do it!",L_yes,"~Uhh. No thanks",LCancel;
close;
L_yes:
if (BaseLevel < 200 || Class==Job_Novice || Class==Job_Baby || Class==Job_Novice_High || @MiniGame_R == 1) {
goto L_Level;
} else {
if(getmapusers("force_1-1") == $AOP || getmapusers("force_1-1") > $AOP) {
next;
mes .HHunter$;
mes "Im sorry but all arenas are full, please try again later.";
close;
} else { warp "force_1-1",100,100; end; }
}
L_ranks:
next;
mes .HHunter$;
mes "Coming soon...";
close;
L_anythingelse:
next;
mes .HHunter$;
mes "Is there anything else you would like to know about?";
goto L_infomenu;
L_info:
next;
mes .HHunter$;
mes "Pick whatever you would like to know about..";
L_infomenu:
menu "- Head Hunters Game",L_game,
"- The Hill",L_hill,
"- Respawn",L_respawn,
"- Game Traps",L_traps,
"- Score System",L_score,
"- ...",-;
close;
L_game:
next;
mes .HHunter$;
mes "You gotta Collect Skulls, you have to kill, you get the amount of skulls the player has in its invetory plus";
mes "(that is its own Skull) you collect, you take them to the current Hill you can see in your map northeast of the screen (Can check the image in forum)";
mes "Guides and Help ^0000ff>^000000 Item/Skill/Dungeon Guides ^0000ff>^000000 Head Hunter • How to play";
goto L_anythingelse;
L_hill:
next;
mes .HHunter$;
mes "Changes every 30 Seconds, it randomly changes its position, it is announced when it had changed.";
mes "There's a red dot/cross flashing in your northeast map of your screen & it doens't changes well always";
mes "So its better if you just learn the hill numbers (Can check the image in forum)";
mes "Guides and Help ^0000ff>^000000 Item/Skill/Dungeon Guides ^0000ff>^000000 Head Hunter • How to play";
goto L_anythingelse;
L_respawn:
next;
mes .HHunter$;
mes "You gotta wait 4 seconds to re-spawn. Respawn Points (Can check the image in forum)";
mes "Guides and Help ^0000ff>^000000 Item/Skill/Dungeon Guides ^0000ff>^000000 Head Hunter • How to play";
goto L_anythingelse;
L_traps:
next;
mes .HHunter$;
mes "These are traps are going to give you a random effect.";
mes "Such as: Stun, Silence, Curse, Stone, Sleep, Quamarine, Divest Shield, Confusion, Blind, Bleed, Freeze";
mes "Poison and Ankle Snare (Can check the image in forum)";
mes "Guides and Help ^0000ff>^000000 Item/Skill/Dungeon Guides ^0000ff>^000000 Head Hunter • How to play";
goto L_anythingelse;
L_score:
next;
mes .HHunter$;
mes "You gotta score "+$SCR+" to win a match and if you score "+$ASCR+" in a row, you'll automaticly win";
mes "HeadHunters Game (Can check the image in forum)";
mes "Guides and Help ^0000ff>^000000 Item/Skill/Dungeon Guides ^0000ff>^000000 Head Hunter • How to play";
goto L_anythingelse;
L_RegisterTag:
next;
mes .HHunter$;
mes "Please Input your HeadHunter Tag";
mes "Note: Can't be longer than 4 Characters";
iTag:
input @hhtag$;
if(getstrlen(@hhtag$) > 4) { goto iTag; }
next;
mes .HHunter$;
mes "Is this alright?";
mes "^0000ff "+@hhtag$+" ^000000";
menu "~Yes",-,"~Repeat",Lrepeat,"~No thanks",LCancel;
set hhtag$,@hhtag$;
message strcharinfo(0),"Your Head Hunter Tag is now [ "+hhtag$+" ].";
close;
Lrepeat:
next;
mes .HHunter$;
mes "Please Input your HeadHunter Tag";
goto iTag;
L_Level:
mes .HHunter$;
mes "Sorry, you need to be at least level 200, or you're registered in another MiniGame. No Novices allowed either.";
close;
LCancel:
close;
}
force_1-1,100,105,4 script Head Hunter Match 842,{
set .HHunter$,"[ ^ff0000•^000000 Head Hunter ^0000ff•^000000 ]";
mes .HHunter$;
mes "We're going to warp you when Match is ready to start.";
menu "- Information",L_info,"- Cancel",-;
close;
L_anythingelse:
next;
mes .HHunter$;
mes "Is there anything else you would like to know about?";
goto L_infomenu;
L_info:
next;
mes .HHunter$;
mes "Pick whatever you would like to know about..";
L_infomenu:
menu "- Head Hunters Game",L_game,
"- The Hill",L_hill,
"- Respawn",L_respawn,
"- Game Traps",L_traps,
"- Score System",L_score,
"- ...",-;
close;
L_game:
next;
mes .HHunter$;
mes "You gotta Collect Skulls, you have to kill, you get the amount of skulls the player has in its invetory plus";
mes "(that is its own Skull) you collect, you take them to the current Hill you can see in your map northeast of the screen (Can check the image in forum)";
mes "Guides and Help ^0000ff>^000000 Item/Skill/Dungeon Guides ^0000ff>^000000 Head Hunter • How to play";
goto L_anythingelse;
L_hill:
next;
mes .HHunter$;
mes "Changes every 30 Seconds, it randomly changes its position, it is announced when it had changed.";
mes "There's a red dot/cross flashing in your northeast map of your screen & it doens't changes well always";
mes "So its better if you just learn the hill numbers (Can check the image in forum)";
mes "Guides and Help ^0000ff>^000000 Item/Skill/Dungeon Guides ^0000ff>^000000 Head Hunter • How to play";
goto L_anythingelse;
L_respawn:
next;
mes .HHunter$;
mes "You gotta wait 4 seconds to re-spawn. Respawn Points (Can check the image in forum)";
mes "Guides and Help ^0000ff>^000000 Item/Skill/Dungeon Guides ^0000ff>^000000 Head Hunter • How to play";
goto L_anythingelse;
L_traps:
next;
mes .HHunter$;
mes "These are traps are going to give you a random effect.";
mes "Such as: Stun, Silence, Curse, Stone, Sleep, Quamarine, Divest Shield, Confusion, Blind, Bleed, Freeze";
mes "Poison and Ankle Snare (Can check the image in forum)";
mes "Guides and Help ^0000ff>^000000 Item/Skill/Dungeon Guides ^0000ff>^000000 Head Hunter • How to play";
goto L_anythingelse;
L_score:
next;
mes .HHunter$;
mes "You gotta score "+$SCR+" to win a match and if you score "+$ASCR+" in a row, you'll automaticly win";
mes "HeadHunters Game (Can check the image in forum)";
mes "Guides and Help ^0000ff>^000000 Item/Skill/Dungeon Guides ^0000ff>^000000 Head Hunter • How to play";
goto L_anythingelse;
} //End of Force
turbo_room,106,107,4 duplicate(Head Hunter) Head Hunter#H1-2 843
prontera,147,150,5 duplicate(Head Hunter) Head Hunter#H1-3 843
pay_arche,42,125,5 duplicate(Head Hunter) Head Hunter#H1-4 843
if($@HH_player1 == 0){ set $@HHwinner,0; set $@HH_player1,0; set $@HH_player2,0; set $@HH_player3,0; set $@HH_player4,0; set $@HH_player5,0; set $@HH_player6,0; set $@HH_player7,0; set $@HH_player8,0;
set $@match,0; set $@HH_active_hill,0; set $@HH_temphill,0; set $@HH_score1,0; set $@HH_score2,0; set $@HH_score3,0; set $@HH_score4,0; set $@HH_score5,0; set $@HH_score6,0; set $@HH_score7,0; set $@HH_score8,0;
set $@HH_player1,getcharid(0); donpcevent "HH_GameStart::OnStart1"; }
else if($@HH_player2 == 0){ set $@HH_player2,getcharid(0); }
else if($@HH_player3 == 0){ set $@HH_player3,getcharid(0); }
else if($@HH_player4 == 0){ set $@HH_player4,getcharid(0); }
else if($@HH_player5 == 0){ set $@HH_player5,getcharid(0); }
else if($@HH_player6 == 0){ set $@HH_player6,getcharid(0); }
else if($@HH_player7 == 0){ set $@HH_player7,getcharid(0); }
else if($@HH_player8 == 0){ set $@HH_player8,getcharid(0); }
switch(rand(9)) { // SPAWNS
case 0: set @hhx,61; set @hhy,35; goto HH_WarpChar; end;
case 1: set @hhx,97; set @hhy,35; goto HH_WarpChar; end;
case 2: set @hhx,93; set @hhy,46; goto HH_WarpChar; end;
case 3: set @hhx,66; set @hhy,46; goto HH_WarpChar; end;
case 4: set @hhx,66; set @hhy,85; goto HH_WarpChar; end;
case 5: set @hhx,93; set @hhy,85; goto HH_WarpChar; end;
case 6: set @hhx,110; set @hhy,66; goto HH_WarpChar; end;
case 7: set @hhx,49; set @hhy,66; goto HH_WarpChar; end;
case 8: set @hhx,57; set @hhy,35; goto HH_WarpChar; end;
case 9: set @hhx,100; set @hhy,35; goto HH_WarpChar; end;
}
end;
HH_WarpChar:
set HH_matches,HH_matches+1;
warpchar "2@cata",@hhx,@hhy,getcharid(0);
if($@match==0) { set $@match,1; }
if($@match == 0) { mapwarp "2@cata","turbo_room",80,107; }
end;
}
2@cata,1,1,1 script HH_GameStart -1,{
end;
OnStart1:
set $@HH_active_hill,1;
initnpctimer "HEADHUNTERS_TIMR1";
initnpctimer "HH_CHECKWINNER1";
initnpctimer "HH_HILL_TIME";
end;
OnPCLoadMapEvent: //will run on 3vs3 and CTF as well
sc_end SC_ALL;
alive;
end;
OnPCLoginEvent:
set @loginflameskull,countitem(3303);
delitem 3303,@loginflameskull;
end;
OnPCLogoutEvent:
if($@HH_player1 == getcharid(0)) { set $@HH_player1,0; }
if($@HH_player2 == getcharid(0)) { set $@HH_player2,0; }
if($@HH_player3 == getcharid(0)) { set $@HH_player3,0; }
if($@HH_player4 == getcharid(0)) { set $@HH_player4,0; }
if($@HH_player5 == getcharid(0)) { set $@HH_player5,0; }
if($@HH_player6 == getcharid(0)) { set $@HH_player6,0; }
if($@HH_player7 == getcharid(0)) { set $@HH_player7,0; }
if($@HH_player8 == getcharid(0)) { set $@HH_player8,0; }
end;
OnPCDieEvent:
getmapxy(.@mapname$, .@mapx, .@mapy, 0);
if(.@mapname$=="2@cata"){
set $@HeadSkull,3303;
set @flamingskullq,countitem($@HeadSkull);
makeitem $@HeadSkull,(@flamingskullq+1),.@mapname$,.@mapx,.@mapy;
delitem $@HeadSkull,@flamingskullq;
switch(rand(9)) { // SPAWNS
case 0: set @hhx,61; set @hhy,35; goto HH_OnCharDie; end;
case 1: set @hhx,97; set @hhy,35; goto HH_OnCharDie; end;
case 2: set @hhx,93; set @hhy,46; goto HH_OnCharDie; end;
case 3: set @hhx,66; set @hhy,46; goto HH_OnCharDie; end;
case 4: set @hhx,66; set @hhy,85; goto HH_OnCharDie; end;
case 5: set @hhx,93; set @hhy,85; goto HH_OnCharDie; end;
case 6: set @hhx,110; set @hhy,66; goto HH_OnCharDie; end;
case 7: set @hhx,49; set @hhy,66; goto HH_OnCharDie; end;
case 8: set @hhx,57; set @hhy,35; goto HH_OnCharDie; end;
case 9: set @hhx,100; set @hhy,35; goto HH_OnCharDie; end;
}
HH_OnCharDie:
sleep2 1000;
message strcharinfo(0),"Wait 4 Seconds to respawn...";
sleep2 1000;
message strcharinfo(0),"Wait 3 Seconds to respawn...";
sleep2 1000;
message strcharinfo(0),"Wait 2 Seconds to respawn...";
sleep2 1000;
message strcharinfo(0),"Wait 1 Seconds to respawn...";
sleep2 1000;
if($@match==0) { end; }
warpchar "2@cata",@hhx,@hhy,getcharid(0);
alive;
sc_end SC_ALL;
end;
}
end;
}
2@cata,1,1,1 script HEADHUNTERS_TIMR1 -1,{
end;
//3 minutes
OnTimer180000:
mapannounce "2@cata", "Everyone, you have one minute to finish this fight!!", 1;
mapannounce "force_1-1", "Everyone, you have one minute to finish this fight!!", 1;
end;
//4.75 minutes
OnTimer285000:
mapannounce "2@cata", "Attention! The round is over in 15 seconds!!", 1;
mapannounce "force_1-1", "Attention! The round is over in 15 seconds!!", 1;
end;
mapannounce "2@cata", "There is a TIE in Head Hunters, no winner !!", 1;
mapannounce "force_1-1", "There is a TIE in Head Hunters, no winner !!", 1;
end;
//5 minutes with 5 seconds
OnTimer303000:
stopnpctimer;
stopnpctimer "HH_CHECKWINNER1";
sleep 5000;
mapannounce "turbo_room", "The Head Hunter's fight just ended without a winner!! :(",bc_blue;
sleep 2000;
donpcevent "HH_WINNER::OnWinner";
end;
}
2@cata,1,1,1 script HH_CHECKWINNER1 -1,{
end;
//3 seconds
OnTimer3001:
if($@HHwinner != 0) { donpcevent "HH_WINNER::OnWinner"; end; }
if($@HH_score1 >= $SCR) { set $@HHwinner,$@HH_player1; donpcevent "HH_WINNER::OnWinner"; end; }
else if ($@HH_score2 >= $SCR) { set $@HHwinner,$@HH_player2; donpcevent "HH_WINNER::OnWinner"; end; }
else if ($@HH_score3 >= $SCR) { set $@HHwinner,$@HH_player3; donpcevent "HH_WINNER::OnWinner"; end; }
else if ($@HH_score4 >= $SCR) { set $@HHwinner,$@HH_player4; donpcevent "HH_WINNER::OnWinner"; end; }
else if ($@HH_score5 >= $SCR) { set $@HHwinner,$@HH_player5; donpcevent "HH_WINNER::OnWinner"; end; }
else if ($@HH_score6 >= $SCR) { set $@HHwinner,$@HH_player6; donpcevent "HH_WINNER::OnWinner"; end; }
else if ($@HH_score7 >= $SCR) { set $@HHwinner,$@HH_player7; donpcevent "HH_WINNER::OnWinner"; end; }
else if ($@HH_score8 >= $SCR) { set $@HHwinner,$@HH_player8; donpcevent "HH_WINNER::OnWinner"; end; }
// Reset Variables
set $@HHwinner,0;
set $@HH_player1,0;
set $@HH_player2,0;
set $@HH_player3,0;
set $@HH_player4,0;
set $@HH_player5,0;
set $@HH_player6,0;
set $@HH_player7,0;
set $@HH_player8,0;
set $@match,0;
set $@HH_active_hill,0;
set $@HH_temphill,0;
set $@HH_score1,0;
set $@HH_score2,0;
set $@HH_score3,0;
set $@HH_score4,0;
set $@HH_score5,0;
set $@HH_score6,0;
set $@HH_score7,0;
set $@HH_score8,0;
end;
}
if(strcharinfo(0)!=""){
mapannounce "turbo_room", "And the winner of this Head Hunter match is: "+strcharinfo(0)+" !!", 1;
mapannounce "force_1-1", "And the winner of this Head Hunter match is: "+strcharinfo(0)+" !!", 1;
}
set @howmuchHH,countitem(3303);
delitem 3303,@howmuchHH;
mes "[Winner Prize]";
mes "Congratulations, you're the winner! Here's your prize ~ ";
next;
getitem 22555,$HH_rbs;
set HH_Matchwin,HH_Matchwin+1;
set @HH_randexp,rand(99,320);
set HH_exp,(HH_exp+@HH_randexp);
dispbottom "You got "+@HH_randexp+" Head Hunter's EXP, keep playing and you'll raise your Rank!!";
dispbottom "Head Hunters total EXP: "+HH_exp+".";
percentheal 100,100;
warp "turbo_room",80,107;
end;
Question
Yukaiii
I don't know if I posted it in the right area... I just don't know where I should post this error...
I apologize in advance
Guys, has anyone ever had this error? HAHAHAHA
I searched here on the forum anyway and didn't see anything like that.
It indicates that it is a spirit error, but I have never seen these files in any patch.
Does anyone have any ideas on how I would fix this?
When I go to the normal map, this error doesn't happen.
After I used this script, it gave me this error on the map.
Link to comment
Share on other sites
2 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.