viewing paste Dota Runes | 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
//http://rathena.org/board/topic/57784-request-dota-runes/page__fromsearch__1
 
payg_cas01,45,135,5 script  Runes   2140,2,2,{
dispbottom "Walkthrough to get Runes.";
end;
 
OnTouch:
    switch( .Runes ){
        Case 1:
            sc_start SC_INCATKRATE,( .Duration * 1000 ),100;
            sc_start SC_INCMATKRATE,( .Duration * 1000 ),100;
            break;
        Case 2:
            skill "AS_CLOAKING",10,1;
            sc_start SC_CLOAKING,( .Duration * 1000 ),10;
            break;
        Case 3:
            sc_start4 SC_REGENERATION,( .Duration * 1000 ),-10,1,0,0;
            break;
        Case 4:
            getmapxy( .@Map$,.@X,.@Y,0,strcharinfo(0) );
            clone .@Map$,.@X,.@Y,"",getcharid(0),getcharid(0),"",1,.Duration;
            clone .@Map$,.@X,.@Y,"",getcharid(0),getcharid(0),"",1,.Duration;
            break;
        Case 5:
            sc_start SC_SpeedUp1,( .Duration * 1000 ),0;
            break;
        default: end;
    }
    announce "[ "+strcharinfo(0)+" ] has gained "+.Names$[.Runes]+".",bc_self,0x00FF00;
    hideonnpc strnpcinfo(0);
    delwaitingroom;
    set .Runes,0;
    set .RuneDelay,gettimetick(2) + .Duration;
    while( .RuneDelay > gettimetick(2) ) sleep2 1000;
    
OnInit:
// Runes Duration in Seconds
set .Duration,60;
 
// Name of Each Runes.
setarray .Names$[1],
                "Double Damage",    //  2 x ATK Rate
                "Invisibility",     //  Cloaking
                "Regeneration",     //  HP / SP Regeneration
                "    Clone",        //  Create 2 Clones
                "    Haste";        //  Improve Movement Speed
            
// Random Coordinate where NPC will Shown Again
setarray .CoordinateX[0],44,45;
setarray .CoordinateY[0],132,140;
 
sc_end SC_CLOAKING;
sc_end SC_REGENERATION;
set .Random,rand( getarraysize( .CoordinateX ) );
movenpc strnpcinfo(0),.CoordinateX[ .Random ],.CoordinateY[ .Random ];
hideoffnpc strnpcinfo(0);
if( !.Runes ) set .Runes,rand( 1,( getarraysize( .Names$ ) - 1 ) );
if( .Runes ) waitingroom "   "+.Names$[.Runes],0;
end;
}
Viewed 1016 times, submitted by Guest.