Advertisement
Xzempt

Untitled

Jun 3rd, 2013
53
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. # Command Bindings
  2.  
  3. bind pub -|- ~commands proc_commands
  4. bind pub -|- !bj proc_blackjackcommands
  5. bind pub -|- !coin_and_roll proc_coindandrollcommands
  6. bind pub -|- !fightcmds proc_fightcommands
  7. bind pub -|- !holdemcmds proc_holdemcommands
  8. bind pub -|- !fishing_and_hunting proc_fishingandhuntingcommands
  9. bind pub -|- !unocmds proc_unocommands
  10. bind pub -|- !misc_cmds proc_misccommands
  11. bind pub -|- !bot_mastercmds proc_bot_master
  12. bind pub -|- !auto_opcmds proc_auto_op
  13. # Commands Process
  14.  
  15. proc proc_commands { nick uhost hand chan text } {
  16. if {[matchattr $hand m|m $chan]} {
  17. putquick "NOTICE $nick :You Are Currently Bot Master, And Have Access To The Following Commands"
  18. proc_listcommands $nick $uhost $hand $chan
  19. return 0
  20. } elseif {[matchattr $hand o|o $chan]} {
  21. putquick "NOTICE $nick :You Are Currently Auto-Op, And Have Access To The Following Commands"
  22. proc_listcommands $nick $uhost $hand $chan
  23. return 0
  24. } else {
  25. putquick "NOTICE $nick :You Are A Basic User, And Have Access To The Following Commands"
  26. proc_listcommands $nick $uhost $hand $chan
  27. return 0
  28. }
  29. }
  30. proc proc_listcommands { nick uhost hand chan } {
  31. global botnick
  32. putquick "NOTICE $nick :\002!bj - Commands for Blackjack\002"
  33. putquick "NOTICE $nick :\002!coin_and_roll - Commands for Coin and Roll\002"
  34. putquick "NOTICE $nick :\002!fightcmds - Commands for Fight\002"
  35. putquick "NOTICE $nick :\002!holdemcmds - Texas Holdem Commands\002"
  36. putquick "NOTICE $nick :\002!fishing_and_hunting - Fishing & Hunting Commands\002"
  37. putquick "NOTICE $nick :\002!unocmds - Uno Commands\002"
  38. putquick "NOTICE $nick :\002!misc_cmds - Miscellaneous Commands\002"
  39. if {[matchattr $hand m|m $chan]} {
  40. putquick "NOTICE $nick :\002!bot_mastercmds - Bot Master Commands\002"
  41. }
  42. if {[matchattr $hand o|o $chan]} {
  43. putquick "NOTICE $nick :\002!auto_opcmds - Auto op Commands\002"
  44. }
  45. }
  46. proc proc_auto_op { nick uhost hand chan text } {
  47. if {[matchattr $hand o|o $chan]} {
  48. putquick "NOTICE $nick :\002AUTO-OP COMMANDS\002"
  49. putquick "NOTICE $nick :~commands\002 - Kinda Obvious Don't Ya Think.."
  50. putquick "NOTICE $nick :~opme\002 - Have The Bot Op You"
  51. putquick "NOTICE $nick :~deopme\002 - Have The Bot De-Op You"
  52. putquick "NOTICE $nick :~op <nickname>\002 - Have The Bot Op Someone"
  53. putquick "NOTICE $nick :~deop <nickname>\002 - Have Tbe Bot DeOp Someone"
  54. putquick "NOTICE $nick :~whois <nickname>\002 - Find Out If The Nickname Is In The Bots User Database"
  55. putquick "NOTICE $nick :~kick <nickname>\002 - Have The Bot To A Quick Kick Of Nickname"
  56. putquick "NOTICE $nick :~ban <nickname>\002 - Have The Bot Do A Quick Kick/Ban Of Nickname"
  57. putquick "NOTICE $nick :~server\002 - Find Out What Server:Port The Bot Is On"
  58. putquick "NOTICE $nick :~lc\002 - Lock The Channel To Prevent Flooding"
  59. putquick "NOTICE $nick :~uc\002 - Unlock The Channel"
  60. putquick "NOTICE $nick :\002END OF AUTO-OP COMMANDS\002"
  61. }
  62. }
  63.  
  64. proc proc_bot_master { nick uhost hand chan text } {
  65. if {[matchattr $hand m|m $chan]} {
  66. putquick "NOTICE $nick :\002BOT MASTER COMMANDS\002"
  67. putquick "NOTICE $nick :~addop <nickname>\002 - Add The Nickname To The Bots Auto-Op List"
  68. putquick "NOTICE $nick :~delop <nickname>\002 - Remove The Nickname From The Bots Auto-Op List"
  69. putquick "NOTICE $nick :~adduser <nickname>\002 - Add User To The User Database With Default Flags"
  70. 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"
  71. putquick "NOTICE $nick :~jump <server>\002 - Forces The Bot To Change Servers To Server Entered"
  72. putquick "NOTICE $nick :~update\002 - Manually Update The Stats Site"
  73. putquick "NOTICE $nick :~gban <nickname>\002 - Add A Global Ban To The Bots Internal Ban List (ie: akick)"
  74. putquick "NOTICE $nick :\002END OF BOT MASTER COMMANDS"
  75. }
  76. }
  77.  
  78.  
  79. proc proc_blackjackcommands { nick uhost hand chan text } {
  80. global botnick
  81. putquick "NOTICE $nick :\002BLACKJACK COMMANDS\002 (must have more than 1 player to play)"
  82. putquick "NOTICE $nick :\002?blackjack on\002 - turn on blackjack in the channel (must be bot owner)"
  83. putquick "NOTICE $nick :\002?blackjack off\002 - turn off blackjack in the channel (must be bot owner)"
  84. putquick "NOTICE $nick :\002?blackjack\002 - start a game"
  85. putquick "NOTICE $nick :\002?blackjack stats\002 - get channel stats for blackjack"
  86. putquick "NOTICE $nick :\002?blackjack version\002 - shows the blackjack script version"
  87. putquick "NOTICE $nick :\002?join\002 - join a game once started"
  88. putquick "NOTICE $nick :\002?card\002 - get a card"
  89. putquick "NOTICE $nick :\002?enough\002 - finish with what cards you have"
  90. putquick "NOTICE $nick :\002?stop\002 - ends the game (must be bot owner)"
  91.  
  92. }
  93.  
  94. proc proc_coindandrollcommands { nick uhost hand chan text } {
  95. global botnick
  96. putquick "NOTICE $nick :\002COIN AND ROLL COMMANDS\002"
  97. putquick "NOTICE $nick :\002!coin nick\002 - to flip a coin between you and another nick"
  98. putquick "NOTICE $nick :\002!coin nick1 nick2\002 - to flip a coin between the two named nicks"
  99. 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"
  100. putquick "NOTICE $nick :\002!roll nick\002 - command user will be the second player"
  101. putquick "NOTICE $nick :\002!roll -all\002 - rolls the dice for every user in the channel"
  102. putquick "NOTICE $nick :\002!roll <number of players>\002 - example !roll 14, will roll 14 random nicks in the channel"
  103.  
  104. }
  105.  
  106. proc proc_fightcommands { nick uhost hand chan text } {
  107. global botnick
  108. putquick "NOTICE $nick :\002FIGHT COMMANDS\002"
  109. putquick "NOTICE $nick :\002!fight nick\002 - starts a fight with the nick"
  110. putquick "NOTICE $nick :\002!fj or !jab\002 - setup a jab"
  111. putquick "NOTICE $nick :\002!fp or !punch\002 - setup a punch"
  112. putquick "NOTICE $nick :\002!fk or !kick\002 - setup a kick"
  113. putquick "NOTICE $nick :\002!fu or !uppercut\002 - setup an uppercut"
  114. putquick "NOTICE $nick :\002!fg or !guard\002 - use guard"
  115. putquick "NOTICE $nick :\002!fd or !dodge\002 - dodge the attack"
  116. putquick "NOTICE $nick :\002!fs or !suicide\002 - kamikaze"
  117. putquick "NOTICE $nick :\002!fstat\002 - show your fight stats"
  118. putquick "NOTICE $nick :\002!fversion\002 - shows the script version"
  119. putquick "NOTICE $nick :\002!fhis\002 - shows fight history"
  120.  
  121. }
  122.  
  123. proc proc_holdemcommands { nick uhost hand chan text } {
  124. global botnick
  125. putquick "NOTICE $nick :\002!HOLDEM POKER COMMANDS\002"
  126. putquick "NOTICE $nick :\002!holdem\002 - starts the game"
  127. putquick "NOTICE $nick :\002!join\002 - joins a started game"
  128. putquick "NOTICE $nick :\002!play\002 - use to start a game without waiting 60secs for others to join"
  129. putquick "NOTICE $nick :\002call\002"
  130. putquick "NOTICE $nick :\002check\002"
  131. putquick "NOTICE $nick :\002raise amount\002 - use to raise the bet, ie. raise 20 or raise all-in"
  132. putquick "NOTICE $nick :\002fold\002 - give up on the current hand being played"
  133. putquick "NOTICE $nick :\002cards\002 - shows your current hand"
  134. putquick "NOTICE $nick :\002!endgame\002 - stops the game"
  135.  
  136. }
  137.  
  138. proc proc_fishingandhuntingcommands { nick uhost hand chan text } {
  139. global botnick
  140. putquick "NOTICE $nick :\002FISHING AND HUNTING COMMANDS\002"
  141. putquick "NOTICE $nick :\002!hunt\002 - try and hunt something"
  142. putquick "NOTICE $nick :\002!cast\002 - try to catch a fish"
  143. putquick "NOTICE $nick :\002!trophy\002 - shows current record holders"
  144.  
  145. }
  146.  
  147. proc proc_unocommands { nick uhost hand chan text} {
  148. global botnick
  149. putquick "NOTICE $nick :\002UNO COMMANDS\002"
  150. putquick "NOTICE $nick :\002!uno\002 - starts a game of uno"
  151. putquick "NOTICE $nick :\002join\002 - join a game"
  152. putquick "NOTICE $nick :\002!remove\002 - remove yourself from a game in progress"
  153. putquick "NOTICE $nick :\002time\002 - shows how long the current game has been running"
  154. putquick "NOTICE $nick :\002order\002 - shows the order of players"
  155. putquick "NOTICE $nick :\002hand\002 - shows your current cards"
  156. putquick "NOTICE $nick :\002turn\002 - shows whos turn it is to play a card"
  157. putquick "NOTICE $nick :\002players\002 - shows the list of players in the current game"
  158. putquick "NOTICE $nick :\002play\002 - play a card. to play a yellow 2 you would type play y 2"
  159. putquick "NOTICE $nick :\002card\002 - shows the current card in play"
  160. putquick "NOTICE $nick :\002draw\002 - draw a card if you have nothing to use"
  161. putquick "NOTICE $nick :\002color\002 - used with WILD and WILD DRAW FOUR, usage is color yellow or color red etc."
  162. putquick "NOTICE $nick :\002pass\002 - use after drawing a card if you didnt pick up something you could use"
  163. putquick "NOTICE $nick :\002count\002 - shows how many cards each player has left in their hand"
  164. putquick "NOTICE $nick :\002!unowon\002 - shows how many games you have won"
  165. putquick "NOTICE $nick :\002!unotop10\002 - shows the top 10 players"
  166. putquick "NOTICE $nick :\002!unorules\002 - shows the rules for gameplay"
  167.  
  168. }
  169.  
  170. proc proc_misccommands { nick uhost hand chan text } {
  171. global botnick
  172. putquick "NOTICE $nick :\002MISC COMMANDS\002"
  173. putquick "NOTICE $nick :\002!pastlife\002 - usage is !pastlife month day year ie. !pastlife 9 17 1982"
  174. putquick "NOTICE $nick :\002!morbid\002 - will display a random morbid fact"
  175. putquick "NOTICE $nick :\002!fact\002 - will display a random fact"
  176. putquick "NOTICE $nick :\002!timebomb nick\002 - timebombs the nickname with random number of wires and time, user must cutwire color to save themselves"
  177. putquick "NOTICE $nick :\002trivia\002 - toggles start and stop of trivia game"
  178. putquick "NOTICE $nick :\002END OF BASIC USER COMMANDS\002"
  179.  
  180. }
  181.  
  182.  
  183. putlog "*** Op Commands by xTc^bLiTz <xtc_blitz@hotmail.com> Loaded"
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement