//---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; } - script OnInitTaro -1,{ OnInit: disablenpc "Kisa#2"; disablenpc "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; }