Untitled

on $*:TEXT:/^[!@]Profile-Read/si:#: {  
  var %way $iif($left($1,1) == @,msg $chan,.notice $nick) 12[14Profile-Read12]
  if (!$2 || $3) {
    %way 14Please use this syntax:12 [!@]Profile-Read <ircname> 14(remember to use _ instead of spaces) | halt
  }
  if ($readini(profileserv.ini, realname, $address($2,2))) {
    %way 12 $+ $2 $+ 's 14real name is12 $readini(profileserv.ini, realname, $address($2,2)) $+ .
  }
  if ($readini(profileserv.ini, gender, $address($2,2))) {
    %way 12 $+ $2 $+ 's 14gender is12 $readini(profileserv.ini, gender, $address($2,2)) $+ .
  }
  if ($readini(profileserv.ini, channel, $address($2,2))) {
    %way 12 $+ $2 $+ 's 14Home channel is12 $readini(profileserv.ini, channel, $address($2,2)) $+ .
  }
  if ($readini(profileserv.ini, age, $address($2,2))) {
    %way 12 $+ $2 $+ 's 14age is12 $readini(profileserv.ini, age, $address($2,2)) $+ .
  }
  if ($readini(profileserv.ini, birthday, $address($2,2))) {
    %way 12 $+ $2 $+ 's 14birthday is12 $readini(profileserv.ini, birthday, $address($2,2)) $+ .
  }
  if ($readini(profileserv.ini, hobbies, $address($2,2))) {
    %way 12 $+ $2 $+ 's 14hobbies are:12 $readini(profileserv.ini, hobbies, $address($2,2)) $+ .
  }
  if ($readini(profileserv.ini, time, $address($2,2))) {
    %way 14Profile was last changed:12 $readini(profileserv.ini, time, $address($2,2)) $+ .
    halt
  }
  elseif (!$readini(profileserv.ini, realname, $address($2,2)) && !$readini(profileserv.ini, gender, $address($2,2)) && !$readini(profileserv.ini, age, $address($2,2)) && !$readini(profileserv.ini, birthday, $address($2,2)) && !$readini(profileserv.ini, hobbies, $address($2,2)) && !$readini(profileserv.ini, channel, $address($2,2)) && !$readini(profileserv.ini, time, $address($2,2))) {
    %way 12 $+ $2 14hasn't set a profile yet. | halt
  }
}

on *:TEXT:!Profile-Set*:#: { 
  var %way $iif($left($1,1) == @,msg $chan,.notice $nick) 12[14Profile-Read12]
  if (!$3) {
    %way Please set a option 14. Syntax:12 [!@]Profile-Set <Option> <text>.
  }
  elseif ($2 == name || $2 == Realname) {
    /writeini profileserv.ini Realname $address($nick,2) $3-
    /writeini profileserv.ini time $address($nick,2) $fulldate
    %way Your'e12 $2 14has been set to:12 $3-
  }
  elseif ($2 == chan || $2 == channel) {
    /writeini profileserv.ini channel $address($nick,2) $3-
    /writeini profileserv.ini time $address($nick,2) $fulldate
    %way Your'e12 $2 14has been set to:12 $3-
  }
  elseif ($2 == age || $2 == old) {
    /writeini profileserv.ini Age $address($nick,2) $3-
    /writeini profileserv.ini time $address($nick,2) $fulldate
    %way Your'e12 $2 14has been set to:12 $3-
  }
  elseif ($2 == birthday || $2 == birth) {
    /writeini profileserv.ini Birthday $address($nick,2) $3-
    /writeini profileserv.ini time $address($nick,2) $fulldate
    %way Your'e12 $2 14has been set to:12 $3-
  }
  elseif ($2 == gender || $2 == rase) {
    /writeini profileserv.ini Gender $address($nick,2) $3-
    /writeini profileserv.ini time $address($nick,2) $fulldate
    %way Your'e12 $2 14has been set to:12 $3-
  }
  elseif ($2 == hobby || $2 == hobbies) {
    /writeini profileserv.ini Hobbies $address($nick,2) $3-
    /writeini profileserv.ini time $address($nick,2) $fulldate
    %way Your'e12 $2 14has been set to:12 $3-
  }
  else {
    if ($2 != hobby || $2 != name || $2 != gender || $2 != age || $2 != birthday || $2 != old || $2 != rase || $2 != birth || $2 != hobbies || $2 != realname || $2 != chan || $2 != channel) {
      %way $2 14is not in the profile options. Please pick between12 Gender, Channel, Age, Birthday, Name and Hobby.
    }
  }
}

on $*:TEXT:/^[!@]profile-help/si:#:{
  var %way $iif($left($1,1) == @,msg $chan,.notice $nick) 12[14Profile-Read12]
  %way To set a profile simply type 12[!@]Profile-set <Option> <Text>14. Here are the options: 12Name14,12 Age14,12 Channel,12 Birthday14,12 Gender14 and12 Hobby14. To clear the profile you have, Type12 [!@]Profile-Clear14. To Read a profile type12 [!@]Profile-Read <Ircname>14. 12~ T14error 12A14nd 12S14lakte 12S14cript
}
on $*:TEXT:/^[!@]Profile-clear/si:#:{ 
  var %way $iif($left($1,1) == @,msg $chan,.notice $nick) 12[14Profile-Read12]
  if (!$readini(profileserv.ini, realname, $address($nick,2)) && !$readini(profileserv.ini, gender, $address($nick,2)) && !$readini(profileserv.ini, age, $address($nick,2)) && !$readini(profileserv.ini, birthday, $address($nick,2)) && !$readini(profileserv.ini, hobbies, $address($nick,2)) && !$readini(profileserv.ini, chanel, $address($nick,2)) && !$readini(profileserv.ini, time, $address($nick,2))) {
    %way You dont have a profile to clear. | halt 
  }
  else {
    /remini profileserv.ini gender $address($nick,2)
    /remini profileserv.ini age $address($nick,2)
    /remini profileserv.ini realname $address($nick,2)
    /remini profileserv.ini birthday $address($nick,2)
    /remini profileserv.ini hobbies $address($nick,2)
    /remini profileserv.ini channel $address($nick,2)
    /remini profileserv.ini time $address($nick,2)
    %way Profile is cleared. Type 12[!@]Profile-help14 to see how you set a new profile.
  }