viewing paste Effect Loop | 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
/*
 
 __                  ____                       __              
/\ \                /\  _`\   __              /'__`\            
\ \ \____  __  __   \ \,\L\_\/\_\    ___ ___ /\ \/\ \    ___    
 \ \ '__`\/\ \/\ \   \/_\__ \\/\ \ /' __` __`\ \ \ \ \ /' _ `\  
  \ \ \L\ \ \ \_\ \    /\ \L\ \ \ \/\ \/\ \/\ \ \ \_\ \/\ \/\ \
   \ \_,__/\/`____ \   \ `\____\ \_\ \_\ \_\ \_\ \____/\ \_\ \_\
    \/___/  `/___/> \   \/_____/\/_/\/_/\/_/\/_/\/___/  \/_/\/_/
               /\___/                                          
               \/__/  
 
*/
-       script  effect  -1,{
 
//Effect Script to view effects
       
        OnWhisperGlobal:
 
        if (getgmlevel() < 10) end;
       
        if (@whispervar0$ == "help") {
                dispbottom "usage: effect#<delay>{#<start effect id>} (delay in ms, may ID= 700)";
                dispbottom "While the script is running type anything to stop the script.";
        }
       
        if (@whispervar0$ == "effect" && @whispervar1$ != "") {
               
                if (atoi(@whispervar1$) < 500) { dispbottom "Maybe you'll crash your client with that speed.."; end; }
               
                if (atoi(@whispervar2$) > 700) { dispbottom "The Effect-Start-ID is to big."; end; }
               
                set @delay, atoi(@whispervar1$);
               
                if (atoi(@whispervar2$) == 0) set @i,1; else set @i,atoi(@whispervar2$);
               
                while(@whispervar0$ == "effect" && @i < 700) {
                       
                        set @started,1;
                        set @i, @i + (@i == 19 || @i == 243); //invalid effect ids;
                        specialeffect2 @i;
                        dispbottom "EffectID: "+@i;
                        sleep2 @delay;
                        set @i,@i+1;
                       
                }
        } else if (@started) { dispbottom "STOPPED"; set @started,0; }  
       
        if (@whispervar0$ == "reset" && @i > 1) { set @i,1; dispbottom "EffectID has been resetted"; }
 
        end;
 
}
Viewed 298 times, submitted by unknown.