This is a simple greet script to greet users by (This is also an example script)
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