Endif Expected ?

Blitz3D Forums/Blitz3D Beginners Area/Endif Expected ?

Rimmsy
 #1
I copied it all, deleted the include line and ran this fine. See if you can.

Open in online IDE
Graphics3D 1024,768,16,2


Type gameitems
  Field item
  Field anim1
  Field anim2
  Field gridx%
  Field gridy%
  Field points%
  Field time%
  Field lives%
  Field ID%
  Field status%
  Field puzzle%
  Field nextitem%
End Type

Global GX#
Global GY#
Global Current_Piece%  ;use this to track what piece player should hit.
Global currlevel% ;use this to track the current level we are on.
Global countx%

Dim hold.gameitems(18)

For countx% = 0 To 18
  hold.gameitems(countx%) = New gameitems
Next

GX# = 64
GY# = 64

LoadMyStuff()

Repeat
RenderWorld



Flip
Until KeyHit(1)


Function nS_LoadImage(txt$,a,b)

End Function

Function nS_LoadAnimImage(txt$,GX#,GY#,a,b,c,d)

End Function


Function LoadMyStuff()

count% = 0



If count% = 0
  hold(count%)\item = nS_LoadImage("../media/image0.jpg",4,True)
  hold(count%)\anim1 = nS_LoadAnimImage("../media/particle1.jpg",GX#,GY#,0,10,4,True)
  hold(count%)\anim2 = nS_LoadAnimImage("../media/particle2.jpg",GX#,GY#,0,10,4,True)
  hold(count%)\gridx% = -1
  hold(count%)\gridy% = -1
  hold(count%)\points% = 0 ;0=stopped
  hold(count%)\time% = 0
  hold(count%)\lives% = 0
  hold(count%)\ID% = count%
  hold(count%)\status% = 0 ;0=stopped
  hold(count%)\puzzle% = 0 ;not a puzzle piece
  hold(count%)\nextitem% = ID_free
  count% = count% + 1
EndIf

If count% = 1 Then
  hold(count%)\item = nS_LoadImage("../media/image1.jpg",4,True)
  hold(count%)\anim1 = nS_LoadAnimImage("../media/particle1.jpg",GX#,GY#,0,10,4,True)
  hold(count%)\anim2 = nS_LoadAnimImage("../media/particle2.jpg",GX#,GY#,0,10,4,True)
  hold(count%)\gridx% = -1
  hold(count%)\gridy% = -1
  hold(count%)\points% = 0 ;0=stopped
  hold(count%)\time% = 0
  hold(count%)\lives% = 0
  hold(count%)\ID% = count%
  hold(count%)\status% = 0 ;0=stopped
  hold(count%)\puzzle% = 0 ;not a puzzle piece
  hold(count%)\nextitem% = ID_free
  count% = count% + 1
EndIf

If count% = 2 Then
  hold(count%)\item = nS_LoadImage("../media/image2.jpg",4,True)
  hold(count%)\anim1 = nS_LoadAnimImage("../media/particle1.jpg",GX#,GY#,0,10,4,True)
  hold(count%)\anim2 = nS_LoadAnimImage("../media/particle2.jpg",GX#,GY#,0,10,4,True)
  hold(count%)\gridx% = -1
  hold(count%)\gridy% = -1
  hold(count%)\points% = 0 ;0=stopped
  hold(count%)\time% = 0
  hold(count%)\lives% = 0
  hold(count%)\ID% = count%
  hold(count%)\status% = 0 ;0=stopped
  hold(count%)\puzzle% = 0 ;not a puzzle piece
  hold(count%)\nextitem% = ID_free
  count% = count% + 1
EndIf

If count% = 3 Then
  hold(count%)\item = nS_LoadImage("../media/image3.jpg",4,True)
  hold(count%)\anim1 = nS_LoadAnimImage("../media/particle1.jpg",GX#,GY#,0,10,4,True)
  hold(count%)\anim2 = nS_LoadAnimImage("../media/particle2.jpg",GX#,GY#,0,10,4,True)
  hold(count%)\gridx% = -1
  hold(count%)\gridy% = -1
  hold(count%)\points% = 0 ;0=stopped
  hold(count%)\time% = 0
  hold(count%)\lives% = 0
  hold(count%)\ID% = count%
  hold(count%)\status% = 0 ;0=stopped
  hold(count%)\puzzle% = 0 ;not a puzzle piece
  hold(count%)\nextitem% = ID_free
  count% = count% + 1
EndIf

If count% = 4 Then
  hold(count%)\item = nS_LoadImage("../media/image4.jpg",4,True)
  hold(count%)\anim1 = nS_LoadAnimImage("../media/particle1.jpg",GX#,GY#,0,10,4,True)
  hold(count%)\anim2 = nS_LoadAnimImage("../media/particle2.jpg",GX#,GY#,0,10,4,True)
  hold(count%)\gridx% = -1
  hold(count%)\gridy% = -1
  hold(count%)\points% = 0 ;0=stopped
  hold(count%)\time% = 0
  hold(count%)\lives% = 0
  hold(count%)\ID% = count%
  hold(count%)\status% = 0 ;0=stopped
  hold(count%)\puzzle% = 0 ;not a puzzle piece
  hold(count%)\nextitem% = ID_free
  count% = count% + 1
EndIf

If count% = 5 Then
  hold(count%)\item = nS_LoadImage("../media/image5.jpg",4,True)
  hold(count%)\anim1 = nS_LoadAnimImage("../media/particle1.jpg",GX#,GY#,0,10,4,True)
  hold(count%)\anim2 = nS_LoadAnimImage("../media/particle2.jpg",GX#,GY#,0,10,4,True)
  hold(count%)\gridx% = -1
  hold(count%)\gridy% = -1
  hold(count%)\points% = 0 ;0=stopped
  hold(count%)\time% = 0
  hold(count%)\lives% = 0
  hold(count%)\ID% = count%
  hold(count%)\status% = 0 ;0=stopped
  hold(count%)\puzzle% = 0 ;not a puzzle piece
  hold(count%)\nextitem% = ID_free
  count% = count% + 1
EndIf

If count% = 6 Then
  hold(count%)\item = nS_LoadImage("../media/image6.jpg",4,True)
  hold(count%)\anim1 = nS_LoadAnimImage("../media/particle1.jpg",GX#,GY#,0,10,4,True)
  hold(count%)\anim2 = nS_LoadAnimImage("../media/particle2.jpg",GX#,GY#,0,10,4,True)
  hold(count%)\gridx% = -1
  hold(count%)\gridy% = -1
  hold(count%)\points% = 0 ;0=stopped
  hold(count%)\time% = 0
  hold(count%)\lives% = 0
  hold(count%)\ID% = count%
  hold(count%)\status% = 0 ;0=stopped
  hold(count%)\puzzle% = 0 ;not a puzzle piece
  hold(count%)\nextitem% = ID_free
  count% = count% + 1
EndIf

If count% = 7 Then
  hold(count%)\item = nS_LoadImage("../media/image7.jpg",4,True)
  hold(count%)\anim1 = nS_LoadAnimImage("../media/particle1.jpg",GX#,GY#,0,10,4,True)
  hold(count%)\anim2 = nS_LoadAnimImage("../media/particle2.jpg",GX#,GY#,0,10,4,True)
  hold(count%)\gridx% = -1
  hold(count%)\gridy% = -1
  hold(count%)\points% = 0 ;0=stopped
  hold(count%)\time% = 0
  hold(count%)\lives% = 0
  hold(count%)\ID% = count%
  hold(count%)\status% = 0 ;0=stopped
  hold(count%)\puzzle% = 0 ;not a puzzle piece
  hold(count%)\nextitem% = ID_free
  count% = count% + 1
EndIf

If count% = 8 Then
  hold(count%)\item = nS_LoadImage("../media/image8.jpg",4,True)
  hold(count%)\anim1 = nS_LoadAnimImage("../media/particle1.jpg",GX#,GY#,0,10,4,True)
  hold(count%)\anim2 = nS_LoadAnimImage("../media/particle2.jpg",GX#,GY#,0,10,4,True)
  hold(count%)\gridx% = -1
  hold(count%)\gridy% = -1
  hold(count%)\points% = 0 ;0=stopped
  hold(count%)\time% = 0
  hold(count%)\lives% = 0
  hold(count%)\ID% = count%
  hold(count%)\status% = 0 ;0=stopped
  hold(count%)\puzzle% = 0 ;not a puzzle piece
  hold(count%)\nextitem% = ID_free
  count% = count% + 1
EndIf

If count% = 9 Then
  hold(count%)\item = nS_LoadImage("../media/image9.jpg",4,True)
  hold(count%)\anim1 = nS_LoadAnimImage("../media/particle1.jpg",GX#,GY#,0,10,4,True)
  hold(count%)\anim2 = nS_LoadAnimImage("../media/particle2.jpg",GX#,GY#,0,10,4,True)
  hold(count%)\gridx% = -1
  hold(count%)\gridy% = -1
  hold(count%)\points% = 0 ;0=stopped
  hold(count%)\time% = 0
  hold(count%)\lives% = 0
  hold(count%)\ID% = count%
  hold(count%)\status% = 0 ;0=stopped
  hold(count%)\puzzle% = 0 ;not a puzzle piece
  hold(count%)\nextitem% = ID_free
  count% = count% + 1
EndIf

If count% = 10 Then
  hold(count%)\item = nS_LoadImage("../media/image10.jpg",4,True)
  hold(count%)\anim1 = nS_LoadAnimImage("../media/particle1.jpg",GX#,GY#,0,10,4,True)
  hold(count%)\anim2 = nS_LoadAnimImage("../media/particle2.jpg",GX#,GY#,0,10,4,True)
  hold(count%)\gridx% = -1
  hold(count%)\gridy% = -1
  hold(count%)\points% = 0 ;0=stopped
  hold(count%)\time% = 0
  hold(count%)\lives% = 0
  hold(count%)\ID% = count%
  hold(count%)\status% = 0 ;0=stopped
  hold(count%)\puzzle% = 0 ;not a puzzle piece
  hold(count%)\nextitem% = ID_free
  count% = count% + 1
EndIf

If count% = 11 Then
  hold(count%)\item = nS_LoadImage("../media/image11.jpg",4,True)
  hold(count%)\anim1 = nS_LoadAnimImage("../media/particle1.jpg",GX#,GY#,0,10,4,True)
  hold(count%)\anim2 = nS_LoadAnimImage("../media/particle2.jpg",GX#,GY#,0,10,4,True)
  hold(count%)\gridx% = -1
  hold(count%)\gridy% = -1
  hold(count%)\points% = 0 ;0=stopped
  hold(count%)\time% = 0
  hold(count%)\lives% = 0
  hold(count%)\ID% = count%
  hold(count%)\status% = 0 ;0=stopped
  hold(count%)\puzzle% = 0 ;not a puzzle piece
  hold(count%)\nextitem% = ID_free
  count% = count% + 1
EndIf

If count% = 12 Then
  hold(count%)\item = nS_LoadImage("../media/image12.jpg",4,True)
  hold(count%)\anim1 = nS_LoadAnimImage("../media/particle1.jpg",GX#,GY#,0,10,4,True)
  hold(count%)\anim2 = nS_LoadAnimImage("../media/particle2.jpg",GX#,GY#,0,10,4,True)
  hold(count%)\gridx% = -1
  hold(count%)\gridy% = -1
  hold(count%)\points% = 0 ;0=stopped
  hold(count%)\time% = 0
  hold(count%)\lives% = 0
  hold(count%)\ID% = count%
  hold(count%)\status% = 0 ;0=stopped
  hold(count%)\puzzle% = 0 ;not a puzzle piece
  hold(count%)\nextitem% = ID_free
  count% = count% + 1
EndIf

If count% = 13 Then
  hold(count%)\item = nS_LoadImage("../media/image13.jpg",4,True)
  hold(count%)\anim1 = nS_LoadAnimImage("../media/particle1.jpg",GX#,GY#,0,10,4,True)
  hold(count%)\anim2 = nS_LoadAnimImage("../media/particle2.jpg",GX#,GY#,0,10,4,True)
  hold(count%)\gridx% = -1
  hold(count%)\gridy% = -1
  hold(count%)\points% = 0 ;0=stopped
  hold(count%)\time% = 0
  hold(count%)\lives% = 0
  hold(count%)\ID% = count%
  hold(count%)\status% = 0 ;0=stopped
  hold(count%)\puzzle% = 0 ;not a puzzle piece
  hold(count%)\nextitem% = ID_free
  count% = count% + 1
EndIf

If count% = 14 Then
  hold(count%)\item = nS_LoadImage("../media/image14.jpg",4,True)
  hold(count%)\anim1 = nS_LoadAnimImage("../media/particle1.jpg",GX#,GY#,0,10,4,True)
  hold(count%)\anim2 = nS_LoadAnimImage("../media/particle2.jpg",GX#,GY#,0,10,4,True)
  hold(count%)\gridx% = -1
  hold(count%)\gridy% = -1
  hold(count%)\points% = 0 ;0=stopped
  hold(count%)\time% = 0
  hold(count%)\lives% = 0
  hold(count%)\ID% = count%
  hold(count%)\status% = 0 ;0=stopped
  hold(count%)\puzzle% = 0 ;not a puzzle piece
  hold(count%)\nextitem% = ID_free
  count% = count% + 1
EndIf

If count% = 15 Then
  hold(count%)\item = nS_LoadImage("../media/image15.jpg",4,True)
  hold(count%)\anim1 = nS_LoadAnimImage("../media/particle1.jpg",GX#,GY#,0,10,4,True)
  hold(count%)\anim2 = nS_LoadAnimImage("../media/particle2.jpg",GX#,GY#,0,10,4,True)
  hold(count%)\gridx% = -1
  hold(count%)\gridy% = -1
  hold(count%)\points% = 0 ;0=stopped
  hold(count%)\time% = 0
  hold(count%)\lives% = 0
  hold(count%)\ID% = count%
  hold(count%)\status% = 0 ;0=stopped
  hold(count%)\puzzle% = 0 ;not a puzzle piece
  hold(count%)\nextitem% = ID_free
  count% = count% + 1
EndIf

If count% = 16 Then
  hold(count%)\item = nS_LoadImage("../media/image16.jpg",4,True)
  hold(count%)\anim1 = nS_LoadAnimImage("../media/particle1.jpg",GX#,GY#,0,10,4,True)
  hold(count%)\anim2 = nS_LoadAnimImage("../media/particle2.jpg",GX#,GY#,0,10,4,True)
  hold(count%)\gridx% = -1
  hold(count%)\gridy% = -1
  hold(count%)\points% = 0 ;0=stopped
  hold(count%)\time% = 0
  hold(count%)\lives% = 0
  hold(count%)\ID% = count%
  hold(count%)\status% = 0 ;0=stopped
  hold(count%)\puzzle% = 0 ;not a puzzle piece
  hold(count%)\nextitem% = ID_free
  count% = count% + 1
EndIf

If count% = 17 Then
  hold(count%)\item = nS_LoadImage("../media/image17.jpg",4,True)
  hold(count%)\anim1 = nS_LoadAnimImage("../media/particle1.jpg",GX#,GY#,0,10,4,True)
  hold(count%)\anim2 = nS_LoadAnimImage("../media/particle2.jpg",GX#,GY#,0,10,4,True)
  hold(count%)\gridx% = -1
  hold(count%)\gridy% = -1
  hold(count%)\points% = 0 ;0=stopped
  hold(count%)\time% = 0
  hold(count%)\lives% = 0
  hold(count%)\ID% = count%
  hold(count%)\status% = 0 ;0=stopped
  hold(count%)\puzzle% = 0 ;not a puzzle piece
  hold(count%)\nextitem% = ID_free
  count% = count% + 1
EndIf

If count% = 18 Then
  hold(count%)\item = nS_LoadImage("../media/image18.jpg",4,True)
  hold(count%)\anim1 = nS_LoadAnimImage("../media/particle1.jpg",GX#,GY#,0,10,4,True)
  hold(count%)\anim2 = nS_LoadAnimImage("../media/particle2.jpg",GX#,GY#,0,10,4,True)
  hold(count%)\gridx% = -1
  hold(count%)\gridy% = -1
  hold(count%)\points% = 0 ;0=stopped
  hold(count%)\time% = 0
  hold(count%)\lives% = 0
  hold(count%)\ID% = count%
  hold(count%)\status% = 0 ;0=stopped
  hold(count%)\puzzle% = 0 ;not a puzzle piece
  hold(count%)\nextitem% = ID_free
  count% = count% + 1
EndIf

End Function