prontera,155,165,5 script Safari Zone 1_F_MARIA,{
disable_items;
.@npcname$ = "[Guardian]";
mes .@npcname$;
mesf "Hello %s I am the guardian of the Safari Zone", strcharinfo(PC_NAME);
mes "There you can capture Pokemon and if you're lucky, train them to follow you everywhere!";
next;
mes .@npcname$;
mes "besides to let you in you need a Safari ticket, that you can buy it in Hunting Mission";
next;
mes .@npcname$;
mes "Do you want to enter the Safari Zone?";
next;
if ( select ("Yes","No") == 2 ) {
mes .@npcname$;
mes "Come back soon";
close;
}
mes .@npcname$;
mes "Let's see if you have the ticket";
next;
if ( !countitem(Monster_Ticket) ) {
mes "I'm sorry, but you do not have a Safari Ticket, I can not let you pass.";
close;
}
mes .@npcname$;
mes "Well, you have the Safari Ticket, you can pass!";
mes "Remember that Safari Zone can only enter for 1 hour and time is running, hurry !";
mes "Ok There you go ... Good Luck!";
close2;
if ( !countitem(Monster_Ticket) ) { // counter-check for hacker
mes .@npcname$;
mes "I'm sorry, but you do not have a Safari Ticket, I can not let you pass.";
close;
}
delitem Monster_Ticket, 1;
warp "ordeal_2-2", 243,265;
addtimer 10000, strnpcinfo(NPC_NAME)+"::OnTimerLimit1"; // 10 seconds to display message
end;
OnTimerLimit1:
dispbottom "You have 20 seconds left.";
addtimer 10000, strnpcinfo(NPC_NAME)+"::OnTimerLimit2";
end;
OnTimerLimit2:
dispbottom "You have 10 seconds left.";
addtimer 10000, strnpcinfo(NPC_NAME)+"::OnTimerLimit3";
end;
OnTimerLimit3:
warp "Save", 0,0;
end;
}
ordeal_2-2 mapflag nowarpto
ordeal_2-2 mapflag nomemo
ordeal_2-2 mapflag nosave