Multi Timebot

[Roy]

Wondering if anyone can translate this cool script by Gadget into a LUA one. And that it shows all the different times on every hour in main :)  if this can be done it would be great, i think many would love such a script.

Roy

'Time&Date by Gadget
Dim sBotName,bShowTimeOnLogon,iShowTimeOnMainInterval,iTicker

Sub Main
  sBotName="Timekeeper"
  bShowTimeOnLogon=True
  iShowTimeOnMainInterval=0 '<- In minutes, 0=Disabled
  tmrScriptTimer.Interval = 60000
  tmrScriptTimer.Enabled = True
  iTicker=iShowTimeOnMainInterval
End Sub

Sub NewUserConnected(curUser)
  curUser.PrivateMessage cStr(sBotName),CStr("Welcome to "+frmHub.txtName+vbCrLf+DZ+" "+TZ(True)+vbCrLf+"If you need the time just type +time in main and if you need date just type +date in main")
End Sub

Sub OpConnected(curUser)
  Call NewUserConnected(curUser)
End Sub

Sub tmrScriptTimer_Timer()
  iTicker=iTicker+1
  If iTicker>iShowTimeOnMainInterval Then
    iTicker=0
    If iShowTimeOnMainInterval>0 Then
      colUsers.SendChatToAll cStr(sBotName),CStr(TZ(False))
    End If
  End If
End Sub

Sub DataArival(curUser,sCurData)
  If Left(sCurData,1)="<" Then
    If LCase(Right(sCurData,7))="> +time" Then
      colUsers.SendChatToAll cStr(sBotName),CStr(TZ(True))
    End If
    If LCase(Right(sCurData,7))="> +date" Then
      colUsers.SendChatToAll cStr(sBotName),CStr(DZ)
    End If
  End If
End Sub

Function TZ(bLong)
  Set wshShell=CreateObject("WScript.Shell")
  iBias=wshShell.RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\TimeZoneInformation\ActiveTimeBias")
  sTZ=CStr(Abs(iBias)Mod 60)
  If Len(sTZ)<2 Then sTZ=CStr(Int(Abs(iBias)/60))+":0"+sTZ Else sTZ=CStr(Int(Abs(iBias)/60))+":"+sTZ
  If iBias>0 Then sTZ="-"+sTZ Else sTZ="+"+sTZ
  TZ=TZ+"Time in hub is now "+FormatDateTime(Now,vbShortTime)+" ("+sTZ+" GMT)."
  If bLong Then
    TZ=TZ+vbCrLF+"Time is now "
    TZ=TZ+FormatDateTime(DateAdd("n",iBias+12*60,Now),vbShortTime)+" in Fiji, "
    TZ=TZ+FormatDateTime(DateAdd("n",iBias+9*60,Now),vbShortTime)+" in Tokyo, "
    TZ=TZ+FormatDateTime(DateAdd("n",iBias+10*60,Now),vbShortTime)+" in Sydney, "
    TZ=TZ+FormatDateTime(DateAdd("n",iBias+4*60,Now),vbShortTime)+" in Moscow, "
    TZ=TZ+FormatDateTime(DateAdd("n",iBias+1*60,Now),vbShortTime)+" in London, "
    TZ=TZ+FormatDateTime(DateAdd("n",iBias-5*60,Now),vbShortTime)+" in Jamaica, "
    TZ=TZ+FormatDateTime(DateAdd("n",iBias-6*60,Now),vbShortTime)+" in Middle America and "
    TZ=TZ+FormatDateTime(DateAdd("n",iBias+2*60,Now),vbShortTime)+" in Oslo."
  End If
End Function

Function DZ
  DZ="Today is "+FormatDateTime(Now,vbLongDate)+"."
End Function

[pHaTTy]

can you edit it and put

code here

like that plzz otherwise i cant read it properly, confiusing :)



-phatty

[[NL]Pur]

phatty is script won't run in ptokax since it's vb ;)

[pHaTTy]

i know i just like to read the code ;)