All pastes #821705 Raw Edit

Mine

public text v1 · immutable
·published 2007-12-18 08:33 UTC
rendered paste body
alias auth {
  /as userinfo %authname
}
on *:notice:*authenticated to account*:*:{ 
  set %auth $gettok($6,1,2) 
  if (%33 < 100) { writeini users.ini $address(%authname,2) access %33 | writeini users.ini $address($2,2) position %44 | writeini data.ini access $address($2,2) %33 | writeini auth.ini Level-0 %auth $3 | notice %nickk user %authname has been added to the database with %33 Access. | halt } 
  if (%33 < 200) { writeini users.ini $address(%authname,2) access %33 | writeini users.ini $address($2,2) position %44 | writeini data.ini access $address($2,2) %33 | writeini auth.ini Level-1 %auth $3 | notice %nickk user %authname has been added to the database with %33 Access. | halt } 
  if (%33 < 300) { writeini users.ini $address(%authname,2) access %33 | writeini users.ini $address($2,2) position %44 | writeini data.ini access $address($2,2) %33 | writeini auth.ini Level-2 %auth $3 | notice %nickk user %authname has been added to the database with %33 Access. | halt } 
  if (%33 < 400) { writeini users.ini $address(%authname,2) access %33 | writeini users.ini $address($2,2) position %44 | writeini data.ini access $address($2,2) %33 | writeini auth.ini Level-3 %auth $3 | notice %nickk user %authname has been added to the database with %33 Access. | halt } 
  if (%33 < 500) { writeini users.ini $address(%authname,2) access %33 | writeini users.ini $address($2,2) position %44 | writeini data.ini access $address($2,2) %33 | writeini auth.ini Level-4 %auth $3 | notice %nickk user %authname has been added to the database with %33 Access. | halt } 
  if (%33 < 600) { writeini users.ini $address(%authname,2) access %33 | writeini users.ini $address(%authname,2) position %44 | writeini data.ini access $address(%authname,2) %33 | writeini auth.ini Level-5 %auth %33 | notice %nickk user %authname has been added to the database with %33 Access. | halt } 
}

alias authdel {
  /as userinfo %authname
}
on *:notice:*authenticated to account*:*:{ 
  set %auth $gettok($6,1,2)
  if ( $+ $readini(data.ini,access,$address(%authname,2)) < 100) { remini users.ini $address(%authname,2) | remini data.ini access $address(%authname,2) | remini auth.ini Level-0 %auth | notice %nickk user %authname has been removed from the database. | halt } 
  if ( $+ $readini(data.ini,access,$address(%authname,2)) < 200) { remini users.ini $address(%authname,2) | remini data.ini access $address(%authname,2) | remini auth.ini Level-1 %auth | notice %nickk user %authname has been removed from the database. | halt } 
  if ( $+ $readini(data.ini,access,$address(%authname,2)) < 300) { remini users.ini $address(%authname,2) | remini data.ini access $address(%authname,2) | remini auth.ini Level-2 %auth | notice %nickk user %authname has been removed from the database. | halt } 
  if ( $+ $readini(data.ini,access,$address(%authname,2)) < 400) { remini users.ini $address(%authname,2) | remini data.ini access $address(%authname,2) | remini auth.ini Level-3 %auth | notice %nickk user %authname has been removed from the database. | halt } 
  if ( $+ $readini(data.ini,access,$address(%authname,2)) < 500) { remini users.ini $address(%authname,2) | remini data.ini access $address(%authname,2) | remini auth.ini Level-4 %auth | notice %nickk user %authname has been removed from the database. | halt } 
  if ( $+ $readini(data.ini,access,$address(%authname,2)) < 600) { remini users.ini $address(%authname,2) | remini data.ini access $address(%authname,2) | remini auth.ini Level-5 %auth | notice %nickk user %authname has been removed from the database. | halt } 
}