This is an automated submissive/slave auction script for BDSM and D/s channels. No OPs are needed to run it. A chatter types !sellme and it begins. An OP can also type !sell to start the auction.
Was pointed out that I didnt mention the !reset option... this is set so that an OP can erase the stored memory ini if an auction isnt completed. Thanks.
This is my first posted code here and any comments would be appreciated. Enjoy!
Simple Auction Script By Evil`Slut
Graphics by A|onzO
You have to make a variable of %auctionnumber and do a Find/Replace of #ChanName
Enjoy!
alias /auction { /msg #ChanName 6,1 If you aren't participating... Please try to Be 4quiet6 during the auction...and to those who are bidding...6numbers 1 to 20 ONLY please4... Bidding 4 will start in...
.timer 1 3 /msg #ChanName 6,1 -=: 4|5|6 :=-
.timer 1 5 /msg #ChanName 9,1 -=: 4|4|9 :=-
.timer 1 7 /msg #ChanName 8,1 -=: 4|3|8 :=-
.timer 1 9 /msg #ChanName 7,1 -=: 4|2|7 :=-
.timer 1 11 /msg #ChanName 5,1 -=: 4|1|5 :=-
.timer 1 13 /msg #ChanName 5,1 -=: 4|BID|5 :=- -=: 4|BID|5 :=- -=: 4|BID|5 :=-
.timerblah 1 23 if ($istok(1 3 5 7 9 11 13 15 17 19,%auctionnumber,32)) { msg #ChanName 7,1Hint7...Its an 4ODD 7 number1- - - - - - - -6bid 4AGAIN1- - - - - - - -6bid 4AGAIN }
.timerblah1 1 23 if ($istok(2 4 6 8 10 12 14 16 18 20,%auctionnumber,32)) { msg #ChanName 7,1Hint7...Its an 4EVEN 7 number1- - - - - - - -6bid 4AGAIN1- - - - - - - -6bid 4AGAIN }
.timerblah2 1 35 if ($istok(1 2 3 4 5 6 7 8 9 10,%auctionnumber,32)) { msg #ChanName 7,1The Number is Between 4ONE 7and 4TEN 1- - - - - - - -6bid 4AGAIN1- - - - - - - -6bid 4AGAIN }
.timerblah3 1 35 if ($istok(11 12 13 14 15 16 17 18 19 20,%auctionnumber,32)) { msg #ChanName 7,1The Number is Between 4ELEVEN 7and 4TWENTY 1- - - - - - - -6bid 4AGAIN1- - - - - - - -6bid 4AGAIN }
.timerblah4 1 60 /msg #ChanName 7,1 I'm sorry, they don't seem to be in a bidding mood right now or no one bid the right number 4• • • 7Please try later
.timer 1 61 /remove info.ini
}
on 1:text:!sellme:#ChanName: {
query $nick 0,1Welcome to the #ChanName Auction! Please answer the following questions here in my PM and we'll be ready to go! 4 (if you want to end the action at anytime,type !reset) 0,1 Ok, so let's start. 71,Step 1: 0,1What is your age? Type !age (your age) | /msg #ChanName 0,1 $nick 4 is entering in her/his personal information now..0,1If you wish to bid, 06,1 you bid a number between 1 and 20 in main by typing 0,1 !bid (number) at the prompt6, the First to bid correctly, wins the auctionee.. Good luck and have fun 1,8 :)
}
on 1:text:!sell *:#ChanName: {
query $2 0,1Welcome to the Auction! Please answer the following questions here in my PM and we'll be ready to go!Ok, so let's start. 71,Step 1: 0,1What is your age? Type !age (your age) | /msg #ChanName 0,1 $2 4 is entering in her/his personal information now..0,1If you wish to bid, 06,1 you bid a number between 1 and 20 in main by typing 0,1 !bid (number)at the prompt 6, the First to bid correctly, wins the auctionee.. Good luck and have fun 1,8 :)
}
on *:text:!reset:*: {
remove info.ini
Halt
}
on *:text:!age *:*:{
writeini info $+ .ini $nick age $2-
writeini info $+ .ini Register age Yes
query $nick 7,1Step 2. 0,1What is your BDSM role? Type !role (sub/Dominant/switch)
}
on *:text:!role *:*:{
writeini info $+ .ini $nick role $2-
writeini info $+ .ini Register role Yes
query $nick 7,1Step 3. 0,1What's your gender? Type !gender (your-gender)
}
on *:text:!gender *:*:{
writeini info $+ .ini $nick Gender $2-
writeini info $+ .ini Register Gender Yes
query $nick 0,1Your basic information saved! Select a number between 1 and 20 then type !number (your-number)
}
on *:text:!number *:?:{
set %auctionnumber $2
query $nick 7,1Your number is4,1 $2
query $nick 7,1Please type !desc (your-description) and give a brief description of yourself to begin the last steps on your way to the block!
Halt
}
on *:text:!Desc *:*:{
writeini info $+ .ini $nick Description $2-
writeini info $+ .ini Register Description Yes
query $nick 0,1What are your limits? Type !limits (your-limits) | /msg #ChanName 0,1 $nick is down to two questions!! Have your bidding paddles ready !!
}
on *:text:!limits *:*:{
writeini info $+ .ini $nick Limits $2-
writeini info $+ .ini Register Limits Yes
query $nick 0,1What are your kinks? Type !kinks (your-kinks) | /msg #ChanName 0,1 Almost ready!! Remember, its !bid (number between 1-20) and wait for the prompt to bid.. good luck and have fun!
}
on *:text:!kinks *:*:{
writeini info $+ .ini $nick Kinks $2-
writeini info $+ .ini Register Kinks Yes
query $nick Okay, we're ready to go.. | /msg #ChanName 0,1Okay folks, we have a hot one on the block for your pleasure!! Our victim...err..auctionee is 4 $nick : | /msg #ChanName 7,1Age: 15,1 $readini(info $+ .ini,$nick,age) | /msg #ChanName 7,1Role: 15,1 $readini(info $+ .ini,$nick,$nick,Role) | /msg #ChanName 7,1Gender: 15,1 $readini(info $+ .ini,$nick,Gender) | /msg #ChanName 7,1Limits: 15,1 $readini(info $+ .ini,$nick,Limits) | /msg #ChanName 7,1Kinks: 15,1 $readini(info $+ .ini,$nick,kinks) | /msg #ChanName 7,1Description: 15,1 $readini(info $+ .ini,$nick,Description) | /auction
Halt
}
on *:text:!bid *:*: {
if (%auctionnumber == $2) {
msg #ChanName 0,1 stop | /msg #ChanName 8,1 Stop | /msg #ChanName 7,1 STop | /msg #ChanName 4,1 STOp | /msg #ChanName 1,4 S-T-O-P 1,1.....10 we have a 4WINNER | .timer 1 0 msg #ChanName 7,1 The lucky winner is... | .timer 1 2 /msg #ChanName 1,1---------7 $nick !!1--------- | .timer 1 3 /msg #ChanName 1,1---------4Congratulations!1--------- | .timer 1 4 /msg #ChanName 7,1 In room sceneing with your winnings is welcome but feel free to hide in PM ~hits the remote for the hidden cams and winks~ Either way, Have fun!1,8 : ) | /remove info.ini | .timerblah off | .timerblah1 off | .timerblah2 off | .timerblah3 off | .timerblah4 off
halt
}
}
Re: Cheiron-tried and tested on the server. works a bomb. might want to add an extra section for the op to delete the user profile.. a !delprofile command or something to complete it.
I forgot to mention the !reset command that erases the stored memory file.. changed now in the description... thanks for mentioning the lack
tried and tested on the server. works a bomb. might want to add an extra section for the op to delete the user profile.. a !delprofile command or something to complete it.
something like this
on *:TEXT:!opprofiledel *:#:{
if ($readini(profiles\profile.ini,$2,name) == $null) { .msg $chan Sorry no profile exists for $2 $+ | close -m $nick | halt }
if ($nick isop $chan) { .msg $chan Profile for $nick has been deleted | /remini -n C:\boojum\profiles\profile.ini $nick | close -m $nick | halt }
}