# Подправил малец скриптик, теперь работает на ура. # За настойчивость спасибо BoGySeNoK. За перевод LesbiAnka. # -DJ_Leshiy- # # # # Script : Strip Tease v1.04 by David Proper (Dr. Nibble [DrN]) # Copyright 2001 Radical Computer Systems # All Rights Reserved # # Original # Platform : Linux 2.0.33 # Eggdrop v1.2.0+bel1 # Current # Platforms : Linux 2.2.16 # Eggdrop v1.6.2 # And : SunOS 5.8 # Eggdrop v1.5.4 # # Description : Strip Tease will, once triggered, make your bot preform # a strip tease in the channel. Pretty useless, but kinda # amusing. # # History : 04/10/2000 v1.00 - First Release # 04/12/2000 v1.01 - Fixed error in random line picking # - Added more lines of dialog # 07/25/2000 v1.02 - Fixed bug that used 2 diff nicks on # lines that used $nick twice. # - Fixed stripchan error on second strip # 02/09/2001 v1.03 - Fixed error on lines with " in them # - Converts more then the first _ to space # 05/30/2001 v1.04 - Fixed error in not resetting # stripping status # - Might have fixed that annoying error: # list element in quotes followed by "A" instead of space # - Easy to modify "don't pick" nick list # - Renamed variables and some proc's. # # # Future Plans : o More dialog possibilities # o possibly modify script for either a female or male # bot. (It's setup for a female bot at the moment) # # Chaotix.Net is currentlly offline. Should return no later then Jan 1st, 2002 # # Author Contact : Email - DProper@bigfoot.com # Home Page - http://home.earthlink.net/~daproper # IRC - Nick: DrN UnderNet/DALnet # # Radical Computer Systems - http://www.chaotix.net/rcs/ # # To subscribe to the RCS mailing list: mail majordomo@chaotix.net and in # BODY of message, type subscribe rcs-list # # Feel free to Email me any suggestions/bug reports/etc. # # You are free to use this TCL/script as long as: # 1) You don't remove or change author credit # 2) You don't release it in modified form. (Only the original) # # If you have a "too cool" modification, send it to me and it'll be # included in the official release. (With your credit of course) # # Commands Added: # Where F CMD # ---------- - --------- # Public: o !striptease # MSG: o striptease # DCC: o striptease # # Public Matching: N/A # #\ # |##### NOTE: Anything on the Chaotix.Net domain is currently offline # |##### until we move. (Wife's in college, taking all our money) # |##### Email me at dproper@bigfoot.com if you want to help. #/ set strip(active) 0 set cmdchar_ "!" set strip(chan) "#racing" set strip(nouser) "W X ChanServ ^Elviraa^ LadySin WiLdOnE IsleBot GoD UWorld" set strip(ver) "v1.04" proc cmdchar { } { global cmdchar_ return $cmdchar_ } bind msg o striptease msg_striptease bind dcc o striptease dcc_striptease bind pub - [cmdchar]striptease pub_striptease bind pub - [cmdchar]стриптиз pub_striptease proc msg_striptease {nick uhost hand rest} { global strip botnick set chan $rest if {$rest == ""} {putserv "PRIVMSG $nick :Calling Syntax: striptease #channel" return 0} if {[validchan $chan] == 0} {putserv "PRIVMSG $nick :$chan is an invalid channel (I'm not on it)" return 0} set strip(active) 1 set strip(chan) $chan putserv "NOTICE $nick :Initilizing Strip Tease for channel $chan" init_striptease utimer 1 "striptease 1" } proc dcc_striptease {hand idx text} { global strip set chan [string tolower [lindex [console $idx] 0]] if {($strip(active) == 1)} {putdcc $idx "Sorry, I'm allready doing a strip tease in $strip(chan)" return 1} set stripp(action) 1 set strip(chan) $chan putdcc $idx "Initilizing Strip Tease for channel $chan" init_striptease utimer 1 "striptease 1" } proc pub_striptease {nick uhost handle chan args} { global clothes strip stripline if {($strip(active) == 1)} {putserv "PRIVMSG $nick :Sorry, I'm allready doing a strip tease in $strip(chan)" return 1} set strip(active) 1 set strip(chan) $chan putserv "NOTICE $nick :Initilizing Strip Tease for channel $chan" init_striptease utimer 1 "striptease 1" } proc init_striptease {} { global clothes strip stripline set miscs "шляпку шарфик туфелки босоножки шляпку пояс_с_подвязками" set miscrs "бросила стянула выкинула скинула сбросила сняла" set tops "маечку футболку топик" set bottoms "брюки юбку шорты мини_юбку кожаную_мини_юбку кожаные_брюки короткие_шортики" set utops "лифчик лифак кожаный_лифчик узкий_корсет" set ubottoms "трусики трусики_с_сердечком кожаные_трусики шелковые_трусики прозрачные_трусики" set miscn [rand [llength $miscs]] set clothes(misc) [lindex $miscs $miscn] regsub -all {_} $clothes(misc) " " clothes(misc) set clothes(miscr) [lindex $miscrs $miscn] regsub -all {_} $clothes(miscr) " " clothes(miscr) set clothes(top) [lindex $tops [rand [llength $tops]]] regsub -all {_} $clothes(top) " " clothes(top) set clothes(bottom) [lindex $bottoms [rand [llength $bottoms]]] regsub -all {_} $clothes(bottom) " " clothes(bottom) set clothes(utop) [lindex $utops [rand [llength $utops]]] regsub -all {_} $clothes(utop) " " clothes(utop) set clothes(ubottom) [lindex $ubottoms [rand [llength $ubottoms]]] regsub -all {_} $clothes(ubottom) " " clothes(ubottom) unset tops unset bottoms unset miscs unset miscrs unset utops unset ubottoms } set stripline(1) { {ACTION открывает глаза и прислушивается:музыка?!} {ACTION делает музыку погромче в WinAmp`e} {ACTION настраивает приемник на любимою волну SexMusicFM} {ACTION ставит любимый диск PornoSounds в режиме рандом} {ACTION бегает по каналу - дайте же мне музыки!} } set stripline(2) { {ACTION кружится в танце обнимая свою любимую игрушку - вибратор} {ACTION начинается ритмично дрыгаца в ритм музыки ТЫЦ ТЫЦ ТЫЦ} {ACTION вслушивается в музыку и ловит ритм} {ACTION набирает обороты в танце} {ACTION порхает по комнате изображая танец} {ACTION с счастливой улыбкой на лице - отжигает!} } set stripline(3) { {Только я или кто то еще чувствует возбуждение?} {ACTION поглаживает руками свое тело и чувствуется, что ее пульс повышается.} {ACTION жарко.. Двигается под заряжающе-возбуждающую мелодию} {ACTION ловит кайф от музыки и движения.} {ACTION заводится неподеЦЦки} } set stripline(4) { {ACTION поет "I want to fuck you like an animal. I want to feel you from the inside."} {ACTION поет "I want to fuck you like an animal! My whole existence is gone, you bring me closer to god"} {ACTION поет "Sex is natural, sex is fun, sex is best when it's one on one"} {ACTION поет "When I think about you I touch myself... I touch myself."} {ACTION поет "You and me baby ain't nothing but mammals, so let's do it like they do on the Discovery channel."} } set stripline(5) { {ACTION решает, что слишком много одежды сковывает ее движения и $clothes(miscr) $clothes(misc) } {ACTION $clothes(miscr) $clothes(misc) } {ACTION нескромно смотрит на $nick и $clothes(miscr) $clothes(misc) ,улыбаясь} {ACTION $clothes(miscr) $clothes(misc) и спрашивает $nick хочет ли он раздется вместе с ней} } set stripline(6) { {Кто-нибудь хочет танцевать? Я хочу!} {Я чувствую я поймала свой ритм и начинаю становится непристойной} {Энергия и желание кипит во мне!} {Только мне здесь жарко?} {Оууу! Я хочку раздеться! Мне жарко!} {Обещайте что остановите меня, если я начну раздеваться!} } set stripline(7) { {ACTION продолжает танцевать посредине комнаты, эротично выгибаясь} {ACTION танцует} {ACTION отжигает, чувствует жар и ей это НРАВИТСЯ!} {ACTION ТЫЦ ТЫЦ ТЫЦ ТЫЦ!} } set stripline(8) { {ACTION медленно стягивает $clothes(top) с себя и ускоряет скорость танца.} {ACTION снимает $clothes(top) и бросает $nick} {ACTION избавляется от $clothes(top) и танцуя рядом с $nick надевает ему на голову, хихикая } {ACTION медленно снимает $clothes(top) и видно что ее шея и плечи блестят } {ACTION резво сдергивает $clothes(top) с себя и встряхивает волосами} } set stripline(9) { {ACTION танцует посередине комнаты и чарующе смотрит на каждого поочереди} {ACTION танцует вокруг $nick и нежно поглаживает себя кончиками пальчиков} {ACTION танцует перед $nick и сексуально подмигивает ему} {ACTION развратно ведет себя, крутя шикарной крепкой попкой перед $nick и ехидно улыбаясь} } set stripline(10) { {ACTION медленно снимает $clothes(bottom) со своей аппетитной попки} {ACTION наклоняется перед $nick и стягивает $clothes(bottom) } {ACTION снимает $clothes(bottom) и украшает этим голову $nick и....смеется =) } {ACTION стягивает $clothes(bottom) и проводит руками по своим безупречным длинным ножкам, трогая и внутренюю часть бедер} } set stripline(11) { {ACTION подбирает $clothes(bottom) и, ощупывая ткань в области паха, обнаруживает что там все промокло!!} {ACTION подбирает $clothes(misc) с пола и выкидывает со своего пути, чтобы не мешало } {ACTION подбирает $clothes(top) и возбуждающе проводит этим между своих ног прямо перед лицом $nick} } set stripline(12) { {ACTION страстно сдергивает с себя $clothes(utop) , танцует перед $nick садится к нему попкой на коленки,ерзает там и дарит поцелуй в лобик} {ACTION снимает с себя $clothes(utop) , танцует перед $nick и зарывает лицо $nick в свой 3 размер} {ACTION сжимает руками свою грудь, стаскивает с себя $clothes(utop) и бросает на пол} {ACTION рукой проскальзывает под $clothes(utop) , ласкает свои сосочки затем срывает с себя $clothes(utop) и "мокро" улыбаясь смотрит на $nick} {ACTION медленно снимает $clothes(utop) через голову и показывает свою шикарную грудь со стоящими сосочками, блестяющую...ммммм....} } set stripline(13) { {ACTION танцует вокруг $nick и раздвигает свои сексуальные ножки в такт музыки} {ACTION вращается вокруг себя в откровенно-сексуальной манере под музыку } {ACTION лапает свое мокрое тело во время танца} {ACTION пристально смотрит в глаза $nick и спрашивает "Хм, тебе нравится что я делаю? "} {ACTION поднимает $clothes(misc) с пола, показывает свою крепкую попку $nick , покачивает ею.....} {ACTION хватает свою грудь высовывает язычек и ласкает свой сосочек кончиком языка} } set stripline(14) { {ACTION смотрит в глаза $nick ;он смотрит на ее $clothes(ubottom) ; она запускает под них руку.. } {ACTION подскакивает к $nick, снимает $clothes(ubottom) и запихивает их в ротик $nick } {ACTION бросает $clothes(ubottom) $nick и вскрикивает "Ta Da!"} } set stripline(15) { {ACTION берет сливки, обляпывает ими свою грудь и размазывает их по всему телу} {ACTION взбалтывает бутылку шампанского, аккуратно подцепляет пробку, пробка улетает, а поток шампанского устремляется прямо ей между ног!} {ACTION обливает свою грудь свежевыжатым клубничным соком} {ACTION измызывает свою попку малиновым вареньем} } set stripline(16) { {ACTION ложится на пол и крутит разведенными бедрами вверх-вниз} {ACTION танцует в комнате и ласкает $nick , проходя мимо} {ACTION ложится на пол и раздвигает свои ножки. Пальчиками докасается до своей киски...} {ACTION встает в позу "собачки" и пропускает руку между своих ног...} {ACTION раздвигает двумя пальчиками свои губки} {ACTION ложится на столик $nick разводит ножки и демонстрирует тщательно выбритое сердечко на киске} } set stripline(17) { {ACTION исступленно трет свой клиторок пальчиками и в экстазе кусает губы} {ACTION размазывает свою влагу по бедрам....} {ACTION нежно и неторопливо гладит себя между ног,наслаждаясь каждым движением} {ACTION нагло смотрит на $nick , покусывает губы, показывает язычок и запускает свой пальчик во влагалище} {ACTION покачивая бедрами подходит к $nick и... хватает его за ТО самое место! А его руку кладет на свою пусси-кэт} } set stripline(18) { {Меня кто нибудь тут трахнет????} {У кого здесь самый большой член? Я И-З-Н-Ы-В-А-Ю!!!} {ACTION шепчет $nick , ерзая попкой:"Я хочу чтобы ты вылизал мою киску"} {ACTION встала на колени, выпятила попку, шлепает себя по заднице....} } set stripline(19) { {ACTION подзывает другую сучку, берет вибратор вставляет его в себя, поворачивается попкой к попке подружки, вставляет ей и так они обе стонают насаживаясь на вибрурующего друга} {ACTION берет кота, сажает его между своих ножек и вскоре котенок начинает лизать сочащуюся из нее влагу,задевая шершавым языяком клиторок} {ACTION всаживает вибратор в себя, смотря безумными глазами на $nick и хочет чтобы он выдрал ее в другую щелочку} } set stripline(20) { {ACTION железной хваткой держится за столик, кричит, бушует----просто кончает...и с блаженной улыбкой глубоко дышет } } set stripline(21) { {ACTION подбирает $clothes(top) с пола так, чтобы напоследок была видна всем ее истерзанная пухлая киска } {ACTION выхватывет $clothes(ubottom) у $nick со словами:"Я дам тебе это понюхать в следующий раз ок, сладкий?" {ACTION пытается снять $clothes(utop) с люстры, подпрыгивает несколько раз, треся своей шикарной грудью на потеху $nick} } } proc striptease {level} { global clothes strip stripline set nextlevel [expr $level + 1] if {($level == 21)} { set strip(active) 0 unset clothes return } else { set dialog $stripline($level); set rdialog [rand [llength $dialog]] strip_sendtxt $strip(chan) "[lindex $stripline($level) [rand [llength $stripline($level)]]]" utimer 5 "striptease $nextlevel"} } proc strip_sendtxt {chan outmsg} { global clothes botnick if {($outmsg != "")} { set user [rnduser $chan] regsub -all {\$nick} $outmsg $user outmsg regsub -all {\$chan} $outmsg $chan outmsg regsub -all {\$clothes\(misc\)} $outmsg $clothes(misc) outmsg regsub -all {\$clothes\(miscr\)} $outmsg $clothes(miscr) outmsg regsub -all {\$clothes\(top\)} $outmsg $clothes(top) outmsg regsub -all {\$clothes\(utop\)} $outmsg $clothes(utop) outmsg regsub -all {\$clothes\(bottom\)} $outmsg $clothes(bottom) outmsg regsub -all {\$clothes\(ubottom\)} $outmsg $clothes(ubottom) outmsg regsub -all {\\001} $outmsg \001 outmsg regsub -all {\\002} $outmsg \002 outmsg if {[lindex $outmsg 0] == "ACTION"} {putserv "PRIVMSG $chan :\001$outmsg\001" return 0} if {[lindex $outmsg 0] == "KICK"} {putserv "KICK $chan $nick :[lrange $outmsg 1 end]"} { putserv "privmsg $chan :$outmsg"} } } proc rnduser {chan} { global botnick strip set clist [chanlist $chan] if {([llength $clist] == 1)} {set clist "$clist her"} set pickeduser 0 while {$pickeduser == 0} { set user [lindex $clist [rand [llength $clist]]] set pickeduser 1 foreach n $strip(nouser) { if {([string tolower $user] == [string tolower $n])} {set pickeduser 0} } if {($user == $botnick)} {set pickeduser 0} } set uhand [nick2hand $user $chan] return $user } putlog "StripTease v1.04 TCL written by DrN. Переведено by LesbiAnka, и заставлено работать DJ_Leshiy. -: Loaded :-"