/*
 * $VER: PerfectKRSNAke.rexx 1.0 (urk) by Petter E. Stokke
 *
 *  This ARexx script plays a perfect game of KRSNAke (but is very dull to watch...)
 */

OPTIONS RESULTS
ADDRESS KRSNAKE

SET SPEED 5
NEWGAME

/* Go to starting position */

WAIT 14
LEFT
WAIT 15
UP
WAIT 1
RIGHT
WAIT 1

score = 0

DO WHILE score<1024
    count = 15
    DO WHILE count>0
        WAIT 30
        DOWN
        WAIT 1
        LEFT
        WAIT 30
        DOWN
        WAIT 1
        RIGHT
        count = count-1
        GET PLAYING
        IF result = 0 THEN EXIT
    END
    WAIT 30
    DOWN
    WAIT 1
    LEFT
    WAIT 31
    UP
    WAIT 31
    RIGHT
    WAIT 1
    GET LENGTH
    score = result
END