viewing paste Tarot Event | 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
prontera,155,180,5  script  sdkfjsdf    100,{
    if ( .event == 2 ) end;
    else if ( .event == 1 ) {
        set .aid[ getarraysize(.aid) ], getcharid(3);
        announce strcharinfo(0) +" join in", 8;
        end;
    }
    announce "5 seconds to register", 1;
    set .event, 1;
    deletearray .aid;
    sleep 5000;
    set .event, 2;
    announce "event start", 8;
    while ( getarraysize(.aid) > 1 ) {
        sleep 1000;
        announce "attaching "+ rid2name(.aid[.@i]), 8;
        attachrid .aid[.@i];
        switch ( rand(523,526) ) {
            case 523:
                specialeffect2 523;
                set sp, 0;
                break;
            case 524:
                specialeffect2 524;
                sc_start SC_INCMATKRATE, 30000, -50;
                break;
            case 525:
                specialeffect2 525;
                sc_end sc_incagi;
                // .... all positive buff
                break;
            case 526:
                specialeffect2 526;
                if ( hp - 10000 < 0 ) {
                    unitkill getcharid(3);
                    deletearray .aid[.@i], 1;
                    set .@i, .@i -1;
                }
                else
                    set hp, hp - 10000;
                break;
        }
        set .@i, .@i +1 ;
        if ( .@i == getarraysize(.aid) ) {
            set .@i, 0;
            set .@round, .@round +1 ;
            announce "round "+ .@round, 8;
        }
    }
    if ( .aid == 0 )
        announce "nobody win", 8;
    else {
        announce "winner is "+ rid2name(.aid) , 8;
        attachrid .aid;
        getitem 501, 1;
    }
    set .event, 0;
    end;
}
Viewed 722 times, submitted by Guest.