ON *:TEXT:!register:#: { 
  if ($level( $address($nick,2) ) = registered) { notice $nick 3You're already registered! | halt } 
  else { 
    writeini users.ini $network total $iif($readini(users.ini,$network,total),$calc($readini(users.ini,$network,total) + 1),1) 
    writeini users.ini $network $readini(users.ini,$network,total) $nick 
    notice $nick 3You're now registered! Use 12!profile add <name> <sex> <age> <website> 1to add information to your profile. 
    auser registered $address($nick,2) 
  } 
} 

on *:TEXT:!unregister:#: { 
  writeini users.ini $network total $iif($readini(users.ini,$network,total),$calc($readini(users.ini,$network,total) - 1),0) 
  var %a = 1 
  while %a <= $readini(users.ini,$network,total) { 
    if $readini(users.ini,$network,%a) = $3 { remini users.ini $network %a } 
    inc %a 
  } 
  notice $nick 1You're now not registered anymore! 
  remini profile.ini $nick 
  ruser registered $address($nick,2) 
} 


on *:TEXT:!userlist:#:{ 
  inc -u15 %userlist.flood 
  if ( %userlist.flood <= 2 ) { 
    var %var = 1 
    while %var <= $readini(users.ini,$network,total) { 
      notice $nick 12 $readini(users.ini,$network,%var) 
      inc %var 
    } 
  } 
} 

on *:TEXT:!profileinfo:#: { 
  notice $nick Type 12!register 1To register! 
  notice $nick Type 12!unregister 1To delete your account. 
  notice $nick Type 12!profile add <name> <sex> <age> <website> 1to make an profile! 
  notice $nick Type 12!profile 1del To delete your profile! 
  notice $nick 1If you want to edit your profile, just type 12!profile add <name> <sex> <age> <website>. 
  notice $nick 12[1IMPORTANT12] 1Please don't add sites with other chatnetworks, sex, and erotic stuff. If this will be found, your account will be immediatly removed. 
} 

on *:TEXT:*:#: { 
  if ($1 = !profile) && ($2) { 
    inc -u15 %profile.flood 
    if ( %profile.flood <= 2 ) { 
      if ($2 != add) && ($readini($network $+ .ini,$2,total) == $null) { msg $chan Profile does not exist! } 
      var %var = 1 
      while %var <= $readini($network $+ .ini,$2,total) { 
        notice $nick $readini($network $+ .ini,$2,%var) 
        inc %var 
      } 
    } 
    else { notice $nick [Flood Protection] } 
  } 
  if ($level( $address($nick,2) ) = registered) && $1-2 = !profile add { 
    remini $network $+ .ini $nick 
    writeini $network $+ .ini $nick total $iif($readini($network $+ .ini,$nick,total),$calc($readini($network $+ .ini,$nick,total) + 1),1) 
    writeini $network $+ .ini $nick $readini($network $+ .ini,$nick,total) [Profile of $nick $+ ] 
    writeini $network $+ .ini $nick total $iif($readini($network $+ .ini,$nick,total),$calc($readini($network $+ .ini,$nick,total) + 1),1) 
    writeini $network $+ .ini $nick $readini($network $+ .ini,$nick,total) Name: $3 
    writeini $network $+ .ini $nick total $iif($readini($network $+ .ini,$nick,total),$calc($readini($network $+ .ini,$nick,total) + 1),1) 
    writeini $network $+ .ini $nick $readini($network $+ .ini,$nick,total) Sex: $4 
    writeini $network $+ .ini $nick total $iif($readini($network $+ .ini,$nick,total),$calc($readini($network $+ .ini,$nick,total) + 1),1) 
    writeini $network $+ .ini $nick $readini($network $+ .ini,$nick,total) Age: $5 
    writeini $network $+ .ini $nick total $iif($readini($network $+ .ini,$nick,total),$calc($readini($network $+ .ini,$nick,total) + 1),1) 
    writeini $network $+ .ini $nick $readini($network $+ .ini,$nick,total) Website: $6 
    writeini $network $+ .ini $nick total $iif($readini($network $+ .ini,$nick,total),$calc($readini($network $+ .ini,$nick,total) + 1),1) 
    notice $nick 1[12Profile1] 
    notice $nick 1Name: 12 $3  
    notice $nick 1Sex: 12 $4 
    notice $nick 1Age: 12 $5 
    notice $nick 1Website: 12 $6 
  } 
  if $level($address($nick,2)) = registered && $1-2 = 'profile del { 
    remini $network $+ .ini $nick 
    notice $nick 1Profile removed! 
  } 
}