Swarm of sprites

[tsh73]

To be run from JB folder (or do fix sprite paths)
Just move mouse a bit.
New sprite is added every 3 seconds if entry (0,0) is not blocked.
The idea was to use spritecollides to prevent sprites from stomping on each other.
It kind of worked (?)

'swarmOfSprites.bas
'to be run from jb/lb folder
nomainwin
   loadbmp "smiley1", "sprites\smiley1.bmp"
   loadbmp "smiley2", "sprites\smiley2.bmp"
   loadbmp "smiley3", "sprites\smiley3.bmp"
   loadbmp "smiley4", "sprites\smiley4.bmp"
   loadbmp "landscape", "sprites\bg1.bmp"

   WindowHeight = 300
   WindowWidth = 400
   'graphicbox #wg, 0, 0, 400, 300
   open "Swarm of sprites" for graphics_nf_nsb as #wg
   #wg "trapclose [quit]; down"
   '#wg "set 1 1"
   '#wg "set 1 2"  ;transparent pixel
   '#wg "getbmp pixel 1 1 1 2"
   ''bmpsave "pixel", "pixel.bmp"
   'print #wg, "addsprite pixel pixel"

   print #wg, "background landscape";
   N=0
   gosub [addNew]

   'print #wg, "addsprite smiley smiley1 smiley2 smiley3 smiley4";
   'cx=150:cy=100
   'print #wg, "spritexy  smiley " ;cx;" ";cy
   '#wg, "spritescale  smiley 200"
   #wg,"when mouseMove [movePixel]"

   timer 50, [cycle]

 wait

[addNew]
   N=N+1
   name$="smiley";right$("";100+N,2)
   randSpr$="smiley";(int(rnd(0)*4)+1)
   #wg, "addsprite ";name$;" ";randSpr$

   'do not add if place is occupied
   #wg, "spritecollides ";name$;" list$"
   if list$<>"" then   'remove
       #wg, "removesprite ";name$
       N=N-1
   end if

return

[movePixel]
 'just a place for MouseX; MouseY to be updated
 wait


[cycle]
   k=k+1
   if k mod 30 = 0 then gosub [addNew]

   for i = 1 to N
       name$="smiley";right$("";100+i,2)
       #wg, "spritexy? ";name$;" x y"
       dx=MouseX-x-16
       dy=MouseY-y-16
       d=sqr(dx*dx+dy*dy)
       if d = 0 then [skip]
       dx = int(dx*3/d)
       dy = int(dy*3/d)
       'print dx, dy
       #wg, "spritexy ";name$;" ";x+2*dx;" ";y+2*dy
       #wg, "spritecollides ";name$;" list$"
       bad = (list$<>"")
       if bad then #wg, "spritexy ";name$;" ";x;" ";y  'put back
[skip]
   next

   #wg "drawsprites"
   #wg "place 370 20"
   #wg "\";N
   wait

[quit]
   timer 0
   close #wg
   end


[tsh73]

+
Some kind of path finding
(if cannot go straight,
.. try +/-45 degrees,
.. if still no go,
.... +/-90
)
'swarmOfSprites.bas
'to be run from jb/lb folder
nomainwin
   global pi
   pi = acs(-1)
   dim da(5)   'angles to try moving
   da(0)=0: da(1)=pi/4: da(2)=0-pi/4: da(3)=pi/2: da(4)=0-pi/2

   loadbmp "smiley1", "sprites\smiley1.bmp"
   loadbmp "smiley2", "sprites\smiley2.bmp"
   loadbmp "smiley3", "sprites\smiley3.bmp"
   loadbmp "smiley4", "sprites\smiley4.bmp"
   loadbmp "landscape", "sprites\bg1.bmp"

   WindowHeight = 300
   WindowWidth = 400
   'graphicbox #wg, 0, 0, 400, 300
   open "Swarm of sprites" for graphics_nf_nsb as #wg
   #wg "trapclose [quit]; down"
   '#wg "set 1 1"
   '#wg "set 1 2"  ;transparent pixel
   '#wg "getbmp pixel 1 1 1 2"
   ''bmpsave "pixel", "pixel.bmp"
   'print #wg, "addsprite pixel pixel"

   print #wg, "background landscape";
   N=0
   gosub [addNew]

   'print #wg, "addsprite smiley smiley1 smiley2 smiley3 smiley4";
   'cx=150:cy=100
   'print #wg, "spritexy  smiley " ;cx;" ";cy
   '#wg, "spritescale  smiley 200"
   #wg,"when mouseMove [movePixel]"

   timer 50, [cycle]

 wait

[addNew]
   N=N+1
   name$="smiley";right$("";100+N,2)
   randSpr$="smiley";(int(rnd(0)*4)+1)
   #wg, "addsprite ";name$;" ";randSpr$

   'do not add if place is occupied
   #wg, "spritecollides ";name$;" list$"
   if list$<>"" then   'remove
       #wg, "removesprite ";name$
       N=N-1
   end if

return

[movePixel]
 'just a place for MouseX; MouseY to be updated
 wait


[cycle]
   k=k+1
   if k mod 30 = 0 then gosub [addNew]

   for i = 1 to N
       name$="smiley";right$("";100+i,2)
       #wg, "spritexy? ";name$;" x y"
       dx=MouseX-x-16
       dy=MouseY-y-16
       d=sqr(dx*dx+dy*dy)
       if d = 0 then [skip]
       a=atan2(dy,dx)
       for di = 0 to 4
           aa=a+da(di)
           dx = int(3*cos(aa))
           dy = int(3*sin(aa))
           'print dx, dy
           #wg, "spritexy ";name$;" ";x+dx;" ";y+dy
           #wg, "spritecollides ";name$;" list$"
           bad = (list$<>"")
           if not(bad) then exit for
           if bad then #wg, "spritexy ";name$;" ";x;" ";y  'put back
       next
[skip]
   next

   #wg "drawsprites"
   #wg "place 370 20"
   #wg "\";N
   wait

[quit]
   timer 0
   close #wg
   end

'---------------------------
function atan2(y,x)
   pi = acs(-1)    'could be made global to save some ticks
   if x <> 0 then arctan = atn(y/x)

   select case
       case x > 0
       atan2 = arctan

       case y>=0 and x<0
       atan2 = pi + arctan

       case y<0 and x<0
       atan2 = arctan - pi

       case y>0 and x=0
       atan2 = pi / 2

       case y<0 and x=0
       atan2 = pi / -2
   end select
end function


[plus]

I am looking for a Space Invaders canon when I see these guys swarming! ;-))