API tools faq
paste
r00t-err0r

Prcko 1.337

r00t-err0r
Feb 3rd, 2013
298
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
TCL 13.62 KB | None | 0 0
raw download clone embed print report
  1. # Prcko by munZe
  2. # Made 4 fun :)
  3.  
  4. # Last update 26.05.2013.
  5. # - Added flood protect
  6.  
  7. # Ne smaraj nickove
  8. set izuzmi [list "munZe" "gagga_87" "\[85\]" "Anqa" "Asdfghjkl" "r00t-err0r" "r00t-3rr0r" "Sha-ti-meni-Cao" "Tekyla" "Velja" "Velimir"]
  9.  
  10. #I krecemo...
  11.  
  12. bind pub - !prc pub_prc
  13. bind pub - !drka pub_drka
  14. bind pub - !izmeri pub_izmeri
  15. bind pub - !komande pub_komande
  16. bind pub - !sise pub_sise
  17. bind pub - !sexy pub_sexy
  18. bind pub - !laze pub_laze
  19. bind pub - !istina pub_istina
  20. bind pub - !gay pub_gay
  21. bind pub - !ozbiljan pub_ozbiljan
  22. bind pub - !ozbiljna pub_ozbiljna
  23. bind pub - !neozbiljan pub_ozbiljan
  24. bind pub - !neozbiljna pub_ozbiljna
  25. bind pub - !crnac pub_crnac
  26. bind pub - !hacker pub_hacker
  27. bind pubm - "*kako je*" pub_blato
  28. bind pubm - "*pusi kurac*" pub_kurac
  29. bind pubm - "*pusi kµ®ä©*" pub_kurac
  30. bind pubm - "*nabijem*" pub_nabijem
  31.  
  32. #Ignore
  33. bind pub mn|mn !ignore ignoreSmaracha
  34. proc ignoreSmaracha {nick host handle chan text} {
  35. if {![string match *!*@* $text]} { set im "$text!*@*" } else { set im $text }
  36. newignore $im $handle "Ignored by $nick" 0
  37. putserv "PRIVMSG $chan :Now ignoring $text"
  38. }
  39.  
  40. bind pub n|n !iamon pub_iamon
  41. proc pub_iamon {nick mask hand chan text} {
  42. putserv "privmsg $chan :I`m on [chans]"
  43. }
  44.  
  45. proc pub_blato {nick mask hand chan text} {
  46. putserv "privmsg $chan $nick ... kad je kisha blato je :D"
  47. }
  48.  
  49. proc pub_kurac {nick mask hand chan text} {
  50. putserv "privmsg $chan $nick volis da pushish kurac,a?"
  51. putact $chan "daje $nick svog pitona da ga glodje :)"
  52. }
  53.  
  54. proc pub_nabijem {nick mask hand chan text} {
  55. putserv "privmsg $chan $nick, a bi voleo/la da ja tebe nabijem malo,a? :D"
  56. putact $chan "skinuo gace i stavio $nick u krilo... Skaci $nick,skaciiii!! Toooo!!!! TOooooo!!!!! :)"
  57. }
  58.  
  59. proc pub_komande {nick mask hand chan text} {
  60.  
  61.  putact $chan "trenutno forsira komande \002 !drka <nick> \037-\037 !izmeri <nick> \037-\037 !prc <nick> \037-\037 !sise <nick> \037-\037 !hacker <nick> \037-\037 !gay <nick>"
  62.  putact $chan "\002 !sexy <nick> \037-\037 !horoskop <znak> \037-\037 !bolest <nick> \037-\037  !vreme <grad> \037-\037  !program <tv-kanal>"
  63.  
  64. }
  65.  
  66. proc pub_hacker {nick mask hand chan text} {
  67.  
  68. global izuzmi
  69. if {[checkUserAbuse $nick $chan] == "1"} {
  70. set hacker [expr {int(rand()*100)}]
  71. if {[string match -nocase *$text* $izuzmi] != "1"} { putserv "PRIVMSG $chan $nick, $text 15 h4ck3r $hacker%"
  72. } elseif {$text == ""} { putserv "PRIVMSG $chan $nick 15 h4ck3r $hacker%"
  73. } elseif {[string match -nocase *$text* $izuzmi] == "1"} { putserv "PRIVMSG $chan $text 15 h4ck3r 100%"
  74. } else { return }
  75. }
  76. }
  77.  
  78. proc pub_sexy {nick mask hand chan text} {
  79. global izuzmi
  80. if {[checkUserAbuse $nick $chan] == "1"} {
  81. set sexy [expr {int(rand()*100)}]
  82. if {[string match -nocase *$text* $izuzmi] != "1"} { putserv "PRIVMSG $chan $nick, $text is sexy $sexy%"
  83. } elseif {$text == ""} { putserv "PRIVMSG $chan $nick is sexy $sexy%"
  84. } elseif {[string match -nocase *$text* $izuzmi] == "1"} { putserv "PRIVMSG $chan $text is sexy 100%"
  85. } else { return }
  86. }
  87. }
  88.  
  89. proc pub_gay {nick mask hand chan text} {
  90. global izuzmi
  91. if {[checkUserAbuse $nick $chan] == "1"} {
  92. set gay [expr {int(rand()*100)}]
  93. if {[string match -nocase *$text* $izuzmi] != "1"} { putserv "PRIVMSG $chan $nick, $text is gay $gay%"
  94. } elseif {$text == ""} { putserv "PRIVMSG $chan $nick is gay $gay%"
  95. } elseif {[string match -nocase *$text* $izuzmi] == "1"} { putserv "PRIVMSG $chan $text nije gay, on voli zene! :P"
  96. } else { return }
  97. }
  98. }
  99.  
  100. proc pub_laze {nick mask hand chan text} {
  101. global izuzmi
  102. if {[checkUserAbuse $nick $chan] == "1"} {
  103. set gay [expr {int(rand()*100)}]
  104. if {[string match -nocase *$text* $izuzmi] != "1"} { putserv "PRIVMSG $chan $nick, $text laze $gay%"
  105. } elseif {$text == ""} { putserv "PRIVMSG $chan $nick is gay $gay%"
  106. } elseif {[string match -nocase *$text* $izuzmi] == "1"} { putserv "PRIVMSG $chan $text nikada ne laze! Sve sto kaze je istina! :P"
  107. } else { return }
  108. }
  109. }
  110. proc pub_istina {nick mask hand chan text} {
  111. global izuzmi
  112. if {[checkUserAbuse $nick $chan] == "1"} {
  113. set gay [expr {int(rand()*100)}]
  114. if {[string match -nocase *$text* $izuzmi] != "1"} { putserv "PRIVMSG $chan $nick, $text govori/pise istinu $gay%"
  115. } elseif {$text == ""} { putserv "PRIVMSG $chan $nick is gay $gay%"
  116. } elseif {[string match -nocase *$text* $izuzmi] == "1"} { putserv "PRIVMSG $chan $text uvek govori istinu BRE! ;-)"
  117. } else { return }
  118. }
  119. }
  120. proc pub_ozbiljan {nick mask hand chan text} {
  121. global izuzmi
  122. if {[checkUserAbuse $nick $chan] == "1"} {
  123. set gay [expr {int(rand()*100)}]
  124. if {[string match -nocase *$text* $izuzmi] != "1"} { putserv "PRIVMSG $chan $nick, $text je ozbiljan $gay%"
  125. } elseif {$text == ""} { putserv "PRIVMSG $chan $nick is gay $gay%"
  126. } elseif {[string match -nocase *$text* $izuzmi] == "1"} { putserv "PRIVMSG $chan $text je uvek ozbiljan osim kad se zajebava :))"
  127. } else { return }
  128. }
  129. }
  130. proc pub_ozbiljna {nick mask hand chan text} {
  131. global izuzmi
  132. if {[checkUserAbuse $nick $chan] == "1"} {
  133. set gay [expr {int(rand()*100)}]
  134. if {[string match -nocase *$text* $izuzmi] != "1"} { putserv "PRIVMSG $chan $nick, $text je ozbiljna $gay%"
  135. } elseif {$text == ""} { putserv "PRIVMSG $chan $nick is gay $gay%"
  136. } elseif {[string match -nocase *$text* $izuzmi] == "1"} { putserv "PRIVMSG $chan $text je uvek ozbiljna osim kad se zajebava :))"
  137. } else { return }
  138. }
  139. }
  140. proc pub_neozbiljan {nick mask hand chan text} {
  141. global izuzmi
  142. if {[checkUserAbuse $nick $chan] == "1"} {
  143. set gay [expr {int(rand()*100)}]
  144. if {[string match -nocase *$text* $izuzmi] != "1"} { putserv "PRIVMSG $chan $nick, $text je ozbiljan $gay%"
  145. } elseif {$text == ""} { putserv "PRIVMSG $chan $nick is gay $gay%"
  146. } elseif {[string match -nocase *$text* $izuzmi] == "1"} { putserv "PRIVMSG $chan $text je uvek ozbiljan osim kad se zajebava :))"
  147. } else { return }
  148. }
  149. }
  150. proc pub_neozbiljna {nick mask hand chan text} {
  151. global izuzmi
  152. if {[checkUserAbuse $nick $chan] == "1"} {
  153. set gay [expr {int(rand()*100)}]
  154. if {[string match -nocase *$text* $izuzmi] != "1"} { putserv "PRIVMSG $chan $nick, $text je ozbiljna $gay%"
  155. } elseif {$text == ""} { putserv "PRIVMSG $chan $nick is gay $gay%"
  156. } elseif {[string match -nocase *$text* $izuzmi] == "1"} { putserv "PRIVMSG $chan $text je uvek ozbiljna osim kad se zajebava :))"
  157. } else { return }
  158. }
  159. }
  160. proc pub_crnac {nick mask hand chan text} {
  161. global izuzmi
  162. if {[checkUserAbuse $nick $chan] == "1"} {
  163. set gay [expr {int(rand()*100)}]
  164. if {[string match -nocase *$text* $izuzmi] != "1"} { putserv "PRIVMSG $chan $nick, $text je crnac $gay%"
  165. } elseif {$text == ""} { putserv "PRIVMSG $chan $nick je crnac $gay%"
  166. } elseif {[string match -nocase *$text* $izuzmi] == "1"} { putserv "PRIVMSG $chan $text je skinhead! :))"
  167. } else { return }
  168. }
  169. }
  170. bind pub - !veverica pub_veverica
  171. proc pub_veverica {nick mask hand chan text} {
  172. global izuzmi
  173. if {[checkUserAbuse $nick $chan] == "1"} {
  174. set gay [expr {int(rand()*100)}]
  175. if {[string match -nocase *$text* $izuzmi] != "1"} { putserv "PRIVMSG $chan $nick, $text je veverica $gay%"
  176. } elseif {$text == ""} { putserv "PRIVMSG $chan $nick je veverica $gay%"
  177. } elseif {[string match -nocase *$text* $izuzmi] == "1"} { putserv "PRIVMSG $chan $text nije veverica,zamenio si ga sa CarevicFTW! :))"
  178. } else { return }
  179. }
  180. }
  181.  
  182. bind pub - !govedo pub_govedo
  183. proc pub_govedo {nick mask hand chan text} {
  184. global izuzmi
  185. if {[checkUserAbuse $nick $chan] == "1"} {
  186. set gay [expr {int(rand()*100)}]
  187. if {[string match -nocase *$text* $izuzmi] != "1"} { putserv "PRIVMSG $chan $nick, $text je govedo $gay%"
  188. } elseif {$text == ""} { putserv "PRIVMSG $chan $nick je govedo $gay%"
  189. } elseif {[string match -nocase *$text* $izuzmi] == "1"} { putserv "PRIVMSG $chan $text nije govedo, najveca goveda mozes naci na #goveda ! :))"
  190. } else { return }
  191. }
  192. }
  193.  
  194. bind pub - !dupe pub_dupe
  195. bind pub - !guza pub_dupe
  196. proc pub_dupe {nick mask hand chan text} {
  197. global izuzmi dupe
  198.  
  199. set prcko [lindex $text 0]
  200. if {[checkUserAbuse $nick $chan] == "1"} {
  201. if {$prcko != "" && [string match -nocase *$prcko* $izuzmi] != "1"} {
  202.  
  203.    putserv "PRIVMSG $chan :$prcko [lindex $dupe [rand [llength $dupe]]]"
  204.  
  205. } elseif {[string match -nocase *$prcko* $izuzmi] == "1"} { putact $chan "svrsava po $nick guzi!"
  206. } else { putserv "PRIVMSG $chan :$prcko [lindex $dupe [rand [llength $dupe]]]" }
  207. }
  208. }
  209.  
  210. set dupe {
  211. "voli da daje svoju guzu svima sa chata!"
  212. "ima najbolju guzu na serveru, a i shire!"
  213. }
  214.  
  215. proc pub_prc {nick mask hand chan text} {
  216. global izuzmi
  217.    global prc
  218.  
  219.    set prcko [lindex $text 0]
  220. if {[checkUserAbuse $nick $chan] == "1"} {
  221. if {$prcko != "" && [string match -nocase *$prcko* $izuzmi] != "1"} {
  222.  
  223.    putact $chan "prca $prcko sa [lindex $prc [rand [llength $prc]]]"
  224.  
  225. } elseif {[string match -nocase *$prcko* $izuzmi] == "1"} { putact $chan "prca $nick jel` ne voli incest!"
  226. } else { putact $chan "prca $nick sa [lindex $prc [rand [llength $prc]]]" }
  227.  
  228. }
  229. }
  230.  
  231.  
  232. set prc {
  233.  
  234. "velikim dildom u guzu!"
  235.  
  236. "velikim dildom u picu!"
  237.  
  238. "velikim dildom u uvo!"
  239.  
  240. "kalabasterom u guzu!"
  241.  
  242. "kalabasterom u picu!"
  243.  
  244. "lubenicom u prdaru!"
  245.  
  246. "metlom u guzu!"
  247.  
  248. "burgijom u picu"
  249.  
  250. }
  251.  
  252.  
  253.  
  254. proc pub_drka {nick mask hand chan text} {
  255. global izuzmi
  256.    global drka
  257.  
  258.    set drkadzija [lindex $text 0]
  259. if {[checkUserAbuse $nick $chan] == "1"} {
  260. if {$drkadzija != "" && [string match -nocase *$drkadzija* $izuzmi] != "1"} {
  261.  
  262.    putact $chan "oseca da ga $drkadzija drka [lindex $drka [rand [llength $drka]]]"
  263. } elseif {[string match -nocase *$drkadzija* $izuzmi] == "1"} { putact $chan "zna da je $nick zesci drkadzija, a $text ima redovan sex sa $nick mamom i ne mora da ga drvi! :P"
  264. } else { putact $chan "oseca da ga $nick drka [lindex $drka [rand [llength $drka]]]" }
  265.  
  266. }
  267.  
  268. set drka {
  269.  
  270. "jednom na dan!"
  271.  
  272. "dva puta na dan!"
  273.  
  274. "tri puta na dan!"
  275.  
  276. "vise puta na dan!"
  277.  
  278. "brate po ceo dan! Ti si pravi drkadzija!"
  279.  
  280. }
  281. }
  282.  
  283. proc pub_izmeri {nick mask hand chan text} {
  284. global izuzmi
  285.    global izmeri
  286.  
  287.    set meritelj [lindex $text 0]
  288. if {[checkUserAbuse $nick $chan] == "1"} {
  289. if {$meritelj != "" && [string match -nocase *$meritelj* $izuzmi] != "1"} {
  290.  
  291.    putact $chan "zaviruje $meritelj u gace, vadi mikroskop i kaze... $meritelj ima kurac [lindex $izmeri [rand [llength $izmeri]]]"
  292. } elseif {[string match -nocase *$meritelj* $izuzmi] == "1"} { putact $chan  "zaviruje $nick u gace, vadi mikroskop i kaze... $nick ima kurac [lindex $izmeri [rand [llength $izmeri]]]"
  293. } else { putact $chan "zaviruje $nick u gace, vadi mikroskop i kaze... $nick ima kurac [lindex $izmeri [rand [llength $izmeri]]]" }
  294.  
  295. }
  296.  
  297. set izmeri {
  298.  
  299. "10 cm!"
  300.  
  301. "11 cm!"
  302.  
  303. "12 cm!"
  304.  
  305. "13 cm!"
  306.  
  307. "14 cm!"
  308.  
  309. "15 cm!"
  310.  
  311. "16 cm!"
  312.  
  313. "17 cm!"
  314.  
  315. "18 cm!"
  316.  
  317. "19 cm!"
  318.  
  319. "20 cm!"
  320.  
  321. "21 cm!"
  322.  
  323. "22 cm!"
  324.  
  325. "23 cm!"
  326.  
  327. "24 cm!"
  328.  
  329. "25 cm!"
  330. }
  331. }
  332.  
  333.  
  334.  
  335. proc pub_sise {nick mask hand chan text} {
  336.  
  337. global izuzmi
  338. global sise
  339. set sisata $text
  340. if {[checkUserAbuse $nick $chan] == "1"} {
  341. if {$sisata == "Anqa"} { putact $chan "pipa $nick za grudi i procenjuje da Anqa ima najvecu sisu koju je ikad video!!! VAUUU Anqa, hoce li mi dati munZe da pipnem? :)" }
  342. if {$sisata != "" && [string match -nocase *$sisata* $izuzmi] != "1"} { putact $chan "pipa $sisata za grudi i procenjuje da $sisata [lindex $sise [rand [llength $sise]]]"
  343. } elseif {[string match -nocase *$sisata* $izuzmi] == "1"} { putact $chan "pipa $nick kevu i kaze da $nick mama ima dobru sisu :)"
  344. } else { putact $chan "pipa $nick za grudi i procenjuje da $nick [lindex $sise [rand [llength $sise]]]" }
  345. }
  346. }
  347.  
  348. set sise {
  349.  
  350. "ima malene dvojke!"
  351.  
  352. "ima solidne trojke!"
  353.  
  354. "ima dobre cetvorke!"
  355.  
  356. "ima zadovoljavajuce petice! Uh kolke siseee!!! :)"
  357.  
  358. "nema nikakve sise u obliku plavog patlidzana!"
  359.  
  360. "ima silikone! Zajebala te majka priroda pa si davala pare za operaciju! Pu! Ali daj da mesim malo :)"
  361.  
  362. "ima silikone! Zajebala te majka priroda pa si davala pare za operaciju! Pu! Ali daj da mesim malo :)"
  363.  
  364. "nema neku sisu... ali kad je skinula brus, bradavica kao kompakt disk!"
  365.  
  366. "ima sisu ki pirinach :)"
  367.  
  368. "ima sisu ki dve zelene jabuke :)"
  369.  
  370. "ima sise velicine treshnjica :)"
  371.  
  372. "ima sise u obliku limuna."
  373.  
  374. "ima sise ko breskve"
  375.  
  376. "ima sise u obliku kruske"
  377.  
  378. "ima sise u obliku papaje"
  379.  
  380. "ima sise ko staze za ski skokove"
  381.  
  382. "ima sise ko flashe za vodu"
  383.  
  384. "ima sise ko kesice za caj"
  385.  
  386. "ima sise ko lubenice"
  387.  
  388. "ima sise ki lonci za supu"
  389.  
  390. "ima sise ki mango"
  391.  
  392. "ima sise ko kugle za kuglanje"
  393.  
  394. }
  395.  
  396. ######################
  397. #   Flood protect    #
  398. ######################
  399.  
  400. set floodTime 5
  401. set floodmsg 3
  402. set banDuration 10
  403.  
  404. proc initCmdUser {host time} {
  405.    global usersbanovani
  406.    set usersbanovani($host) [list 0 [list $time]]
  407.    return
  408. }
  409.  
  410. proc checkUserAbuse {nick chan} {
  411.    set host [getchanhost $nick $chan]
  412.    global usersbanovani banDuration floodTime floodmsg
  413.    set time [unixtime]
  414.    if {![array exists usersbanovani]} {
  415.       initCmdUser $host $time
  416.       return 1
  417.    }
  418.    set seenNick 0
  419.    foreach user [array names usersbanovani] {
  420.       if {$user == $host} {set seenNick 1; break}
  421.    }
  422.    if {$seenNick == 0} {
  423.       initCmdUser $host $time
  424.       return 1
  425.    }
  426.    if {[lindex $usersbanovani($host) 0] != 0} {
  427.       if {[lindex $usersbanovani($host) 0] <= $time} {
  428.      array set usersbanovani [list $host [list 0 [list $time]]]
  429.          return 1
  430.       }
  431.       return 0
  432.    }
  433. set messages {}
  434.    foreach m [lindex $usersbanovani($host) 1] {
  435.       if {[expr $time-$m] <= $floodTime} {
  436.      lappend messages $m
  437.       }
  438.    }
  439.    lappend messages $time
  440.    array set usersbanovani [list $host [list 0 $messages]]
  441.    if {[llength $messages] > $floodmsg} {
  442.     set host [getchanhost $nick]
  443.  
  444.       array set usersbanovani [list $host [list [expr $time+($banDuration*60)] {}]]
  445.       return 0
  446.    }
  447.    return 1
  448. }
  449. ######################
  450.  
  451. putlog "Skripta za prcanje v1.337 je uspesno ucitana ..."
Advertisement
Add Comment
Please, Sign In to add comment
Public Pastes
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!