sometimes99er Posted October 15, 2011 Share Posted October 15, 2011 (edited) 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 Quote Link to comment Share on other sites More sharing options...
kl99 Posted October 20, 2011 Share Posted October 20, 2011 nice Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.