excecuting command should be !striptease
the channel name = #ircchannel
botname who has the scripts = Elisaken
ircnetwork is named irc.quakenet.org
i tried several things but i cannot find the problem, so i hope someone can help me out this problem
thx advanced
# 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) ""
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 o [cmdchar]striptease 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 10 "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 10 "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 10 "striptease 1"
}
proc init_striptease {} {
global clothes strip stripline
set miscs "hat scarf shoes sandles cap garter_belt"
set miscrs "tosses slides kicks kicks pitches slides"
set tops "shirt tank-top t-shirt halter_top"
set bottoms "pants skirt shorts mini_skirt leather_mini_skirt leather_pants hot_pants short_shorts"
set utops "bra silk_teddie leather_teddy leather_corset tight_corset"
set ubottoms "panties crotch-less_panties leather_panties silk_panties silk_lace_panties"
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 puts on some rhythmic music}
{ACTION puts in some sexy music into the CD player and smiles}
{ACTION hears a seductive song on the radio and turns it up}
}
set stripline(2) {
{ACTION starts to sway to the music}
{ACTION becomes entranced by the music and starts to sway back and forth.}
{ACTION moves in time with the music and in a very sexual way}
{ACTION starts to make love to the music that flows around her}
}
set stripline(3) {
{Is it just me or is anyone else feeling very sexual at the moment?}
{ACTION rubs her hands all over her body as her sexual mood heightens.}
{ACTION gets all hot and bothered listening to the sexualy charged song}
}
set stripline(4) {
{ACTION gets up and starts to dance around, gyrating to the rythem of the song}
{ACTION sings along with the music playing as her hips pulsate to the rythem}
{ACTION moves her body in time with the pulsating rhythem of the music}
}
set stripline(5) {
{ACTION sings "I want to [censored] you like an animal. I want to feel you from the inside."}
{ACTION sings "I want to [censored] you like an animal! My whole existence is gone, you bring me closer to god"}
{ACTION sings "Sex is natural, sex is fun, sex is best when it's one on one"}
{ACTION sings "When I think about you I touch myself... I touch myself."}
{ACTION sings "You and me baby ain't nothing but mammals, so let's do it like they do on the Discovery channel."}
}
set stripline(6) {
{ACTION becomes overcome by the sexual energy and $clothes(miscr) off her $clothes(misc)}
{ACTION $clothes(miscr) off her $clothes(misc)}
{ACTION seductively looks at $nick and $clothes(miscr) off her $clothes(misc) while smiling}
{ACTION $clothes(miscr) off her $clothes(misc) and asks $nick if they'd like to get naked with her}
}
set stripline(7) {
{Anyone feel like dancing? I sure do!}
{I feel like getting my groove on and getting nasty}
{The sexual energy in here sure is building up!}
{WOW! Is it hot in here or is it just me?}
{WhooHoo! I feel like getting naked!}
}
set stripline(8) {
{ACTION starts to dance in place, swaying her arms back and forth}
{ACTION dances to the music}
{ACTION dances in circles as the music bellows from the stereo}
}
set stripline(9) {
{ACTION slowly slides her $clothes(top) up her body and over her head in perfect time to the music.}
{ACTION lifts up her $clothes(top) in a teasing manor, then pulls it off and throws it at $nick}
{ACTION whips off her $clothes(top) and dances over and places it on $nick's head while giggling}
{ACTION slowly slides her $clothes(top) up her body and over her head, in perfect time to the music, her neck and shoulders glistening with sweat}
}
set stripline(10) {
{ACTION dances around the room seductively looking at everyone}
{ACTION dances over and sexually caresses $nick}
{ACTION dances past $nick and seductively winks at them}
}
set stripline(11) {
{ACTION pulls her $clothes(bottom) off slowly.. seductively.. caressing her body as she goes}
{ACTION bends over in front of $nick and slides her $clothes(bottom) off slowly}
{ACTION removes her $clothes(bottom) and drapes them over $nick's head and giggles}
{ACTION slides her $clothes(bottom) off.... slowly.. seductively.. caressing her body with her hot little fingers as she goes...."Ohhhhh yeeeeeessss"}
}
set stripline(12) {
{ACTION rubs her almost naked body up against $nick and gives them a kiss}
{ACTION picks up her $clothes(misc) from the floor and moves it out of the way}
{ACTION picks up her $clothes(top) and seductively pulls it back and forth over her crotch in front of $nick}
}
set stripline(13) {
{ACTION sensually pulls off her $clothes(utop) and dances over to $nick and places it around their neck and gives them a kiss}
{ACTION removes her $clothes(utop) and dances over to $nick and pushes her bare DD breasts into $nick's face}
{ACTION cups her covered breasts, moans, and removes her $clothes(utop) and discards it on the floor}
{ACTION slides her hands under her $clothes(utop) and fondles her nipples then rips off her $clothes(utop) and laughs as she throws it on $nick}
{ACTION slowly slides her $clothes(utop) up her body and over her head, in perfect time to the music, revealing two perfect breasts glistening with sweat}
}
set stripline(14) {
{ACTION dances over to $nick and grinds her crotch into them while singing}
{ACTION gyrates in an overtly sexual manner to the music}
{ACTION rubs her naked flesh while she dances to the music}
{ACTION stares into the eyes of $nick and asks "So, do you like what you see?"}
{ACTION picks up her $clothes(misc) from the floor, showing her firm, shapley ass to $nick as she bends over, and moves them out of the way}
{ACTION wraps her bellychain around $nick's waist and pulls them to her as she emits a breathy, light moan and writhes to the beat of the music, hips gyrating this way and that...}
}
set stripline(15) {
{ACTION bends over in front of $nick and seductively slides off her $clothes(ubottom)}
{ACTION sways over to $nick and removes her $clothes(ubottom) and places it on $nick's head}
{ACTION removes her $clothes(ubottom) and straddles $nick "You like lap dances honey?"}
{ACTION tosses her $clothes(ubottom) at $nick and yells "Ta Da!"}
}
set stripline(16) {
{ACTION lays down on the floor while heaving her naked body up and down}
{ACTION dances around the room, seductively caressing $nick as she goes past}
{ACTION lays down and spreads her legs. Her fingers gentally caressing the outline of her pussy}
{ACTION moans at her near estactic level of excitement as she caresses her body}
{ACTION exudes a deep, throaty moan as her near estactic level of excitement peaks... she caresses her body with fingers extended, caressing each and every curve....}
{ACTION rubs up against $nick so close and personal her bellychain rubs their face}
}
set stripline(17) {
{ACTION rubs her totally naked body against $nick and asks if they liked the show}
{ACTION dances mythicly around the room giving everyone a very good view of her naked body}
{ACTION twirls around proudly showing off her nakedness to everyone}
{ACTION dances mythicly around the room, stopping at each couch potato, wiggling and gyrating in front of them showing off her hot, sweaty, naked body}
{ACTION walks over to $nick and carresses them with her long hair}
}
set stripline(18) {
{ACTION smiles with pride at her nakedness and bows to the audience}
{ACTION radiates with pride over her nakedness and takes a bow}
{ACTION smiles with pride at her beautiful nakedness and bows seductively to the audience, glancing upwards thru her long, soft hair...staring at everyone}
}
set stripline(19) {
{ACTION walks around picking up her clothes and sits back down}
{ACTION goes over to $nick and takes back her $clothes(utop) "Sorry hun, I kinda need this back" and smiles}
{ACTION stretches out on the sofa and smiles at $nick gazing at her naked body}
{ACTION snatches her $clothes(ubottom)'s away from $nick "sorry hon, I'll let you sniff them later, k?"}
{ACTION goes over to $nick and gently takes back her $clothes(ubottom), and with a wicked grin says: 'Sorry hun, I kinda need this back' , and then struts out the back door}
}
}
proc striptease {level} {
global stripline clothes strip
set nextlevel [expr $level + 1]
if {($level == 20)} {set strip(active) 0
unset clothes
unset stripline
putserv "PRIVMSG $strip(chan) :StripTease $strip(ver) TCL written by DrN - http://www.chaotix.net/rcs"
return 0} else {
set dialog $stripline($level);
set rdialog [rand [llength $dialog]]
strip_sendtxt $strip(chan) "[lindex $stripline($level) [rand [llength $stripline($level)]]]"
utimer 10 "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
}
return "StripTease $strip(ver) by David Proper (DrN) -: Loaded :-"Statistics: Posted by Tommyken — Wed Apr 09, 2008 1:21 pm
]]>
