TIB: challenge

[Prev][Next][Index][Thread]

TIB: challenge

Hey, I'm presenting a challenge to all you experienced basic users: try to come up with a faster routine for letting the user move a character (like an "O") around on the screen in all directions, but without going off screen.  I thought of this because so many kids are making RPGs etc. which require a little guy to move, and maybe we could help.
 
Here is my best effort (it's for the 86, but 82/3/5 users can compete)
 
:11 /->/ X
:5 /->/ Y
:Repeat G==22
:    CLLCD
:    Outpt(Y,X,"O"
:    Repeat G
:        getKy /->/ G
:    End
:    X+(G==26)(X<21)-(G==24)(X>1) /->/ X
:    Y+(G==34)(Y<8)-(G==25)(Y>1) /->/ Y
:End
:CLLCD
 
 
--Dave <the_Regul8r@bigfoot.com>
Follow-Ups: References: