API tools faq
paste
Advertisement
TheRealKingS

funscript.tcl

TheRealKingS
Dec 25th, 2012
195
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
TCL 20.14 KB | None | 0 0
raw download clone embed print report
  1. #########################################
  2. # Charset ist ISO-8859-1
  3. # Funscript von
  4. # http://thinksilicon.redprohosting.de
  5. # Bug Fixed by PDX // #paradox.dev.v0.001 @ QuakeNet
  6. #########################################
  7.  
  8. # Und weil ich schon immer mal etwas unter die GPL stellen wollte,
  9. # steht dieses Script unter keiner geringeren Lizenz als der GPL.
  10. # PDX: naja würds aber noch ausbessern ;)
  11.  
  12. set sname "funscript.tcl"
  13. set coder "Moritz Meintker // http://thinksilicon.hobby-site.com"
  14. set bugfixer "PDX // #paradox.dev.v0.001 @ QuakeNet"
  15. set bot_nick "TheRealBot_"
  16.  
  17. ################# channel wo das script NICHT funktioniert
  18. set no_bots "#Channel"
  19.  
  20. ################# einsatz channel
  21. set chan_for_bot "#lobby"
  22.  
  23. ########## !hilfe ###################
  24. bind pub - !hilfe pub_hilfe
  25. proc pub_hilfe {nick uhost hand chan arg} {
  26. putlog "$nick used !hilfe..."
  27. putchan $chan "\002 Ich bin ein Bot vom TheRealKingS. Ich Sorge hier für Ordnung - z.B. dass hier keiner den Channel mit seinen Nachrichten flutet. Außerdem hab ich noch ein paar weitere Tricks an Board:"
  28. putchan $chan "\002 mit !bar zeige ich euch den Inhalt meiner Bar und mit !keller dürft ihr euch was aus dem Keller wünschen. Was ich sonst noch kann werdet ihr bald sehen ;-)"
  29. putchan $chan "\002 Stell mir mit ?8ball <Frage> eine Frage und du bekommst eine Antwort..."
  30. }
  31.  
  32. ###################################################################################
  33. #####                AB HIER GEHT DIE BAR LOS!              #####
  34. ###################################################################################
  35. ########## !bar ###############
  36. bind pub - !bar pub_bar
  37. proc pub_bar {nick uhost hand chan arg} {
  38. global no_bots
  39. foreach ch $no_bots {
  40. if {[string tolower $chan] == $ch} {return 0}
  41. }
  42. putchan $chan "\002 Ich habe folgende Getränke in meiner Bar: Bier, Wein, Wasser, Milch, Osaft, Traubensaft, Erdbeersaft, Tequila, Whiskey, Bananensaft, Karottensaft, Campari, Cola, Raki und Eistee .... was darf's sein?"
  43. }
  44.  
  45. ############# !bier ###################
  46. bind pub - !bier pub_bier
  47. proc pub_bier {nick uhost hand chan arg} {
  48. global no_bots
  49. foreach ch $no_bots {
  50. if {[string tolower $chan] == $ch} {return 0}
  51. }
  52. puthelp "PRIVMSG $chan :\001ACTION überreicht $nick einen großen Humpen Bier\001"
  53. }
  54.  
  55. ############# !wein ###################
  56. bind pub - !wein pub_wein
  57. proc pub_wein {nick uhost hand chan arg} {
  58. global no_bots
  59. foreach ch $no_bots {
  60. if {[string tolower $chan] == $ch} {return 0}
  61. }
  62. puthelp "PRIVMSG $chan :\001ACTION überreicht $nick ein gut gefülltes Glas mit Wein\001"
  63. }
  64.  
  65. ############# !wasser ###################
  66. bind pub - !wasser pub_wasser
  67. proc pub_wasser {nick uhost hand chan arg} {
  68. global no_bots
  69. foreach ch $no_bots {
  70. if {[string tolower $chan] == $ch} {return 0}
  71. }
  72. puthelp "PRIVMSG $chan :\001ACTION findet $nick sehr vernünftig - deswegen bekommt er gleich ne Flasche voll.\001"
  73. }
  74.  
  75. ############# !milch ###################
  76. bind pub - !milch pub_milch
  77. proc pub_milch {nick uhost hand chan arg} {
  78. global no_bots
  79. foreach ch $no_bots {
  80. if {[string tolower $chan] == $ch} {return 0}
  81. }
  82. puthelp "PRIVMSG $chan :\001ACTION überreicht $nick ne Milchtüte - aber nix verschütten!\001"
  83. }
  84.  
  85. ############# !osaft ###################
  86. bind pub - !osaft pub_osaft
  87. proc pub_osaft {nick uhost hand chan arg} {
  88. global no_bots
  89. foreach ch $no_bots {
  90. if {[string tolower $chan] == $ch} {return 0}
  91. }
  92. puthelp "PRIVMSG $chan :\001ACTION überreicht $nick ein Glas Osaft\001"
  93. }
  94.  
  95. ############# !traubensaft ###################
  96. bind pub - !traubensaft pub_traubensaft
  97. proc pub_traubensaft {nick uhost hand chan arg} {
  98. global no_bots
  99. foreach ch $no_bots {
  100. if {[string tolower $chan] == $ch} {return 0}
  101. }
  102. puthelp "PRIVMSG $chan :\001ACTION hier $nick dein frisch gepresster Traubensaft\001"
  103. }
  104.  
  105. ############# !erdbeersaft ###################
  106. bind pub - !erdbeersaft pub_erdbeer
  107. proc pub_erdbeer {nick uhost hand chan arg} {
  108. global no_bots
  109. foreach ch $no_bots {
  110. if {[string tolower $chan] == $ch} {return 0}
  111. }
  112. puthelp "PRIVMSG $chan :\001ACTION findet diesen Saft abartig - aber wenn du meinst $nick - hier dein Erdbeersaft...\001"
  113. }
  114.  
  115. ########## !tequila #############
  116. bind pub - !tequila pub_tequila
  117. proc pub_tequila {nick uhost hand chan arg} {
  118. global no_bots
  119. foreach ch $no_bots {
  120. if {[string tolower $chan] == $ch} {return 0}
  121. if {![isop $nick $chan]} {
  122. putchan $chan " $nick , das ist kein Getränk für dich! Solltest du nicht schon im Bett sein?"
  123. return 0}
  124. }
  125. puthelp "PRIVMSG $chan :\001ACTION gibt $nick ein Glässchen Tequila\001"
  126. }
  127.  
  128. ########## !Whiskey #############
  129. bind pub - !whiskey pub_whiskey
  130. proc pub_whiskey {nick uhost hand chan arg} {
  131. global no_bots
  132. foreach ch $no_bots {
  133. if {[string tolower $chan] == $ch} {return 0}
  134. if {![isop $nick $chan]} {
  135. putchan $chan " $nick , das ist kein Getränk für dich! Das ist kein Spaß!"
  136. return 0}
  137. }
  138. puthelp "PRIVMSG $chan :\001ACTION gibt $nick Stamperl voll Whiskey\001"
  139. }
  140.  
  141. ############# !bananensaft ###################
  142. bind pub - !bananensaft pub_bananensaft
  143. proc pub_bananensaft {nick uhost hand chan arg} {
  144. global no_bots
  145. foreach ch $no_bots {
  146. if {[string tolower $chan] == $ch} {return 0}
  147. }
  148. puthelp "PRIVMSG $chan :\001ACTION mixt einen frischen Bananensaft und gib ihn $nick\001"
  149. }
  150.  
  151. ############# !karottensaft ###################
  152. bind pub - !karottensaft pub_karottensaft
  153. proc pub_karottensaft {nick uhost hand chan arg} {
  154. global no_bots
  155. foreach ch $no_bots {
  156. if {[string tolower $chan] == $ch} {return 0}
  157. }
  158. putchan $chan "mindestens haltbar bis - ähm - ja, hier haste deinen Karottensaft $nick"
  159. }
  160.  
  161. ########## !Campari #############
  162. bind pub - !campari pub_campari
  163. proc pub_campari {nick uhost hand chan arg} {
  164. global no_bots
  165. foreach ch $no_bots {
  166. if {[string tolower $chan] == $ch} {return 0}
  167. if {![isop $nick $chan]} {
  168. putchan $chan " $nick , Pfui! Sowas trinkt man nicht pur!"
  169. return 0}
  170. }
  171.  
  172. puthelp "PRIVMSG $chan :\001ACTION mixt $nick einen superleckeren Drink ;-)\001"
  173. }
  174.  
  175. ############# !Cola ###################
  176. bind pub - !cola pub_cola
  177. proc pub_cola {nick uhost hand chan arg} {
  178. global no_bots
  179. foreach ch $no_bots {
  180. if {[string tolower $chan] == $ch} {return 0}
  181. }
  182. puthelp "PRIVMSG $chan :\001ACTION wirft ein paar Eiswürfel in den Pappbecher und füllt ihn dann mit Cola - hier $nick\001"
  183. }
  184.  
  185. ########## !Raki #############
  186. bind pub - !raki pub_raki
  187. proc pub_raki {nick uhost hand chan arg} {
  188. global no_bots
  189. foreach ch $no_bots {
  190. if {[string tolower $chan] == $ch} {return 0}
  191. if {![isop $nick $chan]} {
  192. putchan $chan " $nick , ich hätte ihn nicht erwähnen sollen - aber das ist definitiv nix für junge Leute!"
  193. return 0}
  194. }
  195.  
  196. puthelp "PRIVMSG $chan :\001ACTION gibt $nick Stamperl voll Raki\001"
  197. }
  198.  
  199. ############# !Eistee ###################
  200. bind pub - !eistee pub_eistee
  201. proc pub_eistee {nick uhost hand chan arg} {
  202. global no_bots
  203. foreach ch $no_bots {
  204. if {[string tolower $chan] == $ch} {return 0}
  205. }
  206. puthelp "PRIVMSG $chan :\001ACTION holt aus der Tiefkühle einen eiskalten Eistee und gibt ihn $nick\001"
  207. }
  208.  
  209. bind pub - !drink pub_drink
  210. proc pub_drink {nick uhost hand chan arg} {
  211. global no_bots
  212. foreach ch $no_bots {
  213. if {[string tolower $chan] == $ch} {return 0}
  214. }
  215. puthelp "PRIVMSG $chan :\001ACTION spendiert $arg von $nick einen Drink!\001"
  216. }
  217.  
  218. ###################################################################################
  219. #####            AB HIER GEHT DER KELLER LOS!                  #####
  220. ###################################################################################
  221. ########## !keller ###############
  222. bind pub - !keller pub_keller
  223. proc pub_keller {nick uhost hand chan arg} {
  224. global no_bots
  225. foreach ch $no_bots {
  226. if {[string tolower $chan] == $ch} {return 0}
  227. }
  228. putchan $chan "\002 In meinem Keller steht ein altes Sofa, die Heizung, ein Gabelstapler, eine Tonne mit Altöl, ein Aquarium, eine Teslaspule, eine Bohrmaschine, eine Waschmaschine und meine Kuh..."
  229. }
  230.  
  231. ############# !sofa ###################
  232. bind pub - !sofa pub_sofa
  233. proc pub_sofa {nick uhost hand chan arg} {
  234. global no_bots
  235. foreach ch $no_bots {
  236. if {[string tolower $chan] == $ch} {return 0}
  237. }
  238. puthelp "PRIVMSG $chan :\001ACTION wuchtet laut stöhnend das Sofa auf seinen Rücken, trägt es stolpernd die Treppe rauf und fragt sich wohin damit... Ahja - da her. Schnaubend stellt er es ab: Machs dir bequem darauf!\001"
  239. }
  240.  
  241. ############# !heizung ###################
  242. bind pub - !heizung pub_heizung
  243. proc pub_heizung {nick uhost hand chan arg} {
  244. global no_bots
  245. foreach ch $no_bots {
  246. if {[string tolower $chan] == $ch} {return 0}
  247. }
  248. putchan $chan "Was zur Hölle willst du mit meiner Heizung $nick? Wenn du die Gasleitung nur schnell vorher abdrehen könntest..."
  249. }
  250.  
  251. ############# !gabelstapler ###################
  252. bind pub - !gabelstapler pub_gabelstapler
  253. proc pub_gabelstapler {nick uhost hand chan arg} {
  254. global no_bots
  255. foreach ch $no_bots {
  256. if {[string tolower $chan] == $ch} {return 0}
  257. }
  258. puthelp "PRIVMSG $chan :\001ACTION weiß noch nicht was er davon halten kann - $nick sieht nämlich nicht gerade aus, als ob er damit umgehen könnte. Aber was solls - er wuchtet das Ding nach oben (schwerer als man denkt sowas) und überreicht $nick die Schlüssel *wenn das man gut geht*\001"
  259. }
  260.  
  261. ############# !altöl ###################
  262. bind pub - !altöl pub_altoel
  263. bind pub - !tonne pub_altoel
  264. proc pub_altoel {nick uhost hand chan arg} {
  265. global no_bots
  266. foreach ch $no_bots {
  267. if {[string tolower $chan] == $ch} {return 0}
  268. }
  269. puthelp "PRIVMSG $chan :\001ACTION rollt schwer schnaubend das Altöl nach oben und freut sich endlich einen De*** wie $nick gefunden zu haben, der ihm den Dreck abnimmt *hehe*\001"
  270. }
  271.  
  272. ############# !waschmaschine ###################
  273. bind pub - !waschmaschine pub_waschmaschine
  274. proc pub_waschmaschine {nick uhost hand chan arg} {
  275. global no_bots
  276. foreach ch $no_bots {
  277. if {[string tolower $chan] == $ch} {return 0}
  278. }
  279. putchan $chan "Waschmaschinen leben länger mit Simon!"
  280. puthelp "PRIVMSG $chan :\001ACTION holt die Waschmaschine hervor... Ahja - da her. Hier kannst du es nun mit Simon treiben *hrhr*\001"
  281.  
  282. }
  283. ############# !Aquarium ###################
  284. bind pub - !aquarium pub_aquarium
  285. proc pub_aquarium {nick uhost hand chan arg} {
  286. global no_bots
  287. foreach ch $no_bots {
  288. if {[string tolower $chan] == $ch} {return 0}
  289. }
  290. puthelp "PRIVMSG $chan :\001ACTION schlendert in den Keller um das Aquarium zu holen. Dabei ist er so von den Fischen fasziniert, dass er alles um sich vergisst und einschläft.\001"
  291. }
  292.  
  293. ########## !teslaspule #############
  294. bind pub - !teslaspule pub_spule
  295. bind pub - !spule pub_spule
  296. proc pub_spule {nick uhost hand chan arg} {
  297. global no_bots
  298. foreach ch $no_bots {
  299. if {[string tolower $chan] == $ch} {return 0}
  300. if {![isop $nick $chan]} {
  301. putchan $chan " $nick , da lass ich dich garantiert nicht dran - sowas ist gefährlich!"
  302. return 0}
  303. }
  304. puthelp "PRIVMSG $chan :\001ACTION überreicht $nick den Stecker und bringt sich in Sicherheit\001"
  305. }
  306.  
  307. ############# !Bohrer ###################
  308. bind pub - !bohrer pub_bohrer
  309. bind pub - !bohrmaschine pub_bohrer
  310. proc pub_bohrer {nick uhost hand chan arg} {
  311. global no_bots
  312. foreach ch $no_bots {
  313. if {[string tolower $chan] == $ch} {return 0}
  314. }
  315. puthelp "PRIVMSG $chan :\001ACTION geht runter, sucht erst die kleine Aldimaschine, bis er die Hilti entdeckt - hehe - die geht ab ;-)\001"
  316. }
  317.  
  318. ############# !kuh ###################
  319. bind pub - !kuh pub_kuh
  320. proc pub_kuh {nick uhost hand chan arg} {
  321. global no_bots
  322. foreach ch $no_bots {
  323. if {[string tolower $chan] == $ch} {return 0}
  324. }
  325. puthelp "PRIVMSG $chan :\001ACTION fragt sich beim Runtergehen, warum eigentlich eine Kuh im Keller steht. Beim Herauftragen ist er sich aber sicher, dass sie jetzt ein besseres zu Hause bekommt - oder $nick?\001"
  326. }
  327.  
  328.  
  329. ###################################################################################
  330. #####                SONDERBEFEHLE                      #####
  331. ###################################################################################
  332. ########### !woist #################
  333. bind pub - !woist pub_woist
  334. proc pub_woist {nick uhost hand chan arg} {
  335. global no_bots
  336. foreach ch $no_bots {
  337. if {[string tolower $chan] == $ch} {return 0}
  338. }
  339. putchan $chan "\002 *schnupper*.. *such*.. Da ist $arg !!!"
  340. }
  341.  
  342. ########## !geburtstag ##################
  343. bind pub - !geburtstag pub_geburtstag
  344. proc pub_geburtstag {nick uhost hand chan arg} {
  345. putchan $chan "\002 Hey $arg alles gute zum Burzeltag *happy birthday* *wouuuuuuu.. happy birthday* *g* *$arg n Geschenk überreich*"
  346. }
  347.  
  348. ###################################################################################
  349. #####                HIER KOMMEN PHRASES                  #####
  350. ###################################################################################
  351. ############# hunger ########
  352. bind pubm - *hunger* pub_hunger
  353. proc pub_hunger {nick uhost hand chan arg} {
  354. putchan $chan "\002 Hey, $nick - bringste mir auch was mit - hab echten Kohldampf!"
  355. }
  356. ########## fuck ##################
  357. bind pubm - *fuck* pub_fuck
  358. proc pub_fuck {nick uhost hand chan arg} {
  359. putchan $chan "\002 Wer sagt hier fuck? $nick, beherrsch dich!"
  360. }
  361.  
  362. ########## müde ##################
  363. bind pubm - *müde* pub_muede
  364. proc pub_muede {nick uhost hand chan arg} {
  365. putchan $chan "\002 *gähn* schon sooo spät?"
  366. }
  367.  
  368. ########## stille ##################
  369. bind pubm - *stille* pub_stille
  370. bind pubm - *still* pub_stille
  371. proc pub_stille {nick uhost hand chan arg} {
  372. putchan $chan "\002 Hmm - irgendwie ist's echt ein wenig ruhig!"
  373. }
  374.  
  375. ########## timeout ##################
  376. bind pubm - *timeout* pub_timeout
  377. proc pub_timeout {nick uhost hand chan arg} {
  378. putchan $chan "\002 Ich hasse timeouts - *GRRRRRRRR*"
  379. }
  380.  
  381. ########## arsch ##################
  382. bind pubm - *arsch* pub_arsch
  383. proc pub_arsch {nick uhost hand chan arg} {
  384. putchan $chan "\002 $nick , den Ar*** will ich mal überhört haben!"
  385. }
  386.  
  387. ########## wixer ##################
  388. bind pubm - *wixer* pub_wixer
  389. proc pub_wixer {nick uhost hand chan arg} {
  390. putchan $chan "\002 $nick, benimm dich, oder du fliegst!"
  391. }
  392.  
  393. ########## fick ##################
  394. bind pubm - *fick* pub_fick
  395. proc pub_fick {nick uhost hand chan arg} {
  396. putchan $chan "\002 $nick, wenn du nochmal f**k sagst, dann ist aus die Maus!"
  397. }
  398.  
  399. ########## google ##################
  400. bind pubm - *google* pub_google
  401. proc pub_google {nick uhost hand chan arg} {
  402. putchan $chan "\002 google.de <- hilft weiter!"
  403. }
  404.  
  405. ########## wikipedia ##################
  406. bind pubm - *wikipedia* pub_wiki
  407. bind pubm - *wiki* pub_wiki
  408. proc pub_wiki {nick uhost hand chan arg} {
  409. putchan $chan "\002 wikipedia - die weiß alles!"
  410. }
  411.  
  412. ########## linux ##################
  413. bind pubm - *linux* pub_linux
  414. proc pub_linux {nick uhost hand chan arg} {
  415. putchan $chan "\002 hmm - hört hört, da $nick kennt sich also mit Linux aus."
  416. }
  417.  
  418. ########## windows ##################
  419. bind pubm - *windows* pub_windows
  420. bind pubm - *windoof* pub_windows
  421. bind pubm - *windoze* pub_windows
  422. proc pub_windows {nick uhost hand chan arg} {
  423. putchan $chan "\002 Windows - oder auch weißer Mann starrt auf Sanduhr."
  424. }
  425.  
  426. ########## rtfm ##################
  427. bind pubm - *rtfm* pub_rtfm
  428. proc pub_rtfm {nick uhost hand chan arg} {
  429. putchan $chan "\002 RTFM => Read The Fucking Manual!!!"
  430. }
  431.  
  432. ########## afaik ##################
  433. bind pubm - *afaik* pub_afaik
  434. proc pub_afaik {nick uhost hand chan arg} {
  435. putchan $chan "\002 AFAIK => As Far As I Know"
  436. }
  437.  
  438. ########## thx/danke ##################
  439. bind pubm - *thx*$bot_nick* pub_thx
  440. bind pubm - *$bot_nick*thx* pub_thx
  441. bind pubm - *$bot_nick*danke* pub_thx
  442. bind pubm - *danke*$bot_nick* pub_thx
  443. proc pub_thx {nick uhost hand chan rest} {
  444. set randnick [lindex [chanlist $chan] [rand [llength [chanlist $chan]]]]
  445. set said_bot {
  446.     "Nix zu danken, %nick!"
  447.     "Ich helf, wo ich kann!"
  448.     "Freut mich geholfen zu haben, %nick!"
  449.     "%nick hats also geholfen..."
  450.     "%nick zum Wohlsein!"
  451.     "Kein Problem ;-)"
  452.     "Immer wieder gerne!"
  453.     "Gibt's noch ne Frage, %nick?"
  454.     "Bitte, bitte!"
  455.     "Mach ich doch gerne!"
  456.     "%nick, ^_^"
  457. }
  458.     set chosen [lindex $said_bot [rand [llength $said_bot]]]
  459.     regsub -all "%randnick" $chosen "$randnick" chosen
  460.     regsub -all "%nick" $chosen "$nick" chosen
  461. putchan $chan "$chosen"
  462. }
  463.  
  464. ###################################################################################
  465. #####                HIER DIE OP-BEFEHLE                  #####
  466. ###################################################################################
  467. ########## !aufpassen #############
  468. bind pub - !aufpassen pub_aufpassen
  469. proc pub_aufpassen {nick uhost hand chan arg} {
  470. global no_bots
  471. foreach ch $no_bots {
  472. if {[string tolower $chan] == $ch} {return 0}
  473. if {![isop $nick $chan]} {
  474. putchan "$nick : Von dir nehm ich keine Befehle an!"
  475. return 0}
  476. }
  477. putchan $chan "\002 *Auf $arg aufpass* *Knurr* *Zaehnefletsch* WENNDUDICHBEWEGSTBISTDUTOT"
  478. }
  479.  
  480. ########### !fass ###############
  481. bind pub - !fass pub_fass
  482. proc pub_fass {nick uhost hand chan arg} {
  483. global no_bots
  484.  
  485. if {![isop $nick $chan]} {
  486. putlog "$nick TRIED TO USE !fass $arg"
  487. putchan $chan "\002 Schnappt sich das Hosenbein von $nick und schleppt ihn nach draussen."
  488. puthelp "KICK $chan $nick :Sowas steht hier unter Strafe - merks dir!"
  489. puthelp "NOTICE $nick : Mach mal halblang!!!"
  490. return 0
  491. }
  492.  
  493. if {[isop $arg $chan]} {
  494. putlog "$nick TRIED TO USE !toete $arg"
  495. putchan $chan "\002 Ich fasse weder mich, noch meinen Meister >:("
  496. puthelp "NOTICE $nick : Das war das falsche Ziel!"
  497. return 0
  498. }
  499.  
  500. putlog "$nick used !fass $arg"
  501. putchan $chan "\002 Wer sich hier nicht ordentlich aufführt der fliegt. Und du hast dich nicht richtig verhalten, $arg!"
  502. puthelp "KICK $chan $arg : *böseguck* nun bleibst du erstmal draussen"
  503. puthelp "NOTICE $arg : Mach mal halblang!"
  504. }
  505.  
  506. ########### !toete ###############
  507. bind pub - !toete pub_toete
  508. proc pub_toete {nick uhost hand chan arg} {
  509. global no_bots
  510. global botname
  511. if {![isop $nick $chan]} {
  512. putlog "$nick TRIED TO USE !toete $arg"
  513. putchan $chan "\002 $nick , du bekommst von mir die 'Rote Karte', mach das nicht nochmal!"
  514. puthelp "KICK $chan $nick :Strafe muss sein!"
  515. puthelp "NOTICE $nick : Benimm dich einfach!"
  516. return 0
  517. }
  518.  
  519. if {[isop $arg $chan]} {
  520. putlog "$nick TRIED TO USE !toete $arg"
  521. putchan $chan "\002 Ich töte weder mich noch meinen Meister >:("
  522. puthelp "NOTICE $nick : Das war das falsche Ziel!"
  523. return 0
  524. }
  525.  
  526. putlog "$nick used !toete $arg"
  527. putchan $chan "\002 So $arg du kommst jetzt erstmal vor die Tür und darfst da überlegen, was das sollte!"
  528. set banmask [maskhost [getchanhost $arg]]
  529. putserv "MODE $chan +b $banmask"
  530. puthelp "KICK $chan $arg : Bis dahin ist Zapfenstreich!"
  531. puthelp "NOTICE $arg : Benimm dich einfach!"
  532. }
  533.  
  534. ######## pfeif #########
  535. bind pubm - *pfeif* pub_pfeif
  536. proc pub_pfeif {nick uhost hand chan arg} {
  537. if {![isop $nick $chan]} {
  538. puthelp "NOTICE $nick : Ich hör nur, wenn der Meister pfeift!"
  539. return 0}
  540. putchan $chan "\002 *sofort zum Meister $nick rennt und die nächste Order abwartet*"
  541. }
  542.  
  543. ######################################################################################
  544. ######## HOST ########
  545. set ::pdxhostrev {
  546.     *.users.quakenet.org
  547.     *!~*
  548. }
  549.  
  550. if {[info commands maskhost_r] != "maskhost_r"} {
  551.     rename maskhost maskhost_r
  552. }
  553. proc maskhost {host} {
  554.     global pdxhostrev
  555.     foreach fmask [split $pdxhostrev \n] {
  556.         set fmask [string trim $fmask]
  557.         if {$fmask == ""} { continue }
  558.         regsub -all {\\} $fmask {\\\\} fmask
  559.         regsub -all {\[} $fmask {\\\[} fmask
  560.         regsub -all {\]} $fmask {\\\]} fmask
  561.         if {[string match $fmask $host]} {
  562.             return *!*@[lindex [split $host @] end]
  563.         }
  564.     }
  565.     return [maskhost_r $host]
  566. }
  567.  
  568. ###############################################################
  569. #putlog "- $sname by $coder - BugFix by $bugfixer -"
  570. putlog "- $sname by $coder - BanMethode by $bugfixer -"
  571. ###############################################################
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!