heya peeps heres a little script i did in vb
could someone please convert to lua.
Thx In Advance Hawk :)
' Passive - Active search By ??????Hawk??????
' Founder of ?"??.H?b? ????rp?r?T?d ??Tw?rk.??"? and
' ??????Hawks Network {UK}??????
' admin for Th? ? G?t?w?? ? ??twOrK
' hub addy :- hawks-universe.dynu.com
' web addy :- www.hawks-world.com
' email :- hawk@hawks-world.com
' Commands sent to bot :-
' +setip yourip:port - sets the ip and port for search
' +chkip - Check the ip/port info
'
Dim sMyIp
Dim sLength
Dim sBotName
Dim sUserName
Dim sCmdPrefix
Dim sSearchinfo
Dim sSearchdata
Dim saSearchinfo
Sub Main()
sBotName="Bob"
sCmdPrefix="+"
sMyIp="0.0.0.0:0"
sUserName="??????Hawk??????"
sSearchinfo="$Search " & sMyIp & " "
saSearchinfo="$Search Hub:" & sUserName & " "
sLength=Len(sSearchinfo)
frmHub.RegisterBotName(sBotName)
End Sub
Sub DataArival(curUser, sCurData)
sCmd=""
If left(scurdata,4)="$To:" then
sTo=BeforeFirst(AfterFirst(sCurData,"$To: ")," From:")
If sTo=CStr(sBotName) Then
If Left(sCurData,7)="$setip " Then
a=sCmdPrefix+LCase(Mid(CStr(sCurData),2))
Else
a=LCase(Mid(CStr(sCurData),InStr(CStr(sCurData),">")+2))
End If
If InStr(a," ") Then
sCmd=Left(a,InStr(a," ")-1)
sIpInfo=Mid(a,InStr(a," ")+1)
Else
sCmd=a
End If
End If
If Not sCmd = sCmdPrefix+"chkip" And sIPInfo = "" Then
sCmd="Error"
End If
End If
Select Case sCmd
Case sCmdPrefix+"setip"
If curuser.sName = sUserName and curUser.bOperator Then
sMyIp = sIpInfo
sSearchinfo = "$Search " & sMyIp & " "
sLength=Len(sSearchinfo)
curUser.PrivateMessage CStr(sBotName),"Your IP:Port is now set to "+CStr(sMyIp)+" You can now do active search in "+frmHub.txtName
End If
Case sCmdPrefix+"chkip"
If curuser.sName = sUserName and curUser.bOperator Then
curUser.PrivateMessage CStr(sBotName),"Your IP:Port is set to "+CStr(sMyIp)+" Use +setip YourIP:YourPort to change it. "
End If
Case "Error"
If a = sCmdPrefix+"setip" Then
If curuser.sName = sUserName and curUser.bOperator Then
curUser.PrivateMessage CStr(sBotName),"Please supply your IP:Port Eg. +setip 123.456.789.0:412 "
End If
End If
End Select
If left(sCurData,sLength) = sSearchinfo Then
sSearchdata = mid(sCurData,(sLength + 1))
For Each User in ColUsers
User.SendData (saSearchinfo & sSearchdata)
Next
End If
End Sub
Function BeforeFirst(sIn, sFirst)
BeforeFirst = Left(sIn, InStr(1, sIn, sFirst) - 1)
End Function
Function AfterFirst(sIn, sFirst)
AfterFirst = Right(sIn, Len(sIn) - InStr(1, sIn, sFirst) - (Len(sFirst) - 1))
End Function