$UserCommand script

Which hub software is the best? Where can I find script XXX? Discuss it here...(no, this is not for advertising your hub...)

Moderator: Moderators

Locked
Gadget
Posts: 62
Joined: 2003-01-11 06:24
Location: Finland
Contact:

$UserCommand script

Post by Gadget » 2003-10-29 23:33

Here are basic scripts for usual default commands for $UserCommand extension (will work right-clicking the userlist or hub tab with DC++ 0.301 or newer):

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
PtokaX:

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
Shadows DC Hub:

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

Gadget
Posts: 62
Joined: 2003-01-11 06:24
Location: Finland
Contact:

Post by Gadget » 2003-10-29 23:53

Damn &# -escapes... Scripts can be downloaded here, copypaste from this page will not work!

InnerCity
Posts: 105
Joined: 2003-05-17 00:35

Post by InnerCity » 2003-10-30 06:47

it works for me
if you are using the dc++301 (dont know other versions) the name of the bot must be written with no <,>, ie, To: 0-Cancerbero, but not To: <0-Cancerbero>, and check PM command type
Hi hi hoo

InnerCity
Posts: 105
Joined: 2003-05-17 00:35

Post by InnerCity » 2003-10-30 12:29

InnerCity wrote: if you are using the dc++301 (dont know other versions) the name of the bot must be written with no <,>, ie, To: 0-Cancerbero, but not To: <0-Cancerbero>, and check PM command type
O_O sorry, i say this if you want a private working of commands (may dont want people see the way you and your bot conspire), but then first must introduce them manually

¿is there a way to add private commands in the script (so i will know that is working with all my opers)?, gadget?
Hi hi hoo

Gadget
Posts: 62
Joined: 2003-01-11 06:24
Location: Finland
Contact:

Post by Gadget » 2003-10-30 13:27

InnerCity wrote:
InnerCity wrote: is there a way to add private commands in the script (so i will know that is working with all my opers)?, gadget?
Sure, they are raw commands, so you can do almost anything:
"$UserCommand 1 6 Kick$$To: %[nick] From: %[mynick] $<%[mynick]> You are being kicked!|$Kick %[nick]||"

Check wiki for more info.

InnerCity
Posts: 105
Joined: 2003-05-17 00:35

Post by InnerCity » 2003-10-30 13:55

thanks, using this to manage the hub privately with the bot

Code: Select all

curUser.SendData "$UserCommand 1 3 Userinfo(private)$$To: NameOfTheBot From: %[mynick] $<%[mynick]> userinfo %[nick]|"
Hi hi hoo

Locked