prcko2

# By munZe - Made for #SerbianNight

bind pub - !prc pub_prc

bind pub - !drka pub_drka

bind pub - !izmeri pub_izmeri

bind pub - !komande pub_komande

bind pub - !sise pub_sise

bind pub - !sexy pub_sexy

bind pub - !gay pub_gay

bind pub - !hacker pub_hacker

set izuzmi [list "munZe" "Nenica" "Tea" "Mrmot"]

proc pub_komande {nick mask hand channel text} {

   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>"
 putact $channel "\002!sexy <nick> \037-\037 !pic2fb <picture-url> \037-\037 !horoskop <znak> \037-\037 !bolest <nick>"

}

proc pub_hacker {nick mask hand channel text} {

global izuzmi

set hacker [expr {int(rand()*100)}]
if {[string match -nocase *$text* $izuzmi] != "1"} { putserv "PRIVMSG $channel $nick, $text 15 h4ck3r $hacker%"
} elseif {$text == ""} { putserv "PRIVMSG $channel $nick 15 h4ck3r $hacker%"
} elseif {[string match -nocase *$text* $izuzmi] == "1"} { putserv "PRIVMSG $channel $text 15 h4ck3r 100%"
} else { return }
}


proc pub_sexy {nick mask hand channel text} {
global izuzmi
set sexy [expr {int(rand()*100)}]
if {[string match -nocase *$text* $izuzmi] != "1"} { putserv "PRIVMSG $channel $nick, $text is sexy $sexy%"
} elseif {$text == ""} { putserv "PRIVMSG $channel $nick is sexy $sexy%"
} elseif {[string match -nocase *$text* $izuzmi] == "1"} { putserv "PRIVMSG $channel $text is sexy 100%"
} else { return }
}


proc pub_gay {nick mask hand channel text} {
global izuzmi
set gay [expr {int(rand()*100)}]
if {[string match -nocase *$text* $izuzmi] != "1"} { putserv "PRIVMSG $channel $nick, $text is gay $gay%"
} elseif {$text == ""} { putserv "PRIVMSG $channel $nick is gay $gay%"
} elseif {[string match -nocase *$text* $izuzmi] == "1"} { putserv "PRIVMSG $channel $text nije gay, on voli zene! :P"
} else { return }
}

proc pub_prc {nick mask hand channel text} {
global izuzmi
   global prc

   set prcko [lindex $text 0]

if {$prcko != "" && [string match -nocase *$prcko* $izuzmi] != "1"} {

   putact $channel "prca $prcko sa [lindex $prc [rand [llength $prc]]]"

} elseif {[string match -nocase *$prcko* $izuzmi] == "1"} { putact $channel "prca $nick jel` ne voli incest!"
} else { putact $channel "prca $nick sa [lindex $prc [rand [llength $prc]]]" }

}



set prc {

"velikim dildom u guzu!"

"velikim dildom u picu!"

"velikim dildom u uvo!"

"kalabasterom u guzu!"

"kalabasterom u picu!"

"lubenicom u prdaru!"

}



proc pub_drka {nick mask hand channel text} {
global izuzmi
   global drka

   set drkadzija [lindex $text 0]

if {$drkadzija != "" && [string match -nocase *$drkadzija* $izuzmi] != "1"} {

   putact $channel "oseca da ga $drkadzija drka [lindex $drka [rand [llength $drka]]]"
} 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"
} else { putact $channel "oseca da ga $nick drka [lindex $drka [rand [llength $drka]]]" }

}

set drka {

"jednom na dan!"

"dva puta na dan!"

"tri puta na dan!"

"vise puta na dan!"

"brate po ceo dan! Ti si pravi drkadzija!"

}


proc pub_izmeri {nick mask hand channel text} {

   global izmeri

   set meritelj [lindex $text 0]

if {$meritelj != ""} {

   putact $channel "zaviruje $meritelj u gace, vadi mikroskop i kaze... $meritelj ima kurac [lindex $izmeri [rand [llength $izmeri]]]"

} else { putact $channel "zaviruje $nick u gace, vadi mikroskop i kaze... $nick ima kurac [lindex $izmeri [rand [llength $izmeri]]]" }

}

set izmeri {

"10 cm!"

"11 cm!"

"12 cm!"

"13 cm!"

"14 cm!"

"15 cm!"

"16 cm!"

"17 cm!"

"18 cm!"

"19 cm!"

"20 cm!"

"21 cm!"

"22 cm!"

"23 cm!"

"24 cm!"

"25 cm!"

}



proc pub_sise {nick mask hand channel text} {
global izuzmi
global sise
set sisata $text
if {$sisata != "" && [string match -nocase *$sisata* $izuzmi] != "1"} { putact $channel "pipa $sisata za grudi i procenjuje da $sisata [lindex $sise [rand [llength $sise]]]"
} elseif {[string match -nocase *$sisata* $izuzmi] == "1"} { putact $channel "pipa $nick kevu i kaze da $nick mama ima dobru sisu :)"
} else { putact $channel "pipa $nick za grudi i procenjuje da $nick [lindex $sise [rand [llength $sise]]]" }
}

set sise {

"ima malene dvojke!"

"ima solidne trojke!"

"ima dobre cetvorke!"

"ima zadovoljavajuce petice! Uh kolke siseee!!! :)"

"nema nikakve sise u obliku plavog patlidzana!"

"ima silikone! Zajebala te majka priroda pa si davala pare za operaciju! Pu! Ali daj da mesim malo :)"

"ima silikone! Zajebala te majka priroda pa si davala pare za operaciju! Pu! Ali daj da mesim malo :)"

"nema neku sisu... ali kad je skinula brus, bradavica kao kompakt disk!"

}



putlog "Skripta za prcanje v1.337 je uspesno ucitana ..."