Function Scale_Terrain()
For menge_terrains = 1 To terrainx
AddGadgetItem terrains_scale,"Terrain_"+ menge_terrains
Next
While SelectedGadgetItem(terrains_scale) < 0
Local x_rel = x
Local y_rel = y
Local z_rel = z
selected = SelectedGadgetItem(terrains_scale)
Wend

While done = 0
WaitEvent()
Select EventID()

Case $401
If EventSource() = button_x_plus x = x + 0.1
If EventSource() = button_x_minus x =  x - 0.1
If EventSource() = button_y_plus y = y + 0.1
If EventSource() = button_y_minus y = y - 0.1
If EventSource() = button_z_plus z = z + 0.1
If EventSource() = button_z_minus z = z - 0.1
If EventSource() = done_scale done = 1

Case $803
If EventSource() = mainwindow Then Menu_exit()

Case $1001
Select EventData()
Case 12 : Menu_Exit()
Case 23 : EnableGadget scale_TErrain_window ShowGadget scale_Terrain_window Scale_Terrain()

End Select
End Select
Wend
done = 0
WriteLine stream, "23"
SendUDPMsg stream,ip,send
WriteLine stream,selected+1
SendUDPMsg stream,ip,send
If x_rel <> x Then
WriteLine stream, "x"
SendUDPMsg stream, ip, send
EndIf
If y_rel <> y Then
WriteLine stream, "y"
SendUDPMsg stream, ip, send
EndIf
If z_rel <> z Then
WriteLine stream, "z"
SendUDPMsg stream, ip, send
EndIf
If ButtonState(button_Local) = 1 Then
WriteLine stream, "0"
Else
WriteLine stream, "1"
EndIf
SendUDPMsg stream,ip,send
If x_rel <> x
WriteLine stream, x
SendUDPMsg stream, ip, send
EndIf
If y_rel <> y
WriteLine stream, y
SendUDPMsg stream, ip, send
EndIf
If z_rel <> z
WriteLine stream, z
SendUDPMsg stream, ip, send 
EndIf
End Function

If instruction$ ="23" ;Terrain skalieren
            If RecvUDPMsg(stream_in)
            terrainnr = ReadLine(stream_in)
            EndIf
            If RecvUDPMsg(stream_in)
            Terrain_scale_x_y_z = ReadLine(stream_in)
            EndIf
            If RecvUDPMsg(stream_in)
            global_local = ReadLine(stream_in)
            EndIf
               If Terrain_scale_x_y_z = "x" Then
                  If RecvUDPMsg(stream_in)
                  scale_x = ReadLine(stream_in)
                  EndIf
               EndIf
               If Terrain_scale_x_y_z = "y" Then
                  If RecvUDPMsg(stream_in)
                  scale_y = ReadLine(stream_in)
                  EndIf
               EndIf
               If Terrain_scale_x_y_z = "z" Then
                  If RecvUDPMsg(stream_in)
                  scale_z = ReadLine(stream_in)
                  EndIf
               EndIf
               ScaleEntity Terrainsmax(terrainnr),scale_x,scale_y,scale_z,global_local
         EndIf