CALL MOTION

[sometimes99er]

Just a little something ...

 

100 CALL CLEAR::CALL SCREEN(14)::CALL CHAR(33,RPT$("F",20))
110 CALL VCHAR(1,31,33,96)::CALL HCHAR(24,1,34,32)::SY=177::SX=125
120 DISPLAY AT(1,3):"PULL JOYSTICK FOR THRUST";::CALL SPRITE(#1,33,16,SY,SX)
130 CALL JOYST(1,JX,JY)::SXA=SXA+JX/4::SYA=SYA-JY/4::CALL POSITION(#1,SY,SX)
140 IF SY<177 THEN SYA=SYA+.5 ELSE SYA=-ABS(SYA*.8 )::CALL LOCATE(#1,176,SX)
150 IF SX<17 OR SX>233 THEN SXA=-SXA*.9::IF SX<17 THEN CALL LOCATE(#1,SY,18) ELSE CALL LOCATE(#1,SY,233)
160 CALL MOTION(#1,SYA,SXA)::GOTO 130

 

Edit: Removed forum update smiley injection from code.

Edited February 20, 2018 by sometimes99er

[kl99]

nice