Рисовалка

  1. 10 MSG$="Touch the Screen (Move)"
  2. 20 SETCOLOR 0,0,0
  3. 30 CLS  
  4. 40 SETCOLOR 255,255,255
  5. 50 DRAWSTRING MSG$,(SCREENWIDTH(0)-STRINGWIDTH(MSG$))/2,SCREENHEIGHT(0)/2
  6. 60 REPAINT
  7. 70 SETCOLOR 255,255,0
  8. 80 IF POINTPRESS(0) THEN LASTX%=POINTX(0):LASTY%=POINTY(0)
  9. 90 IF POINTDRAG(0) THEN XPOS%=POINTX(0):YPOS%=POINTY(0):DRAWLINE LASTX%,LASTY%,XPOS%,YPOS%:REPAINT:LASTX%=XPOS%:LASTY%=YPOS%
  10. 100 SLEEP 10
  11. 110 GOTO 80
Этот код позволяет движением вашего пальца по экрану телефона - рисовать. Запускать только на сенсорном экране и только в мобильном бейсике версии 1.9.1 mod by vlavolk!

Мы в соцсетях

vk tw tg yt

Пожертвования

Аноним2850 р.
Freddy1700 р.
riseremi1611 р.
NaruTrey800 р.
vlavolk637 р.
  © aNNiMON (Melnik Software)