Greet Script

[Reason]

This is a simple greet script to greet users by (This is also an example script)

Code: [Select]

Sub Event_Load()

    AddChat "Super Greet 1.0 is now loaded!"
    AddChat "Created by Reason, this is a better greet for Fail Bot"
End Sub

Sub Event_Join(Username)
SG_Message = "Welcome %0 to %h, %d | %t You ping at login is %p!"
'*Available Variables:
'*    &t ~ Time
'*    &d ~ Date
'*    &p ~ Ping
'*    &u ~ Username of person joining
'*    &b ~ Username of bot
'*    &c ~ Users Clan
'*    &a ~ Users Access
'*    &o ~ Users Position in channel
'*    &h ~ Bots Channel
'*    &u ~ Bots Channel Count
'*More to Come!
  JoinMessage = SG_Message
  JoinMessage = Replace(SG_Message, "%t", Time)
  JoinMessage = Replace(SG_Message, "%d", Date)
  JoinMessage = Replace(SG_Message, "%p", UserPing(Username))
  JoinMessage = Replace(SG_Message, "%u", Username)
  JoinMessage = Replace(SG_Message, "%b", BotName())
  JoinMessage = Replace(SG_Message, "%c", UserClan(Username))
  JoinMessage = Replace(SG_Message, "%a", UserAccess(Username))
  JoinMessage = Replace(SG_Message, "%o", UserPosition(Username))
  JoinMessage = Replace(SG_Message, "%h", BotChannel())
  JoinMessage = Replace(SG_Message, "%u", BotChanCount())
  AddQ JoinMessage
End Sub