i like this(compile into exe then change extension to scr then put in appropriate folder)
sync on :sync rate 40 :hide mouse:center text screen width()/2,screen height()/2,"Loading..." :fastsync :dim pos(2) :pos(1)=screen width()/2:pos(2)=screen height()/2:inputtype=1:do
cls
gosub draw_player :if inputtype=1 : center text screen width()/2,40,"Press Space to control the VooDoo Stick Man..." :endif:if inputtype=2 : center text screen width()/2,40,"Press Space to hand control back to the VooDoo controller...":endif
if inputtype=1 and hold=0 and spacekey()=1 : inputtype=2: hold=1:endif :if inputtype=2 and hold=0 and spacekey()=1 : inputtype=1 : hold=1 :endif
if spacekey()=0 then hold=0
if inputtype=2 then gosub get_input
if inputtype=1 : gosub move_dude :endif:sync :loop
draw_player:
circle pos(1),pos(2)-5,5 :line pos(1),Pos(2),pos(1),pos(2)+15 :line pos(1)-10,pos(2)+5,Pos(1)+10,pos(2)+5: line pos(1)-10,pos(2)+25,pos(1),Pos(2)+15:line Pos(1)+10,pos(2)+25,pos(1),pos(2)+15
return
get_input:
if rightkey()=1 : pos(1)=Pos(1)+10:endif:if leftkey()=1 : pos(1)=pos(1)-10:endif:if upkey()=1 : pos(2)=pos(2)-10:endif:if downkey()=1 : pos(2)=pos(2)+10:endif:if pos(1)>620: pos(1)=620:endif:if pos(1)<20 : pos(1)=20:endif:if pos(2)>450 : pos(2)=450:endif:if pos(2)<20 : pos(2)=20:endif
return
move_dude:
friction=.95:random=rnd(7):upspeed=upspeed*friction:uprightspeed=uprightspeed*friction:rightspeed=rightspeed*friction:downrightspeed=downrightspeed*friction:downspeed=downspeed*friction:downleftspeed=downleftspeed*friction:leftspeed=leftspeed*friction:upleftspeed=upleftspeed*friction
if random=0 : inc upspeed:endif:if random=1 : inc uprightspeed:endif:if random=2 : inc rightspeed:endif:if random=3 : inc downrightspeed:endif:if random=4 : inc downspeed:endif:if random=5 : inc downleftspeed:endif:if random=6 : inc leftspeed:endif:if random=7 : inc upleftspeed:endif
pos(2)=pos(2)+(upspeed+uprightspeed+upleftspeed)-(downrightspeed+downspeed+downleftspeed) : pos(1)=pos(1)+(uprightspeed+rightspeed+downrightspeed)-(downleftspeed+leftspeed+upleftspeed)
if pos(1)>620 : pos(1)=620:endif:if pos(1)<20 : pos(1)=20:endif:if pos(2)>450 : pos(2)=450:endif:if pos(2)<20 : pos(2)=20:endif
return
but that's becuase i made it...not becuase it's good
Formerly known as "DarkWing Duck"
