PUNISH

File

SCRIPT\PUNISH.DAT

Usage of file

Stores warning messages when user is punished. These messages are displayed to self. (PUNISH2.DAT messages are displayed to offending user)

Usage in PnP

; _protwarnmsg s|w|n|k|c code
; s = warning display local
; z = warning display local (bold/color already applied)
; w = warning display (no bold/color)
; n = warning intended for user
; k = kick message
; c = nothing
alias _protwarnmsg {
  goto $1
  :z | return $:t(&nick&) triggered protection- $read(script\punish.dat,tsn,$2) (F8 to punish)
  :s | return $!:t(&nick&) triggered protection- $read(script\punish.dat,tsn,$2) (F8 to punish)
  :w | return &nick& triggered protection- $read(script\punish.dat,tsn,$2)
  :n | return Warning: Protection on &chan& triggered- $read(script\punish2.dat,tsn,$2)
  :k | return $read(script\punish2.dat,tsn,$2)
  :c | return
}