viewing paste Russian Roulette Athena | Athena

Posted on the
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63
prontera,150,180,4      script  RR      100,{
if($@RR_RR_RR==2){
        mes "Game Starting";
        close;
}
if($@RR_RR_Nu>=120){
        mes "Full";
        close;
}
select("[Join]");
set $@RR_RR_Na$[set($@RR_RR_Nu,$@RR_RR_Nu+1)],strcharinfo(0);
mes "Ok~";
if($@RR_RR_Nu>=2&&!$@RR_RR_RR){
        set $@RR_RR_RR,1;
        doevent "RR::OnRRRRRR";
}
OnRRRRRR:
        announce "[System]:RR will start in 1min",bc_all;
        sleep 60000;
        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_vs4",50,50,getcharid(0,$@RR_RR_Na$[.rr]);
                        set .rr4,.rr4+1;
                }
        }
        set $@RR_RR_Nu,.rr4;
        sleep 5000;
        mapannounce "guild_vs4","[System]:RR will start in 20sec",bc_map;
        sleep 20000;
        set $@RR_RR_RR,2;
        mapannounce "guild_vs4","[System]:GO!",bc_map;
        sleep 100;
        while(getmapusers("guild_vs4")!=1){
                sleep 1000;
                for(set .rr,1;.rr<=$@RR_RR_Nu;set .rr,.rr+1){
                        sleep 1000;
                        if(attachrid(getcharid(3,$@RR_RR_Na$[.rr]))){
                                if(strcharinfo(3)=="guild_vs4"){
                                        set .@ui,522+rand(1,14);
                                        atcommand "@effect "+.@ui;
                                        if(.@ui==531){
                                                sleep2 1000;
                                                warp "SavePoint",0,0;
                                        }
 
                                }
                                detachrid;
                        }
                }
        }
        sleep 10000;
        mapwarp "guild_vs4","guild_vs3",50,50;
        deletearray $@RR_RR_Na$[0],128;
        set $@RR_RR_RR,0;
        set $@RR_RR_Nu,0;
        end;
}
Viewed 872 times, submitted by Dastgir.