All pastes #963745 Raw Edit

Mine

public text v1 · immutable
#963745 ·published 2008-03-30 19:59 UTC
rendered paste body
Dim StartTime
Dim EndTime
Dim GameStatus
Dim TotalTime
GameStatus = False

Sub GameOn()
If GameStatus = False then
  StartTime = Date & " " & Time
  GameStatus = True
Else
  EndTime = Date & " " & Time
  GameStatus = False
  TotalTime =  DateDiff("s", StartTime, EndTime)
  SendCommand "/echo -a " & GetDuration(TotalTime)
End If

End Sub