All pastes #1087305 Raw Edit

Narf's Query blocker thing

public text v1 · immutable
#1087305 ·published 2008-07-30 16:08 UTC
rendered paste body
menu * {
  Narf's Query Blocker: /narfblock
}
;on *:JOIN:#rshelp: {
;  notice $nick We are aware that the worlds are down. PLEASE be patient while Jagex fixes the problem. 4We are not Jagex and have no control over the servers being down. It is probably due to a update/bug fix. JUST BE PATIENT while Jagex fixes this. DO NOT SPAM.
;  msg $nick We are aware that the worlds are down. PLEASE be patient while Jagex fixes the problem. 4We are not Jagex and have no control over the servers being down. It is probably due to a update/bug fix. JUST BE PATIENT while Jagex fixes this. DO NOT SPAM.
;}
alias narfblock { dialog -m Query Query }
dialog Query {
  title "Query Acceptance"
  size 300 300 170 116
  option dbu
  button "Yes", 5, 7 91 50 7, close
  button "No", 10, 115 90 50 7, close
  edit Nick: %q.nick , 1, 11 10 147 10, read
  box "", 2, 3 0 165 80
  edit %q.msg , 3, 11 24 146 53, read
  box "Accept?", 4, 3 81 166 24
  text "Narf's Pm Acceptor thingy" 6, 3 106 165 8, disable center
}
on *:DIALOG:Query:sclick:5:{
  query %q.nick
  writeini Query $+ $network $+ .ini Accepted %q.nick %q.nick
  timer 1 3 .msg %q.nick Query accepted | unset %q.* |  dialog -c query query
}
on *:DIALOG:Query:sclick:10:{
  msg %q.nick  04 $chr(07) Auto Response $chr(07) 12Your PM has been declined please do not pm me again.04 $chr(164) 
  writeini Query $+ $network $+ .ini Declined $nick $nick
  unset %q.* 
  dialog -c query query
}
on *:OPEN:?: {
  if ($readini(Query $+ $network $+ .ini,Accepted,$nick)) {
    notice Joshua $chr(151) $+ $chr(155) 04(14PM04) $nick has PMed me:04 $1-
  }
  elseif (!$readini(Query $+ $network $+ .ini,Accepted,$nick)) {
    set %q.msg $1-
    set %q.nick $nick
    .msg $nick  04 $chr(07) 12Auto Response04 $chr(07) Please wait while I accept/decline your Query.
    ;close -m $nick
    dialog -md Query Query
  }
  elseif ($readini(Query $+ $network $+ .ini,Declined,$nick)) {
    .msg $nick 04(12Auto Response04) Sorry, you have been put on my "Decline PM list". Please do not PM me.
  }
}