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 270 times, submitted by unknown.