All pastes #507068 Raw Edit

Something

public text v1 · immutable
·published 2007-05-24 11:12 UTC
rendered paste body
*:text:!setprofile*:#:{ 
  notice $nick Hello and Welcome to Profile Setup. This setup requires that you have enabled your privmsg (whisper box isn't blocked for messages) so you can procceed. Also type /mode $nick -f  to stop filtering.
  notice $nick If you are ready to continue with your setup please type /msg $me setup continue In case you need help dont hesitate to ask Lastrites to guide you through the installation.  
}
*:text:Setup continue*:?:{ 
  set %setup.continue [ $+ [ $nick ] ] ON
  msg $nick Hello again $nick $+ . In the rest of the installation you will be asked to answer a few questions in order to setup your profile $+ . Please answer them as truly as you can.
  msg $nick Ready? Okay let's go... (If for any reason you want to cancel this setup type /msg $me setup cancel
  msg $nick Type /msg $me Start to start the profile.
}
*:text:start*:?:{ if (%setup.continue [ $+ [ $nick ] ] == ON) {
    msg $nick (1/10): What is your real name? 
    set %question.1 [ $+ [ $nick ] ] 1
  }
}
*:text:**:?:{ if (%question.1 [ $+ [ $nick ] ] == 1) { 
    set %answer.1 [ $+ [ $nick ] ] $1-
    unset %question.1 [ $+ [ $nick ] ]
  }
  set %question [ $+ [ $nick ] ] 2
  msg $nick How old are you?
}
*:text:**:?:{ if (%question.2 [ $+ [ $nick ] ] == 2) {
    set %answer.2 [ $+ [ $nick ] ] $1 
  }
  msg $nick Congratulations, You have finished your profile.
  set %questions [ $+ [ $nick ] ] COMPLETE
}

*:text:!profile *:#:{ if ($2 == $null) { notice $nick You need to enter someone to view the profile | Halt }
  elseif ($2 [ $+ [ $2 ] ] == $null) { 
    notice $nick $2 This person does not have a profile tell this person to make one =)
  }
  elseif (%questions [ $+ [ $2 ] ] == COMPLETE) { 
    notice $nick $2 profile has been PM to you to stop spamming.
    msg $nick Real Name: %answer.1 [ $+ [ $2 ] ]
    msg $nick Age: %answer.2 [ $+ [ $2 ] ]
  }
}