//---Time of events.---//
-   script  taro_main   -1,{
OnClock0500:
OnClock1100:
OnClock1700:
OnClock2300:
 
//---Announce Event and Checks---//
announce "[Tarot Card of Fate] Объявляется набор на эвент! ( Время на регистрацию 5 минут )",0;
sleep 120000;
enablenpc "Card Tharo";
end;
}
 
//---Winning.---//
 
guild_vs1,52,52,5   script  Kisa#2  876,{
 
if (sex == 1) { // boy.
announce "[Tarot Card of Fate] Boy win event! "+ strcharinfo(0) +"! gratz he!!",0;
}
else { // other(girl)
announce "[Tarot Card of Fate] Girl won event! "+ strcharinfo(0) +"! gratz his!",0;
};
getitem 7227,1; // Можно поставить свой приз.
warp "prontera",156,178;
sleep2 25000;
disablenpc "Kisa#2";
end;
}
 
 
 
//---Registration.---//
 
prontera,139,170,6  script  Card Tharo  735,{
if($@RR_RR_RR==2){
mes "Игра уже идёт.";
close;
}
if($@RR_RR_Nu>=120){
mes "На эвенте больше нет мест.";
close;
}
if (select("[Зарегистрироваться]:[Выйти]") == 2) { close; }
set $@RR_RR_Na$[set($@RR_RR_Nu,$@RR_RR_Nu+1)],strcharinfo(0);
mes "Спасибо за регистрацию. Ожидайте начала эвента.";
if($@RR_RR_Nu>=2&&!$@RR_RR_RR){
set $@RR_RR_RR,1;
doevent "Card Tharo::OnRRRRRR";
}
close;
OnRRRRRR:
announce "[Tarot Card of Fate] go to NPC 'Card Tharo'.",bc_all;
sleep 120000;
for(set .rr,1;.rr<=$@RR_RR_Nu;set .rr,.rr+1){
if(!isloggedin(getcharid(3,$@RR_RR_Na$[.rr]))){
for(set .rr2,.rr;.rr2<=$@RR_RR_Nu;set .rr2,.rr2+1){
set $@RR_RR_Na$[.rr2],$@RR_RR_Na$[.rr2+1];
}
set .rr,.rr-1;
}else{
warpchar "guild_vs3",50,50,getcharid(0,$@RR_RR_Na$[.rr]);
set .rr4,.rr4+1;
}
}
set $@RR_RR_Nu,.rr4;
sleep 1000;
mapannounce "guild_vs3","[Tarot Card of Fate] Event start of 20 second!",bc_map;
sleep 20000;
set $@RR_RR_RR,2;
mapannounce "guild_vs3","[Tarot Card of Fate] Event is starts!",bc_map;
sleep 1000;
while(getmapusers("guild_vs3")!=1){
sleep 500;
for(set .rr,1;.rr<=$@RR_RR_Nu;set .rr,.rr+1){
sleep 500;
if(attachrid(getcharid(3,$@RR_RR_Na$[.rr]))){
if(strcharinfo(3)=="guild_vs3"){
set .@ui,522+rand(1,14);
atcommand "@effect "+.@ui;
if(.@ui==531){
deletearray $@RR_RR_Na$[.rr],1;
sleep2 500;
warp "SavePoint",0,0;
}
 
}
detachrid;
}
}
}
sleep 3000;
mapwarp "guild_vs3","guild_vs1",50,50;
deletearray $@RR_RR_Na$[0],128;
enablenpc "Kisa#2";
set $@RR_RR_RR,0;
set $@RR_RR_Nu,0;
sleep 60000;
disablenpc "Kisa#2";
disablenpc "Card Tharo";
end;
}
 
-   script  OnInitTaro  -1,{
OnInit:
disablenpc "Kisa#2";
disablenpc "Card Tharo";
end;
}