Please convert to lua

[??????Hawk??????]

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