Function twoinone(var1,var2)

 var1 = var1 * 65536
 da = var1 + var2
 Return(da)

End Function


Function twofromone(var,what)

 var2 = var And 65535
 var1 = (var-var2)/65536
 If what = 1 Then
  Return var1
 Else
  Return var2
 EndIf

End Function


file = ReadFile(\"sys.conf\")
ReadLine(file)
gix = ReadLine(file)
ReadLine(file)
giy = ReadLine(file)
ReadLine(file)
apptit$ = ReadLine(file)
ReadLine(file)
bildname$ = ReadLine(file)
ReadLine(file)
soundname$ = ReadFile(file)
CloseFile(file)

AppTitle(apptit$)
Graphics gix,giy,32,2

varr$ = Input(\"Gegen sie 1 ein um zu hosten, zum Joinen etwas anderes: \")

If varr$ = 1 Then
game = HostNetGame(\"game\")
Else
varr$ = Input(\"IP: \")
game = JoinNetGame(\"game\",varr$)
EndIf

If Not game Then
Print \"Error!\"
Print \"Die Sitzung wird beendet...\"
Delay(5000)
End
EndIf

Global spieler = CreateNetPlayer(\"player\")


bild = LoadImage(bildname$)
If soundname$ <> \"x\" Then 
sound = LoadSound(soundname$)
EndIf

SetBuffer BackBuffer()

Repeat

Cls

DrawBlock(bild,0,0)

If Not aktiv Then
 x = MouseX()
 y = MouseY()
 If MouseHit(1) Then
  hit = 1
  aktiv = 1
  timer = MilliSecs()
  packet = twoinone(x,y)
  SendNetMsg(1,packet,spieler)
 ElseIf MouseHit(2) Then
  hit = 2
  aktiv = 1
  timer = MilliSecs()
  packet = twoinone(x,y)
  SendNetMsg(2,packet,spieler)
 EndIf
Else
 If timer + 3000 >= MilliSecs() Then
  If hit = 1 Then
   Color(255,255,255)
  Else
   Color(0,0,0)
  EndIf
  Rect(x-6,y,13,1)
  Rect(x,y-6,1,13)
 Else
  aktiv = 0
  FlushMouse
 EndIf
EndIf


If Not aktivr Then
If RecvNetMsg() Then
 typer = NetMsgType()
 If typer <= 99 Then
  msg = NetMsgData()
  xr = twofromone(msg,1)
  yr = twofromone(msg,2)
  timerr = MilliSecs()
  aktivr = 1
  If soundname$ <> \"x\" Then
   PlaySound(sound)
  EndIf
 EndIf
EndIf
Else
 If timerr + 3000 >= MilliSecs() Then
  If typer = 1 Then
   Color(255,255,255)
  Else
   Color(0,0,0)
  EndIf
  Rect(xr-6,yr,13,1)
  Rect(xr,yr-6,1,13)
 Else
  aktivr = 0
 EndIf
EndIf

Flip
Until KeyHit(1)

End