NMDCH+GeneralBot:
Code: Select all
' UserCommand extension script for NMDCH by Gadget
Sub OpConnected(curUser)
curUser.SendData "$UserCommand 255 7"
curUser.SendData "$UserCommand 0 3"
curUser.SendData "$UserCommand 1 3 *** "+CStr(frmHub.txtName)+" (NMDCH) ***$<%[mynick]> HubInfo|"
curUser.SendData "$UserCommand 1 1 Hub rules$<%[mynick]> Rules|"
curUser.SendData "$UserCommand 1 2 Show user info$$UserInfo %[nick]|"
curUser.SendData "$UserCommand 1 2 Drop user$<%[mynick]> Drop %[nick]|"
curUser.SendData "$UserCommand 1 2 Ban and kick user$$Kill %[nick] %[line:Enter a reason]|"
curUser.SendData "$UserCommand 1 2 Ban user name$$Ban %[nick]|"
curUser.SendData "$UserCommand 1 2 Ban user IP$$BanIP %[nick]|"
curUser.SendData "$UserCommand 1 1 Ban user name...$$Ban %[line:Enter a name] %[line:Enter a reason]|"
curUser.SendData "$UserCommand 1 1 Ban IP...$$BanIP %[line:Enter an IP]|"
curUser.SendData "$UserCommand 1 3 Unban user...$<%[mynick]> UnBan %[line:Enter a name or IP]|"
curUser.SendData "$UserCommand 1 3 Clear all temp bans$<%[mynick]> ClearTemp|"
curUser.SendData "$UserCommand 1 3 Find fake users$<%[mynick]> FindFake|"
curUser.SendData "$UserCommand 1 3 Help$<%[mynick]> Help|"
End Sub
Sub NewUserConnected(curUser)
curUser.SendData "$UserCommand 255 7"
curUser.SendData "$UserCommand 0 3"
curUser.SendData "$UserCommand 1 3 *** "+CStr(frmHub.txtName)+" (NMDCH) ***$<%[mynick]> HubInfo|"
curUser.SendData "$UserCommand 1 3 Hub rules$<%[mynick]> Rules|"
curUser.SendData "$UserCommand 1 3 Show share limits$<%[mynick]> Share|"
curUser.SendData "$UserCommand 1 3 Show my IP number$<%[mynick]> MyIP|"
curUser.SendData "$UserCommand 1 3 Show my information$<%[mynick]> MyInfo|"
curUser.SendData "$UserCommand 1 3 Help$<%[mynick]> Help|"
End Sub
Code: Select all
-- UserCommand extension script for PtokaX by Gadget
function NewUserConnected(curUser)
curUser:SendData("$UserCommand 255 7")
curUser:SendData("$UserCommand 0 3")
curUser:SendData("$UserCommand 1 3 *** "..frmHub:GetHubName().." (PtokaX) ***$<%[mynick]> +rules|")
curUser:SendData("$UserCommand 1 3 Hub rules$<%[mynick]> +rules|")
curUser:SendData("$UserCommand 1 3 Help$<%[mynick]> !help|")
end
function OpConnected(curUser)
curUser:SendData("$UserCommand 255 7")
curUser:SendData("$UserCommand 0 3")
curUser:SendData("$UserCommand 1 3 *** "..frmHub:GetHubName().." (PtokaX) ***$<%[mynick]> +rules|")
curUser:SendData("$UserCommand 1 1 Hub rules$<%[mynick]> +rules|")
curUser:SendData("$UserCommand 1 2 Show user IP$<%[mynick]> !ipinfo %[nick]|")
curUser:SendData("$UserCommand 1 2 Show user info$<%[mynick]> !getinfo %[nick]|")
curUser:SendData("$UserCommand 1 2 Show user history$<%[mynick]> !userinfo %[nick]|")
curUser:SendData("$UserCommand 1 2 Gag user$<%[mynick]> !gag %[nick]|")
curUser:SendData("$UserCommand 1 2 Ungag user$<%[mynick]> !ungag %[nick]|")
curUser:SendData("$UserCommand 1 2 Drop user$<%[mynick]> !drop %[nick]|")
curUser:SendData("$UserCommand 1 2 Ban and kick user$<%[mynick]> !ban %[nick] %[line:Enter a reason]|")
curUser:SendData("$UserCommand 1 2 Ban user$<%[mynick]> !nickban %[nick]|")
curUser:SendData("$UserCommand 1 1 Ban username...$$Ban %[line:Enter an ip to ban] %[line:Enter a reason]|")
curUser:SendData("$UserCommand 1 3 Ban IP...$<%[mynick]> !banip %[line:Enter an IP to ban]|")
curUser:SendData("$UserCommand 1 3 Unban user or ip...$<%[mynick]> !unban %[line:Enter an IP or name to unban]|")
curUser:SendData("$UserCommand 1 3 Clear all temp bans$<%[mynick]> !clrtempban|")
curUser:SendData("$UserCommand 1 1 Show ban list$<%[mynick]> !getbanlist|")
curUser:SendData("$UserCommand 1 1 Search IP$<%[mynick]> !ipinfo %[line:Enter an IP to search]|")
curUser:SendData("$UserCommand 1 1 Search IP range$<%[mynick]> !iprangeinfo %[line:Enter an IP range to search]|")
curUser:SendData("$UserCommand 1 3 Help$<%[mynick]> !help|")
end
Code: Select all
' UserCommand extension script for SDCH by Gadget
Sub UserConnected(curUser)
curUser.SendData "$UserCommand 255 7|"
curUser.SendData "$UserCommand 0 3|"
curUser.SendData "$UserCommand 1 3 *** "+CStr(Settings.HubName)+" ***$<%[mynick]> +rules||"
curUser.SendData "$UserCommand 1 3 Hub rules$<%[mynick]> +rules||"
curUser.SendData "$UserCommand 1 3 Help$<%[mynick]> +help||"
End Sub
Sub OpConnected(curUser)
curUser.SendData "$UserCommand 255 7|"
curUser.SendData "$UserCommand 0 3|"
curUser.SendData "$UserCommand 1 3 *** "+CStr(Settings.HubName)+" (SDCH) ***$<%[mynick]> +rules||"
curUser.SendData "$UserCommand 1 1 Hub rules$<%[mynick]> +rules||"
curUser.SendData "$UserCommand 1 2 Show user info$<%[mynick]> +info %[nick]||"
curUser.SendData "$UserCommand 1 2 Drop user$<%[mynick]> +close %[nick]||"
curUser.SendData "$UserCommand 1 2 Ban and kick user$<%[mynick]> +banuser %[nick] %[line:Enter a reason]||"
curUser.SendData "$UserCommand 1 2 Ban username$<%[mynick]> +ban %[nick]||"
curUser.SendData "$UserCommand 1 2 Ban and kick user...$<%[mynick]> +banuser %[line:Enter a name to kick and ban] %[line:Enter a reason]||"
curUser.SendData "$UserCommand 1 2 Ban username...$<%[mynick]> +ban %[line:Enter a name to ban]||"
curUser.SendData "$UserCommand 1 3 Unban name...$<%[mynick]> +unbanuser exact %[line:Enter a name to unban]||"
curUser.SendData "$UserCommand 1 3 Unban IP...$<%[mynick]> +unbanip partial perm %[line:Enter an IP to unban]||"
curUser.SendData "$UserCommand 1 3 Clear all temp bans$<%[mynick]> +unbanip purge temp||"
curUser.SendData "$UserCommand 1 3 Show double ip's$<%[mynick]> +ipscan||"
curUser.SendData "$UserCommand 1 3 Help$<%[mynick]> +help||"
End Sub