#TCL

Verfasst am: 28.01.2007, 19:25

bind pub - !leck spass:leck
proc msgchan {chan msg} {puthelp "PRIVMSG $chan :$msg"}
proc actchan {chan msg} {puthelp "PRIVMSG $chan :\001ACTION $msg\001"}
proc spass:leck {nick host handle chan text} {
if {[string tolower [lindex $text 0]] == "BadGirl"} {
putchan $chan "OK $nick - hier haste ein eis - und nun verschwinde!"
} elseif {$text != ""} {
set wem [lindex $text 0]
# set r1 [rand 8]
# if {$r1 == 0} {set p1 "schreit"}
# if {$r1 == 1} {set p1 "stellt"}
# if {$r1 == 2} {set p1 "bringt"} Dieser Part wurde $r2 zugefügt
# if {$r1 == 3} {set p1 "schiebt"}
# if {$r1 == 4} {set p1 "zerrt"}
# if {$r1 == 5} {set p1 "schnappt"}
# if {$r1 == 6} {set p1 "greift"}
# if {$r1 == 7} {set p1 "schleift"}
set r2 [rand 7]
if {$r2 == 0} {set p2 "schreit wie ein bekloppter hund und freut sich das $nick, $text voll die muschi lecken will."}
if {$r2 == 1} {set p2 "zerrt eine gebrauchte Liege in channel .. Bitte $nick, aber megger nicht rum wenn deine zunge am ende weh tut wenn du zu stürmisch $text die votze lecken tust.!"}
if {$r2 == 2} {set p2 "schiebt ein Wasserbett in $chan .. Bitte $nick, nun wollen wir mal bissel was sehen wie du $text die nasse muschi voll durch schlecken und lecken tust."}
if {$r2 == 3} {set p2 "bringt geschwind ein taschentuch zu $nick, immer nach dem lecken mit $text schön den sabber von dein lippen ab wischen. .. p.s. bissel wasser hilft auch *g*" }
if {$r2 == 4} {set p2 "schnappt sich eine flasche sahne strizt $text die muschi voll, damit $nick auch mit zunge in dir sein kann *gg* hm.. $nick hast du überhaupt so ein langen lappen?" }
if {$r2 == 5} {set p2 "greift sich $text und wirft $text zu boden! bitte $nick! jetzt leck was das zeug hällt. p.s. aber nicht am arsch lecken schmeckt bestimmt nicht gut :p" }
if {$r2 == 6} {set p2 "schleift $text in eine dunkle kammer wo $nick schön wartet, Bitte $nick aber rutsch nicht ab beim lecken weiter unten is das a...loch und das schmeckt sicher nich ;)" }
set r3 [rand 4]
if {$r3 == 0} {set p3 "nu wollen wir aber mal was sehen $nick und $text"}
if {$r3 == 1} {set p3 "ich hoffe du hast spass $text ;)"}
if {$r3 == 2} {set p3 "Frauen an der Macht oder $text :))"}
if {$r3 == 3} {set p3 "arg mir juckt da jetzt auch was :("}
if {$r3 == 4} {set p3 "schieb die möhre in die röhre"}
set arg1 [lindex $text 1]
set arg2 [lindex $text 2]
set arg3 [lindex $text 3]
set arg4 [lindex $text 4]
set arg5 [lindex $text 5]
actchan $chan "$p2"
msgchan $chan "$p3"
}
}

Verfasst am: 28.01.2007, 19:25

Random Text