Sorry your browser is not supported!

Dim Files(1):Dim TextureNr(227):Dim TextureName$(227):Dim MatrixName$(125)
Dim MatrixID(125):Dim CameraRange(1,1):Dim CameraNr(1):Dim Information$(10)

function LoadTexture(Folder$,TextureFlag)
cd Folder$
   find first
      for t=98 to 225 `can load 125 textures (should sufice)
         if get file type() = 0
            File$=get file name$()
            TextureName$(t) = File$ : TextureNr(t) = t
            load image TextureName$(t),TextureNr(t),TextureFlag
            inc Files(1),1
         endif
            if get file type() = -1
               if Files(1)>0
                  sync:text 0,0,str$(Files(1))+" Textures Loaded":sync
                  sleep 1000:cd "..\..\"
               endif
               if Files(1)<1
                  sync:text 0,0,"No Texture Found":sync
                  sleep 1000:cd "..\..\"
               endif
            exitfunction
         endif
      find next
   next t
endfunction

sync on:sync rate 0:set display mode 1024,768,32
`////////////////////////////////////////INCLUDE////////////////////////////////////////////`
#include "FDataBase.dba"
`//////////////////////////////////////////GLOBAL//////////////////////////////////////////////`
global MatrixCheckNr : MatrixCheckNr=1
global ObjectCheckNr : ObjectCheckNr=1
global CheckBoxClick : CheckBoxClick=0
global SelectedMatrix : SelectedMatrix=0
global InformationCheck : InformationCheck=5
global MenuCheck : MenuCheck=1
global GUICheck : GUICheck=0
global Mode : Mode=0
`//////////////////////////////////////////DIM//////////////////////////////////////////////`
Dim images$(20):Dim Files(1):Dim TextureNr(227):Dim MatrixName$(227):Dim MatrixID(125)
Dim CameraRange(1,1):Dim CameraNr(1):Dim MatrixNr(125):Dim Information$(10)
`//////////////////////////////////////////SETUP////////////////////////////////////////////`
gosub _SetupApp
`//////////////////////////////////////////MAIN/////////////////////////////////////////////`
_Main:
do

gosub _Menu0
sync
loop
`///////////////////////////////////////SUBROUTINES/-SETUP/////////////////////////////////`
_SetupApp:
`/Load images/`
images$(1)="image\gui_box.tga":images$(2)="image\cam_box.tga"
images$(3)="image\obj_box.tga":images$(4)="image\matrix_menu.tga"
images$(5)="image\btn_ok.tga":images$(6)="image\btn_cancel.tga"
images$(7)="image\btn_inc.tga":images$(8)="image\btn_dec.tga"
images$(9)="image\obj_menu.tga":images$(10)="image\sound_box.tga"
images$(11)="image\light_box.tga":images$(12)="image\matrix_box.tga"
images$(13)="image\matrix_toolbox.tga":images$(14)="image\cube_menu.tga"
images$(15)="image\app_icon.bmp":images$(16)="image\info_box.tga"
for t=1 to 16
load image images$(t),t,1 `ALWAYS HAVE load image "name",number,1 WHEN NOT TO BE USED AS A TEXTURE, OTHERWIZE THE IMAGE WILL BE BLURED ETC
next t

LoadTexture("texture\",1)

sleep 1000
`/Assign some vars/`
switch=0:camx=0:camy=0:camz=0
objnr=1:mmx=0:mmy=0
xang=0:yang=0:freemouse=1
StatusInfo(0,0,0)

`/Camera Setup/`
make camera 1:set camera range 1,1,5000
position camera camx,camy,camz
return

`///////////////////////////////////////SUBROUTINES/-MENU/////////////////////////////////`
_Menu0:
   mmx=mousemovey():mmy=mousemovex():mx=mousex():my=mousey()
   MainMenu(GUICheck or GUISelectionBox):CamTextShow(camx,camy,camz)
   gosub _GUIBox
   gosub _MatrixMenu
   gosub _EditMatrix
   gosub _Information

   if GUICheck=0 or GUISelectionBox=0 or GUIRoleOut=0

   if mouseclick()=1 and CheckBoxClick=1
      for t=ObjectCheckNr to 225
          make object cube ObjectCheckNr,3
          position object ObjectCheckNr,rnd(300),0,rnd(300)
          inc ObjectCheckNr:exit
          goto _Main
      next t
   endif

   if mouseclick()=1 and CheckBoxClick=15
      for t=MatrixCheckNr to 125
         MenuCheck=15
         exit:goto _Main
      next t
   endif

   if mouseclick()=1 and CheckBoxClick=16
      MenuCheck=16
   endif

   if mouseclick()=1 and CheckBoxClick=17
      MenuCheck=17
   endif

   if mouseclick()=1 and CheckBoxClick=18
      MenuCheck=18
   endif

   if inkey$()="w"
      inc camx,sin(yang)*5.0
      inc camz,cos(yang)*5.0
   endif
   if inkey$()="s"
      dec camx,sin(yang)*5.0
      dec camz,cos(yang)*5.0
   endif
   if inkey$()="a"
      dec camx,cos(yang)*5.0
      dec camz,-sin(yang)*5.0
   endif
   if inkey$()="d"
      inc camx,cos(yang)*5.0
      inc camz,-sin(yang)*5.0
   endif
   if shiftkey() and mouseclick()=1
      dec camy,2
   endif
   if shiftkey() and mouseclick()=2
      inc camy,2
   endif
   if spacekey()=1
      sleep 100
      inc freemouse,1
      if freemouse>1 then freemouse=0
   endif
`/mouse control/`
   if freemouse=0
      position mouse screen width()/2,screen height()/2
      yang = wrapvalue(yang+mmy*0.2)
      xang = wrapvalue(xang+mmx*0.2)
   endif
`/camera control/`
   position camera 1,camx,camy,camz
   rotate camera 1,xang,yang,0
   endif
return

_EditMatrix:
   if MenuCheck=17
      GUIImage(13,m_toolbar_x1+screen width()-screen width(),m_toolbar_y1+screen height()-90,0)
   else
      return
   endif
return

_Information:
GUIImage(16,infobox_x1+screen width()-screen width()+293,infobox_y1+screen height()-25,0)
StatusInfo(InformationCheck,infobox_x1+screen width()-screen width()+300,infobox_y1+screen height()-18)
return

_GUIBox:
   if mx>-1 and mx<screen width() and my>-1 and my<20
      GUICheck=1
   else
      GUICheck=0
   endif
   if mx>-1 and mx<screen width()-screen width()+75 and my>-1 and my<130:GUISelection=1
      if mouseclick()=1 and GUISelection=1
         GUISelectionBox=1
      endif
      if GUISelectionBox=1 and GUIRoleOut=0
         GUISelectionBox=0
      endif
   endif
   if mx>-1 and mx<screen width()-screen width()+75 and my>-1 and my<130
      GUIRoleOut=1
   else
      GUIRoleOut=0
   endif

   if GUICheck=1 or GUISelectionBox>0
      set text size 18
      `The Main GUI Box
      ink rgb(40,40,40),1:box 0,0,screen width(),20
      ink rgb(60,60,60),1:box 1,1,screen width()-1,20
      `Texts For The GUI Box
      ink rgb(40,40,40),1:text screen width()-screen width()+25,1,"File"
      ink rgb(40,40,40),1:text screen width()-screen width()+100,1,"Zone"
      ink rgb(40,40,40),1:text screen width()-screen width()+175,1,"Object"
      ink rgb(40,40,40),1:text screen width()-screen width()+265,1,"Waypoint"
      ink rgb(40,40,40),1:text screen width()-screen width()+375,1,"Enviroment"
      ink rgb(40,40,40),1:text screen width()-screen width()+495,1,"Options"
      ink rgb(40,40,40),1:text screen width()-35,1,"v1.0"
      paste image 15,screen width()-55,1,1
      `You have selected the option box
      if GUISelectionBox=6
      endif

      `You have selected the file box
      if GUISelectionBox=1 and GUIRoleOut=1
         ink rgb(80,80,80),1:text screen width()-screen width()+25,1,"File"
         if GUIRoleOut=1
            `The Drop Down Menu
            ink rgb(40,40,40),1:box 1,20,screen width()-screen width()+75,screen height()-screen height()+125
            ink rgb(60,60,60),1:box 0,21,screen width()-screen width()+75,screen height()-screen height()+124
            `Texts For Drop Down Menu - File
            ink rgb(40,40,40),1:text screen width()-screen width()+4,screen height()-screen height()+25,"New"
            ink rgb(40,40,40),1:text screen width()-screen width()+4,screen height()-screen height()+45,"Save"
            ink rgb(40,40,40),1:text screen width()-screen width()+4,screen height()-screen height()+65,"Load"
            ink rgb(40,40,40),1:text screen width()-screen width()+4,screen height()-screen height()+85,"Reset"
            ink rgb(40,40,40),1:text screen width()-screen width()+4,screen height()-screen height()+105,"Exit"
            `You Have Selected The New Option
            if mx>1 and mx<screen width()-screen width()+75 and my>screen height()-screen height()+30 and my<screen height()-screen height()+45
               DropDown1Selection=1
               ink rgb(70,70,70),1:text screen width()-screen width()+4,screen height()-screen height()+25,"New"
               if mouseclick()=1 and DropDown1Selection=1

               endif
            endif
            `You Have Selected The Save Option
            if mx>1 and mx<screen width()-screen width()+75 and my>screen height()-screen height()+50 and my<screen height()-screen height()+60
               DropDown1Selection=2
               ink rgb(70,70,70),1:text screen width()-screen width()+4,screen height()-screen height()+45,"Save"
               if mouseclick()=1 and DropDown1Selection=2

               endif
            endif
            `You Have Selected The Load Option
            if mx>1 and mx<screen width()-screen width()+75 and my>screen height()-screen height()+65 and my<screen height()-screen height()+80
               DropDown1Selection=3
               ink rgb(70,70,70),1:text screen width()-screen width()+4,screen height()-screen height()+65,"Load"
               if mouseclick()=1 and DropDown1Selection=3

               endif
            endif
            `You Have Selected The Reset Option
            if mx>1 and mx<screen width()-screen width()+75 and my>screen height()-screen height()+83 and my<screen height()-screen height()+105
               DropDown1Selection=4
               ink rgb(70,70,70),1:text screen width()-screen width()+4,screen height()-screen height()+85,"Reset"
               if mouseclick()=1 and DropDown1Selection=4

               endif
            endif
            `You Have Selected The Exit Option
            if mx>1 and mx<screen width()-screen width()+75 and my>screen height()-screen height()+108 and my<screen height()-screen height()+120
               DropDown1Selection=5
               ink rgb(70,70,70),1:text screen width()-screen width()+4,screen height()-screen height()+105,"Exit"
               if mouseclick()=1 and DropDown1Selection=5
                  end
               endif
            endif
         endif
      endif
   endif
return

_MatrixMenu:
if MenuCheck=15
   btn=0:menu=0
   GUIImage(4,x1,y1,0)
   GUIImage(5,x1+158,y1,0)
   GUIImage(6,x1+158,y1+19,0)
   MatTextShow(x1+80,y1+18,matwidth)
   MatTextShow(x1+80,y1+55,matheight)
   MatTextShow(x1+110,y1+92,matxseg)
   MatTextShow(x1+110,y1+129,matzseg)
   `/inc and dec button for height/`
   GUIImage(7,x1+5,y1+17,0)
   GUIImage(8,x1+35,y1+17,0)
    `/inc and dec button for width/`
   GUIImage(7,x1+5,y1+55,0)
   GUIImage(8,x1+35,y1+55,0)
    `/inc and dec button for xsegmant/`
   GUIImage(7,x1+5,y1+93,0)
   GUIImage(8,x1+35,y1+93,0)
    `/inc and dec button for zsegment/`
   GUIImage(7,x1+5,y1+130,0)
   GUIImage(8,x1+35,y1+130,0)

   if mx>x1-20 and mx<x1+158 and my>y1 and my<y1+229 then menu=1
   if mouseclick()=0 and click=1
      click=0
   endif
      if mouseclick()=1 and menu>0
         if menu=1
            if click=0
               click=2
            endif
               if click=2
                  oldx=mx:oldy=my:click=1
               endif
                  if click=1
                     oldx=newxvalue(oldx,mmx,5)
                     oldy=newyvalue(oldy,mmy,5)
                     nx=newxvalue(nx,mmx,55)
                     ny=newxvalue(ny,mmy,55)
                     oldx=mx:oldy=my
                     position mouse oldx,oldy
                     x1=nx:y1=ny
                  if x1>screen width()-225 then x1=screen width()-225
                  if x1<0 then x1=5
                  if y1>screen height()-195 then y1=screen height()-195
                  if y1<0 then y1=5
               endif
            endif
         endif
      if mx>x1+5 and mx<x1+25 and my>y1+17 and my<y1+35 then btn=1
         if mouseclick()=1 and btn>0
         if btn=1
            sleep 50
               if ValueCheck(matwidth,99999)=1
               matwidth=100000
            else
               inc matwidth,1
               endif
            endif
         endif
      if mouseclick()=2 and btn>0 `/increas faster/`
         if btn=1
            sleep 50
               if ValueCheck(matwidth,99999)=1
                  matwidth=100000
               else
                  inc matwidth,100
               endif
            endif
         endif
      if mx>x1+35 and mx<x1+55 and my>y1+17 and my<y1+35 then btn=2
      if mouseclick()=1 and btn>0
         if btn=2
            sleep 50
               if ValueCheck(matwidth,2)=2
                  matwidth=1
               else
                  dec matwidth,1
               endif
            endif
         endif
      if mouseclick()=2 and btn>0 `/decreas faster/`
         if btn=2
            sleep 50
               if ValueCheck(matwidth,2)=2
                  matwidth=1
               else
                  dec matwidth,100
               endif
            endif
         endif
   if mx>x1+5 and mx<x1+25 and my>y1+55 and my<y1+77 then btn=3
      if mouseclick()=1 and btn>0
         if btn=3
            sleep 50
               if ValueCheck(matheight,99999)=1
                  matheight=100000
               else
                  inc matheight,1
               endif
            endif
         endif
      if mouseclick()=2 and btn>0 `/increas faster/`
         if btn=3
            sleep 50
               if ValueCheck(matheight,99999)=1
                  matheight=100000
               else
                  inc matheight,100
               endif
            endif
         endif
   if mx>x1+35 and mx<x1+55 and my>y1+55 and my<y1+77 then btn=4
      if mouseclick()=1 and btn>0
         if btn=4
            sleep 50
               if ValueCheck(matheight,2)=2
                  matheight=1
               else
                  dec matheight,1
               endif
            endif
         endif
      if mouseclick()=2 and btn>0 `/decreas faster/`
         if btn=4
            sleep 50
               if ValueCheck(matheight,2)=2
                  matheight=1
               else
                  dec matheight,100
               endif
            endif
         endif
   if mx>x1+5 and mx<x1+25 and my>y1+92 and my<y1+112 then btn=5
      if mouseclick()=1 and btn>0
         if btn=5
            sleep 50
               if ValueCheck(matxseg,99)=1
                  matxseg=100
               else
                  inc matxseg,1
               endif
            endif
         endif
   if mx>x1+35 and mx<x1+55 and my>y1+92 and my<y1+112 then btn=6
      if mouseclick()=1 and btn>0
         if btn=6
            sleep 50
               if ValueCheck(matxseg,2)=2
                  matxseg=1
               else
                  dec matxseg,1
               endif
            endif
         endif
   if mx>x1+5 and mx<x1+25 and my>y1+130 and my<y1+145 then btn=7
      if mouseclick()=1 and btn>0
         if btn=7
            sleep 50
               if ValueCheck(matzseg,99)=1
                  matzseg=100
               else
                  inc matzseg,1
               endif
            endif
         endif
   if mx>x1+35 and mx<x1+55 and my>y1+130 and my<y1+145 then btn=8
      if mouseclick()=1 and btn>0
         if btn=8
            sleep 50
               if ValueCheck(matzseg,2)=2
                  matzseg=1
               else
                  dec matzseg,1
               endif
            endif
         endif
   if mx>x1+158 and mx<x1+220 and my>y1 and my<y1+18 then btn=9
      if mouseclick()=1 and btn>0
         if btn=9
            sleep 50
               make matrix MatrixCheckNr,matwidth,matheight,matxseg,matzseg
               position matrix MatrixCheckNr,-matwidth/2,0,-matheight/2
               inc MatrixCheckNr,1
               CheckBoxClick=0
               goto _Main
            endif
         endif
   if mx>x1+158 and mx<x1+220 and my>y1+18 and my<y1+40 then btn=10
      if mouseclick()=1 and btn>0
         if btn=10
            sleep 50
               CheckBoxClick=0:MenuCheck=0
               goto _Main
            endif
         endif
      return
   else
   return
endif

`//////////////////////////////////////////FUNCTIONS///////////////////////////////////////`
`/v1.0/ - Edit Mode/` - /done/
function PositionObject(nr,x,y,z) as integer
   do
      mousemovy#=mousemovey():mousemovx#=mousemovex()
      if inkey$()="|" then goto _Main
      if inkey$()="w" then inc z,1
      if inkey$()="s" then dec z,1
      if inkey$()="a" then inc x,1
      if inkey$()="d" then dec x,1
      if inkey$()="q" then inc y,1
      if inkey$()="e" then dec y,1
      if inkey$()="t"
         inc xmov#,sin(yang#)*5
         inc zmov#,cos(yang#)*5
      endif
      if inkey$()="g"
         dec xmov#,sin(yang#)*5
         dec zmov#,cos(yang#)*5
      endif
      if inkey$()="f"
         dec xmov#,cos(yang#)*5
         dec zmov#,-sin(yang#)*5
      endif
      if inkey$()="h"
         inc xmov#,cos(yang#)*5
         inc zmov#,-sin(yang#)*5
      endif
      if shiftkey() and mouseclick()=1
         dec ymov#,2
      endif
         if shiftkey() and mouseclick()=2
         inc ymov#,2
      endif
      if spacekey()=1
         sleep 100
         inc freemouse,1
         if freemouse>1 then freemouse=0
      endif
      if freemouse=0
         position mouse screen width()/2,screen height()/2
         yang# = wrapvalue(yang#+mousemovx#*0.2)
         xang# = wrapvalue(xang#+mousemovy#*0.2)
      endif
         position object nr,x,y,z
         position camera 1,xmov#,ymov#+100,zmov#
         rotate camera 1,xang#,yang#,0
         GUIImage(2,0,screen height()-40,0)
         GUIImage(3,0,screen height()-80,0)
         CamTextShow(xmov#,ymov#,zmov#)
         ObjTextShow(x,y,z)
         `/text setings/`
         sync
      loop
endfunction

function MainMenu(status)
mx=mousex():my=mousey()
play=0:GUIImage(9,x2,y2+60,0)
GUIImage(10,x3,y3+112,0)
GUIImage(11,x4,y4+164,0)
GUIImage(12,x5,y5+216,0)

if status=0
`/Check And Write What Box You Have Selected/`
if mx>x2 and mx<x2+37 and my>y2+70 and my<y2+108
play=1:CheckMenu(1,play,mx+10,my,"Create Cube")
endif
if mx>x2+42 and mx<x2+78 and my>y2+70 and my<y2+108
play=1:CheckMenu(2,play,mx+10,my,"Create Sphere")
endif
if mx>x2+82 and mx<x2+115 and my>y2+70 and my<y2+108
play=1:CheckMenu(3,play,mx+10,my,"Create Cone")
endif
if mx>x2+120 and mx<x2+153 and my>y2+70 and my<y2+108
play=1:CheckMenu(4,play,mx+10,my,"Create Cylinder")
endif
if mx>x2+160 and mx<x2+195 and my>y2+70 and my<y2+108
play=1:CheckMenu(5,play,mx+10,my,"Create Plane")
endif
if mx>x2+200 and mx<x2+234 and my>y2+70 and my<y2+108
play=1:CheckMenu(6,play,mx+10,my,"Create Box")
endif

if mx>x3 and mx<x3+37 and my>y3+120 and my<y3+158
play=1:CheckMenu(7,play,mx+10,my,"Load Sound")
endif
if mx>x3+42 and mx<x3+78 and my>y3+120 and my<y3+158
play=1:CheckMenu(8,play,mx+10,my,"Position Sound")
endif
if mx>x3+82 and mx<x3+115 and my>y3+120 and my<y3+158
play=1:CheckMenu(9,play,mx+10,my,"Sound Options")
endif
if mx>x3+120 and mx<x3+153 and my>y3+120 and my<y3+158
play=1:CheckMenu(10,play,mx+10,my,"Kill Sound")
endif

if mx>x4 and mx<x4+37 and my>y4+175 and my<y4+210
play=1:CheckMenu(11,play,mx+10,my,"Create Light")
endif
if mx>x4+42 and mx<x4+78 and my>y4+175 and my<y4+210
play=1:CheckMenu(12,play,mx+10,my,"Ambiant Light")
endif
if mx>x4+82 and mx<x4+115 and my>y4+175 and my<y4+210
play=1:CheckMenu(13,play,mx+10,my,"Light Color")
endif
if mx>x4+120 and mx<x4+153 and my>y4+175 and my<y4+210
play=1:CheckMenu(14,play,mx+10,my,"Kill Light")
endif

if mx>x5 and mx<x5+37 and my>y5+225 and my<y5+264
play=1:CheckMenu(15,play,mx+10,my,"Create Matrix")
endif
if mx>x5+42 and mx<x5+78 and my>y5+225 and my<y5+264
play=1:CheckMenu(16,play,mx+10,my,"Matrix Option")
endif
if mx>x5+82 and mx<x5+115 and my>y4+225 and my<y5+264
play=1:CheckMenu(17,play,mx+10,my,"Edit Matrix")
endif
if mx>x5+120 and mx<x5+153 and my>y5+225 and my<y5+264
play=1:CheckMenu(18,play,mx+10,my,"Kill Matrix")
endif
endif
endfunction

function CheckMenu(check,play,x,y,txt$)
   CheckBoxClick=check
   if play=1 and check>=0
   set text size 12
   ink rgb(255,0,0),1:text x,y,txt$
   endif
endfunction

`/v1.0/` - Text setings/` - /done/
function TextSetings(textmode,size,font$)
   if textmode=1
      set text opaque
   endif
   if textmode=2
      set text transparent
   endif
      if textmode=0
   endif
      set text size size
   set text font font$
endfunction
`/v1.0/` - Shows camera postions in box/` - /done/
function CamTextShow(x,y,z) as integer
   set text size 12
   GUIImage(2,screen width()-screen width(),screen height()-48,0)
   ink rgb(255,255,255),1:text screen width()-screen width()+17,screen height()-27,str$(x)
   ink rgb(255,255,255),1:text screen width()-screen width()+117,screen height()-26,str$(y)
   ink rgb(255,255,255),1:text screen width()-screen width()+217,screen height()-26,str$(z)
endfunction
`/v1.0/` - Shows object postions in box/` - /done/
function ObjTextShow(x,y,z)
set text size 12
   GUIImage(3,screen width()-screen width(),screen height()-84,0)
   ink rgb(255,255,255),1:text screen width()-screen width()+55,screen height()-68,str$(x)
   ink rgb(255,255,255),1:text screen width()-screen width()+185,screen height()-68,str$(y)
   ink rgb(255,255,255),1:text screen width()-screen width()+325,screen height()-68,str$(z)
endfunction
`/v1.0/` - Shows matrix values in menu box/` - /done/
function MatTextShow(x,y,var)
   set text size 12
   ink rgb(255,255,255),1:text x,y,str$(var)
endfunction

`/v0.1/`
function MakeBasicBox(nr,size,x,y,z,cull) as integer
   make object cube nr,size
   position object nr,x,y,z
   set object cull nr,cull
endfunction

`/v0.1/`
function MakeSpecialBox(nr,width,height,depth,cull) as integer
   make object box nr,width,height,depth
   position object nr,x,y,z
   set object cull nr,cull
endfunction

`/v0.1/`
function MakeCone(nr,size,x,y,z,cull) as integer
   make object cone nr,size
   position object nr,x,y,z
   set object cull nr,cull
endfunction

`/v0.1/`
function MakeBasicSphere(nr,size,rows,colums,x,y,z,cull) as integer
   make object sphere nr,size,rows,colums
   position object nr,x,y,z
   set object cull nr,cull
endfunction

`/v0.1/`
function MakeSpecialSphere(nr,size,rows,colums,x,y,z,cull) as integer
   make object sphere nr,size,rows,colums
   position object nr,x,y,z
   set object cull nr,cull
endfunction

`/v0.1/`
function LoadObject(file$,x,y,z,cull)
   load object file$,nr
   position object nr,x,y,z
   set object cull nr,cull
endfunction

`/v0.1/`
function GUIImage(nr,x,y,transparency) as integer
   paste image nr,x,y,transparency
endfunction

`/v0.1/`
function GUISprite(nr,x,y,imgnr) as integer
   sprite nr,x,y,imgnr
endfunction

`/v1.0/` - Hide the current to destionation sprite number/`-/HideSprite and SpriteCheck is linked, use SpriteCheck/ - /done/
function BHideSprite(cur,dest,hide) as integer
if hide=1
   for cur=cur to dest
      hide sprite cur
   next cur
endif
if hide=0
   for cur=cur to dest
      show sprite cur
   next cur
endif
endfunction
function AHideSprite(cur,dest,hide) as integer
   for cur=cur to dest
      if sprite exist(cur)
         if hide=0
            BHideSprite(cur,dest,hide)
         endif
         if hide=1
            BHideSprite(cur,dest,hide)
         endif
      endif
   next cur
endfunction
`/Value Check/`
function ValueCheck(cur,dest) as integer
   if cur>dest
      checkt=1
      exitfunction checkt
   endif
   if cur<dest
      checkt=2
      exitfunction checkt
   endif
endfunction checkt

function ObjSetting(nr,wireframe)
   set object wireframe nr,wireframe
endfunction

function MatSetting(nr,wireframe)
   if wireframe=1
      set matrix wireframe on nr
   endif
   if wireframe=0
      set matrix wireframe off nr
   endif
endfunction

function SprSettings(cur,dest,backsave,transparency)
   for cur=cur to dest
      set sprite cur,backsave,transparency
   next cur
endfunction

function SSpritePriority(nr,mode)
   set sprite priority nr,mode
endfunction

function ASpritePriority(cur,dest,mode)
   if mode=1
      for cur=cur to dest
         SSpritePriority(cur,mode)
      next cur
   endif
   if mode=0
      for cur=cur to dest
         SSpritePriority(cur,mode)
      next cur
   endif
endfunction

function PointCameraTo(objectnumber,objectx,objectz,cameray)
`This function is handy for pointing the position of a currently new made object
point camera cameranumber,objectx,cameray,objectz
endfunction