Mirage Source

Option Explicit

Private Sub Form_Load()
Dim FileName As String
FileName = App.Path & "\config.ini"
txtIP = ReadINI("IPCONFIG", "IP", FileName)
txtPort = ReadINI("IPCONFIG", "PORT", FileName)
End Sub

Private Sub picCancel_Click()
frmMainMenu.Visible = True
frmIpconfig.Visible = False
End Sub

Private Sub picConfirm_Click()
Dim IP, Port As String
Dim fErr As Integer
Dim Texto As String

IP = txtIP
Port = Val(txtPort)

fErr = 0
If fErr = 0 And Len(Trim(IP)) = 0 Then
fErr = 1
Call MsgBox("Inform a correct IP.", vbCritical, GAME_NAME)
Exit Sub
End If
If fErr = 0 And Port <= 0 Then
fErr = 1
Call MsgBox("Inform a correct Port.", vbCritical, GAME_NAME)
Exit Sub
End If
If fErr = 0 Then
' Rec IP and Port
Call WriteINI("IPCONFIG", "IP", txtIP.Text, (App.Path & "\config.ini"))
Call WriteINI("IPCONFIG", "PORT", txtPort.Text, (App.Path & "\config.ini"))
End If
frmMainMenu.Visible = True
frmIpconfig.Visible = False
End Sub

Sub TcpInit()

Sub TcpInit()
SEP_CHAR = Chr(0)
END_CHAR = Chr(237)
PlayerBuffer = ""

Dim IP As String
Dim Port As String
Dim FileName As String
FileName = App.Path & "\config.ini"
If FileExist("config.ini") Then
IP = ReadINI("IPCONFIG", "IP", FileName)
Port = ReadINI("IPCONFIG", "PORT", FileName)
Else
IP = "0.0.0.0"
Port = 0
Call WriteINI("IPCONFIG", "IP", IP, (App.Path & "\config.ini"))
Call WriteINI("IPCONFIG", "PORT", Port, (App.Path & "\config.ini"))
End If
frmMirage.Socket.Close
frmMirage.Socket.RemoteHost = IP
frmMirage.Socket.RemotePort = Val(Port)
End Sub

Private Sub picIpConfig_Click()
frmIpconfig.Visible = True
Me.Visible = False
End Sub

Public Declare Function GetTickCount Lib "kernel32" () As Long

Private Sub picConfirm_Click()
Dim IP, Port As String
Dim fErr As Integer
Dim Texto As String

IP = txtIP
Port = Val(txtPort)

fErr = 0
If fErr = 0 And Len(Trim(IP)) = 0 Then
fErr = 1
Call MsgBox("Inform a correct IP.", vbCritical, GAME_NAME)
Exit Sub
End If
If fErr = 0 And Port <= 0 Then
fErr = 1
Call MsgBox("Inform a correct Port.", vbCritical, GAME_NAME)
Exit Sub
End If
If fErr = 0 Then
' Rec IP and Port
Call PutVar("IPCONFIG", "IP", txtIP.Text, (App.Path & "\config.ini"))
Call PutVar("IPCONFIG", "PORT", txtPort.Text, (App.Path & "\config.ini"))
End If
MsgBox ("Done!")
frmMainMenu.Visible = True
frmIpconfig.Visible = False
End Sub

Public Function GetVar(File As String, Header As String, Var As String) As String
Dim sSpaces As String   ' Max string length
Dim szReturn As String  ' Return default value if not found
 
    szReturn = ""
 
    sSpaces = Space(5000)
 
    Call GetPrivateProfileString(Header, Var, szReturn, sSpaces, Len(sSpaces), File)
 
    GetVar = RTrim(sSpaces)
    GetVar = Left(GetVar, Len(GetVar) - 1)
End Function

Public Sub PutVar(File As String, Header As String, Var As String, Value As String)
    Call WritePrivateProfileString(Header, Var, Value, File)
End Sub

Private Sub picConfirm_Click()
Dim IP, Port As String
Dim fErr As Integer
Dim Texto As String

IP = txtIP
Port = Val(txtPort)

fErr = 0
If fErr = 0 And Len(Trim(IP)) = 0 Then
fErr = 1
Call MsgBox("Inform a correct IP.", vbCritical, GAME_NAME)
Exit Sub
End If
If fErr = 0 And Port <= 0 Then
fErr = 1
Call MsgBox("Inform a correct Port.", vbCritical, GAME_NAME)
Exit Sub
End If
If fErr = 0 Then
' Rec IP and Port
Call PutVar(app.path & "\config.ini", "IPCONFIG", "IP", txtip.text)
Call PutVar(app.path & "\config.ini", "IPCONFIG", "PORT", txtport.text)
End If
MsgBox ("Done!")
frmMainMenu.Visible = True
frmIpconfig.Visible = False
End Sub