BlitzCoder Code Database

BlitzCoder Essentials

•Home Page
•About BlitzCoder
•Contributors
•Terms of Use
•Email Us

Main Areas

•BlitzCoder Chat
•Discussions
•Articles/Tutorials
•Code Database
•Link Database
•Showcase Area
•Worklogs
•Competitions

Special Areas

•Undocumented

Other Blitz Sites

•Blitz Basic Home
•Blitz Showcase
•BlitzPlay Library

BlitzCoder Code Archives Page

Main Codes Page

"ai Wander source code", by alias jargon

makes crap wander.
no comments.
most likely you wont be able to modify and still work unless you are a blitz guru.
must create your own "kite.bmp" image.
if it dont work use:
Global sd=16
...or else just use that instead to be on the safe side.

Code

Global sx=640
Global sy=480
Global sd=32
Global sm=2
Graphics sx,sy,sd,sm
SetBuffer BackBuffer()
ClsColor 0,0,255
Cls

Dim kimg(16)
Global kx=50
Global ky=50
Dim kwander(8)

kimg(0)=LoadImage("kite.bmp")
MidHandle kimg(0)
MaskImage kimg(0),0,0,0
Global mx=0
Global my=0
kx=sx/2
ky=sy/2
Repeat
     mx=MouseX()
     my=MouseY()
     If KeyHit(1)>0 Then Exit
     Cls
     Color 255,255,255
     Line 0,sy,kx,ky
     DrawImage kimg(0),kx,ky
     ;Text 0,0,angle#(mx-kx,-(my-ky)),0,0
     Flip
     wander
Forever
End

Repeat
     If KeyHit(1)>0 Then Exit
     Cls
     Color 255,255,255
     Line 0,sy,kx,ky
     DrawImage kimg(0),kx,ky
     Flip
     wander
Forever
End

Function wander()
     Local a#=0
     kwander(1)=(kwander(1)+Rand(-1,1)*20+360) Mod 360
     ;kwander(2)=Cos(2*Pi*Float(kwander(1))/360)*50
     ;kwander(3)=Sin(2*Pi*Float(kwander(1))/360)*50
     kwander(2)=Cos(kwander(1))*50+70
     kwander(3)=Sin(kwander(1))*50
     a#=angle#(kwander(2),kwander(3))
     If a#=-1 Then Return     
     kwander(4)=a#
     kwander(0)=kwander(0)+kwander(4);how do i make the change in direction affect the current one?
     kwander(0)=kwander(0) Mod 360
     kx=kx+Cos(kwander(0))*3
     ky=ky-Sin(kwander(0))*3
     ;DebugLog "[1]"+Str(kwander(1))+"[2,3]"+Str(kwander(2))+","+Str(kwander(3))+"[a#]"+Str(a#)+"[4]"+Str(kwander(4))+"[0]"+Str(kwander(0))
End Function

Function angle#(x,y)
     If x=0 And y=0 Then Return -1
     Local d#=(Float(x)^2+Float(y)^2)^.5
     Local x2#=Float(x)/d#
     Local y2#=Float(y)/d#
     Local ax#=ACos(x2#)
     Local ay#=ASin(y2#)     
     If y=0 Then
          If x<0 Then
               Return 180
          Else
               Return 0
          EndIf
     EndIf
     If x<0 Then
          If y<0 Then
               Return 360-ax#
          Else
               Return ax#;
          EndIf
     ElseIf x=0 Then
          If y<0 Then
               Return 270
          Else
               Return 180
          EndIf
     Else
          If y<0 Then
               Return 360-ax#
          Else
               Return ax#
          EndIf
     EndIf
     Return -1
End Function

Code software created by Krylar's Kreations