Advertisement
Xzempt

Untitled

Jun 3rd, 2013
49
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  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.  
  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 <xtc_blitz@hotmail.com> Loaded"
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement