/ScriptServ

[main]
name=QMessage Extension 1.1
desc=QMessage Channel && Query Actions
author=2001, INSIDES. ( insides@qscripts.cjb.net )

[mpopup]
n0=.QMessage ...
n1=..QMessage ...:qmessage
n2=..-
n3=..Description ...:ext.desc qmessage.ini

[cpopup]
n0=.QMessage ...
n1=..QMessage ...:qmessage
n2=..-
n3=..Rainbow Message ...:qmessage 1,2 $inputbox(Please Enter QMessage Text.§QMessage [/qmessage])
n4=..Bold Message ...:qmessage 3,4 $inputbox(Please Enter QMessage Text.§QMessage [/qmessage])
n5=..Underline Message ...:qmessage 5,6 $inputbox(Please Enter QMessage Text.§QMessage [/qmessage])
n6=..-
n7=..Warning Message ...:qmessage 22,30 $inputbox(Please Enter QMessage Text.§QMessage [/qmessage])

[script]
n0=; The contents of this script file are copyrighted by Insides Technologies, 2001.
n1=; Definitions hereby supplied are owned by Insides Technologies and INSIDES - insides@qscripts.cjb.net, the script author.
n2=; Please read the End User License Agreement supplied in order to understand the copy restrictions.
n3=; Please contact the author of the script for any questions you might have.
n4=; Thanks for understanding.
n5=
n6=dialog qmsg {
n7=  title ""
n8=  size -1 -1 139 162
n9=  option dbu
n10=
n11=  box "",1,-3 -3 300 4
n12=  box "Colors && Styles",2,3 2 65 157
n13=  check "Rainbow Nick",3,7 11 55 7
n14=  check "Rainbow Text",4,7 21 55 7
n15=  check "Bold Nick",5,7 31 55 7
n16=  check "Bold Text",6,7 41 55 7
n17=  check "Underlined Nick",7,7 51 55 7
n18=  check "Underlined Text",8,7 61 55 7
n19=  check "Block Nick",9,7 71 55 7
n20=  check "Block Text",10,7 81 55 7
n21=  check "Ucase Nick",11,7 91 55 7
n22=  check "Ucase Text",12,7 101 55 7
n23=  check "Lcase Nick",13,7 111 55 7
n24=  check "Lcase Text",14,7 121 55 7
n25=  button "Nick Color",15,7 131 35 11
n26=  button "Text Color",16,7 144 35 11
n27=  box "Message Types",17,71 2 65 60
n28=  radio "Notice",18,75 11 55 7,group
n29=  radio "Attention",19,75 21 55 7
n30=  radio "Warning",20,75 31 55 7
n31=  radio "Request",21,75 41 55 7
n32=  radio "Question",22,75 51 55 7
n33=  box "Sounds",23,71 63 65 20
n34=  check "Error Sound",24,75 72 55 7
n35=  box "Message Boxes",25,71 84 65 30
n36=  radio "Message Box",26,75 93 55 7,group
n37=  radio "Error Box",27,75 103 55 7
n38=  box "Nick Alignment",28,71 115 65 20
n39=  check "Right Alignment",29,75 124 55 7
n40=  box "QMessage Send",30,71 136 65 23
n41=  button "QMessage",31,75 145 34 11,ok
n42=  button "Close",32,112 145 20 11,cancel
n43=  edit "",33,0 0 0 0,hide
n44=  edit "",34,0 0 0 0,hide
n45=}
n46=
n47=On *:DIALOG:qmsg:*:*:{
n48=  if ($devent == init) { qdinit $dname 32 26 QMessage [/qmessage] | did -f $dname 32 }
n49=  if ($did == 15) { did -ra $dname 33 $scolour }
n50=  if ($did == 16) { did -ra $dname 34 $scolour }
n51=  if ($did == 31) { qmessage $qmparms $inputbox(Please Enter QMessage Text.§QMessage [/qmessage]) }
n52=}
n53=
n54=alias -l q { return $replace($did(qmsg,$1).state,1,$true,0,$false) }
n55=
n56=alias -l qmparms {
n57=  var %p
n58=  if ($q(3)) { set %p $addtok(%p,1,44) }
n59=  if ($q(4)) { set %p $addtok(%p,2,44) }
n60=  if ($q(5)) { set %p $addtok(%p,3,44) }
n61=  if ($q(6)) { set %p $addtok(%p,4,44) }
n62=  if ($q(7)) { set %p $addtok(%p,5,44) }
n63=  if ($q(8)) { set %p $addtok(%p,6,44) }
n64=  if ($q(9)) { set %p $addtok(%p,7,44) }
n65=  if ($q(10)) { set %p $addtok(%p,8,44) }
n66=  if ($q(11)) { set %p $addtok(%p,9,44) }
n67=  if ($q(12)) { set %p $addtok(%p,10,44) }
n68=  if ($q(13)) { set %p $addtok(%p,11,44) }
n69=  if ($q(14)) { set %p $addtok(%p,12,44) }
n70=  if ($did(qmsg,33) != $null) { var %s NK $+ $ifmatch | set %p $addtok(%p,%s,44) }
n71=  if ($did(qmsg,34) != $null) { var %s TK $+ $ifmatch | set %p $addtok(%p,%s,44) }
n72=  if ($q(18)) { set %p $addtok(%p,20,44) }
n73=  if ($q(19)) { set %p $addtok(%p,21,44) }
n74=  if ($q(20)) { set %p $addtok(%p,22,44) }
n75=  if ($q(21)) { set %p $addtok(%p,23,44) }
n76=  if ($q(22)) { set %p $addtok(%p,24,44) }
n77=  if ($q(24)) { set %p $addtok(%p,30,44) }
n78=  if ($q(26)) { set %p $addtok(%p,40,44) }
n79=  if ($q(27)) { set %p $addtok(%p,41,44) }
n80=  if ($q(29)) { set %p $addtok(%p,50,44) }
n81=  return $iif(%p,%p,3)
n82=}
n83=
n84=alias qmessage {
n85=  if ($0 == 0) { qdlg qmsg | return }
n86=  if ($0 < 2) { emsgbox Please Enter QMessage Parameters AND Message Text.§QMessage [/qmessage] | return }
n87=  if ($dialog(qmsg)) { editbox $active /qmessage $1 $2- | dialog -x qmsg | return }
n88=  .me <QMSG- $+ $1 $+ > $2-
n89=  qwecho $active $k($b(QMESSAGE),4) : ( $2- ) @ $b($time)
n90=}
n91=
n92=alias -l qmshow {
n93=  var %n = $1,%w = $2,%m = $4-,%t = $remove($3,<QMSG-,>)
n94=  if ($istok(%t,3,44)) { %n = $b(%n) }
n95=  if ($istok(%t,4,44)) { %m = $b(%m) }
n96=  if ($istok(%t,5,44)) { %n = $u(%n) }
n97=  if ($istok(%t,6,44)) { %m = $u(%m) }
n98=  if ($istok(%t,7,44)) { %n = $blocktxt(%n) }
n99=  if ($istok(%t,8,44)) { %m = $blocktxt(%m) }
n100=  if ($istok(%t,9,44)) { %n = $ucase(%n) }
n101=  if ($istok(%t,10,44)) { %m = $ucase(%m) }
n102=  if ($istok(%t,11,44)) { %n = $lcase(%n) }
n103=  if ($istok(%t,12,44)) { %m = $lcase(%m) }
n104=  if ($istok(%t,1,44)) { %n = $rbowcols(%n) }
n105=  if ($istok(%t,2,44)) { %m = $rbowcols(%m) }
n106=  if ($wildtok(%t,NK*,1,44)) { %n = $k(%n,$remove($ifmatch,NK)) }
n107=  if ($wildtok(%t,TK*,1,44)) { %m = $k(%m,$remove($ifmatch,TK)) }
n108=  if ($istok(%t,20,44)) { %m = $k($b(NOTICE),$colour(quit)) : %m ( $+ %n $+ ) | unset %n }
n109=  if ($istok(%t,21,44)) { %m = $k($b(ATTENTION),$colour(quit)) : %m ( $+ %n $+ ) | unset %n }
n110=  if ($istok(%t,22,44)) { %m = $k($b(WARNING),$colour(quit)) : %m ( $+ %n $+ ) | unset %n }
n111=  if ($istok(%t,23,44)) { %m = $k($b(REQUEST),$colour(quit)) : %m ( $+ %n $+ ) | unset %n }
n112=  if ($istok(%t,24,44)) { %m = $k($b(QUESTION),$colour(quit)) : %m ( $+ %n $+ ) | unset %n }
n113=  if ($istok(%t,40,44)) { msgbox $strip(%m) $iif(%n,$chr(40)) $+ %n $+ $iif(%n,$chr(41)) $+ §QMessage [/qmessage] }
n114=  else {
n115=    if ($istok(%t,50,44)) { echo %w %m $iif(%n,$chr(40)) $+ %n $+ $iif(%n,$chr(41)) }
n116=    else { echo %w $iif(%n,$chr(40)) $+ %n $+ $iif(%n,$chr(41)) %m }
n117=  }
n118=  if ($istok(%t,30,44)) { error.snd }
n119=}
n120=
n121=On ^*:ACTION:*:#:{ if (<QMSG-*> iswm $1) { qmshow $nick $chan $1- } | haltdef }
n122=
n123=On ^*:ACION:*:?:{ if (<QMSG-*> iswm $1) { qmshow $nick $nick $1- } | haltdef }