PureBasic Forums - English

Code: Select all

;VER PB 6.21 Beta 9 OpenGL prototyping, probably cross platform, tested on WIN7 64bit
#MAINDESKTOP_H        = 0
#MAINWINDOW_H         = 0
#MAINWINDOW_NAME      = "Test Application"
#MAINWINDOW_FLAGS     = #PB_Window_BorderLess
#MAINWINDOW_RESIZE    = 1
#MAINWINDOW_TOPOFFSET = 0
#SCREEN_FLAGS         = #PB_Screen_WaitSynchronization
#SCREEN_FRAMERATE     = 60
#AUTOSTRETCH_ON       = 1
#AUTOSTRETCH_OFF      = 0
#MAINLOOP_DELAY       = 0
#COMPILER_MINIMUM_VERSION = 621

#MAINCAMERA = 1
#FINAL_RENDERCAMERA = 31
#MASK_GENERALPICKMASK=1<<1
#MASK_NOPICKMASK=1<<31
#MASK_MAINCAMERA=1<<1
#MASK_FINAL_RENDERCAMERA=1<<31
#RENDEROBJECT=1
#RENDERWIDTH  = 640
#RENDERHEIGHT = 480

#GROUND = 2
#BOX = 5
#btex1 = 13
#btex2 = 14
#BUG=15
#RESS=100
#RESE=500
#BGS = 800
#BGE = 999

Global matanim.i
Global tsp.f
Global c1.i =RGB(150,80,20)
Global c2.i =RGB(0,0,0)

Structure coord3d
  x.f
  y.f
  z.f
EndStructure


Structure coord2d
  x.f
  y.f
EndStructure

Global midscreen.coord2d
Global mins.i, seconds.i, score.i

DeclareModule petskii
  Declare init()
  Declare textout(x,y,text.s,color.i,intensity.i=255)
  Declare textoutlined(x,y,text.s,color.i,outlinecolor.i,intensity.i=255)
  Declare cto(x,y,text.s,color.i,outlinecolor.i,intensity.i=255)
  Declare destroy()
EndDeclareModule

Module petskii
  #USED_CHARACTERS="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789!@#$%^&*()-_=+[{]};:',<.>/?"+Chr(34)
  Global Dim petskiifont(370):Global Dim fontimport.i(370)
  Procedure sub_loadfont()
    Protected x.i,i.i,j.i,sprline.a
    For i = 1 To Len(#USED_CHARACTERS):fontImport(Asc(Mid(#USED_CHARACTERS,i,1)))=1 : Next i 
    Restore petskii_font
      For x= 1 To 370
        If fontimport(x)=1
          petskiifont(x)=CreateSprite(-1,8,12,#PB_Sprite_AlphaBlending)
          StartDrawing(SpriteOutput(petskiifont(x)))
          DrawingMode(#PB_2DDrawing_AllChannels)
          For j=0 To 11  
            Read.a sprline 
            For i=0 To 7
              If sprline&%1 :Plot(i,j,RGBA(255,255,255,255)): Else : Plot(i,j,RGBA(0,0,0,0)) : EndIf
              sprline>>1 
            Next i
          Next j
          StopDrawing()
          ZoomSprite(petskiifont(x),16,24)
        EndIf
      Next x
  EndProcedure
  
  Procedure init()
    sub_loadfont()
  EndProcedure
  
  Procedure textout(x,y,text.s,color.i,intensity.i=255) : Protected.i textlength,i,character
    textlength.i = Len(text.s)
    For i = 1 To textlength.i
      character.i = Asc(Mid(text.s,i,1))
      If character.i>ArraySize(petskiifont()) : ProcedureReturn #Null : EndIf
      If IsSprite(petskiifont(character))
        DisplayTransparentSprite(petskiifont(character),(x+((i-1) * 16)),(y),intensity,color.i)
      EndIf
    Next i
  EndProcedure
  
  Procedure textoutlined(x,y,text.s,color.i,outlinecolor.i,intensity=255)
    textout(x-2,y,text.s,outlinecolor,intensity)
    textout(x+2,y,text.s,outlinecolor,intensity)
    textout(x,y-2,text.s,outlinecolor,intensity)
    textout(x,y+2,text.s,outlinecolor,intensity)
    textout(x,y,text.s,color,intensity)
  EndProcedure
  
  Procedure cto(x,y,text.s,color.i,outlinecolor.i,intensity=255)
    textlength.i = Len(text.s)
    x=x-(textlength*16)/2 : y=y-8
    textout(x-2,y,text.s,outlinecolor,intensity)
    textout(x+2,y,text.s,outlinecolor,intensity)
    textout(x,y-2,text.s,outlinecolor,intensity)
    textout(x,y+2,text.s,outlinecolor,intensity)
    textout(x,y,text.s,color,intensity)
  EndProcedure

  Procedure destroy()
    Protected i.i
    For i = 1 To Len(#USED_CHARACTERS)
      If IsSprite(petskiifont(i)) : FreeSprite(petskiifont(i)) : EndIf
    Next i
  EndProcedure
  
  DataSection
  petskii_font:
  Data.a $00,$00,$38,$38,$38,$38,$38,$38,$00,$38,$00,$00,$00,$00,$EE,$EE,$EE,$00,$00,$00,$00,$00,$00,$00,$00,$00,$EE,$EE,$EE,$FF,$EE,$FF,$EE,$EE,$00,$00,$00,$00,$38,$38,$FC,$0E,$7C,$E0,$7E,$38,$00,$00
  Data.a $00,$00,$CE,$CE,$EE,$70,$38,$1C,$EE,$E6,$00,$00,$00,$00,$7C,$7C,$EE,$7C,$3C,$EE,$EE,$FC,$00,$00,$00,$00,$E0,$E0,$70,$38,$00,$00,$00,$00,$00,$00,$00,$00,$70,$70,$38,$1C,$1C,$1C,$38,$70,$00,$00
  Data.a $00,$00,$1C,$1C,$38,$70,$70,$70,$38,$1C,$00,$00,$00,$00,$00,$00,$EE,$7C,$FF,$7C,$EE,$00,$00,$00,$00,$00,$00,$00,$38,$38,$FE,$38,$38,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$38,$38,$1C,$00
  Data.a $00,$00,$00,$00,$00,$00,$FE,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$38,$38,$00,$00,$00,$00,$00,$00,$C0,$E0,$70,$38,$1C,$0E,$00,$00,$00,$00,$7C,$7C,$EE,$FE,$FE,$EE,$EE,$7C,$00,$00
  Data.a $00,$00,$38,$38,$38,$3C,$38,$38,$38,$FE,$00,$00,$00,$00,$7C,$7C,$EE,$E0,$70,$1C,$0E,$FE,$00,$00,$00,$00,$7C,$7C,$EE,$E0,$78,$E0,$EE,$7C,$00,$00,$00,$00,$E0,$E0,$F0,$F8,$EE,$FE,$E0,$E0,$00,$00
  Data.a $00,$00,$FE,$FE,$0E,$7E,$E0,$E0,$EE,$7C,$00,$00,$00,$00,$7C,$7C,$EE,$0E,$7E,$EE,$EE,$7C,$00,$00,$00,$00,$FE,$FE,$EE,$70,$38,$38,$38,$38,$00,$00,$00,$00,$7C,$7C,$EE,$EE,$7C,$EE,$EE,$7C,$00,$00
  Data.a $00,$00,$7C,$7C,$EE,$EE,$FC,$E0,$EE,$7C,$00,$00,$00,$00,$38,$38,$38,$00,$00,$00,$38,$38,$00,$00,$00,$00,$38,$38,$38,$00,$00,$00,$38,$38,$1C,$00,$00,$00,$F0,$F0,$38,$1C,$0E,$1C,$38,$F0,$00,$00
  Data.a $00,$00,$00,$00,$00,$FE,$00,$FE,$00,$00,$00,$00,$00,$00,$1E,$1E,$38,$70,$E0,$70,$38,$1E,$00,$00,$00,$00,$7C,$7C,$EE,$E0,$70,$38,$00,$38,$00,$00,$00,$00,$7C,$7C,$EE,$FE,$FE,$0E,$CE,$7C,$00,$00
  Data.a $00,$00,$38,$38,$7C,$EE,$FE,$EE,$EE,$EE,$00,$00,$00,$00,$7E,$7E,$EE,$EE,$7E,$EE,$EE,$7E,$00,$00,$00,$00,$7C,$7C,$EE,$0E,$0E,$0E,$EE,$7C,$00,$00,$00,$00,$3E,$3E,$7E,$EE,$EE,$EE,$7E,$3E,$00,$00
  Data.a $00,$00,$FE,$FE,$0E,$0E,$3E,$0E,$0E,$FE,$00,$00,$00,$00,$FE,$FE,$0E,$0E,$3E,$0E,$0E,$0E,$00,$00,$00,$00,$7C,$7C,$EE,$0E,$FE,$EE,$EE,$7C,$00,$00,$00,$00,$EE,$EE,$EE,$EE,$FE,$EE,$EE,$EE,$00,$00
  Data.a $00,$00,$7C,$7C,$38,$38,$38,$38,$38,$7C,$00,$00,$00,$00,$F8,$F8,$70,$70,$70,$70,$7E,$3C,$00,$00,$00,$00,$EE,$EE,$7E,$3E,$1E,$3E,$7E,$EE,$00,$00,$00,$00,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$FE,$00,$00
  Data.a $00,$00,$CE,$CE,$FE,$FE,$FE,$CE,$CE,$CE,$00,$00,$00,$00,$EE,$EE,$FE,$FE,$FE,$FE,$EE,$EE,$00,$00,$00,$00,$7C,$7C,$EE,$EE,$EE,$EE,$EE,$7C,$00,$00,$00,$00,$7E,$7E,$EE,$EE,$7E,$0E,$0E,$0E,$00,$00
  Data.a $00,$00,$7C,$7C,$EE,$EE,$EE,$EE,$7C,$F0,$00,$00,$00,$00,$7E,$7E,$EE,$EE,$7E,$3E,$7E,$EE,$00,$00,$00,$00,$7C,$7C,$EE,$0E,$7C,$E0,$EE,$7C,$00,$00,$00,$00,$FE,$FE,$38,$38,$38,$38,$38,$38,$00,$00
  Data.a $00,$00,$EE,$EE,$EE,$EE,$EE,$EE,$EE,$7C,$00,$00,$00,$00,$EE,$EE,$EE,$EE,$EE,$EE,$7C,$38,$00,$00,$00,$00,$CE,$CE,$CE,$CE,$FE,$FE,$FE,$CE,$00,$00,$00,$00,$EE,$EE,$EE,$7C,$38,$7C,$EE,$EE,$00,$00
  Data.a $00,$00,$EE,$EE,$EE,$EE,$7C,$38,$38,$38,$00,$00,$00,$00,$FE,$FE,$E0,$70,$38,$1C,$0E,$FE,$00,$00,$00,$00,$7C,$7C,$1C,$1C,$1C,$1C,$1C,$7C,$00,$00,$00,$00,$7C,$7C,$70,$70,$70,$70,$70,$7C,$00,$00
  Data.a $00,$00,$38,$38,$7C,$FE,$38,$38,$38,$38,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$FF,$00,$00,$00,$00,$00,$00,$00,$7C,$E0,$FC,$EE,$FC,$00,$00,$00,$00,$00,$00,$0E,$0E,$7E,$EE,$EE,$7E,$00,$00
  Data.a $00,$00,$00,$00,$00,$7C,$0E,$0E,$0E,$7C,$00,$00,$00,$00,$00,$00,$E0,$E0,$FC,$EE,$EE,$FC,$00,$00,$00,$00,$00,$00,$00,$7C,$EE,$FE,$0E,$7C,$00,$00,$00,$00,$00,$00,$F0,$38,$FC,$38,$38,$38,$00,$00
  Data.a $00,$00,$00,$00,$00,$FC,$EE,$EE,$FC,$E0,$7E,$00,$00,$00,$0E,$0E,$0E,$7E,$EE,$EE,$EE,$EE,$00,$00,$00,$00,$38,$38,$00,$3C,$38,$38,$38,$7C,$00,$00,$00,$00,$00,$00,$70,$00,$70,$70,$70,$70,$3C,$00
  Data.a $00,$00,$0E,$0E,$0E,$0E,$7E,$3E,$7E,$EE,$00,$00,$00,$00,$3C,$3C,$38,$38,$38,$38,$38,$7C,$00,$00,$00,$00,$00,$00,$00,$EE,$FE,$FE,$FE,$CE,$00,$00,$00,$00,$00,$00,$00,$7E,$EE,$EE,$EE,$EE,$00,$00
  Data.a $00,$00,$00,$00,$00,$7C,$EE,$EE,$EE,$7C,$00,$00,$00,$00,$00,$00,$00,$7E,$EE,$EE,$7E,$0E,$0E,$00,$00,$00,$00,$00,$00,$FC,$EE,$EE,$FC,$E0,$E0,$00,$00,$00,$00,$00,$00,$7E,$EE,$0E,$0E,$0E,$00,$00
  Data.a $00,$00,$00,$00,$00,$FC,$0E,$7C,$E0,$7E,$00,$00,$00,$00,$00,$00,$38,$FE,$38,$38,$38,$F0,$00,$00,$00,$00,$00,$00,$00,$EE,$EE,$EE,$EE,$FC,$00,$00,$00,$00,$00,$00,$00,$EE,$EE,$EE,$7C,$38,$00,$00
  Data.a $00,$00,$00,$00,$00,$CE,$FE,$FE,$FC,$FC,$00,$00,$00,$00,$00,$00,$00,$EE,$7C,$38,$7C,$EE,$00,$00,$00,$00,$00,$00,$00,$EE,$EE,$EE,$FC,$70,$3E,$00,$00,$00,$00,$00,$00,$FE,$70,$38,$1C,$FE,$00,$00
  Data.a $00,$00,$F0,$F0,$38,$38,$1E,$38,$38,$F0,$00,$00,$00,$00,$1E,$1E,$38,$38,$F0,$38,$38,$1E,$00,$00
  EndDataSection
EndModule

DeclareModule ticker
  #TICKS_FOREVER = -10
  #MAXIMUM_ALLOWED_TICKERS = 255
  
  Structure tickerstructure
    timeout.i
    lasttick.i
    current_tick_count.i
    target_tick_count.i
    alive.i
  EndStructure

  Declare.i create(ID.i,ticktime_ms.i,number_of_ticks.i=#TICKS_FOREVER)
  Declare.i triggered(ID.i)
  Declare.i kill(ID.i)
EndDeclareModule

Module ticker
  Global Dim tickers.tickerstructure(#MAXIMUM_ALLOWED_TICKERS)
  Procedure.i create(ID.i,ticktime_ms.i,number_of_ticks.i=#TICKS_FOREVER)
    If ID.i>=0 And ID.i<=#MAXIMUM_ALLOWED_TICKERS
      With tickers(ID.i)
        \lasttick.i = ElapsedMilliseconds()
        \timeout.i = ticktime_ms.i
        \current_tick_count.i = 0
        \alive.i = #True
        \target_tick_count = number_of_ticks.i
      EndWith
      ProcedureReturn #True
    EndIf
    ProcedureReturn #False
  EndProcedure
  
  Procedure.i triggered(ID.i)
    If ID.i<0 Or ID.i>#MAXIMUM_ALLOWED_TICKERS
      Debug Str(ID.i) + " not exists, cant be checked"
      ProcedureReturn #False
    EndIf
    If tickers(ID.i)\alive <> #True
      ProcedureReturn #False
    EndIf
    If ElapsedMilliseconds()-tickers(ID.i)\lasttick<tickers(ID.i)\timeout
      ProcedureReturn #False
    EndIf
    tickers(ID.i)\current_tick_count + 1
    tickers(ID.i)\lasttick = ElapsedMilliseconds()
    If tickers(ID.i)\current_tick_count = tickers(ID.i)\target_tick_count
      tickers(ID.i)\alive = #False
    EndIf
    ProcedureReturn #True
  EndProcedure
  
  Procedure.i Kill(ID.i)
    If ID.i<0 Or ID.i>#MAXIMUM_ALLOWED_TICKERS
      ProcedureReturn #False
    EndIf
    tickers(ID.i)\alive = #False
    ProcedureReturn #True
  EndProcedure
EndModule


Procedure.f LERP(a.f,b.f,t.f)
  ProcedureReturn(((1.0-t.f)*a) + (b*t))
EndProcedure
  
Procedure.f INVLERP(a.f,b.f,v.f)
  If a=b : ProcedureReturn(1) : EndIf
  ProcedureReturn((v-a) / (b-a))
EndProcedure
  
Procedure.f remap(iMin.f,iMAX.f, oMin.f, oMax.f, v.f)  
  Protected t.f
  t.f = INVLERP(iMin,iMAX,v)
  ProcedureReturn(LERP(oMin,oMax,t))
EndProcedure

#SOUND_SAMPLE_RATE=8000
  #SOUND_BITS_PER_SAMPLE=8
  #SOUND_CHANNELS=1
  #SOUND_BYTERATE = (#SOUND_SAMPLE_RATE*#SOUND_CHANNELS*#SOUND_BITS_PER_SAMPLE)/8
  
  Procedure snd(frequency.f,length.i, attack,decay,sustain,release ,wf,af,tac,ns.i,vs.f,vd.f)
  Protected chunk.l = Int((length/1000)*#SOUND_BYTERATE)
  Protected samples.i = Int((length/1000)*#SOUND_SAMPLE_RATE)
  Protected headersize.i = 40 
  Protected result_id.i,i.i,mydata.a,output.i, position.i
  Protected fl_variable
  Protected *buffer
  Protected mastervolume.i=127
  *buffer=AllocateMemory(headersize+4+(chunk))
  Restore waveheader3
  For i= 1 To 40
    Read.a mydata.a
    PokeA(*buffer+position,mydata.a) : position=position+1
  Next i
  PokeL(*buffer+position,chunk) : position = position+4
  
  Protected singlewavetime.f = 1.0/frequency
  Protected awt.f =1.0/af
  Protected samplesperwave.i = Round(#SOUND_SAMPLE_RATE*singlewavetime,#PB_Round_Up)
  Protected aspw =  Round(#SOUND_SAMPLE_RATE*awt,#PB_Round_Up)
  Protected wavecount.i=Round(length/singlewavetime,#PB_Round_Up)
  Protected duty.f=0.5
  Protected vbtp.f= 0
  
  Protected steps.f,vbtstp.f
  steps = #SOUND_SAMPLE_RATE/frequency
  vbtstp = #SOUND_SAMPLE_RATE*vs/frequency
  
  Protected capc.i=0
  Protected attacksamples.i,decaysamples.i,sustainsamples.i,releasesamples.i,currentvolume.i
  attacksamples =remap(1,attack+decay+sustain+release,1,samples,attack)
  decaysamples =remap(1,attack+decay+sustain+release,1,samples,attack+decay)
  sustainsamples=remap(1,attack+decay+sustain+release,1,samples,attack+decay+sustain)
  releasesamples=samples
  
  Protected counter.i, targetperiod.i,apn = 0
    counter.i = 0
  targetperiod = samplesperwave
  For i= 1 To samples
    counter.i=counter+1
    capc.i=capc.i+1
    If capc=tac
      capc=0
      apn = 1-apn
    EndIf
    If counter>=targetperiod
      counter=0 : duty=duty*-1
      If vd>0 And vs>0
        vbtp=vbtp+vs
        vbtp=((2*3.14)/steps)*i*vs
        If apn
          targetperiod =Round(aspw*((1.0+(Sin(vbtp)*vd))),#PB_Round_Nearest)
          Else
          targetperiod =Round(samplesperwave*((1.0+(Sin(vbtp)*vd))),#PB_Round_Nearest)
          EndIf
      Else
        If apn
          targetperiod = aspw
        Else
          targetperiod = samplesperwave
        EndIf
      EndIf
    EndIf
    If i<attacksamples 
      currentvolume =lerp(0,mastervolume,i/attacksamples)
    ElseIf i<decaysamples
      currentvolume =lerp(mastervolume,mastervolume*0.8,i/decaysamples)
    ElseIf i<sustainsamples
      currentvolume =mastervolume*0.8
    Else
      currentvolume =lerp(0,mastervolume,i/releasesamples)
    EndIf
      output= 127+((currentvolume*duty)+(Random(ns)))
    PokeA(*buffer+position,output):position = position+1
  Next i
  result_id = CatchSound(#PB_Any,*buffer,headersize+4+(chunk))
  FreeMemory(*buffer)
  ProcedureReturn(result_id)
  EndProcedure    

  #b_Idle=0
  #b_attack=1
  #b_wonder=2
  #b_guard=3
  
  #WALL = 30
  
  Structure pstruct
    id.i
    armor.i
    ammo.i
    box.i
    dmgmin.i
    dmgmax.i
    spmax.i
    mat.i
    kills.i
    behavior.i
    aggrorange.i
    t.i
    tx.i
    ty.i
    load.i
    fired.i
    collected.i
    boxdestroyed.i
    spentarmor.i
    spentammo.i
    won.i
  EndStructure
  
  Global p.pstruct
  p\ammo=450
  p\armor = 250
  p\box = 0
  p\dmgmin = 1
  p\dmgmax = 3
  p\load = 0
  
  Global bugscount.i = 0
  Global bugswiper.i =#BGS
  Global NewList bugs()
  Global Dim o.pstruct(2000)
  
Procedure sub_checks()
  If Int(#PB_Compiler_Version) < #COMPILER_MINIMUM_VERSION
    Debug "Please compile with the currently newest beta 8 6.21."
    Debug "This snippet uses features presented with that update."
    End
  EndIf
  If #PB_Compiler_Debugger
    Debug "Please compile debugger off"
    End
  EndIf
EndProcedure

Procedure spawnbug(num,x1,y1,x2,y2,big,behavior)
    count = 0
    For x=#BGS To #BGE
      If Not IsEntity(x)And count<num
        AddElement(bugs()) : bugs()=x : bugscount+1
        CreateEntity(x,MeshID(#box),MaterialID(#btex1),x1+Random(x2-x1),20,y1+Random(y2-y1),#MASK_GENERALPICKMASK,#MASK_MAINCAMERA)
        c=Random(big,0)
        o(x)\t=-1
        If c =1
          o(x)\armor=50
          o(x)\ID=#BUG
          o(x)\spmax=10+Random(20,10)
          f.f=1.5+Random(500)/1000
          ScaleEntity(x,2,2,2)
          o(x)\behavior = behavior
          o(x)\aggrorange=250000+Random(250000)
        Else
          o(x)\armor=6
          o(x)\ID=#BUG
          o(x)\spmax=60+Random(30,10)
          f.f=1.0+Random(100)/1000
          ScaleEntity(x,f,f,f)
          o(x)\behavior = behavior
          o(x)\aggrorange=400000+Random(100000)
        EndIf
        count+1
        EntityRenderMode(x,#PB_Shadow_None)
        CreateEntityBody(x,#PB_Entity_BoxBody,1,1,1)
        EntityAngularFactor(x,0,1,0)
        EntityLinearFactor(x,1,0,1)
        If count=num : x = #BGE : EndIf
      EndIf
    Next x
EndProcedure

Procedure createmat(id.i,*img,size.i)
  CreateTexture(id,size,size)
  CatchImage(id,*img)
  StartDrawing(TextureOutput(id))
  DrawingMode(#PB_2DDrawing_AllChannels)
  Box(0,0,OutputWidth(),OutputHeight())
  DrawAlphaImage(ImageID(id),0,0)
  StopDrawing()
  CreateMaterial(id,TextureID(id))
  MaterialFilteringMode(id,#PB_Material_None)
  FreeImage(id)
EndProcedure

Procedure setmat_basic(a)
  SetMaterialAttribute(a,#PB_Material_DepthWrite,#True)
  SetMaterialAttribute(a,#PB_Material_AlphaReject,#True)
  SetMaterialAttribute(a,#PB_Material_TAM,#PB_Material_ClampTAM)
  MaterialFilteringMode(a,#PB_Material_None)
EndProcedure

Procedure.i dist(x1,y1,x2,y2)
  Protected retval.i
  retval.i = ((x2-x1)*(x2-x1))+((y2-y1)*(y2-y1))
  ProcedureReturn retval
EndProcedure

Procedure app_start()
  UsePNGImageDecoder()
  sub_checks()
  ExamineDesktops()
  InitEngine3D()
  InitSprite()
  InitKeyboard()
  InitMouse()
  InitSound()
  OpenWindow(#MAINWINDOW_H,0,0,DesktopUnscaledX(DesktopWidth(#MAINDESKTOP_H)),DesktopUnscaledY(DesktopHeight(#MAINDESKTOP_H)),#MAINWINDOW_NAME,#MAINWINDOW_FLAGS)
  OpenWindowedScreen(WindowID(#MAINWINDOW_H),0,0,WindowWidth(#MAINWINDOW_H),WindowHeight(#MAINWINDOW_H),#AUTOSTRETCH_ON,0,0,#SCREEN_FLAGS)
  SetFrameRate(#SCREEN_FRAMERATE)
  midscreen\x=ScreenWidth()/2
  midscreen\y=ScreenHeight()/2
  petskii::init()
  Add3DArchive(#PB_Compiler_Home+"examples/3d/Data/Main",#PB_3DArchive_FileSystem)
  Parse3DScripts()
  
  EnableWorldPhysics(#True)
  WorldShadows( #PB_Shadow_Additive,50000,RGBA(1,1,100,21))
  SetWorldAttribute(#PB_Shadow_FarDistance,50000)
  
  CreateCamera(#MAINCAMERA,0,0,100,100,#MASK_MAINCAMERA)
  CameraRenderMode(#MAINCAMERA,#PB_Camera_Textured)
  CameraProjectionMode(#MAINCAMERA,#PB_Camera_Orthographic)
  MoveCamera(#MAINCAMERA,0,-0,-8,#PB_Absolute)
  RotateCamera(#MAINCAMERA,0,180,0)
  
  CreateCamera(#FINAL_RENDERCAMERA,0,0,100,100,#MASK_FINAL_RENDERCAMERA)
  CameraRenderMode(#FINAL_RENDERCAMERA,#PB_Camera_Textured)
  CameraProjectionMode(#FINAL_RENDERCAMERA,#PB_Camera_Perspective)
  CameraRange(#FINAL_RENDERCAMERA,0,100000)
  MoveCamera(#FINAL_RENDERCAMERA,0,-0,200,#PB_Absolute|#PB_World)
  
  CreateRenderTexture(#RENDEROBJECT,CameraID(#MAINCAMERA),#RENDERWIDTH,#RENDERHEIGHT,#PB_Texture_ManualUpdate)
  CreateMaterial(#RENDEROBJECT,TextureID(#RENDEROBJECT))
  DisableMaterialLighting(#RENDEROBJECT,#True)
  MaterialFilteringMode(#RENDEROBJECT,#PB_Material_None)
  
  CreatePlane(#RENDEROBJECT,(ScreenWidth()/ScreenHeight())*1000,1000,1,1,1,1)
  CreateEntity(#RENDEROBJECT,MeshID(#RENDEROBJECT),MaterialID(#RENDEROBJECT),0,0,-1000,#MASK_NOPICKMASK,#MASK_FINAL_RENDERCAMERA)
  RotateEntity(#RENDEROBJECT,90,180,0,#PB_Absolute)
  SetRenderQueue(EntityID(#RENDEROBJECT),0,0)
  
  Global holeimg = CatchImage(#PB_Any,?hole)
  ResizeImage(holeimg,8,8)
  Global splatimg = CatchImage(#PB_Any,?bsplat)
  ResizeImage(splatimg,8,8)
  Global eggdimg = CatchImage(#PB_Any,?eggd)
  ResizeImage(eggdimg,10,10,#PB_Image_Raw)
  Global bugdimg = CatchImage(#PB_Any,?deadbug)
  ResizeImage(bugdimg,8,8,#PB_Image_Raw)
  Global layertexture = CreateTexture(#PB_Any,1024,1024)
  StartDrawing(TextureOutput(layertexture))
  DrawingMode(#PB_2DDrawing_AllChannels)
  Box(0,0,OutputWidth(),OutputHeight(),RGBA(0,0,0,0))
  StopDrawing()
  
  createmat(#ground,?ground,16)
  AddMaterialLayer(#ground,TextureID(layertexture),#PB_Material_AlphaBlend)
  ScaleMaterial(#GROUND,0.01,0.01,0)
  CreatePlane(#GROUND,10240,10240,1,1,1,1)
  CreateEntity(#GROUND,MeshID(#GROUND),MaterialID(2),0,0,0,#MASK_NOPICKMASK,#MASK_MAINCAMERA)
  CreateEntityBody(#GROUND,#PB_Entity_StaticBody,1,1,1)
  
  MoveCamera(#MAINCAMERA,0,3000,0,#PB_World|#PB_Absolute)
  CameraLookAt(#MAINCAMERA,EntityX(2),EntityY(2),EntityZ(2))
  
  #HULL=3
  a=3
  createmat(a,?base,16)
  setmat_basic(a) 
  CreateCube(a,100)
  
  CreateEntity(a,MeshID(a),MaterialID(a),0,40,0,#MASK_NOPICKMASK,#MASK_MAINCAMERA)
  ScaleEntity(a,1/2,1/1.5,1/1.5)
  CreateEntityBody(a,#PB_Entity_BoxBody,1,1,1)
  EntityLinearFactor(a,1,0,1)
  #TURR=4
  a=4
  createmat(a,?turret,16)
  setmat_basic(a)
  CreateCube(a,80)
  CreateEntity(a,MeshID(a),MaterialID(a),0,61,0,#MASK_NOPICKMASK,#MASK_MAINCAMERA)
  EntityRenderMode(a,#PB_Shadow_None)
  
  a=8
  #ammopod = 8
  CatchImage(a,?ammopod)
  ResizeImage(a,25,25,#PB_Image_Raw)
  StartDrawing(TextureOutput(layertexture))
  DrawingMode(#PB_2DDrawing_AllChannels)
  DrawAlphaImage(ImageID(a),530,500)
  StopDrawing()
  
  a=20
  #REP = 20
  CatchImage(a,?rep)
  ResizeImage(a,25,25,#PB_Image_Raw)
  StartDrawing(TextureOutput(layertexture))
  DrawingMode(#PB_2DDrawing_AllChannels)
  DrawAlphaImage(ImageID(a),470,500)
  StopDrawing()

  a=21
  #HELI = 21
  CatchImage(a,?heli)
  ResizeImage(a,25,25,#PB_Image_Raw)
  StartDrawing(TextureOutput(layertexture))
  DrawingMode(#PB_2DDrawing_AllChannels)
  DrawAlphaImage(ImageID(a),500,500)
  StopDrawing()
    
  a=8
  #EGG = 8
  createmat(a,?egg,16)
  setmat_basic(a)
  
  a=5
  createmat(a,?box,16)
  setmat_basic(a)
  CreateCube(a,40)
  CatchSprite(a,?box,#PB_Sprite_AlphaBlending) : ZoomSprite(a,64,64)
  
  For x = #RESS To #RESE
      test = Random(4,1)
      If test = 4
        CreateEntity(x,MeshID(a),MaterialID(#BOX),-5000+Random(10000),20,-5000+Random(10000),#MASK_GENERALPICKMASK,#MASK_MAINCAMERA)
        EntityRenderMode(x,#PB_Entity_CastShadow)
        o(x)\id=#BOX
        o(x)\armor=3+Random(3)
        CreateEntityBody(x,#PB_Entity_BoxBody,1,1,10) : RotateEntity(x,0,Random(360),0)
      Else
        CreateEntity(x,MeshID(a),MaterialID(#EGG),-5000+Random(10000),20,-5000+Random(10000),#MASK_GENERALPICKMASK,#MASK_MAINCAMERA)
        ScaleEntity(x,2,2,2)
        EntityRenderMode(x,#PB_Shadow_None)
        o(x)\id=#EGG
        o(x)\armor=10+Random(10)
        CreateEntityBody(x,#PB_Entity_BoxBody,1,1,10) : RotateEntity(x,0,Random(360),0)
      EndIf
      If o(x)\id = #egg
        EntityAngularFactor(x,0,0.025,0)
        EntityLinearFactor(x,0.025,0,0.025)
        SetEntityAttribute(x,#PB_Entity_AngularSleeping,0.1)
        SetEntityAttribute(x,#PB_Entity_LinearSleeping,1)
        SetEntityAttribute(x,#PB_Entity_MaxVelocity,0)
        SetEntityAttribute(x,#PB_Entity_Friction,10)
      Else
        EntityAngularFactor(x,0,0.1,0)
        EntityLinearFactor(x,0.1,0,0.1)
        SetEntityAttribute(x,#PB_Entity_AngularSleeping,10)
        SetEntityAttribute(x,#PB_Entity_LinearSleeping,10)
        SetEntityAttribute(x,#PB_Entity_MaxVelocity,20)
      EndIf
  Next x
  
  a=7
  createmat(a,?wall,16)
  setmat_basic(a)
  
  CreateCube(a,102)
  For x = 2000 To 2020
    Repeat  
      tx = Random(10000)-20000
    Until Abs(tx)>250
    Repeat  
      tz = Random(10000)-20000
    Until Abs(tz)>250
    CreateEntity(x,MeshID(a),MaterialID(a),tx,48+x*0.001,tz,#MASK_GENERALPICKMASK,#MASK_MAINCAMERA): RotateEntity(x,0,Random(360),0)
    ScaleEntity(x,2,1,2)
    CreateEntityBody(x,#PB_Entity_StaticBody,1,1,1) 
    o(x)\id=#WALL
  Next x
  x=226
  CreateEntity(x,MeshID(a),MaterialID(a),tx,58+x*0.1,tz,#MASK_GENERALPICKMASK,#MASK_MAINCAMERA) 
  ScaleEntity(x,100,10,2,#PB_Absolute)
  MoveEntity(x,0,10,5012.5,#PB_World|#PB_Absolute)
  CreateEntityBody(x,#PB_Entity_StaticBody,1,1,1) 
  o(x)\id=#WALL
  
  x=227
  CreateEntity(x,MeshID(a),MaterialID(a),tx,98+x*0.1,tz,#MASK_GENERALPICKMASK,#MASK_MAINCAMERA) 
  ScaleEntity(x,100,10,2,#PB_Absolute)
  MoveEntity(x,0,15,-5012.5,#PB_World|#PB_Absolute)
  CreateEntityBody(x,#PB_Entity_StaticBody,1,1,1) 
  o(x)\id=#WALL
  
  x=228
  CreateEntity(x,MeshID(a),MaterialID(a),tx,98+x*0.1,tz,#MASK_GENERALPICKMASK,#MASK_MAINCAMERA)
  RotateEntity(x,0,90,0)
  ScaleEntity(x,100,10,2,#PB_Absolute)
  MoveEntity(x,-5012.5,20,0,#PB_World|#PB_Absolute)
  CreateEntityBody(x,#PB_Entity_StaticBody,1,1,1) 
  o(x)\id=#WALL
  
  x=229
  CreateEntity(x,MeshID(a),MaterialID(a),tx,98+x*0.1,tz,#MASK_GENERALPICKMASK,#MASK_MAINCAMERA)
  RotateEntity(x,0,90,0)
  ScaleEntity(x,100,10,2,#PB_Absolute)
  MoveEntity(x,5012.5,25,0,#PB_World|#PB_Absolute)
  CreateEntityBody(x,#PB_Entity_StaticBody,1,1,1) 
  o(x)\id=#WALL
  
  #NEST=12
  a=12
  createmat(a,?nest,16)
  setmat_basic(a)
  CreateCube(a,300)
  CreateEntity(a,MeshID(a),MaterialID(a),0,0,0,#MASK_GENERALPICKMASK,#MASK_MAINCAMERA)
  EntityRenderMode(a,#PB_Shadow_None)
  CreateEntityBody(a,#PB_Entity_SphereBody,1,1,1,1,200,200,200) 
  MoveEntity(a,0,-100,4500,#PB_World|#PB_Absolute)
  EntityAngularFactor(a,0,0,0)
  EntityLinearFactor(a,0,0,0)
  o(a)\id=#NEST
  o(a)\armor=1500
  MoveEntity(a,0,0,0,#PB_Local|#PB_Relative)
  UpdateMeshBoundingBox(a)
  
  a=13
  createmat(a,?bug1,16)
  setmat_basic(a)
  
  a=14
  createmat(a,?bug2,16)
  setmat_basic(a)
  
  #AIM=6
  a=6
  createmat(a,?aim,16)
  setmat_basic(a)
  CreateCube(a,50)
  CreateEntity(a,MeshID(a),MaterialID(a),0,300,0,#MASK_NOPICKMASK,#MASK_MAINCAMERA)
  EntityRenderMode(a,#PB_Shadow_None)
  Global aim.coord3d
  aim\x=0 : aim\y=250 : aim\z=0
  
  CreateLight(0,RGB(255,255,255),0,0,0,#PB_Light_Directional)
  LightDirection(0,-1,-2,-1)
  WorldDebug(#PB_World_DebugNone)
  ticker::create(1,500)
  ticker::create(2,200)
  ticker::create(3,15000)
  ticker::create(4,6000)
  
  Global shot.i=snd(840,100,30,30,100,30,0,440,0,1,0.016,0.8)
  SoundVolume(shot,25)
  Global empty.i=snd(200,200,30,30,1,300,0,0,0,0,0.0,0)
  SoundVolume(empty,25)
  
  Global engine.i=snd(60,20,30,30,1,30,60,60,0,0,0.0,0)
  SoundVolume(engine,18)
  SetSoundFrequency(engine,5000)
  PlaySound(engine,#PB_Sound_Loop)
  
  Global pickup.i=snd(200,80,30,30,1,300,1200,120,0,1,1.0,1)
  SoundVolume(pickup,25)
  
  Global eat.i=snd(200,180,30,30,1,3000,1200,1200,100,1,1.0,1)
  SoundVolume(eat,50)
  Global crunch.i=snd(300,80,30,30,1,3000,1200,1200,100,1,1.0,1)
  SoundVolume(crunch,50)
  
  Global bcrunch.i=snd(450,120,10,300,100,30,2500,200,10,1,5.0,0.5)
  SoundVolume(bcrunch,50)
  MoveEntity(#HULL,0,0,tsp,#PB_Local|#PB_Relative)
EndProcedure
#MAXDIST = 1000
Global tsp.f

Procedure splashimage(img,x,y,a)
  StartDrawing(TextureOutput(layertexture))
  DrawingMode(#PB_2DDrawing_AlphaBlend)
  DrawAlphaImage(ImageID(img),x,y,a)
  StopDrawing()
EndProcedure

Procedure app_update()
  Protected w_event.i
  Repeat 
    w_event = WindowEvent() : If w_event = #PB_Event_CloseWindow : End : EndIf
  Until Not w_event
  ExamineKeyboard():ExamineMouse()
  aim\x = aim\x-(MouseDeltaX()*0.5)
  aim\z = aim\z-(MouseDeltaY()*0.5)
  If aim\x>EntityX(#turr)+#MAXDIST : aim\x = EntityX(#turr)+#MAXDIST : EndIf
  If aim\x<EntityX(#turr)-#MAXDIST : aim\x = EntityX(#turr)-#MAXDIST : EndIf
  
  If aim\z>EntityZ(#turr)+#MAXDIST : aim\z =EntityZ(#turr)+ #MAXDIST : EndIf
  If aim\z<EntityZ(#turr)-#MAXDIST : aim\z = EntityZ(#turr)-#MAXDIST : EndIf
  
  If p\armor>0 And p\won=0
    MoveCamera(#MAINCAMERA,CameraX(#MAINCAMERA)*0.9+EntityX(#aim)*0.1,CameraY(#MAINCAMERA),CameraZ(#MAINCAMERA)*0.9+EntityZ(#aim)*0.1,#PB_World|#PB_Absolute)
    MoveEntity(#AIM,aim\x,aim\y,aim\z,#PB_Absolute|#PB_World)
    EntityLookAt(#TURR,EntityX(#AIM),EntityY(#TURR),EntityZ(#AIM))

    If KeyboardPushed(#PB_Key_A) Or KeyboardPushed(#PB_Key_D)
      If KeyboardPushed(#PB_Key_A)
        RotateEntity(#HULL,0,1.5,0,#PB_World|#PB_Relative)
      EndIf
      
      If KeyboardPushed(#PB_Key_D)
        RotateEntity(#HULL,0,-1.5,0,#PB_World|#PB_Relative)
      EndIf
    Else
      RotateEntity(#HULL,0,0,0,#PB_World|#PB_Relative)
    EndIf

    If KeyboardPushed(#PB_Key_W) Or KeyboardPushed(#PB_Key_S) 
      If KeyboardPushed(#PB_Key_S)
        tsp=tsp*0.97+(100*-0.03)
        If tsp<-60 : tsp = -60 : EndIf
      EndIf

      If KeyboardPushed(#PB_Key_W)
        tsp=tsp*0.95+(100*0.05)
        If tsp>100 : tsp = 100 : EndIf
      EndIf
    Else
      tsp=tsp*0.95
    EndIf

    If tsp>1 Or tsp<-1
      MoveEntity(#HULL,0,0,tsp,#PB_Local|#PB_Relative)
      SetSoundFrequency(engine,5000+Abs(tsp)*10)
    Else
      EntityVelocity(#hull,0,0,0)
    EndIf

    MoveEntity(#TURR,EntityX(#HULL),61,EntityZ(#HULL),#PB_World|#PB_Absolute)
    
    If MouseButton(#PB_MouseButton_Left) Or KeyboardPushed(#PB_Key_E)
      rayhitbool = RayCast(EntityX(#aim),5000,EntityZ(#aim),0 ,-5000,0,#MASK_GENERALPICKMASK)
      If rayhitbool
        If IsEntity(rayhitbool)
          If p\box<5 And o(rayhitbool)\id=#BOX
            If (EntityX(#HULL)-PickX())*(EntityX(#HULL)-PickX())+(EntityZ(#HULL)-PickZ())*(EntityZ(#HULL)-PickZ())<5000
               FreeEntity(rayhitbool)
               p\box+1
               p\collected+1
               PlaySound(pickup)
             EndIf
           ElseIf rayhitbool>=#RESS And rayhitbool<=#RESE And p\box=5
             PlaySound(empty)
          EndIf
        EndIf
      EndIf
      
      If rayhitbool = -1
        If EntityX(#aim)>-100 And EntityX(#aim)<100 And EntityX(#hull)>-100 And EntityX(#hull)<100
          If EntityZ(#aim)>-100 And EntityZ(#aim)<100 And EntityZ(#hull)>-100 And EntityZ(#hull)<100
            If p\box>0 And p\load<50 And ticker::triggered(1)
              p\box-1
              p\load+1
              If p\load=50
                p\won=2
                  For x = 1 To 1000
                    If o(x)\id=#BUG
                      If IsEntity(x)
                        FreeEntity(x)
                      EndIf
                    EndIf
                  Next x
                EndIf

              PlaySound(pickup)
            EndIf
          EndIf
        EndIf
        
        If EntityX(#aim)>184 And EntityX(#aim)<406 And EntityX(#hull)>184 And EntityX(#hull)<406
          If EntityZ(#aim)>-100 And EntityZ(#aim)<100 And EntityZ(#hull)>-100 And EntityZ(#hull)<100
            If p\box>0 And p\armor<450 And ticker::triggered(1)
              p\box-1
              p\armor+25
              If p\armor>450 : p\armor = 450 : EndIf
              p\spentarmor+1
              PlaySound(pickup)
            EndIf
          EndIf
        EndIf

      If EntityX(#aim)>-400 And EntityX(#aim)<-200 And EntityX(#hull)>-400 And EntityX(#hull)<-200
          If EntityZ(#aim)>-100 And EntityZ(#aim)<100 And EntityZ(#hull)>-100 And EntityZ(#hull)<100
            If p\box>0 And p\ammo<999 And ticker::triggered(1)
              p\box-1
              p\ammo+50
              p\spentammo+1
              If p\ammo>999 : p\ammo = 999 : EndIf
              PlaySound(pickup)
            EndIf
          EndIf
        EndIf
        
        
      EndIf
    EndIf
    
    If MouseButton(#PB_MouseButton_Right)
      If p\ammo<1 And SoundStatus(empty)<>#PB_Sound_Playing
        PlaySound(empty) 
      EndIf
      
      If SoundStatus(shot)<>#PB_Sound_Playing And p\ammo>0: PlaySound(shot) 
        aoff=Random(10)-5
        boff=Random(10)-5
        p\fired+1
        p\ammo-1
        dist.f = Sqr((EntityX(#aim)+aoff-EntityX(#hull))  *   (EntityX(#aim)+aoff-EntityX(#hull))+((EntityZ(#aim)+boff-EntityZ(#hull))*(EntityZ(#aim)+boff-EntityZ(#hull))) )
        rayhitbool = RayCast(EntityX(#hull),10,EntityZ(#hull),EntityDirectionX(#turr)*dist ,10,EntityDirectionZ(#turr)*dist,#MASK_GENERALPICKMASK)
        If rayhitbool 
          If IsEntity(rayhitbool)
            distent.f = Sqr((EntityX(#hull)-EntityX(rayhitbool))  *   (EntityX(#hull)-EntityX(rayhitbool))+((EntityZ(#hull)-EntityZ(rayhitbool))*(EntityZ(#hull)-EntityZ(rayhitbool))) )
            If rayhitbool<651:distb=25 :Else:distb=100:EndIf
            If Abs(distent)<Abs(dist)+distb
              CreateLine3D(3000,EntityX(#hull),EntityY(#hull),EntityZ(#hull),RGB(255,0,0),PickX(),PickY(),PickZ(),RGB(255,255,127))
              hg2=1
              If rayhitbool<#BGE
                If o(rayhitbool)\id = #box
                  ApplyEntityImpulse(rayhitbool,NormalX()*-50,0,NormalZ()*-50)
                Else
                  ApplyEntityImpulse(rayhitbool,NormalX()*-15,0,NormalZ()*-15)
                EndIf
                
                o(rayhitbool)\armor-(Random(p\dmgmax,p\dmgmin))
                o(rayhitbool)\behavior=#b_attack
                If o(rayhitbool)\armor<1
                  If o(rayhitbool)\id = #box
                    FreeEntity(rayhitbool)
                    PlaySound(bcrunch)
                  ElseIf o(rayhitbool)\id=#nest
                    FreeEntity(rayhitbool)
                    ticker::kill(1):ticker::kill(2):ticker::kill(3)
                    For x = 1 To 1000
                      If o(x)\id=#BUG
                        If IsEntity(x)
                          FreeEntity(x)
                        EndIf
                      EndIf
                    Next x
                    PlaySound(bcrunch)
                    p\won = 1
                  ElseIf o(rayhitbool)\id = #Egg
                    SetEntityMaterial(rayhitbool,MaterialID(#box))
                    EntityRenderMode(rayhitbool,#PB_Entity_CastShadow)
                    StartDrawing(TextureOutput(layertexture))
                    DrawingMode(#PB_2DDrawing_AlphaBlend)
                    DrawAlphaImage(ImageID(eggdimg),506-(EntityX(rayhitbool)/10),506-EntityZ(rayhitbool)/10,156)
                    StopDrawing()
                    o(rayhitbool)\id =#box
                    o(rayhitbool)\armor =8
                    ScaleEntity(rayhitbool,0.5,0.5,0.5)
                    EntityAngularFactor(x,0,1,0)
                    EntityLinearFactor(x,1,0,1)
                    PlaySound(crunch)
                    spawnbug(Random(5,0),PickX()-5,PickZ()-5,PickX()+5,PickZ()+5,0,#b_attack)
                  ElseIf o(rayhitbool)\id = #BUG
                    StartDrawing(TextureOutput(layertexture))
                    DrawingMode(#PB_2DDrawing_AlphaBlend)
                    DrawAlphaImage(ImageID(bugdimg),506-(EntityX(rayhitbool)/10),506-EntityZ(rayhitbool)/10,156)
                    StopDrawing()
                    PlaySound(crunch)
                    FreeEntity(rayhitbool)
                    bugscount-1
                    p\kills+1
                  EndIf
                  
                EndIf
              EndIf
            Else
              CreateLine3D(3000,EntityX(#hull),EntityY(#hull),EntityZ(#hull),RGB(255,0,0),EntityX(#AIM)+aoff,EntityY(#AIM),EntityZ(#AIM)+boff,RGB(255,255,127))
              hg=1
            EndIf
          Else
            CreateLine3D(3000,EntityX(#hull),EntityY(#hull),EntityZ(#hull),RGB(255,0,0),EntityX(#AIM)+aoff,EntityY(#AIM),EntityZ(#AIM)+boff,RGB(255,255,127))
            hg=1
          EndIf
        Else
          CreateLine3D(3000,EntityX(#hull),EntityY(#hull),EntityZ(#hull),RGB(255,0,0),EntityX(#AIM)+aoff,EntityY(#AIM),EntityZ(#AIM)+boff,RGB(255,255,127))
          hg=1
        EndIf
      EndIf
    EndIf
    
    If hg >0
      splashimage(holeimg,512-((EntityX(#aim)+aoff)/10),512-(EntityZ(#aim)+boff)/10,128)
      hg=0
    EndIf
      
    If hg2 >0
      If o(rayhitbool)\id=#EGG Or o(rayhitbool)\id=#BUG Or o(rayhitbool)\id=#Nest
        splashimage(splatimg,510-(EntityX(rayhitbool)/10),510-EntityZ(rayhitbool)/10,128)
      Else
        splashimage(holeimg,512-(PickX()/10),512-PickZ()/10,128)
      EndIf
      hg2=0
    EndIf
  Else
    EntityVelocity(#hull,0,0,0)
    EntityAngularFactor(#hull,0,0,0)
    MoveEntity(#TURR,EntityX(#HULL),61,EntityZ(#HULL),#PB_World|#PB_Absolute)
    MoveCamera(#MAINCAMERA,EntityX(#HULL),CameraY(#MAINCAMERA),EntityZ(#HULL),#PB_World|#PB_Absolute)
    StopSound(engine)
EndIf




If ticker::triggered(4) 
  If o(#NEST)\armor<1000
    spawnbug(1,0,4550,1,4551,1,#b_attack)
  EndIf
  If o(#NEST)\armor<500
    spawnbug(5,3,4550,1,4551,0,#b_attack)
  EndIf
  If p\ammo>500 And p\load>25
    spawnbug(5,3,4550,1,4551,1,#b_attack)
  EndIf
EndIf


  
  
  

If ticker::triggered(3) 
  If bugscount=0
    If killcount<200
      spawnbug(Random(10,5),0,4550,1,4551,0,#b_guard)
      spawnbug(Random(10,5),0,4550,1,4551,0,#b_wonder)
    Else
      spawnbug(Random(5,1),0,4550,1,4551,10,#b_guard)
      spawnbug(Random(10,5),0,4550,1,4551,10,#b_wonder)
    EndIf
  ElseIf bugscount<50
      If killcount<200
        spawnbug(Random(6,2),0,4550,1,4551,15,#b_wonder)
      Else
        spawnbug(Random(5,1),0,4550,1,4551,5,#b_wonder)
      EndIf
  ElseIf bugscount>=50
    If killcount<500
      spawnbug(Random(8,3),0,4550,1,4551,0,#b_attack)
    Else
      spawnbug(Random(20,5),0,4550,1,4551,10,#b_attack)
      spawnbug(Random(20,5),0,4550,1,4551,10,#b_wonder)
      spawnbug(Random(1,1),0,4550,1,4551,2,#b_guard)
    EndIf
  EndIf
EndIf




For z=1 To 2
  If bugswiper>#BGE : bugswiper = #BGS : EndIf : x=bugswiper
  If IsEntity(x) And o(x)\id=#bug
    If o(x)\behavior = #b_wonder
      If o(x)\t = -1 
        o(x)\t = 0 : o(x)\tx = Random(10000)-5000 : o(x)\ty = Random(10000)-5000
      Else
        If dist(EntityX(x),EntityZ(x),o(x)\tx,o(x)\ty)<10000
          o(x)\t = -1
        EndIf
        If dist(EntityX(x),EntityZ(x),EntityX(#HULL),EntityZ(#HULL))<o(x)\aggrorange
          o(x)\behavior = #b_attack
          If SoundStatus(eat)=#PB_Sound_Stopped:PlaySound(eat):EndIf
        EndIf
      EndIf
    EndIf
    If o(x)\behavior = #b_idle
      If dist(EntityX(x),EntityZ(x),EntityX(#HULL),EntityZ(#HULL))<o(x)\aggrorange
        o(x)\behavior = #b_attack
        If SoundStatus(eat)=#PB_Sound_Stopped:PlaySound(eat):EndIf
      EndIf
    EndIf
    
    If o(x)\behavior = #b_guard
      If dist(EntityX(x),EntityZ(x),EntityX(#HULL),EntityZ(#HULL))<o(x)\aggrorange+500000
        o(x)\behavior = #b_attack
        If SoundStatus(eat)=#PB_Sound_Stopped:PlaySound(eat):EndIf
      EndIf
    EndIf
  EndIf
  bugswiper+1
Next

ForEach bugs()
  If IsEntity(bugs())
    x=bugs()
    If o(x)\behavior = #b_attack
      EntityLookAt(x,EntityX(#hull),20,EntityZ(#hull))
      MoveEntity(x,0,0,-o(x)\spmax,#PB_Local|#PB_Relative)
    ElseIf o(x)\behavior = #b_wonder
      EntityLookAt(x,o(x)\tx,20,o(x)\ty)
      MoveEntity(x,0,0,-o(x)\spmax/2,#PB_Local|#PB_Relative)
    ElseIf o(x)\behavior = #b_guard
      EntityLookAt(x,o(x)\tx,20,o(x)\ty)
      MoveEntity(x,0,0,0,#PB_Local|#PB_Relative)
    Else
      EntityLookAt(x,0,20,0)
      MoveEntity(x,0,0,0,#PB_Local|#PB_Relative)
    EndIf
    If EntityCollide(x,#HULL)
      o(x)\behavior = #b_attack
      p\armor-Random(5,1)
      If SoundStatus(eat)=#PB_Sound_Stopped
        PlaySound(eat)
      EndIf
    EndIf
  Else
    DeleteElement(bugs())
  EndIf
Next




If ticker::triggered(2)
    matanim=1-matanim
    For x=#BGS To #BGE
      If IsEntity(x)
        If matanim = 1
          SetEntityMaterial(x,MaterialID(#btex1))
        Else
          SetEntityMaterial(x,MaterialID(#btex2))
        EndIf
      EndIf
    Next x
  EndIf
    
  UpdateRenderTexture(#RENDEROBJECT)
  
  
  If IsMesh(3000)
    FreeMesh(3000)
  EndIf
  
  If IsMesh(3001)
    FreeMesh(3001)
  EndIf
  RenderWorld(60)
  
  If EntityX(#hull)>-400 And EntityX(#hull)<406
    If EntityZ(#hull)>-100 And EntityZ(#hull)<100
      If EntityX(#hull)>-400 And EntityX(#hull)<-200
        petskii::cto(ScreenWidth()/2,ScreenHeight()/2+50,"Exchange 1 crate for 50 AMMUNITION.",c1,c2)
      EndIf
      
      If EntityX(#hull)>-100 And EntityX(#hull)<100
        petskii::cto(ScreenWidth()/2,ScreenHeight()/2+50,"Load 50 crates to Helipad to WIN.",c1,c2)
      EndIf
      If EntityX(#hull)>200 And EntityX(#hull)<400
        petskii::cto(ScreenWidth()/2,ScreenHeight()/2+50,"Exchange 1 crate for 25 ARMOR.",c1,c2)
      EndIf
    EndIf
  EndIf
   
  If p\won = 1
    c3=RGB(0,255,0)
    petskii::cto(ScreenWidth()/2,100,"TRIUMPHED (WIN)",c3,c2)
    petskii::cto(ScreenWidth()/2,150,"You fired "+Str(p\fired)+" shots.",c3,c2)
    petskii::cto(ScreenWidth()/2,180,"You killed "+Str(p\kills)+" bugs.",c3,c2)
    petskii::cto(ScreenWidth()/2,210,"You accidentally destroyed "+Str(p\boxdestroyed)+" crates.",c3,c2)
    petskii::cto(ScreenWidth()/2,240,"You collected "+Str(p\collected)+" crates,",c3,c2)
    petskii::cto(ScreenWidth()/2,270,"You uploaded "+Str(p\load)+" crates.",c3,c2)
    petskii::cto(ScreenWidth()/2,300,"You spent "+Str(p\spentarmor)+" crates on armor and "+Str(p\spentammo)+" on ammo.",c3,c2)
    If o(12)\armor>0
      petskii::cto(ScreenWidth()/2,330,"The Nest has been destroyed.",c3,c2)
    EndIf
    If mins = 0 And seconds = 0
      mins = (ElapsedMilliseconds()/1000)/60
      seconds = Mod(ElapsedMilliseconds()/1000,60)
      score = 5000+(p\kills*8) + p\fired -(p\boxdestroyed*10) + p\collected*10 + (p\load*50)-p\spentarmor-p\spentammo-o(12)\armor
    EndIf
    petskii::cto(ScreenWidth()/2,380,"You survived "+Str(mins)+" minutes and "+Str(seconds)+" seconds.",c3,c2)
    petskii::cto(ScreenWidth()/2,410,"Your Score is "+Str(score)+".",c3,c2)
  EndIf
  If p\won = 2
    c3=RGB(255,255,0)
    petskii::cto(ScreenWidth()/2,100,"COLLECTED (WIN)",c3,c2)
    petskii::cto(ScreenWidth()/2,150,"You fired "+Str(p\fired)+" shots.",c3,c2)
    petskii::cto(ScreenWidth()/2,180,"You killed "+Str(p\kills)+" bugs.",c3,c2)
    petskii::cto(ScreenWidth()/2,210,"You accidentally destroyed "+Str(p\boxdestroyed)+" crates.",c3,c2)
    petskii::cto(ScreenWidth()/2,240,"You collected "+Str(p\collected)+" crates,",c3,c2)
    petskii::cto(ScreenWidth()/2,270,"You uploaded "+Str(p\load)+" crates.",c3,c2)
    petskii::cto(ScreenWidth()/2,300,"You spent "+Str(p\spentarmor)+" crates on armor and "+Str(p\spentammo)+" on ammo.",c3,c2)
    If o(12)\armor>0
      petskii::cto(ScreenWidth()/2,330,"The Nest has not been destroyed.",RGB(255,0,0),c2)
    EndIf
    If mins = 0 And seconds = 0
      mins = (ElapsedMilliseconds()/1000)/60
      seconds = Mod(ElapsedMilliseconds()/1000,60)
      score = 5000+(p\kills*8) + p\fired -(p\boxdestroyed*10) + p\collected*10 + (p\load*50)-p\spentarmor-p\spentammo-o(12)\armor
    EndIf
    petskii::cto(ScreenWidth()/2,380,"You survived "+Str(mins)+" minutes and "+Str(seconds)+" seconds.",c3,c2)
    petskii::cto(ScreenWidth()/2,410,"Your Score is "+Str(score)+".",c3,c2)
  EndIf
  
  If p\armor<=0 And p\won=0
    p\armor = 0
    c3=RGB(255,0,0)
    petskii::cto(ScreenWidth()/2,100,"DEVOURED",c3,c2)
    petskii::cto(ScreenWidth()/2,150,"You fired "+Str(p\fired)+" shots.",c3,c2)
    petskii::cto(ScreenWidth()/2,180,"You killed "+Str(p\kills)+" bugs.",c3,c2)
    petskii::cto(ScreenWidth()/2,210,"You accidentally destroyed "+Str(p\boxdestroyed)+" crates.",c3,c2)
    petskii::cto(ScreenWidth()/2,240,"You collected "+Str(p\collected)+" crates,",c3,c2)
    petskii::cto(ScreenWidth()/2,270,"You uploaded "+Str(p\load)+" crates.",c3,c2)
    petskii::cto(ScreenWidth()/2,300,"You spent "+Str(p\spentarmor)+" crates on armor and "+Str(p\spentammo)+" on ammo.",c3,c2)
    If o(12)\armor>0
      petskii::cto(ScreenWidth()/2,330,"The nest has not been destroyed.",c3,c2)
    EndIf
    If mins = 0 And seconds = 0
      mins = (ElapsedMilliseconds()/1000)/60
      seconds = Mod(ElapsedMilliseconds()/1000,60)
      score = (p\kills*8) + p\fired -(p\boxdestroyed*10) + p\collected*10 + (p\load*50)-p\spentarmor-p\spentammo-o(12)\armor
    EndIf
    petskii::cto(ScreenWidth()/2,380,"You survived "+Str(mins)+" minutes and "+Str(seconds)+" seconds.",c3,c2)
    petskii::cto(ScreenWidth()/2,410,"Your Score is "+Str(score)+".",c3,c2)
  Else
    petskii::textoutlined(0,0,"NEST HEALTH : "+Str(o(12)\armor)+"/1500",c1,c2)
    petskii::textoutlined(0,30,"AMMO : "+Str(p\ammo),c1,c2)
    petskii::textoutlined(0,60,"ARMOR : "+Str(p\armor),c1,c2)
    petskii::textoutlined(0,90,"LOAD : "+Str(p\load)+"/50",c1,c2)
  EndIf
  For x = 5 To 1 Step -1
    If x<=p\box
      DisplayTransparentSprite(#box,ScreenWidth()-480+(x*80),0,255)
    Else
      DisplayTransparentSprite(#box,ScreenWidth()-480+(x*80),0,128)
    EndIf
  Next x
  FlipBuffers()
  Delay(#MAINLOOP_DELAY)
EndProcedure

Procedure main()
  app_start()
  Repeat
    app_update()
  Until KeyboardPushed(#PB_Key_Escape)
EndProcedure

main()

DataSection
ground:
Data.a $89,$50,$4E,$47,$0D,$0A,$1A,$0A,$00,$00,$00,$0D,$49,$48,$44,$52,$00,$00,$00,$10,$00,$00,$00,$10,$08,$06,$00,$00,$00,$1F,$F3,$FF,$61,$00,$00,$00,$5F,$49,$44,$41,$54
Data.a $38,$CB,$63,$30,$36,$36,$FE,$5F,$5E,$5E,$FE,$1F,$44,$13,$C2,$D8,$D4,$31,$10,$A3,$11,$DD,$10,$64,$83,$48,$36,$80,$24,$17,$C0,$6C,$C3,$E7,$45,$06,$52,$9C,$8E,$D7,$00
Data.a $62,$02,$92,$60,$20,$22,$3B,$97,$90,$D3,$E9,$13,$88,$24,$19,$40,$6C,$62,$22,$2A,$0C,$08,$19,$86,$AC,$86,$22,$2F,$80,$0C,$61,$20,$27,$EE,$31,$BC,$80,$4D,$21,$BA,$18
Data.a $2E,$AF,$D1,$3E,$2F,$10,$32,$00,$00,$6E,$B8,$AD,$94,$79,$97,$60,$22,$00,$00,$00,$00,$49,$45,$4E,$44,$AE,$42,$60,$82
base:
Data.a $89,$50,$4E,$47,$0D,$0A,$1A,$0A,$00,$00,$00,$0D,$49,$48,$44,$52,$00,$00,$00,$10,$00,$00,$00,$10,$08,$06,$00,$00,$00,$1F,$F3,$FF,$61,$00,$00,$00,$83,$49,$44,$41,$54
Data.a $38,$CB,$A5,$53,$01,$0A,$00,$21,$08,$CB,$37,$F5,$38,$1F,$E7,$E3,$EE,$2A,$58,$88,$67,$4D,$B8,$60,$60,$A1,$6B,$DA,$6A,$6D,$2C,$11,$79,$26,$7C,$7C,$42,$CC,$5F,$9B,$DE
Data.a $FB,$C2,$8C,$CD,$6C,$41,$55,$D3,$18,$F9,$9B,$04,$81,$27,$98,$05,$19,$3C,$01,$F2,$3F,$0A,$4E,$C5,$00,$55,$E0,$93,$41,$9C,$11,$1C,$15,$A0,$05,$9C,$79,$92,$D2,$0C,$E2
Data.a $ED,$51,$45,$69,$06,$B1,$D8,$93,$94,$14,$54,$08,$E8,$2B,$B0,$16,$A8,$0F,$D8,$10,$4B,$3E,$B8,$3D,$63,$C9,$07,$37,$23,$51,$1F,$30,$2B,$5F,$67,$90,$91,$C4,$CF,$B4,$15
Data.a $FC,$FD,$CE,$2F,$54,$7B,$A2,$54,$36,$A1,$B0,$04,$00,$00,$00,$00,$49,$45,$4E,$44,$AE,$42,$60,$82
turret:
Data.a $89,$50,$4E,$47,$0D,$0A,$1A,$0A,$00,$00,$00,$0D,$49,$48,$44,$52,$00,$00,$00,$10,$00,$00,$00,$10,$08,$06,$00,$00,$00,$1F,$F3,$FF,$61,$00,$00,$00,$26,$49,$44,$41,$54
Data.a $38,$CB,$63,$60,$C0,$03,$18,$19,$19,$FF,$83,$30,$03,$B9,$60,$D4,$80,$81,$36,$00,$A6,$99,$6C,$43,$28,$36,$80,$2A,$61,$30,$0A,$E8,$04,$00,$60,$10,$18,$31,$8C,$83,$71
Data.a $F8,$00,$00,$00,$00,$49,$45,$4E,$44,$AE,$42,$60,$82
wall:
Data.a $89,$50,$4E,$47,$0D,$0A,$1A,$0A,$00,$00,$00,$0D,$49,$48,$44,$52,$00,$00,$00,$10,$00,$00,$00,$10,$08,$06,$00,$00,$00,$1F,$F3,$FF,$61,$00,$00,$00,$29,$49,$44,$41,$54
Data.a $38,$CB,$63,$60,$64,$64,$FC,$4F,$09,$66,$00,$11,$E5,$E5,$E5,$64,$61,$14,$03,$8C,$8D,$8D,$49,$C2,$A3,$06,$8C,$1A,$30,$5C,$0D,$A0,$28,$33,$51,$82,$01,$88,$AC,$9E,$58
Data.a $A1,$88,$0D,$92,$00,$00,$00,$00,$49,$45,$4E,$44,$AE,$42,$60,$82
box:
Data.a $89,$50,$4E,$47,$0D,$0A,$1A,$0A,$00,$00,$00,$0D,$49,$48,$44,$52,$00,$00,$00,$10,$00,$00,$00,$10,$08,$06,$00,$00,$00,$1F,$F3,$FF,$61,$00,$00,$00,$5B,$49,$44,$41,$54
Data.a $38,$CB,$63,$60,$64,$64,$FC,$4F,$09,$66,$00,$11,$69,$2E,$0C,$64,$61,$14,$03,$60,$F4,$DD,$8E,$50,$BC,$18,$59,$2D,$86,$0B,$08,$19,$82,$AC,$06,$C3,$00,$74,$05,$F8,$34
Data.a $23,$F3,$19,$D0,$35,$60,$33,$04,$9F,$18,$03,$36,$1B,$B1,$39,$15,$97,$1A,$06,$42,$4E,$26,$24,$4F,$1B,$03,$28,$F2,$02,$45,$81,$48,$51,$34,$52,$9C,$90,$A8,$92,$94,$C9
Data.a $CE,$4C,$94,$60,$00,$10,$96,$C7,$44,$CF,$DD,$33,$A8,$00,$00,$00,$00,$49,$45,$4E,$44,$AE,$42,$60,$82
aim:
Data.a $89,$50,$4E,$47,$0D,$0A,$1A,$0A,$00,$00,$00,$0D,$49,$48,$44,$52,$00,$00,$00,$10,$00,$00,$00,$10,$08,$06,$00,$00,$00,$1F,$F3,$FF,$61,$00,$00,$00,$43,$49,$44,$41,$54
Data.a $38,$CB,$63,$60,$00,$02,$46,$46,$C6,$FF,$30,$CC,$40,$00,$60,$A8,$25,$56,$23,$2E,$83,$18,$C8,$D1,$8C,$6C,$08,$E5,$06,$0C,$5E,$80,$EC,$3C,$B2,$9D,$FA,$EE,$5D,$F9,$7F
Data.a $10,$26,$DB,$15,$14,$19,$40,$15,$2F,$D0,$3F,$B4,$07,$26,$25,$52,$9C,$99,$28,$CD,$CE,$00,$56,$9C,$2D,$89,$00,$54,$A3,$09,$00,$00,$00,$00,$49,$45,$4E,$44,$AE,$42,$60
Data.a $82
hole:
Data.a $89,$50,$4E,$47,$0D,$0A,$1A,$0A,$00,$00,$00,$0D,$49,$48,$44,$52,$00,$00,$00,$10,$00,$00,$00,$10,$08,$06,$00,$00,$00,$1F,$F3,$FF,$61,$00,$00,$00,$4D,$49,$44,$41,$54
Data.a $38,$CB,$63,$60,$64,$64,$FC,$CF,$80,$03,$E0,$93,$43,$51,$04,$C2,$E5,$E5,$E5,$FF,$8D,$8D,$8D,$FF,$C3,$F8,$44,$69,$86,$01,$90,$66,$98,$26,$90,$21,$20,$0C,$12,$23,$DA
Data.a $00,$74,$9B,$49,$76,$05,$36,$E7,$83,$F8,$44,$BB,$00,$5D,$23,$49,$5E,$C0,$17,$88,$24,$05,$24,$C9,$D1,$37,$0A,$46,$01,$12,$00,$00,$76,$BB,$38,$E9,$51,$9C,$DC,$DF,$00
Data.a $00,$00,$00,$49,$45,$4E,$44,$AE,$42,$60,$82
bsplat:
Data.a $89,$50,$4E,$47,$0D,$0A,$1A,$0A,$00,$00,$00,$0D,$49,$48,$44,$52,$00,$00,$00,$10,$00,$00,$00,$10,$08,$06,$00,$00,$00,$1F,$F3,$FF,$61,$00,$00,$00,$38,$49,$44,$41,$54
Data.a $38,$CB,$63,$E8,$60,$60,$F8,$0F,$C2,$0C,$40,$80,$CC,$26,$09,$20,$6B,$82,$19,$42,$92,$61,$E8,$9A,$48,$76,$05,$36,$03,$28,$32,$84,$E4,$F0,$A0,$8A,$ED,$F8,$5C,$43,$94
Data.a $ED,$D8,$F8,$64,$45,$E9,$28,$18,$91,$00,$00,$E3,$7D,$3B,$92,$FC,$FB,$7A,$4E,$00,$00,$00,$00,$49,$45,$4E,$44,$AE,$42,$60,$82
ammopod:
Data.a $89,$50,$4E,$47,$0D,$0A,$1A,$0A,$00,$00,$00,$0D,$49,$48,$44,$52,$00,$00,$00,$10,$00,$00,$00,$10,$08,$06,$00,$00,$00,$1F,$F3,$FF,$61,$00,$00,$00,$4D,$49,$44,$41,$54
Data.a $38,$CB,$63,$60,$80,$02,$46,$46,$C6,$FF,$A4,$60,$06,$64,$00,$12,$D8,$BD,$7B,$37,$49,$18,$6E,$08,$39,$9A,$51,$0C,$81,$19,$50,$5E,$5E,$0E,$C6,$F8,$D8,$B4,$35,$C0,$D8
Data.a $D8,$18,$8C,$F1,$B1,$47,$0D,$A0,$C0,$00,$E4,$14,$88,$D3,$00,$42,$09,$06,$99,$26,$CB,$00,$DA,$B9,$80,$E2,$CC,$44,$69,$76,$06,$00,$AB,$1B,$41,$63,$3C,$CF,$AC,$CB,$00
Data.a $00,$00,$00,$49,$45,$4E,$44,$AE,$42,$60,$82
egg:
Data.a $89,$50,$4E,$47,$0D,$0A,$1A,$0A,$00,$00,$00,$0D,$49,$48,$44,$52,$00,$00,$00,$10,$00,$00,$00,$10,$08,$06,$00,$00,$00,$1F,$F3,$FF,$61,$00,$00,$00,$88,$49,$44,$41,$54
Data.a $38,$CB,$B5,$93,$8B,$09,$00,$21,$0C,$43,$75,$26,$87,$73,$38,$87,$BB,$A3,$42,$24,$A4,$B5,$CA,$C1,$15,$8A,$1F,$C8,$33,$95,$B6,$94,$BF,$A2,$D6,$FA,$20,$3F,$09,$5B,$6B
Data.a $2B,$AF,$41,$2C,$B4,$E8,$BD,$3B,$D0,$15,$C0,$84,$1C,$38,$A7,$10,$88,$C7,$18,$33,$55,$8C,$FB,$10,$02,$B1,$0A,$18,$82,$33,$CA,$5A,$90,$48,$0C,$00,$84,$0C,$73,$90,$A8
Data.a $6E,$76,$81,$BD,$AE,$0E,$90,$39,$50,$F0,$D1,$01,$BF,$1C,$95,$E0,$3E,$92,$5D,$B0,$40,$A1,$00,$6F,$01,$6A,$79,$17,$61,$2F,$70,$17,$EE,$3E,$CE,$D6,$B4,$1B,$75,$0E,$50
Data.a $EF,$B1,$0B,$B3,$49,$3C,$4D,$E5,$0B,$14,$A4,$B1,$9C,$BF,$6A,$0C,$CE,$00,$00,$00,$00,$49,$45,$4E,$44,$AE,$42,$60,$82
eggd:
Data.a $89,$50,$4E,$47,$0D,$0A,$1A,$0A,$00,$00,$00,$0D,$49,$48,$44,$52,$00,$00,$00,$10,$00,$00,$00,$10,$08,$06,$00,$00,$00,$1F,$F3,$FF,$61,$00,$00,$00,$A4,$49,$44,$41,$54
Data.a $38,$CB,$8D,$93,$8B,$09,$00,$21,$0C,$43,$75,$26,$87,$73,$38,$87,$BB,$23,$C2,$83,$5C,$AF,$7E,$02,$A2,$62,$4D,$63,$5A,$4B,$B9,$40,$6B,$ED,$11,$B6,$41,$B5,$D6,$19,$30
Data.a $C6,$78,$32,$02,$DF,$67,$31,$29,$21,$A4,$57,$67,$92,$48,$26,$1D,$82,$18,$C8,$59,$4A,$EE,$04,$1A,$92,$CA,$7C,$CC,$8E,$82,$DE,$FB,$BC,$A0,$B5,$66,$ED,$35,$8E,$26,$7A
Data.a $16,$08,$04,$2E,$6F,$8D,$53,$90,$AF,$B9,$0C,$50,$82,$F4,$B4,$AC,$FE,$36,$CF,$0A,$48,$12,$4B,$5A,$32,$D7,$21,$88,$0A,$E2,$33,$3E,$2A,$5C,$01,$66,$6A,$66,$0D,$BC,$E9
Data.a $52,$63,$91,$EA,$EE,$BB,$47,$4B,$13,$3D,$08,$66,$24,$C7,$0A,$2D,$4B,$E8,$32,$E3,$1F,$59,$FD,$9D,$5F,$33,$79,$CD,$63,$DB,$1E,$9B,$E9,$2A,$53,$C0,$0B,$4C,$01,$22,$3E
Data.a $EB,$4B,$38,$B0,$00,$00,$00,$00,$49,$45,$4E,$44,$AE,$42,$60,$82
bug1:
Data.a $89,$50,$4E,$47,$0D,$0A,$1A,$0A,$00,$00,$00,$0D,$49,$48,$44,$52,$00,$00,$00,$10,$00,$00,$00,$10,$08,$06,$00,$00,$00,$1F,$F3,$FF,$61,$00,$00,$00,$7D,$49,$44,$41,$54
Data.a $38,$CB,$63,$60,$C0,$02,$18,$19,$19,$FF,$E3,$E3,$E3,$05,$20,$C5,$FF,$CB,$CB,$FF,$C3,$34,$A1,$F3,$B1,$6A,$C0,$66,$63,$9A,$0B,$03,$1C,$63,$93,$47,$11,$C3,$66,$08,$48
Data.a $E3,$DD,$8E,$50,$B0,$01,$84,$2C,$C4,$2A,$81,$EC,$02,$82,$9A,$D1,$15,$20,$6B,$46,$F6,$06,$51,$81,$89,$CD,$10,$A2,$35,$A3,$3B,$1D,$16,$06,$E8,$5E,$C1,$6B,$33,$3E,$17
Data.a $10,$15,$80,$84,$5C,$40,$30,$0A,$89,$09,$03,$82,$2E,$C1,$E6,$02,$A2,$A3,$10,$DD,$1B,$78,$9D,$8F,$2F,$C3,$E0,$0A,$7D,$A2,$0D,$80,$19,$42,$8C,$3A,$8A,$00,$00,$EB,$05
Data.a $9B,$3C,$30,$13,$76,$9B,$00,$00,$00,$00,$49,$45,$4E,$44,$AE,$42,$60,$82
bug2:
Data.a $89,$50,$4E,$47,$0D,$0A,$1A,$0A,$00,$00,$00,$0D,$49,$48,$44,$52,$00,$00,$00,$10,$00,$00,$00,$10,$08,$06,$00,$00,$00,$1F,$F3,$FF,$61,$00,$00,$00,$81,$49,$44,$41,$54
Data.a $38,$CB,$A5,$52,$C1,$0D,$80,$30,$08,$84,$DD,$5C,$C1,$15,$5C,$A1,$2B,$B8,$A4,$B3,$D4,$60,$82,$39,$09,$D4,$AB,$5E,$C2,$83,$96,$3B,$0E,$82,$48,$02,$55,$ED,$A3,$7C,$08
Data.a $2B,$EE,$AD,$75,$27,$C5,$9C,$16,$D9,$16,$B9,$63,$8A,$EC,$30,$E2,$B1,$AF,$97,$80,$7C,$01,$3A,$F8,$45,$A6,$45,$6C,$4E,$8C,$B8,$03,$8C,$92,$58,$75,$47,$17,$A5,$10,$DA
Data.a $77,$07,$BE,$44,$CF,$E9,$11,$B2,$EE,$C3,$CE,$F8,$C8,$38,$78,$88,$64,$67,$5B,$39,$A0,$CE,$1B,$05,$DC,$01,$7D,$8D,$71,$94,$78,$03,$AF,$22,$B1,$20,$6E,$7E,$5A,$80,$F9
Data.a $3F,$01,$DC,$74,$90,$72,$05,$16,$E0,$DE,$00,$00,$00,$00,$49,$45,$4E,$44,$AE,$42,$60,$82
deadbug:
Data.a $89,$50,$4E,$47,$0D,$0A,$1A,$0A,$00,$00,$00,$0D,$49,$48,$44,$52,$00,$00,$00,$10,$00,$00,$00,$10,$08,$06,$00,$00,$00,$1F,$F3,$FF,$61,$00,$00,$00,$7D,$49,$44,$41,$54
Data.a $38,$CB,$9D,$93,$D1,$0D,$80,$30,$08,$44,$61,$37,$67,$71,$85,$AE,$E0,$D6,$35,$7C,$60,$F0,$42,$F5,$29,$5F,$A6,$1E,$AF,$07,$B9,$9A,$81,$3A,$CC,$E6,$AB,$68,$DF,$80,$A8
Data.a $E8,$6E,$FA,$AE,$79,$8E,$81,$80,$ED,$0D,$15,$18,$DF,$75,$04,$77,$9F,$18,$12,$8D,$0A,$6C,$F7,$51,$A9,$29,$C8,$C6,$76,$66,$52,$01,$D5,$DB,$D1,$18,$EA,$46,$21,$F1,$1F
Data.a $ED,$41,$5D,$74,$4E,$AE,$B3,$A7,$A0,$04,$24,$9D,$A0,$60,$A9,$C5,$CE,$05,$4A,$26,$1D,$63,$99,$7B,$75,$52,$01,$78,$89,$9F,$E2,$4B,$5F,$E1,$EF,$60,$AD,$EA,$04,$78,$05
Data.a $5F,$7C,$02,$34,$D9,$67,$00,$00,$00,$00,$49,$45,$4E,$44,$AE,$42,$60,$82
nest:
Data.a $89,$50,$4E,$47,$0D,$0A,$1A,$0A,$00,$00,$00,$0D,$49,$48,$44,$52,$00,$00,$00,$10,$00,$00,$00,$10,$08,$06,$00,$00,$00,$1F,$F3,$FF,$61,$00,$00,$00,$95,$49,$44,$41,$54
Data.a $38,$CB,$95,$53,$09,$0E,$80,$30,$08,$63,$6F,$DA,$17,$7C,$8B,$5F,$D8,$F3,$67,$30,$A9,$E9,$2A,$E0,$24,$21,$C8,$5C,$29,$D7,$CC,$44,$5A,$6B,$F3,$3C,$6C,$F6,$DE,$17,$0B
Data.a $B5,$4A,$00,$1E,$63,$DC,$16,$3E,$14,$7E,$08,$E6,$0B,$0C,$8C,$BE,$DD,$86,$CC,$60,$77,$DF,$D5,$D3,$67,$AB,$01,$1F,$66,$FC,$C0,$C5,$48,$39,$48,$18,$40,$D9,$AB,$20,$DC
Data.a $58,$E3,$4E,$57,$60,$0E,$B2,$64,$B1,$CB,$AE,$25,$82,$D8,$F8,$E0,$4F,$06,$F0,$4D,$E7,$BC,$93,$01,$97,$BD,$DD,$C4,$68,$A4,$CB,$24,$AA,$46,$6A,$ED,$AF,$B5,$E6,$C3,$6A
Data.a $99,$CA,$75,$46,$16,$BA,$95,$D9,$4A,$97,$6F,$81,$67,$9D,$D6,$9D,$89,$96,$F3,$05,$BC,$00,$A1,$34,$23,$9B,$6A,$83,$C8,$21,$00,$00,$00,$00,$49,$45,$4E,$44,$AE,$42,$60
Data.a $82
rep:
Data.a $89,$50,$4E,$47,$0D,$0A,$1A,$0A,$00,$00,$00,$0D,$49,$48,$44,$52,$00,$00,$00,$10,$00,$00,$00,$10,$08,$06,$00,$00,$00,$1F,$F3,$FF,$61,$00,$00,$00,$5F,$49,$44,$41,$54
Data.a $38,$CB,$BD,$93,$51,$0A,$00,$20,$08,$43,$F5,$D4,$1E,$CE,$C3,$15,$45,$85,$1F,$6A,$93,$20,$61,$24,$C1,$1E,$53,$90,$68,$15,$33,$B7,$8A,$C8,$D6,$F8,$50,$D5,$92,$0E,$04
Data.a $31,$8B,$C8,$94,$0B,$41,$01,$5E,$FF,$07,$B0,$E3,$5B,$C1,$80,$C8,$08,$01,$6E,$E6,$14,$80,$98,$5D,$40,$36,$2F,$0C,$88,$B6,$ED,$25,$2D,$01,$EC,$0B,$EF,$A0,$9C,$20,$9B
Data.a $35,$4C,$F0,$7C,$4C,$AF,$E7,$DC,$01,$9F,$A3,$6B,$FF,$D7,$FF,$9D,$8F,$00,$00,$00,$00,$49,$45,$4E,$44,$AE,$42,$60,$82
heli:
Data.a $89,$50,$4E,$47,$0D,$0A,$1A,$0A,$00,$00,$00,$0D,$49,$48,$44,$52,$00,$00,$00,$10,$00,$00,$00,$10,$08,$06,$00,$00,$00,$1F,$F3,$FF,$61,$00,$00,$00,$57,$49,$44,$41,$54
Data.a $38,$CB,$63,$60,$80,$02,$46,$46,$C6,$FF,$A4,$60,$06,$64,$00,$12,$D8,$BD,$7B,$37,$49,$18,$6E,$08,$36,$CD,$E5,$E5,$E5,$58,$31,$56,$43,$90,$0D,$C0,$A5,$11,$97,$41,$58
Data.a $0D,$80,$01,$74,$4D,$C8,$E2,$58,$0D,$C0,$A6,$10,$97,$01,$30,$43,$68,$6B,$00,$2E,$40,$3F,$03,$E8,$1F,$06,$14,$47,$23,$55,$12,$12,$59,$49,$99,$E2,$CC,$44,$69,$76,$06
Data.a $00,$FE,$37,$75,$77,$2B,$A4,$71,$D7,$00,$00,$00,$00,$49,$45,$4E,$44,$AE,$42,$60,$82
Waveheader3:
Data.a $52,$49,$46,$46,$24,$08,$00,$00,$57,$41,$56,$45,$66,$6D,$74,$20,$10,$00,$00,$00,$01,$00,$01,$00,$40,$1F,$00,$00,$40,$1F,$01,$00,$04,$00,$08,$00,$64,$61,$74,$61
EndDataSection