Sorry your browser is not supported!

Rem ***** Main Source File *****
Autocam Off : Sync On
`first 10 is total of images
`second 60 is the total of animated images (max animated images is 60)
DIM aniImg(10,60) As Integer
scrAni = createAniImage("scr.bmp", 11)
REM COORDINATES ARE 2D SCREEN COORDINATES
scrObj1 = Hud2D(50, 50, 0, 0, 0, "PLAIN")
scrObj2 = Hud2D(100, 50, 0, 530, 420, "PLAIN")
scrObj3 = Hud2D(100, 0, 0, 280, 190, "SPHERE")

Make Matrix 1, 1000, 1000, 10, 10
Position Camera 0, 10, 0
Do
scrImg1 = loopAniHud3D(scrObj1, scrAni, scrImg1)
scrImg2 = loopAniHud3D(scrObj2, scrAni, scrImg2)
scrImg3 = loopAniHud3D(scrObj3, scrAni, scrImg3)
ang# = wrapvalue(ang# + 0.1)
yRotate Object scrObj3, ang#


mmx = mousemovex() : mmy = mousemovey()
ax# = wrapvalue(ax# + mmy)
ay# = wrapvalue(ay# + mmx)
rotate camera ax#, ay#, 0.0
if mouseclick()=1 then move camera 1
if mouseclick()=2 then move camera -1

text 0, 50, "Screen Fps: "+str$(screen fps())
text 0, 64, "Static: "+str$(statistic(1))
Sync
Loop



`>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
`n1 is source sprite
`n2 is instant sprite count
`img is the image array number
`i is the fake global variable, dont mess with it
Function loopAniHud3D(o As Integer, img As Integer, i As Integer)
Texture Object o, aniImg(img,int(i/10))
      Inc i
      If i > 110 Then i = 10
EndFunction i
`<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
`>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
`str is strip file name
`noi is number of images in strip file
`RETURNS: array number holder
`NOT: Dont forget to change aniImg() Array to suit array counts
Function createAniImage(str As String, noi As Integer)
Repeat
   inc img
Until aniImg(img,1) = 0
bmp = freeBitmap()
Load Bitmap str, 1
   bmpW = bitmap Width(1)
   bmpH = bitmap Height(1)
   bmpN = bmpW / noi
   Set Current Bitmap 1
      For i = 1 To noi
         aniImg(img,i) = freeImage()
         Get Image aniImg(img,i), (i*bmpN)-bmpN, 0, (i*bmpN), bmpH
      Next i
   Set CUrrent Bitmap 0
Delete Bitmap 1
EndFunction img
`<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
`>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
`xSize   = object 2d x Size
`ySize   = object 2d y Size
`xPos    = object 2d x Position
`yPos    = object 2d y Position
Function Hud2D(xSize As Integer, ySize As Integer, zSize As Integer, xPos  As Integer, yPos  As Integer, obj As String)
   scrW = Screen Width() : scrW2 = scrW / 2.0
   scrH = Screen Height() : scrH2 = scrH / 2.0
      hud = freeObject()
      if obj = "BOX" Then Make Object Box hud, xSize, ySize, zSize
      if obj = "CUBE" Then Make Object Cube hud, xSize : ySize = xSize
      if obj = "SPHERE" Then Make Object Sphere hud, xSize : ySize = xSize
      if obj = "PLAIN" Then Make Object Plain hud, xSize, ySize
      Position Object hud, 0-(scrW2-xSize/2.0)+xPos, (scrH2-ySize/2.0)-yPos, ((scrW - scrH) * 2.5)
      `Point Object Hud, camera Position x(), camera Position y(), camera Position z()
      Lock Object On hud
      Disable Object zWrite hud
EndFunction hud
`<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

lbl_functionsFree:
`>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Function freeDll()
   Repeat
      Inc i
   Until DLL Exist(i) = 0
EndFunction i
`<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
`>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Function freeMemblock()
   Repeat
      Inc i
   Until MemBlock Exist(i) = 0
EndFunction i
`<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
`>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Function freeObject()
   Repeat
      Inc i
   Until Object Exist(i) = 0
EndFunction i
`<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
`>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Function freeSound()
   Repeat
      Inc i
   Until Sound Exist(i) = 0
EndFunction i
`<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
`>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Function freeMusic()
   Repeat
      Inc i
   Until Music Exist(i) = 0
EndFunction i
`<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
`>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Function freeAnimation()
   Repeat
      Inc i
   Until Animation Exist(i) = 0
EndFunction i
`<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
`>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Function freeBitmap()
   Repeat
      Inc i
   Until Bitmap Exist(i) = 0
EndFunction i
`<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
`>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Function freeEffect()
   Repeat
      Inc i
   Until Effect Exist(i) = 0
EndFunction i
`<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
`>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Function freeImage()
   Repeat
      Inc i
   Until Image Exist(i) = 0
EndFunction i
`<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
`>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Function freeLight()
   Repeat
      Inc i
   Until Light Exist(i) = 0
EndFunction i
`<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
`>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Function freeLimb()
   Repeat
      Inc i
   Until Limb Exist(i,i) = 0
EndFunction i
`<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
`>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Function freeMatrix()
   Repeat
      Inc i
   Until Matrix Exist(i) = 0
EndFunction i
`<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
`>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Function freeMesh()
   Repeat
      Inc i
   Until Mesh Exist(i) = 0
EndFunction i
`<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
`>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Function freePixelshader()
   Repeat
      Inc i
   Until Pixel Shader Exist(i) = 0
EndFunction i
`<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
`>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Function freeParticles()
   Repeat
      Inc i
   Until Particles Exist(i) = 0
EndFunction i
`<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
`>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Function freeSprite()
   Repeat
      Inc i
   Until Sprite Exist(i) = 0
EndFunction i
`<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
`>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Function freeTerrain()
   Repeat
      Inc i
   Until Terrain Exist(i) = 0
EndFunction i
`<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
`>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Function freeVertexshader()
   Repeat
      Inc i
   Until Vertex Shader Exist(i) = 0
EndFunction i
`<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
`>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Function freeFile()
   Repeat
      Inc i
   Until File Open(i) = 0
EndFunction i
`<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

`>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
`str is strip file name
`noi is number of images in strip file
`RETURNS: array number holder
`NOT: Dont forget to change aniImg() Array to suit array counts
Function createAniImage(str As String, noi As Integer)
Repeat
   inc img
Until aniImg(img,1) = 0
bmp = freeBitmap()
Load Bitmap str, 1
   bmpW = bitmap Width(1)
   bmpH = bitmap Height(1)
   bmpN = bmpW / noi
   Set Current Bitmap 1
      For i = 1 To noi
         aniImg(img,i) = freeImage()
         Get Image aniImg(img,i), (i*bmpN)-bmpN, 0, (i*bmpN), bmpH
      Next i
   Set CUrrent Bitmap 0
Delete Bitmap 1
EndFunction img
`<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<