-- LUA Script - precede every function and global member with lowercase name of script + '_main'
-- Camera sweep

camx=0
camy=0
camz=0

function cam_init(e)
benchmarkended=0
startx=g_PlayerPosX
starty=g_PlayerPosY
startz=g_PlayerPosZ

anglex=g_PlayerAngX
angley=g_PlayerAngY
anglez=g_PlayerAngZ

anglex1=0
angley1=0
anglez1=0

range=-4
control_count=0
-- only needed if you want to move the control object with you (removed)
  --CollisionOff(e)
  --GravityOff(e)
camangx=g_PlayerAngX
camangy=g_PlayerAngY
camangz=g_PlayerAngZ
SetFreezeAngle(camangx,camangy,camangz)
score=0
endtest=14000
display="Calculating..."
alpha=255

starttime=0
end

function cam_main(e)

if starttime==0 then
 HideHuds()
 logoim= LoadImage("scriptbank\\images\\bar\\rpgmark.png")
 logosp= CreateSprite(logoim)
 SetSpriteSize ( logosp , 24 , -1 )
 SetSpriteOffset ( logosp , 12 , -1 )
 SetSpritePosition(logosp,50,30)

 progressbarim = LoadImage ( "scriptbank\\images\\bar\\000.png" )

 progressbarbacksp = CreateSprite ( progressbarim )
 SetSpriteColor ( progressbarbacksp , 180 , 180, 180, 255 )
 SetSpriteSize ( progressbarbacksp , (endtest+500)/500 , 4 )
 SetSpriteOffset ( progressbarbacksp , ((endtest+500)/500)/2 , 2 )
 SetSpritePosition ( progressbarbacksp , 50.5 , 95 )

 progressbarsp = CreateSprite ( progressbarim )
 SetSpriteColor ( progressbarsp , 0 , 250, 250, 255 )
 SetSpriteSize ( progressbarsp , endtest/500 , 2 )
 SetSpriteOffset ( progressbarsp , (endtest/500)/2 , 1 )
 SetSpritePosition ( progressbarsp , 50.5 , 94.5 )
 camangx=g_PlayerAngX
 camangy=g_PlayerAngY
 camangz=g_PlayerAngZ
 starttime=GetTimer(e)
end

if benchmarkended==0 then
SetSpriteColor ( logosp , 255 , 255, 255, alpha )

if g_PlayerAngX~=0 then
 camangx=0
end
if g_PlayerAngY~=camangy then
 g_PlayerAngY=camangy
end

control_count=control_count+1

alpha=alpha-0.5
if alpha<0 then
 alpha=0
end

--Text(0,30,6,control_count)

if control_count>500 and control_count<1200 then
 camangy=camangy-.05
 SetFreezeAngle(camangx,camangy,camangz)
end
if control_count>1550 and control_count<1800 then
 camangy=camangy-.05
 SetFreezeAngle(camangx,camangy,camangz)
end
if control_count>1900 and control_count<2400 then
 camangy=camangy-.005
 SetFreezeAngle(camangx,camangy,camangz)
end
if control_count>2700 and control_count<3250 then
 camangy=camangy-.05
 SetFreezeAngle(camangx,camangy,camangz)
end
if control_count>5100 and control_count<5600 then
 camangy=camangy+.1
 SetFreezeAngle(camangx,camangy,camangz)
end
if control_count>6300 and control_count<6750 then
 camangy=camangy+.05
 SetFreezeAngle(camangx,camangy,camangz)
end
if control_count>7300 and control_count<7400 then
 camangy=camangy+.05
 SetFreezeAngle(camangx,camangy,camangz)
end
if control_count>8200 and control_count<8700 then
 camangy=camangy+.1
 SetFreezeAngle(camangx,camangy,camangz)
end
if control_count>8800 and control_count<9150 then
 camangy=camangy+.1
 SetFreezeAngle(camangx,camangy,camangz)
end
if control_count>10600 and control_count<10800 then
 camangy=camangy+.05
 SetFreezeAngle(camangx,camangy,camangz)
end
if control_count>11500 and control_count<11900 then
 camangy=camangy+.2
 SetFreezeAngle(camangx,camangy,camangz)
end
if control_count>12000 and control_count<12350 then
 camangy=camangy-.2
 SetFreezeAngle(camangx,camangy,camangz)
end
if control_count>12500 and control_count<12800 then
 camangy=camangy-.1
 SetFreezeAngle(camangx,camangy,camangz)
end
if control_count>endtest then
 benchmarkended=1
 DeleteSprite(progressbarbacksp)
 DeleteSprite(progressbarsp)
end

 camx=g_PlayerPosX
 camz=g_PlayerPosZ
 camx = camx+math.sin(g_PlayerAngY/180*3.142)*-range
 camz = camz+math.cos(g_PlayerAngY/180*3.142)*-range
 camy = GetTerrainHeight(camx,camz)+150

  --camx=g_PlayerPosX+(math.sin(math.rad(g_PlayerAngY))*range)
  --camz=g_PlayerPosZ+(math.cos(math.rad(g_PlayerAngY))*range)
  --camy=GetTerrainHeight(playerposx,playerposz)

--Prompt(math.floor(camx).."   -   "..math.floor(camy).."   -   "..math.floor(camz))
--Text(0,20,6,math.floor(g_PlayerPosX).."    "..math.floor(g_PlayerPosY).."    "..math.floor(g_PlayerPosZ))

SetFreezePosition(camx,camy,camz)
SetFreezeAngle(camangx,camangy,camangz)

TransportToFreezePosition()

if control_count>1000 and control_count<1002 then
 performancecheck=GetTimer(e)
 if performancecheck-starttime<55000 then
  SetSpriteColor ( progressbarsp , 0 , 255, 0, 255 )
  display="Uber PC"
 end
 if performancecheck-starttime>55000 and performancecheck-starttime<60000 then
  SetSpriteColor ( progressbarsp , 220 , 166, 66, 255 )
  display="Fast PC"
 end
 if performancecheck-starttime>60000 and performancecheck-starttime<65000 then
  SetSpriteColor ( progressbarsp , 230 , 176, 66, 255 )
  display="Good PC"
 end
 if performancecheck-starttime>65000 and performancecheck-starttime<70000 then
  SetSpriteColor ( progressbarsp , 255 , 176, 66, 255 )
  display="Medium PC"
 end
 if performancecheck-starttime>70000 then -- and performancecheck-starttime<50000 then
  SetSpriteColor ( progressbarsp , 255 , 0, 0, 255 )
  display="Slow PC"
 end
end

TextCenterOnX(50,90,6,display)
currenttimetot=GetTimer(e)
currenttime=currenttimetot-starttime
--Text(0,50,6,currenttime)

SetSpriteSize ( progressbarsp , (control_count)/500 , 3 )
if benchmarkended==1 then
 DeactivateMouse()
 endtime=GetTimer(e)
 totaltime=(endtime-starttime)/1000
end

end

if benchmarkended==1 then
 score=(endtest/totaltime)*100
 --center=GetDeviceWidth()*.5
 TextCenterOnX(50,10,6,"RPGMark "..score)
end

end