global time# as float global temp_string$, s$ as String global b,c,d,d2,d3,s,h,stex,r,shad1,lines_read,m,img as Integer global DW as integer global DH as integer DW = getdevicewidth() DH = getdeviceheight() type skeltype id as integer endtype //#option_explicit #include "wadlib0.2.agc" SetErrorMode(2) SetVirtualResolution(1024,768) SetWindowSize(1024,768,0) SetVSync(1) SetPrintSize(16) UseNewDefaultFonts(1) s$=GetReadPath() SetRawWritePath(s$) Wad_Init(0,"ray.wad") b=CreateSprite(Wad_LoadImage(0,"refender64.png")) SetSpritePositionByOffset(b,100,100) c=CreateSprite(Wad_LoadImage(0,"background5.jpg")) SetSpritePositionByOffset(c,300,300) shad1=Wad_LoadSpriteShader(0,"shaders/test.ps") d=Wad_LoadImage(0,"battlezone.png") d2=CreateSprite(LoadSubImage(d,"left")) SetSpritePositionByOffset(d2,100,600) d3=CreateSprite(LoadSubImage(d,"right")) SetSpritePositionByOffset(d3,270,600) s=Wad_LoadObject(0,"model/dmarsat.obj") stex=Wad_LoadImage(0,"sat_tex.png") SetObjectImage(s,stex,0) SetObjectScale(s,15,15,15) img = Wad_LoadImage(0,"spine/hudItem.png") global skel as skeltype[5] for h = 1 to 5 skel[h].id=Wad_LoadSkeleton(0,"spine/hudItem.json", 0.5, img) setSkeleton2dPosition(skel[h].id, (DW/2) + (h*16), (DH/2) +(h*16) ) PlaySkeleton2DAnimation(skel[h].id, "controller_firetv_newconnection_none", 0.0, 1, 0.0) setSkeleton2dVisible(skel[h].id, 1) next h //r=Wad_LoadSound(0,"sound/Bluezone-Rassault-soundFX-350.wav") //PlaySound(r,10,1) /* m=Wad_LoadMusic(0,"ingame2.ogg",1) PlayMusicOGG(m) */ //m=Wad_LoadMusic(0,"gameover.mp3",0) //PlayMusic(m) //shad1=Wad_LoadShader(0,"shader-texture-pointlight.ps","shader-texture-pointlight.vs") Lines_Read=Wad_LoadTextFile(0,"test.ini",chr(10)) temp_string$=Wad_textfile$ time#=timer()-time# while GetRawLastKey()<>27 Print("time to open: "+str(time#)) Print("textFile: "+temp_string$) //Print("music:"+Wad_MusicFiles[0].MusicFile$) RotateObjectLocalX(s,1.3) RotateObjectLocalY(s,0.7) RotateObjectLocalZ(s,-0.2) for h = 1 to skel.length print(getskeleton2dX(skel[h].id)) next h Sync() //if GetFileExists("hudItem.atlas") then deletefile("hudItem.atlas") EndWhile Wad_FreeWadMusic() end