All pastes #465180 Raw Edit

Anonymous

public text v1 · immutable
#465180 ·published 2007-04-29 23:56 UTC
rendered paste body
on *:open:?:*:{ 
  if (%tppm = on) { 
    set %tppm.nick $nick 
    set %tppm.message $1-  
    msg $nick 9,1[»0,1»14,1»0,1 Hello9,1 $nick 0,1This is9,1 Aaron14,1(9,1CEO14,1)0,1 of0,1 #Raged9,1Esports 14,1«0,1«9,1«]
    msg $nick 9,1[»0,1»14,1»0,1 If you are contacting me about  0,1Raged9,1Esports0,1, please leave me a message and I will get back to you. 14,1«0,1«9,1«]
    msg $nick 9,1[»0,1»14,1»0,1 If you need immediate assistance, go to  #Raged9,1Esports0 and ask an op. 14,1«0,1«9,1«]
    msg $nick 9,1[»0,1»14,1»0,1 Thank you and Support #Raged9,1Esports 14,1«0,1«9,1«]
    /dialog -m tppm tppm 
  } 
} 


dialog tppm { 
  title "Incoming Pm" 
  size 150 150 150 100 
  option dbu 

  text "", 1, 5 5 140 10 

  box "Message:", 2, 5 15 140 60 

  edit "", 3, 10 25 130 45, multi read 

  button "Accept", 4, 5 80 25 15, 
  button "Denied", 5, 35 80 25 15, 
  button "Cancel", 6, 120 80 25 15, cancel 

} 
on *:dialog:tppm:sclick:4:{ 
  msg %tppm.nick 9,1[»0,1»14,1»9,1 Your Conversation Has Been  0,1Accepted. 14,1«0,1«9,1«]
  dialog -c tppm tppm 
} 
on *:dialog:tppm:sclick:5:{ 
  close -m %tppm.nick | msg %tppm.nick 9,1[»0,1»14,1»9,1 Your Conversation Has  Been 0,1Denied. 14,1«0,1«9,1«] 
  dialog -c tppm tppm 
} 
on *:dialog:tppm:init:0:{ 
  did -ra tppm 1 Incoming pm from: %tppm.nick 
  did -ra tppm 3 %tppm.message 
} 
on *:dialog:tppm:close:0:{ 
  unset %tppm.message 
  unset %tppm.nick 
  /dialog -c tppm tppm 
} 
menu menubar,channel,status { 
  Query Manager: 
  .Turn On:set %tppm on 
  .Turn Off:set %tppm off