CubeScripting Competition—while

[Gibstick]

CubeScript away! Make a script using "while" that does not crash/hang the client.

Rules

• Script must be in CubeScript
  
• Script must use "while".
  
• Script must do something, so while [(= 0 0)] [] does not count.
  
• Script can do anything that's verifiable. This includes defining aliases, connecting to servers, or just echo.
  
• Script must not hang the client for more than 10 seconds.
  
• Script must not crash the client.
  
• Script must be written for version 1.0 or later.
  

Deadline is 0:00 UDT January 8th 2011 (midnight before Jan 9). Submit scripts via forum private message.

Oh yeah the prize is GD's recognition of your godlike powers.

[castiel]

Are multiple entries allowed?

[Gibstick]

Multiple entries are allowed - make it fascinating.

[V-Man]

# Script must not hang the client for more than 10 seconds.
# Script must not crash the client.

AHASUAHASUA I'm automatically disqualified.

[Zarjio]

[SELECT ALL] Code:

while( thisCompetitionMayBeInteresting) {
    boolean zarjHasNoKnowledgeOfCubescript = true;
    if (zarjHasNoKnowledgeOfCubescript)
        thisCompetitionMayBeInteresting = false;
}
zarjDoesNotEnter();

[V-Man]

[SELECT ALL] Code:

// wloop -- getting the most out of "while"
alias wloop [
alias $arg1 0
alias cmmd $arg3
while [(checkalias $arg1)] [
cmmd
+= $arg1 1
if (= (getalias $arg1) $arg2) [delalias $arg1; delalias cmmd] []]]
// wloop i 21 [whois $i]

Dang, can I vote for Zarj's?

Edit:

[SELECT ALL] Code:

// The backward loop by DES|V-Man
alias bloop [
alias $arg1 (- $arg2 1)
alias cmmd $arg3
while [(checkalias $arg1)] [
cmmd
-= $arg1 1
if (< (getalias $arg1) 0) [delalias $arg1; delalias cmmd] []]]

Just throwing in some variety. ;-)

[Bukz]

[SELECT ALL] Code:

bind MOUSE2 [
    startfov = $fov
    if (= (curweapon) 5) [] [ // Avoid screwing up any sniper scope scripts clients may have
        while [ (> $fov 75) ] [ fov (- $fov 1) ] // Zoom in with while :)
        onrelease [
            loop s (- $startfov $fov) [ // Zoom out with loop, couldn't get while to work here :p
                if (= $fov $startfov) [] [
                    fov (+ $fov 1)
                ]
            ]
        ]
    ]
]

I know it's after the deadline but I was proud that I finally got while to work without bombing my client! :P

[Gibstick]

BUKZ WINS