**************************************************************************************************
' This program was written with BLIde
' Application:
' Author:
' License:
'**************************************************************************************************
Strict
Graphics 640,480
SeedRnd MilliSecs()

SetBlend LIGHTBLEND
SetAlpha .8
' make the globals
Global lives%=5
Global score%=0
' make the objects
Type player
Field x#,y#,invincable_timer#
Global player_list:TList = New TList
 Function create(x#,y#)
  Local temp:player = New player
  temp.x=x
  temp.y=y
  temp.invincable_timer=100
  ListAddLast(player_list,temp)
 EndFunction
 Method draw()
 SetColor 128,128,0
  
  DrawLine(x-6,y-12,x+6,y+12)
  DrawLine(x+6,y-12,x-6,y+12)
  
 End Method
 Method update()
 
  If invincable_timer Mod 2 <>0 Or invincable_timer =0
   draw()
  End If
  If invincable_timer>0
   invincable_timer:-1
   Else
   invincable_timer=0
  End If
  
  ' now make the thing move
  x=MouseX()
  y=MouseY()
 End Method
 Method destroy()
  ListRemove(player_list,Self)
 End Method
 
 
End Type
Type pshot
 Field x,y,direction,speed
End Type
Type enemy
 Global enemy_list:TList = New TList
 Field width#,height#,x#,y#,direction#
 Field children:TList = New TList ' my children
 Field nodes:TList = New TList ' my attach points
 Field my_points:TList
 Function create(x#,y#,width#,height#,direction#)
 Local temp:enemy = New enemy
 temp.x=x
 temp.y=y
 temp.width = width
 temp.height = height
 temp.direction = direction
 temp.my_points:TList = New TList
 ' create the body poits
 ' first temp list
 Local left_list:TList=New TList ' left side nodes
 Local right_list:TList = New TList 'right side list
  ' start filling the left list
  For Local i=0 To 5
   Local new_x#=temp.x-(((width/2)*2/3))-Rand((width/2)/3)
   Local new_y#=temp.y+(height*i/5)
   'make a new node to hold found data
   Local new_node:node= New node
   new_node.x=new_x
   new_node.y=new_y
   ListAddLast(left_list,new_node)
   For Local i:node=EachIn(temp.my_points)
   
   Next
  Next
  ' now we addl to the right list
  For Local i:node=EachIn(left_list)
   ' we keep the y vcalue and make a new node with a mirrired x value
   Local x_distance#=Abs(i.x-temp.x)
   ' make a new node for the right list
   Local new_node:node= New node
   new_node.x=temp.x+x_distance
   new_node.y=i.y
   ListAddFirst(right_list,new_node)
  Next
  ' now that we have two lists we make one list from them
  For Local i:node=EachIn(left_list)
   ListAddLast(temp.my_points,i)
   
  Next
  For Local i:node=EachIn(right_list)
   ListAddLast(temp.my_points,i)
   
  Next
 ListAddLast(enemy_list,temp)
 EndFunction
 Method update()
  ' draw the nodes in the shape
  
  
  SetColor 255,255,255
  Local counter%=0
  Local last_point:node=New node
  For Local i:node=EachIn(my_points)
   If counter=0
   
   last_point.x=i.x
   last_point.y=i.y
   Else
    
    DrawLine(i.x,i.y,last_point.x,last_point.y)
    last_point.x=i.x
    last_point.y=i.y
    
   EndIf
   counter:+1
  Next
  
  
  
  
  
 End Method
 
End Type
Type node
 Field x,y
End Type
 

player.create(120,120)
enemy.create(124,124,96,254,45)
enemy.create(124,124,245,254,45)
While Not KeyDown(KEY_ESCAPE)
 Cls
 For Local i:player = EachIn(player.player_list)
  i.update()
 Next
 For Local i:enemy = EachIn(enemy.enemy_list)
  i.update()
 Next
 
 Flip
Wend