API tools faq
paste
r00t-err0r

prcko v1.2M052013

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