rpoak original bot

[script]
bot for #Roleplayofallkinds
on *:load:{
  echo -a This profile script written by magdalena[Pan] and should not be given out without prior permission from her.
}
 *:JOIN:#Roleplayofallkinds: {
  { .notice $nick 14Welcome, come on in to #Roleplayofallkinds! Type !rules for the Room rules.  If you have a problem with someone, please inform an op!  Have fun! }
 if ($readini(profile.txt,$nick,age) == $null) { /.timer 1 5 .notice $nick 14I see that you don't have a profile, $nick, If you would like to make one, then please type !setup to make one for us. }
 if ($readini(profile.txt,$nick,age) != $null) { .mode $chan +v $nick
    msg $chan 4Teaser profile for $nick - Age:14 $readini(profile.txt,$nick,age) 4- Gender:14 $readini(profile.txt,$nick,gender) 4- Location:14 $readini(profile.txt,$nick,local) 4- D/s Position:14 $readini(profile.txt,$nick,ds) 4- to see the rest type 14!view $nick 4in channel.
  .writeini -n profile.txt $nick joined $date }
}
on *:TEXT:!asl*:*: {
  if (
  ) == $null) { .msg $chan 4Sorry, $2 doesn't have a profile. If you would like to set your profile, $2 type !setup and follow my instructions in pm | .mode #Roleplayofallkinds -v-o $2 $2 | halt }
  if ($readini(profile.txt,$2,age) != $null) {
    .notice $nick 4 $2's asl: - Age:14 $readini(profile.txt,$2,age) 4- Gender:14 $readini(profile.txt,$2,gender) 4- Location:14 $readini(profile.txt,$2,local) 4- D/s Position:14 $readini(profile.txt,$2,ds)
    .mode #Roleplayofallkinds +v $2
    .writeini -n profile.txt $2 asl $date | halt
  }
}
on *:TEXT:!view*:*: {
  if ($readini(profile.txt,$2,age) == $null) { .msg $chan 4Sorry, $2 does not have his/her profile set on this bot yet. | .mode #Roleplayofallkinds -v-o $2 $2 | halt }
  if ($readini(profile.txt,$2,age) != $null) {
    .notice $nick 4 $2's profile: - Age:14 $readini(profile.txt,$2,age) 4- Gender:14 $readini(profile.txt,$2,gender) 4- Location:14 $readini(profile.txt,$2,local) 4- D/s Position:14 $readini(profile.txt,$2,ds)
    .notice $nick 4 $2's limits:14 $readini(profile.txt,$2,limits)
    .notice $nick 4 $2's kinks:14 $readini(profile.txt,$2,kinks)
   .notice $nick 4 $2's description:14 $readini(profile.txt,$2,other)
    .mode #Roleplayofallkinds +v $2
  .writeini -n profile.txt $2 viewed $date | halt  }
}
on *:TEXT:!view*:*: {
  if ($readini(profile.txt,$2,age) == $null) { .msg $chan 4Sorry, $2 does not have his/her profile set on this bot yet. If $2 would like to make one then they need to type !setup and follow it's instructions in pm | .mode #Roleplayofallkinds -v-o $2 $2 | halt }
  if ($readini(profile.txt,$2,age) != $null) {
    .notice $nick 4 $2's profile: - Gender:14 $readini(profile.txt,$2,gender) 4- Age:14 $readini(profile.txt,$2,age) 4- Location:14 $readini(profile.txt,$2,local) 4- D/s Position:14 $readini(profile.txt,$2,ds)
    .notice $nick 4 $2's limits:14 $readini(profile.txt,$2,limits)
    .notice $nick 4 $2's kinks:14 $readini(profile.txt,$2,kinks)
    .notice $nick 4 $2's description:14 $readini(profile.txt,$2,other)
    .mode #Roleplayofallkinds +v $2
  .writeini -n profile.txt $2 viewed $date | halt  }
}
on *:TEXT:!setup:*: {
  if ($readini(profile.txt,$nick,age) == $null) { .msg $nick 14Please tell me your age with 4!age14, such as 4!age 47 }
  if ($readini(profile.txt,$nick,age) != $null) { .msg $nick 14You have already set your profile, for info on how to change certain aspects of it type 4!profilecommands }
}
on *:TEXT:!age*:?: { if ($line($nick,0,*) == 1) { /msg #chisbotroom $nick | /close -m $nick }
  if ($2 == $null) { .msg $nick 14Sorry, that's invalid, you must enter !age, a space, and then your age right after that on the same line. }
  if ($2 != $null) { .writeini -n profile.txt $nick age $2-
    if ($readini(profile.txt,$nick,gender) == $null) { .msg $nick 14Now, enter your gender with 4!gender14 such as 4!gender woman }
  if ($readini(profile.txt,$nick,gender) != $null) { .msg $nick 14Thank you, your new age has been set. } }
}
on *:TEXT:!gender*:?: { if ($line($nick,0,*) == 1) { /msg #chisbotroom $nick | /close -m $nick }
  if ($2 == $null) { .msg $nick 1414Sorry, that's invalid, you must enter !gender, a space, and then your gender right after that on the same line. }
  if ($2 != $null) { .writeini -n profile.txt $nick gender $2-
    if ($readini(profile.txt,$nick,ds) == $null) { .msg $nick 14Now, enter your "position" in relation to bdsm with 4!ds14, such as 4!ds slave }
  if ($readini(profile.txt,$nick,ds) != $null) { .msg $nick 14Thank you, your new gender has been set. } }
}
on *:TEXT:!ds*:?: { if ($line($nick,0,*) == 1) { /msg #chisbotroom $nick | /close -m $nick }
  if ($2 == $null) { .msg $nick 14Sorry, that's invalid, you must enter !ds, a space, and then your position right after that on the same line. | halt }
  if ($2 != $null) { .writeini -n profile.txt $nick ds $2-
    if ($readini(profile.txt,$nick,local) == $null) { .msg $nick 14Now, enter your location with 4!loc14, such as 4!loc my own delusions14 or 4!loc Florida }
  if ($readini(profile.txt,$nick,local) != $null) { .msg $nick 14Thank you, your new position has been set. } }
}
on *:TEXT:!loc*:?: { if ($line($nick,0,*) == 1) { /msg #chisbotroom $nick | /close -m $nick }
  if ($2 == $null) { .msg $nick 14Sorry, that's invalid, you must enter !loc, a space, and then your location right after that on the same line. }
  if ($2 != $null) { .writeini -n profile.txt $nick  local $2-
    if ($readini(profile.txt,$nick,limits) == $null) { .msg $nick 14Now, enter your limits, hard or soft, with 4!limits14, such as 4!limits tickling, fiends, wearing socks to bed, parsnips, and hng's }
  if ($readini(profile.txt,$nick,limits) != $null) { .msg $nick 14Thank you, your new location has been set. } }
}
on *:TEXT:!limits*:?: { if ($line($nick,0,*) == 1) { /msg #chisbotroom $nick | /close -m $nick }
  if ($2 == $null) { .msg $nick 14Sorry, that's invalid, you must enter !limits, a space, and then your limits right after that on the same line. | halt }
  if ($2 != $null) { .writeini -n profile.txt $nick  limits $2-
    if ($readini(profile.txt,$nick,other) == $null) { .msg $nick 14Now that you've told us what you don't like, tell us what you do like, enter your nasty dirty kinks with 4!kinks14, such as 4!kinks matching socks, rain, thunderstorms, hot anal pounding, choking on cock }
  if ($readini(profile.txt,$nick,other) != $null) { .msg $nick 14Thank you, your new limits has been set. } }
}
on *:TEXT:!kinks*:?: { if ($line($nick,0,*) == 1) { /msg #chisbotroom $nick | /close -m $nick }
  if ($2 == $null) { .msg $nick 14Sorry, that's invalid, you must enter !kinks, a space, and then your kinks right after that on the same line. | halt }
  if ($2 != $null) { .writeini -n profile.txt $nick  kinks $2-
    if ($readini(profile.txt,$nick,other) == $null) { .msg $nick 14Now give us a nice description of yourself with 4!desc 14followed by a description of yourself, such as 4!desc horny little slut looking for hot Dom/me to fulfil her wildest fantasies online. she is 5'2" soft and curvy with 44DD breasts, red hair, and green eyes. 14  You can be as sparse or detailed as you want, though the more the better ;D.  }
  if ($readini(profile.txt,$nick,other) != $null) { .msg $nick 14Thank you, your new kinks have been set. } }
}
on *:TEXT:!desc*:?: {  if ($line($nick,0,*) == 1) { /msg #chisbotroom $nick | /close -m $nick }
n81=  if ($2 == $null) { .msg $nick 14Sorry, that's invalid, you must enter !desc, a space, and then your description right after that on the same line. }
  if ($readini(profile.txt,$nick,other) == $null) {
    .msg $nick 14Your profile is now complete, thank you.  To view your profile or the profiles of others in the channel type 4!view14 and then a person's nick this must be done in channel to see the profile of yourself or others (Example: 4!view Chi`sbot14).  If you would like to change any aspect of your profile, all you need is that specific command.  For a list of profile commands type 4!profilecommands14.
    .mode #Roleplayofallkinds +v $nick
    .msg #Roleplayofallkinds 14 $nick just made a new profile for us! Thank you, $nick! Here's a taste:
  .msg #Roleplayofallkinds 4Teaser profile for $nick - Age:14 $readini(profile.txt,$nick,age) 4- Gender:14 $readini(profile.txt,$nick,gender) 4- Location:14 $readini(profile.txt,$nick,local) 4- D/s Position:14 $readini(profile.txt,$nick,ds) 4- to see the rest type 14!view $nick 4in channel. }
  if ($readini(profile.txt,$nick,other) != $null) { .msg $nick 14Thank you, your new description has been set. }
  if ($2 != $null) { .writeini -n profile.txt $nick other $2- }
}
on *:NICK: {
  if ($readini(profile.txt,$newnick,age) == $null) { .mode #Roleplayofallkinds -v $newnick }
  if ($readini(profile.txt,$newnick,age) != $null) { .mode #Roleplayofallkinds +v $newnick }
}