-- LUA Script - precede every function and global member with lowercase name of script + '_main'
-- Water level edit by Dvader

function waterheighttester_init(e)
waterlevel_start=602
waterlevel_end=630
waterlevel_current=waterlevel_start
waterspeed=.01
count=0
startwater=0

wavelength=0
loading=0
save=0
end

function waterheighttester_main(e)

 diff=waterlevel_end-waterlevel_start
 wavelength=diff

 Text(0,0,6,"Waterlevel start "..waterlevel_start.."   + key Raise - key Lower")
 Text(0,3,6,"Waterlevel   end "..waterlevel_end.."   PGUP key Raise  PGDN key Lower")
 Text(0,6,6,"Waterspeed "..waterspeed.."   [ key to increase, ] key to decrease")
 Text(0,9,6,"Current water level "..waterlevel_current.." "..startwater)

 Text(0,60,6,"Press Enter key to start water")
 Text(0,63,6,"Press Shift key to stop water")
 Text(0,66,6,"Press P key to save water stats")
 Text(0,69,6,"Press Z key to load water stats")

 if GetKeyState(13)==1 then
  waterlevel_current=waterlevel_current+1
  waterlevel_start=waterlevel_start+1
 end
 if GetKeyState(12)==1 then
  waterlevel_current=waterlevel_current-1
  waterlevel_start=waterlevel_start-1
 end
 if GetKeyState(201)==1 then
  waterlevel_end=waterlevel_end+1
 end
 if GetKeyState(209)==1 then
  waterlevel_end=waterlevel_end-1
 end
 if GetKeyState(27)==1 then
  waterspeed=waterspeed+.0001
 end
 if GetKeyState(26)==1 then
  waterspeed=waterspeed-.0001
  if waterspeed<0 then
   waterspeed=0
  end
 end

 if GetKeyState(28)==1 and startwater==0 then
  startwater=1
 end
 if GetKeyState(54)==1 and startwater>0 then
  startwater=0
  waterlevel_current=waterlevel_start
 end


 if startwater==1 then
  count=count+waterspeed
  waterlevel_current=(math.sin(count)*wavelength)+waterlevel_start+wavelength
 end
 SetGamePlayerStateWaterlineY(waterlevel_current)

if GetKeyState(44)==1 and loading==0 then
 loading=1
end

if GetKeyState(25)==1 and save==0 then
 save=1
end

if loading==1 then
  file = io.open("waterstats.dat", "r")
  io.input(file)
  io.output(file)
  waterlevel_start=io.read("*number")
  waterlevel_end=io.read("*number")
  waterspeed=io.read("*number")
  wavelength=io.read("*number")

  io.close(file)
  loading=0
end


if save==1 then
  file = io.open("waterstats.dat", "w")
  io.input(file)
  io.output(file)
  io.write(waterlevel_start," ",waterlevel_end," ",waterspeed," ",wavelength)
  io.close(file)
  
  save=0
end


end