API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Dec 25th, 2014
336
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 14.00 KB | None | 0 0
raw download clone embed print report
  1. # -------------------------------- --------------------------
  2. # | | |
  3. # | _ _ | Contact: |
  4. # | _ __ ___ (_) ___| |__ __ _ | |
  5. # | | '_ ` _ \| |/ __| '_ \ / _` | | IRC: #micha (QuakeNet) |
  6. # | | | | | | | | (__| | | | (_| | | Mail: micha@micha.es |
  7. # | |_| |_| |_|_|\___|_| |_|\__,_| | Web: www.micha.es |
  8. # | Productions | |
  9. # | | |
  10. # -------------------------------- --------------------------
  11.  
  12. # --------------------------------------------------------------------------
  13. # C H A N G E L O G
  14. # --------------------------------------------------------------------------
  15.  
  16. # ~> Version 1.0.0.1 (16.05.2006)
  17. # Fixed a little Bug (changed continue to return) (it makes trouble
  18. in the partyline)
  19.  
  20. # ~> Version 1.0.0.0 (26.03.2006)
  21. # Script released.
  22.  
  23. # --------------------------------------------------------------------------
  24. # E N G L I S H
  25. # --------------------------------------------------------------------------
  26.  
  27. # after you have installed this script, you'll have to rehash or restart
  28. # the bot. When you finished that mission, you'll get every account with
  29. # "<your admincommand> help"
  30.  
  31. # If you load that script for the first time, the language is set automatic
  32. # to english. If you want to set the language to e.g. german, you'll have
  33. # to write the command, which i write in the first "box".
  34.  
  35. # --------------------------------------------------------------------------
  36. # D E U T S C H
  37. # --------------------------------------------------------------------------
  38.  
  39. # Nachdem du dieses Script installiert hast, so musst du dein Eggdrop oder
  40. # Windrop rehashen oder restarten. Wenn du dieses erfolgreich absolviert
  41. # hast, so bekommst du weitere Informationen über den Befehl
  42. # "<dein Admincommand> help"
  43.  
  44. # Wenn du das Script zum ersten Mal lädst, so wird die Sprache automatisch
  45. # auf Englisch gesetzt sein. Dies kannst du aber ändern, indem du den oben
  46. # genannten Befehl ausführst und dir dann die Auflistung anschaust.
  47.  
  48. # --------------------------------------------------------------------------
  49.  
  50. # ((( settings
  51.  
  52. set 8ball(trigger) "?8ball"
  53. set 8ball(trigger-admin) "\$8ball"
  54. set 8ball(author) "Michael 'miCHa' Ascher \002(\002#miCHa on QuakeNet\002)\002"
  55. set 8ball(version) "1.0.0.1"
  56.  
  57. # )))
  58.  
  59. # ((( bindings
  60.  
  61. bind pub -|- "$8ball(trigger)" 8ball
  62. bind pub mn|mn "$8ball(trigger-admin)" 8ball:admin
  63.  
  64. # )))
  65.  
  66. # ((( setudef
  67.  
  68. setudef flag 8ball
  69. setudef str 8ball-lang
  70. setudef int 8ball-counter
  71.  
  72. # )))
  73.  
  74. # --------------------------------------------------------------------------
  75. # !!! DO NOT CHANGE SOMETHING BELOW THESE LINES !!!
  76. # --------------------------------------------------------------------------
  77.  
  78. proc 8ball { nickname hostname handle channel arguments } {
  79. global 8ball
  80. set 8ball($channel) "[join [lrange [split $arguments] 0 end]]"
  81. set 8ball(nr) "[rand 4]"
  82. if {![channel get $channel "8ball"]} {
  83. return
  84. } elseif {[channel get $channel "8ball-lang"] == "german"} {
  85. if {$8ball($channel) == ""} {
  86. putserv "notice $nickname :\037\0034Fehler\037\003\002:\002 Du hast keine Frage gestellt!"
  87. } else {
  88. channel set $channel 8ball-counter [expr [channel get $channel "8ball-counter"] + 1]
  89. if {$8ball(nr) == "0"} {
  90. putserv "privmsg $channel :Frage Nr. [channel get $channel "8ball-counter"]: $8ball($channel)"
  91. putserv "privmsg $channel :Antwort: Ja!"
  92. } elseif {$8ball(nr) == "1"} {
  93. putserv "privmsg $channel :Frage Nr. [channel get $channel "8ball-counter"]: $8ball($channel)"
  94. putserv "privmsg $channel :Antwort: Nein!"
  95. } elseif {$8ball(nr) == "2"} {
  96. putserv "privmsg $channel :Frage Nr. [channel get $channel "8ball-counter"]: $8ball($channel)"
  97. putserv "privmsg $channel :Antwort: Ich denke schon!"
  98. } elseif {$8ball(nr) == "3"} {
  99. putserv "privmsg $channel :Frage Nr. [channel get $channel "8ball-counter"]: $8ball($channel)"
  100. putserv "privmsg $channel :Antwort: Ich denke eher nicht!"
  101. }
  102. }
  103. } elseif {[channel get $channel "8ball-lang"] == "english"} {
  104. if {$8ball($channel) == ""} {
  105. putserv "notice $nickname :\037\0034Error\0034\037\002:\002 you didnt ask a question!"
  106. } else {
  107. channel set $channel "8ball-counter" [expr [channel get $channel "8ball-counter"] + 1]
  108. if {$8ball(nr) == "0"} {
  109. putserv "privmsg $channel :Question nr. [channel get $channel "8ball-counter"]: $8ball($channel)"
  110. putserv "privmsg $channel :Answer: yes!"
  111. } elseif {$8ball(nr) == "1"} {
  112. putserv "privmsg $channel :Question nr. [channel get $channel "8ball-counter"]: $8ball($channel)"
  113. putserv "privmsg $channel :Answer: no!"
  114. } elseif {$8ball(nr) == "2"} {
  115. putserv "privmsg $channel :Question nr. [channel get $channel "8ball-counter"]: $8ball($channel)"
  116. putserv "privmsg $channel :Answer: i think so ..."
  117. } elseif {$8ball(nr) == "3"} {
  118. putserv "privmsg $channel :Question nr. [channel get $channel "8ball-counter"]: $8ball($channel)"
  119. putserv "privmsg $channel :Answer: I dont think so ..."
  120. }
  121. }
  122. }
  123. }
  124.  
  125. proc 8ball:admin { nickname hostname handle channel arguments } {
  126. global 8ball
  127. set 8ball(admin:$channel) "[join [lrange [split $arguments] 0 end]]"
  128. if {[channel get $channel "8ball-lang"] == ""} {
  129. channel set $channel 8ball-lang english
  130. putserv "notice $nickname :\037German\037\002:\002 Die Sprache wurde gerade auf \037Englisch\037 gesetzt. Bitte wiederhole noch einmal den Befehl."
  131. putserv "notice $nickname :\037English\037\002:\002 The language was set to \037english\037. Please retry the command."
  132. } elseif {[channel get $channel "8ball-lang"] == "german"} {
  133. if {$8ball(admin:$channel) == ""} {
  134. putserv "notice $nickname :bitte benutze $8ball(trigger-admin) \037help\037."
  135. putserv "notice $nickname :8ball.tcl - version $8ball(version) by $8ball(author)"
  136. } elseif {$8ball(admin:$channel) == "help"} {
  137. putserv "notice $nickname :$8ball(trigger-admin) \037status\037 \002(\002on/off\002)\002"
  138. putserv "notice $nickname :$8ball(trigger-admin) \037language\037 \002(\002german/english\002)\002"
  139. putserv "notice $nickname :$8ball(trigger-admin) \037version\037"
  140. putserv "notice $nickname :$8ball(trigger-admin) \037contact\037"
  141. putserv "notice $nickname :-- End of list --"
  142. } elseif {$8ball(admin:$channel) == "status"} {
  143. if {[channel get $channel "8ball"]} {
  144. putserv "notice $nickname :\037Status\037\002:\002 8ball.tcl ist in $channel aktiviert."
  145. putserv "notice $nickname :um es zu deaktivieren, so benutze doch bitte $8ball(trigger-admin) \037status off\037."
  146. } elseif {![channel get $channel "8ball"]} {
  147. putserv "notice $nickname :\037Status\037\002:\002 8ball.tcl ist in $channel deaktiviert."
  148. putserv "notice $nickname :um es zu aktivieren, so benute doch bitte $8ball(trigger-admin) \037status on\037."
  149. }
  150. } elseif {$8ball(admin:$channel) == "status on"} {
  151. if {[channel get $channel "8ball"]} {
  152. putserv "notice $nickname :\037\0034Fehler\003\037\002:\002 8ball ist schon in $channel aktiviert."
  153. } elseif {![channel get $channel "8ball"]} {
  154. channel set $channel +8ball
  155. putserv "notice $nickname :\037\0039Erfolgreich\003\037\002:\002 8ball wurde in $channel aktiviert."
  156. }
  157. } elseif {$8ball(admin:$channel) == "status off"} {
  158. if {![channel get $channel "8ball"]} {
  159. putserv "notice $nickname :\037\0034Fehler\003\037\002:\002 8ball ist schon in $channel deaktiviert."
  160. } elseif {[channel get $channel "8ball"]} {
  161. channel set $channel -8ball
  162. putserv "notice $nickname :\037\0039Erfolgreich\003\037\002:\002 8ball wurde in $channel deaktiviert."
  163. }
  164. } elseif {$8ball(admin:$channel) == "language"} {
  165. if {[channel get $channel "8ball-lang"] == "german"} {
  166. putserv "notice $nickname :\037Status\037\002:\002 momentan ist die Sprache \037Deutsch\037 aktiviert."
  167. } elseif {[channel get $channel "8ball-lang"] == "english"} {
  168. putserv "notice $nickname :\037Status\037\002:\002 momentan ist die Sprache \037Englisch\037 aktiviert."
  169. }
  170. } elseif {$8ball(admin:$channel) == "language german"} {
  171. if {[channel get $channel "8ball-lang"] == "german"} {
  172. putserv "notice $nickname :\037\0034Fehler\003\037\002:\002 die Sprache ist schon auf \037Deutsch\037 eingestellt."
  173. }
  174. } elseif {$8ball(admin:$channel) == "language english"} {
  175. if {[channel get $channel "8ball-lang"] == "german"} {
  176. channel set $channel 8ball-lang english
  177. putserv "notice $nickname :\037\0039Done\003\037\002:\002 the language was set to \037english\037."
  178. }
  179. } elseif {$8ball(admin:$channel) == "version"} {
  180. putserv "notice $nickname :\0378ball.tcl\037\002:\002 version $8ball(version) by $8ball(author)"
  181. } elseif {$8ball(admin:$channel) == "contact"} {
  182. putserv "notice $nickname :contact:"
  183. putserv "notice $nickname :\037IRC\037\002:\002 #miCHa on QuakeNet \002(\002www.QuakeNet.org\002)\002"
  184. putserv "notice $nickname :\037ICQ\037\002:\002 247-465-459 \002(\002nur für Freunde - 95% der Kontakthinzufügungen werden abgelehnt - sorry\002)\002"
  185. putserv "notice $nickname :\037Web\037\002:\002 www.miCHa.es"
  186. putserv "notice $nickname :\037Mail\037\002:\002 miCHa@miCHa.es"
  187. putserv "notice $nickname :-- End of list --"
  188. }
  189. } elseif {[channel get $channel "8ball-lang"] == "english"} {
  190. if {$8ball(admin:$channel) == ""} {
  191. putserv "notice $nickname :please use $8ball(trigger-admin) \037help\037."
  192. putserv "notice $nickname :8ball.tcl - version $8ball(version) by $8ball(author)"
  193. } elseif {$8ball(admin:$channel) == "help"} {
  194. putserv "notice $nickname :$8ball(trigger-admin) \037status\037 \002(\002on/off\002)\002"
  195. putserv "notice $nickname :$8ball(trigger-admin) \037language\037 \002(\002german/english\002)\002"
  196. putserv "notice $nickname :$8ball(trigger-admin) \037version\037"
  197. putserv "notice $nickname :$8ball(trigger-admin) \037contact\037"
  198. putserv "notice $nickname :-- End of list --"
  199. } elseif {$8ball(admin:$channel) == "status"} {
  200. if {[channel get $channel "8ball"]} {
  201. putserv "notice $nickname :\037Status\037\002:\002 8ball.tcl is enabled in $channel."
  202. putserv "notice $nickname :please use $8ball(trigger-admin) \037status off\037 to disable it."
  203. } elseif {![channel get $channel "8ball"]} {
  204. putserv "notice $nickname :\037Status\037\002:\002 8ball.tcl is disabled in $channel."
  205. putserv "notice $nickname :please use $8ball(trigger-admin) \037status on\037 to enable it."
  206. }
  207. } elseif {$8ball(admin:$channel) == "status on"} {
  208. if {[channel get $channel "8ball"]} {
  209. putserv "notice $nickname :\037\0034Error\003\037\002:\002 8ball is already enabled in $channel."
  210. } elseif {![channel get $channel "8ball"]} {
  211. channel set $channel +8ball
  212. putserv "notice $nickname :\037\0039Done\003\037\002:\002 8ball is now enabled in $channel."
  213. }
  214. } elseif {$8ball(admin:$channel) == "status off"} {
  215. if {![channel get $channel "8ball"]} {
  216. putserv "notice $nickname :\037\0034Error\003\037\002:\002 8ball is already disabled in $channel."
  217. } elseif {[channel get $channel "8ball"]} {
  218. channel set $channel -8ball
  219. putserv "notice $nickname :\037\0039Done\003\037\002:\002 8ball is now disabled in $channel."
  220. }
  221. } elseif {$8ball(admin:$channel) == "language"} {
  222. if {[channel get $channel "8ball-lang"] == "english"} {
  223. putserv "notice $nickname :\037Status\037\002:\002 \037English\037 is the current language."
  224. } elseif {[channel get $channel "8ball-lang"] == "german"} {
  225. putserv "notice $nickname :\037Status\037\002:\002 \037German\037 is the current language."
  226. }
  227. } elseif {$8ball(admin:$channel) == "language english"} {
  228. if {[channel get $channel "8ball-lang"] == "english"} {
  229. putserv "notice $nickname :\037\0034Error\003\037\002:\002 \037English\037 is already the current language."
  230. }
  231. } elseif {$8ball(admin:$channel) == "language german"} {
  232. if {[channel get $channel "8ball-lang"] == "english"} {
  233. channel set $channel 8ball-lang german
  234. putserv "notice $nickname :\037\0039Erfolgreich\003\037\002:\002 Die Sprache wurde erfolgreich auf \037Deutsch\037 gesetzt."
  235. }
  236. } elseif {$8ball(admin:$channel) == "version"} {
  237. putserv "notice $nickname :\0378ball.tcl\037\002:\002 version $8ball(version) by $8ball(author)"
  238. } elseif {$8ball(admin:$channel) == "contact"} {
  239. putserv "notice $nickname :contact:"
  240. putserv "notice $nickname :\037IRC\037\002:\002 #miCHa on QuakeNet \002(\002www.QuakeNet.org\002)\002"
  241. putserv "notice $nickname :\037ICQ\037\002:\002 247-465-459 \002(\002thats only for friends - 95% of all requests are declined - sorry\002)\002"
  242. putserv "notice $nickname :\037Web\037\002:\002 www.miCHa.es"
  243. putserv "notice $nickname :\037Mail\037\002:\002 miCHa@miCHa.es"
  244. putserv "notice $nickname :-- End of list --"
  245. }
  246. }
  247. }
  248.  
  249. putlog "8ball.tcl loaded - version $8ball(version) by $8ball(author)"
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!