Public feed #527004

Anonymous

public text v1 · immutable
Raw Edit
·published 2007-06-01 02:54 UTC
rendered paste body
on *:START:{ 
  timerpm 0 86400 set %pmtoday 0 
}

on *:OPEN:?:{ 
  set %pm.nick $nick | set %pm.message $1- | inc %pmtoday 1 | inc %pmall 1
  msg %pm.nick 12,1(15,1 Hey12,1 $nick $+ 15,1, Your message has been logged 12,1)
  msg %pm.nick12,1(15,1 12,1I0dle12,1:15,1 $duration($idle) 12Q0ueries12O0pen3:0 $query(0) 12,1O0nline12T0ime12:0 $uptime(server,1) 12,1)
  msg %pm.nick 12,1(15,1 12,1U0p12T0ime12:15,1 $uptime(system,1) 12Q0ueries12T0oday12:0 $+($chr(2),%pmtoday,$chr(2)) 12Q0ueries12S0ince 3/14/0712:0 $+($chr(2),%pmall,$chr(2)) 12,1)

dialog -m jbeaRzspm $+ $nick jbeaRzspm $+ $nick }

dialog jbeaRzspm* {
  title "jbeaRz PM System"
  size -1 -1 112 62
  option dbu
  box "", 1, 2 0 108 60
  edit "", 2, 5 7 100 20, read autovs
  button "Accept", 3, 12 30 37 12
  button "Deny", 4, 63 30 37 12
  button "Temp Ignore", 5, 12 45 37 12
  button "Perm Ignore", 6, 63 45 37 12
}
On *:START:{
  timerpm 0 86400 set %pmtoday 0
}

on *:dialog:jbeaRzspm*:sclick:*:{
  if ($did == 3) {
    msg $did(1) 12,1(15,1 Your Query has been 9,1ACCEPTED15,1 12,1)
    dialog -x jbeaRzspm $+ $did(1) jbeaRzspm $+ $did(1)
  }
  if ($did == 4) {
    msg $did(1) 12,1(15,1 Your Query has been 4,1DENIED15,1 12,1)
    close -m $did(1)
    dialog -x jbeaRzspm $+ $did(1) jbeaRzspm $+ $did(1)
  }
  if ($did == 5) {
    msg $did(1) 12,1(15,1 Your Query has been IGNORED. You have been Ignored for 60 Seconds 12,1)
    ignore -u60 %pm.nick 2
    close -m $did(1)
    dialog -x jbeaRzspm $+ $did(1) TrioNspm $+ $did(1)  
  }
  if ($did == 6) {
    msg $did(1) 12,1(15,1 Your Query has been PERMANENTLY IGNORED 0You have been Ignored for *0* Seconds 12,1) 
    ignore %pm.nick 2
    close -m $did(1)
    dialog -x evasionpm $+ $did(1) evasionpm $+ $did(1)
  }
}
on *:dialog:jbeaRzspm*:init:*:{
  did -ra TrioNspm $+ %pm.nick 1 %pm.nick
  did -ra TrioNspm $+ %pm.nick 2 $strip(%pm.message,bmurc)
}