Игростроение - Создание игр

EnterToServer$=Input ("КАКОЙ ИП НУЖНО ВВОДИТЬ??????????")

Type ListFiles
Field File_Name$
Field File_Size
Field Loaded
End Type

Global ServerIP$=EnterToServer$
Global PortCom=8880
Global PortDat=8881
Global file=0

Global CliCom=OpenTCPStream (ServerIP,PortCom)
If Not CliCom Then Print "CliCom error." : WaitKey() : End
Print "CliCom is connected."

Global CliDat=OpenTCPStream (ServerIP,PortDat)
If Not CliDat Then Print "CliDat error." : WaitKey() : End
Global ServDataSteam$=ReadLine(CliDat)
Print "CliDat is connected. ServDataSteam="+ServDataSteam

WriteLine(CliCom,"Get File List")

Print " "
Print "To download files press F2."
Print " "

While Not KeyHit(1)

If ReadAvail(CliCom)>1 Then
S$=ReadLine(CliCom)
If Left(S,6)="#file=" Then
temp=Instr(s,"&")
LF.ListFiles=New ListFiles
LF\File_Name=Mid(s,7,temp-7)
LF\File_Size=Int(Mid(s,temp+1))
LF\loaded=0
Print LF\File_Name+" - "+LF\File_Size
EndIf
End If

x=ReadAvail(CliDat)
If x>0 Then
bnk=CreateBank(x)
ReadBytes(bnk,CliDat,0,x)

LF.ListFiles = First ListFiles

WriteBytes(bnk,file,0,x)

LF\Loaded=LF\Loaded+x
Print "Loaded : "+LF\Loaded + " from : "+ LF\file_size
FreeBank bnk

If LF\Loaded=LF\file_size Then
CloseFile(file)
Print "File "+LF\File_Name+ " downloaded."
Delete LF
Print " "

loadfile()
EndIf
End If

If KeyHit (60) Then
loadfile()
EndIf
Wend
End

Function loadfile()
LF.ListFiles = First ListFiles
If LF=Null Then
Print "File List is empty."
Else
If LF\Loaded=0 Then
WriteLine(CliCom,"GetFile="+LF\File_Name+"&"+ServDataSteam)
Print "GetFile = "+LF\File_Name
file=WriteFile("Downloaded\"+LF\File_Name)
Else
Print "File "+LF\File_Name+" loading now."
EndIf
End If
End Function