November 28, 2020, 11:08:53 AM

Author Topic: [bb] Patrolling by Nebula [ 1+ years ago ]  (Read 505 times)

Offline BlitzBot

  • Jr. Member
  • **
  • Posts: 1
[bb] Patrolling by Nebula [ 1+ years ago ]
« on: June 29, 2017, 12:28:41 AM »
Title : Patrolling
Author : Nebula
Posted : 1+ years ago

Description : Draw and patrol.

Code :
Code: BlitzBasic
  1. ;
  2. ; Patrolling Units.. (editor)
  3. ;
  4.  
  5. Graphics 800,600,16,2
  6. SetBuffer BackBuffer()
  7.  
  8. Global myim = CreateImage(GraphicsWidth(),GraphicsHeight())
  9.  
  10. Type ml
  11.         Field x,y
  12. End Type
  13. Type tape
  14.         Field lokatie
  15.  
  16. End Type
  17. ;
  18. Global tape.tape = New tape
  19. tapelokatie = 0
  20. ;
  21. While KeyDown(1) = False
  22.         ;
  23.         Cls
  24.  
  25.         If Rand(40) = 1 Then tape.tape = New tape       ;
  26.  
  27.         ;
  28.         ;
  29.         If MouseDown(2) = True Then
  30.                 oldx = MouseX()
  31.                 oldy = MouseY()
  32.         End If
  33.         ;
  34.         If MouseDown(1) = True Then
  35.                 ;
  36.                 If Abs(dist(MouseX(),MouseY(),oldx,oldy)) > 10 Then MoveMouse oldx,oldy
  37.                 newx = MouseX()
  38.                 newy = MouseY()
  39.                 ;
  40.                         If Abs(dist(newx,newy,oldx,oldy)) > 6 Then
  41.                         ;
  42.                         this.ml = New ml
  43.                         thisx  = newx
  44.                         thisy  = newy
  45.                         oldx = newx
  46.                         oldy = newy
  47.                         ;
  48.                         End If
  49.                 ;
  50.         EndIf
  51.         ;
  52.         For this.ml = Each ml
  53.                 ;
  54.                 Plot thisx,thisy
  55.                 ;
  56.         Next
  57.         ;
  58.         For i=0 To 10
  59.         play
  60.         Next
  61.         ;
  62.         Text GraphicsWidth()/2,GraphicsHeight()-40,"Move the mouse slowly while holding down the left mouse button",1,1
  63.         ;
  64.         Flip   
  65. Wend
  66. End
  67. ;
  68. Function play()
  69.         ;
  70.         For t.tape = Each tape
  71.         cnt=0
  72.         For this.ml = Each ml
  73.                 ;
  74.                 ;              
  75.                 If cnt = tlokatie
  76.                         Oval thisx,thisy,5,5,True                                              
  77.                         If Rand(50) = 1 Then tlokatie = tlokatie + 1
  78.  
  79.                         Exit
  80.                 End If
  81.                 cnt=cnt+1
  82.                 ;
  83.         Next
  84.         Next
  85.         ;
  86. End Function
  87. ;
  88. Function neemrouteop()
  89.         ;
  90.        
  91.         ;
  92. End Function
  93. ;
  94.  
  95. Function dist#(x1#,y1#,x2#,y2#)
  96.         Return Sqr((x1-x2)^2+(y1-y2)^2)
  97. End Function


Comments :


chwaga(Posted 1+ years ago)

 This could be useful...well done


 

SimplePortal 2.3.6 © 2008-2014, SimplePortal