All pastes #31298 Raw Edit

blah

public text v1 · immutable
#31298 ·published 2005-11-26 09:09 UTC
rendered paste body
ON *:START:{
  hmake calo.hsh
  hmake calm.hsh
  hmake cali.hsh {
  }
  hload calo calo.hsh
  hload calm calm.hsh
  hload cali cali.hsh 
}
ON *:TEXT:-addme*:#findclan-cod2: {
  if ($2 == cal-o) {
    hadd -mu604800 calo $2 $3-
    notice $nick Your info has been entered, it will be expired in 7 Days, if you find a team within that time please tell an admin.
    set -mu604800 %calo %calo $3
    halt
  }
  if ($2 == cal-m) {
    hadd -mu604800 calm $2 $3-
    set -mu604800 %calm %calm $3
    notice $nick Your info has been entered, it will be expired in 7 Days, if you find a team within that time please tell an admin.
  }
  if ($2 == cal-i) {
    hadd -mu604800 cali $2 $3-
    set -mu604800 %cali %cali $3
    notice $nick Your info has been entered, it will be expired in 7 Days, if you find a team within that time please tell an admin.
  }
  else {
    notice $nick You must specify cal-o,cal-m, or cal-i after your handle!
  }
} 
ON *:TEXT:-del*:#findclan-cod2: {
  if ($2 == cal-o) && ($nick isop $chan) {
    hdel calo $3
    set %calox $findtok(%calo,$3,1,32)
    $deltok(%calo,%calox,32)
    notice $nick deleted $3 from the list
  }
  if ($2 == cal-m) && ($nick isop $chan) {
    hdel calm $3
    set %calmx $findtok(%calm,$3,1,32)
    $deltok(%calm,%calmx,32)
    notice $nick deleted $3 from the list
  }
  if ($2 == cal-i) && ($nick isop $chan) {
    hdel cali $3
    set %calix $findtok(%cali,$3,1,32)
    $deltok(%cali,%calix,32)
    notice $nick deleted $3 from the list
  }
  else {
    notice $nick ERROR!
  }
}
ON *:TEXT:-view*:#findclan-cod2: {
  if ($2 == all) {
    msg $chan 6(1 CAL-o: %calo CAL-m: %calm CAL-i: %cali 6)
  }
  if  ($2 == cal-o) {
    msg $chan 6(1 CAL-o: %calo 6)
  }
  if  ($2 == cal-m) {
    msg $chan 6(1 CAL-m: %calm 6)
  }
  if ($2 == cal-i) {
    msg $chan 6(1 CAL-i: %cali 6)
  }
  else {
    notice $nick ERROR - Please specify all,cal-o,cal-m,or cal-i.
  }
}