Global GFX_Rx, GFX_Ry
GFX_Rx = 1024
GFX_Ry = 768

Graphics(GFX_Rx, GFX_Ry, 32, 1)

Dim HighMap#(GFX_Rx)
For x = 0 To GFX_Rx
   HighMap(x) = 50
Next

Global MousePosX, MousePosY
Global MouseKey1, MouseKey2

Global Radius = 80

SetBuffer(BackBuffer())
While(KeyHit(1) = False)
   
   ClsColor(119, 164, 177)
   Cls
   
   Color(100, 100, 255)
   Rect(0, GFX_Ry - 200, GFX_Rx, 200, 1)
   
   For x = 0 To GFX_Rx
      Color(128, 128, 128)
      Line(x, GFX_Ry, x, GFX_Ry - HighMap(x))
      If(HighMap(x) > 200) Color(100, 200, 0)
      If(HighMap(x) > 500) Color(255, 255, 255)
      Line(x, GFX_Ry - HighMap(x) + 10, x, GFX_Ry - HighMap(x))
      If(MouseDown(1))
         If(x > MousePosX - Radius / 2)
            If(x < MousePosX + Radius / 2)
               AngleAlpha# = x - MousePosX + Radius
               HighMap(x) =  HighMap(x) - Cos((AngleAlpha# / Radius) * 180) * 10
            EndIf
         EndIf
      EndIf
      If(MouseDown(2))
         HighMap(MousePosX) = 300
      EndIf
   Next
   
   If(KeyHit(64)) Load()
   If(KeyHit(63)) Save()
   
   UpdateMouse()
   
   Flip(False)
Wend
End

Function Save()
   file = WriteFile("maps/map1.map")
   For x = 0 To GFX_Rx
      WriteShort(file, HighMap(x))
   Next
   CloseFile(file)
End Function

Function Load()
   file = ReadFile("maps/map1.map")
   For x = 0 To GFX_Rx
      HighMap(x) = ReadShort(file)
   Next
   CloseFile(file)
End Function

Function UpdateMouse()
   MousePosX = MouseX()
   MousePosY = MouseY()
   MouseKey1 = MouseHit(1)
   MouseKey2 = MouseHit(2)
   
   Line(MousePosX - 10, MousePosY, MousePosX + 10, MousePosY)
   Line(MousePosX, MousePosY - 10, MousePosX, MousePosY + 10)
   
   Plot(MousePosX - Radius / 2, MousePosY)
   Plot(MousePosX + Radius / 2, MousePosY)
End Function