SHOW:
|
|
- or go back to the newest paste.
| 1 | ||
| 2 | PASTEBIN | #1 paste tool since 2002 | |
| 3 | ||
| 4 | create new paste | |
| 5 | tools | |
| 6 | api | |
| 7 | archive | |
| 8 | faq | |
| 9 | ||
| 10 | PASTEBIN | |
| 11 | create new paste trending pastes | |
| 12 | ||
| 13 | Hi, Xzempt | |
| 14 | my pastebin | |
| 15 | my alerts | |
| 16 | my settings | |
| 17 | my profile | |
| 18 | logout | |
| 19 | Go PRO | |
| 20 | ||
| 21 | Don't like ads? PRO users don't see any ads ;-) | |
| 22 | My Pastes | |
| 23 | ||
| 24 | Untitled9 min ago | |
| 25 | Untitled11 min ago | |
| 26 | Untitled21 min ago | |
| 27 | Untitled39 min ago | |
| 28 | Untitled42 min ago | |
| 29 | Untitled57 min ago | |
| 30 | Untitled1 hour ago | |
| 31 | Untitled1 hour ago | |
| 32 | ||
| 33 | 0 | |
| 34 | 0 | |
| 35 | Guest | |
| 36 | Untitled | |
| 37 | By: Xzempt on Jun 3rd, 2013 | syntax: None | size: 10.33 KB | hits: 12 | expires: Never | |
| 38 | edit | delete | download | raw | embed | report abuse | print | |
| 39 | This paste has a previous version, view the difference. | |
| 40 | ||
| 41 | # Command Bindings | |
| 42 | - | if {[matchattr $hand o|o $chan]} {
|
| 42 | + | |
| 43 | bind pub -|- ~commands proc_commands | |
| 44 | bind pub -|- !bj proc_blackjackcommands | |
| 45 | bind pub -|- !coin_and_roll proc_coindandrollcommands | |
| 46 | bind pub -|- !fightcmds proc_fightcommands | |
| 47 | bind pub -|- !holdemcmds proc_holdemcommands | |
| 48 | bind pub -|- !fishing_and_hunting proc_fishingandhuntingcommands | |
| 49 | bind pub -|- !unocmds proc_unocommands | |
| 50 | bind pub -|- !misc_cmds proc_misccommands | |
| 51 | bind pub -|- !bot_mastercmds proc_bot_master | |
| 52 | bind pub -|- !auto_opcmds proc_auto_op | |
| 53 | # Commands Process | |
| 54 | ||
| 55 | proc proc_commands { nick uhost hand chan text } {
| |
| 56 | if {[matchattr $hand m|m $chan]} {
| |
| 57 | putquick "NOTICE $nick :You Are Currently Bot Master, And Have Access To The Following Commands" | |
| 58 | proc_listcommands $nick $uhost $hand $chan | |
| 59 | return 0 | |
| 60 | } elseif {[matchattr $hand o|o $chan]} {
| |
| 61 | putquick "NOTICE $nick :You Are Currently Auto-Op, And Have Access To The Following Commands" | |
| 62 | proc_listcommands $nick $uhost $hand $chan | |
| 63 | return 0 | |
| 64 | } else {
| |
| 65 | putquick "NOTICE $nick :You Are A Basic User, And Have Access To The Following Commands" | |
| 66 | proc_listcommands $nick $uhost $hand $chan | |
| 67 | return 0 | |
| 68 | } | |
| 69 | } | |
| 70 | proc proc_listcommands { nick uhost hand chan } {
| |
| 71 | global botnick | |
| 72 | putquick "NOTICE $nick :\002!bj - Commands for Blackjack\002" | |
| 73 | putquick "NOTICE $nick :\002!coin_and_roll - Commands for Coin and Roll\002" | |
| 74 | putquick "NOTICE $nick :\002!fightcmds - Commands for Fight\002" | |
| 75 | putquick "NOTICE $nick :\002!holdemcmds - Texas Holdem Commands\002" | |
| 76 | putquick "NOTICE $nick :\002!fishing_and_hunting - Fishing & Hunting Commands\002" | |
| 77 | putquick "NOTICE $nick :\002!unocmds - Uno Commands\002" | |
| 78 | putquick "NOTICE $nick :\002!misc_cmds - Miscellaneous Commands\002" | |
| 79 | if {[matchattr $hand m|m $chan]} {
| |
| 80 | putquick "NOTICE $nick :\002!bot_mastercmds - Bot Master Commands\002" | |
| 81 | } elseif {[matchattr $hand o|o $chan]} {
| |
| 82 | putquick "NOTICE $nick :\002!auto_opcmds - Auto op Commands\002" | |
| 83 | } | |
| 84 | } | |
| 85 | proc proc_auto_op { nick uhost hand chan text } {
| |
| 86 | if {[matchattr $hand o|o $chan]} {
| |
| 87 | putquick "NOTICE $nick :\002AUTO-OP COMMANDS\002" | |
| 88 | putquick "NOTICE $nick :~commands\002 - Kinda Obvious Don't Ya Think.." | |
| 89 | putquick "NOTICE $nick :~opme\002 - Have The Bot Op You" | |
| 90 | putquick "NOTICE $nick :~deopme\002 - Have The Bot De-Op You" | |
| 91 | putquick "NOTICE $nick :~op <nickname>\002 - Have The Bot Op Someone" | |
| 92 | putquick "NOTICE $nick :~deop <nickname>\002 - Have Tbe Bot DeOp Someone" | |
| 93 | putquick "NOTICE $nick :~whois <nickname>\002 - Find Out If The Nickname Is In The Bots User Database" | |
| 94 | putquick "NOTICE $nick :~kick <nickname>\002 - Have The Bot To A Quick Kick Of Nickname" | |
| 95 | putquick "NOTICE $nick :~ban <nickname>\002 - Have The Bot Do A Quick Kick/Ban Of Nickname" | |
| 96 | putquick "NOTICE $nick :~server\002 - Find Out What Server:Port The Bot Is On" | |
| 97 | putquick "NOTICE $nick :~lc\002 - Lock The Channel To Prevent Flooding" | |
| 98 | putquick "NOTICE $nick :~uc\002 - Unlock The Channel" | |
| 99 | putquick "NOTICE $nick :\002END OF AUTO-OP COMMANDS\002" | |
| 100 | } | |
| 101 | } | |
| 102 | ||
| 103 | proc proc_bot_master { nick uhost hand chan text } {
| |
| 104 | if {[matchattr $hand m|m $chan]} {
| |
| 105 | putquick "NOTICE $nick :\002BOT MASTER COMMANDS\002" | |
| 106 | putquick "NOTICE $nick :~addop <nickname>\002 - Add The Nickname To The Bots Auto-Op List" | |
| 107 | putquick "NOTICE $nick :~delop <nickname>\002 - Remove The Nickname From The Bots Auto-Op List" | |
| 108 | putquick "NOTICE $nick :~adduser <nickname>\002 - Add User To The User Database With Default Flags" | |
| 109 | putquick "NOTICE $nick :~deluser <nickname>\002 - Remove A User From The Bots Database, Can Be Used If User Needs To Re-Register With The Bot" | |
| 110 | putquick "NOTICE $nick :~jump <server>\002 - Forces The Bot To Change Servers To Server Entered" | |
| 111 | putquick "NOTICE $nick :~update\002 - Manually Update The Stats Site" | |
| 112 | putquick "NOTICE $nick :~gban <nickname>\002 - Add A Global Ban To The Bots Internal Ban List (ie: akick)" | |
| 113 | putquick "NOTICE $nick :\002END OF BOT MASTER COMMANDS" | |
| 114 | } | |
| 115 | } | |
| 116 | ||
| 117 | ||
| 118 | proc proc_blackjackcommands { nick uhost hand chan text } {
| |
| 119 | global botnick | |
| 120 | putquick "NOTICE $nick :\002BLACKJACK COMMANDS\002 (must have more than 1 player to play)" | |
| 121 | putquick "NOTICE $nick :\002?blackjack on\002 - turn on blackjack in the channel (must be bot owner)" | |
| 122 | putquick "NOTICE $nick :\002?blackjack off\002 - turn off blackjack in the channel (must be bot owner)" | |
| 123 | putquick "NOTICE $nick :\002?blackjack\002 - start a game" | |
| 124 | putquick "NOTICE $nick :\002?blackjack stats\002 - get channel stats for blackjack" | |
| 125 | putquick "NOTICE $nick :\002?blackjack version\002 - shows the blackjack script version" | |
| 126 | putquick "NOTICE $nick :\002?join\002 - join a game once started" | |
| 127 | putquick "NOTICE $nick :\002?card\002 - get a card" | |
| 128 | putquick "NOTICE $nick :\002?enough\002 - finish with what cards you have" | |
| 129 | putquick "NOTICE $nick :\002?stop\002 - ends the game (must be bot owner)" | |
| 130 | ||
| 131 | } | |
| 132 | ||
| 133 | proc proc_coindandrollcommands { nick uhost hand chan text } {
| |
| 134 | global botnick | |
| 135 | putquick "NOTICE $nick :\002COIN AND ROLL COMMANDS\002" | |
| 136 | putquick "NOTICE $nick :\002!coin nick\002 - to flip a coin between you and another nick" | |
| 137 | putquick "NOTICE $nick :\002!coin nick1 nick2\002 - to flip a coin between the two named nicks" | |
| 138 | putquick "NOTICE $nick :\002!roll nick1 nick2 nick3\002 - list any two or more nicks as the players, can use +me or your nick to include yourself" | |
| 139 | putquick "NOTICE $nick :\002!roll nick\002 - command user will be the second player" | |
| 140 | putquick "NOTICE $nick :\002!roll -all\002 - rolls the dice for every user in the channel" | |
| 141 | putquick "NOTICE $nick :\002!roll <number of players>\002 - example !roll 14, will roll 14 random nicks in the channel" | |
| 142 | ||
| 143 | } | |
| 144 | ||
| 145 | proc proc_fightcommands { nick uhost hand chan text } {
| |
| 146 | global botnick | |
| 147 | putquick "NOTICE $nick :\002FIGHT COMMANDS\002" | |
| 148 | putquick "NOTICE $nick :\002!fight nick\002 - starts a fight with the nick" | |
| 149 | putquick "NOTICE $nick :\002!fj or !jab\002 - setup a jab" | |
| 150 | putquick "NOTICE $nick :\002!fp or !punch\002 - setup a punch" | |
| 151 | putquick "NOTICE $nick :\002!fk or !kick\002 - setup a kick" | |
| 152 | putquick "NOTICE $nick :\002!fu or !uppercut\002 - setup an uppercut" | |
| 153 | putquick "NOTICE $nick :\002!fg or !guard\002 - use guard" | |
| 154 | putquick "NOTICE $nick :\002!fd or !dodge\002 - dodge the attack" | |
| 155 | putquick "NOTICE $nick :\002!fs or !suicide\002 - kamikaze" | |
| 156 | putquick "NOTICE $nick :\002!fstat\002 - show your fight stats" | |
| 157 | putquick "NOTICE $nick :\002!fversion\002 - shows the script version" | |
| 158 | putquick "NOTICE $nick :\002!fhis\002 - shows fight history" | |
| 159 | ||
| 160 | } | |
| 161 | ||
| 162 | proc proc_holdemcommands { nick uhost hand chan text } {
| |
| 163 | global botnick | |
| 164 | putquick "NOTICE $nick :\002!HOLDEM POKER COMMANDS\002" | |
| 165 | putquick "NOTICE $nick :\002!holdem\002 - starts the game" | |
| 166 | putquick "NOTICE $nick :\002!join\002 - joins a started game" | |
| 167 | putquick "NOTICE $nick :\002!play\002 - use to start a game without waiting 60secs for others to join" | |
| 168 | putquick "NOTICE $nick :\002call\002" | |
| 169 | putquick "NOTICE $nick :\002check\002" | |
| 170 | putquick "NOTICE $nick :\002raise amount\002 - use to raise the bet, ie. raise 20 or raise all-in" | |
| 171 | putquick "NOTICE $nick :\002fold\002 - give up on the current hand being played" | |
| 172 | putquick "NOTICE $nick :\002cards\002 - shows your current hand" | |
| 173 | putquick "NOTICE $nick :\002!endgame\002 - stops the game" | |
| 174 | ||
| 175 | } | |
| 176 | ||
| 177 | proc proc_fishingandhuntingcommands { nick uhost hand chan text } {
| |
| 178 | global botnick | |
| 179 | putquick "NOTICE $nick :\002FISHING AND HUNTING COMMANDS\002" | |
| 180 | putquick "NOTICE $nick :\002!hunt\002 - try and hunt something" | |
| 181 | putquick "NOTICE $nick :\002!cast\002 - try to catch a fish" | |
| 182 | putquick "NOTICE $nick :\002!trophy\002 - shows current record holders" | |
| 183 | ||
| 184 | } | |
| 185 | ||
| 186 | proc proc_unocommands { nick uhost hand chan text} {
| |
| 187 | global botnick | |
| 188 | putquick "NOTICE $nick :\002UNO COMMANDS\002" | |
| 189 | putquick "NOTICE $nick :\002!uno\002 - starts a game of uno" | |
| 190 | putquick "NOTICE $nick :\002join\002 - join a game" | |
| 191 | putquick "NOTICE $nick :\002!remove\002 - remove yourself from a game in progress" | |
| 192 | putquick "NOTICE $nick :\002time\002 - shows how long the current game has been running" | |
| 193 | putquick "NOTICE $nick :\002order\002 - shows the order of players" | |
| 194 | putquick "NOTICE $nick :\002hand\002 - shows your current cards" | |
| 195 | putquick "NOTICE $nick :\002turn\002 - shows whos turn it is to play a card" | |
| 196 | putquick "NOTICE $nick :\002players\002 - shows the list of players in the current game" | |
| 197 | putquick "NOTICE $nick :\002play\002 - play a card. to play a yellow 2 you would type play y 2" | |
| 198 | putquick "NOTICE $nick :\002card\002 - shows the current card in play" | |
| 199 | putquick "NOTICE $nick :\002draw\002 - draw a card if you have nothing to use" | |
| 200 | putquick "NOTICE $nick :\002color\002 - used with WILD and WILD DRAW FOUR, usage is color yellow or color red etc." | |
| 201 | putquick "NOTICE $nick :\002pass\002 - use after drawing a card if you didnt pick up something you could use" | |
| 202 | putquick "NOTICE $nick :\002count\002 - shows how many cards each player has left in their hand" | |
| 203 | putquick "NOTICE $nick :\002!unowon\002 - shows how many games you have won" | |
| 204 | putquick "NOTICE $nick :\002!unotop10\002 - shows the top 10 players" | |
| 205 | putquick "NOTICE $nick :\002!unorules\002 - shows the rules for gameplay" | |
| 206 | ||
| 207 | } | |
| 208 | ||
| 209 | proc proc_misccommands { nick uhost hand chan text } {
| |
| 210 | global botnick | |
| 211 | putquick "NOTICE $nick :\002MISC COMMANDS\002" | |
| 212 | putquick "NOTICE $nick :\002!pastlife\002 - usage is !pastlife month day year ie. !pastlife 9 17 1982" | |
| 213 | putquick "NOTICE $nick :\002!morbid\002 - will display a random morbid fact" | |
| 214 | putquick "NOTICE $nick :\002!fact\002 - will display a random fact" | |
| 215 | putquick "NOTICE $nick :\002!timebomb nick\002 - timebombs the nickname with random number of wires and time, user must cutwire color to save themselves" | |
| 216 | putquick "NOTICE $nick :\002trivia\002 - toggles start and stop of trivia game" | |
| 217 | putquick "NOTICE $nick :\002END OF BASIC USER COMMANDS\002" | |
| 218 | ||
| 219 | } | |
| 220 | ||
| 221 | ||
| 222 | putlog "*** Op Commands by xTc^bLiTz <[email protected]> Loaded" |