Popups — File Browser
Popupsv1.0 / Popupsv1.0 / popups.mrc
popups.mrc — 24.84 KB — Download this file
on *:LOAD:{
/echo -a Popups Script by Virus-Z Loaded! Type /popups for the setup
if ($var(%popup.*) != 0) {
if ($input(Keep your settings?,y) == $true) {
set %popup.locat Lower Left Corner
set %popup.log 0
}
}
else {
set %popup.bckg 14811135
set %popup.bord 0
set %popup.text 0
set %popup.trans 81
set %popup.delay 2
set %popup.width 300
set %popup.transdo 0
set %popup.fade 0
set %popup.bold 1
set %popup.time 1
set %popup.ampm 0
set %popup.resize 1
set %popup.mrcin 0
set %popup.noaway 0
set %popup.bckgmrc 0
set %popup.bordmrc 0
set %popup.textmrc 0
set %popup.bord2 Kick
set %popup.text2 Action
set %popup.even 0 1 0 0 1 0 0 0 0 0 0 0
set %popup.whois 0
set %popup.word /(?:^|\s)(Virus-Z|vrsz)(?:$|\s)/i
set %popup.enab 1
set %popup.locat Lower Left Corner
set %popup.log 0
}
}
on *:UNLOAD:{
if ($input(Delete Notify Popups settings,y) == $true) {
unset %popup.*
}
}
alias popupmake {
if (%popup.prev == 1) {
goto one
}
if (%popup.mrcin == 1) {
if ($appactive == $true) {
halt
}
else {
if (%popup.noaway == 1) && ($away == $true) {
halt
}
}
}
else {
if (%popup.noaway == 1) && ($away == $true) {
halt
}
}
:one
var %a = $iif((%popup.prev == 1) && ($dialog(popups)) && ($did(popups,12)),$did(popups,12),$iif(%popup.width == $null,200,%popup.width))
var %b = 1
while %b {
if ($window(@Popup. $+ %b) != $null) {
inc %b
}
else {
var %b = @Popup. $+ %b
goto two
}
}
:two
var %f = $gettok($1-,2-,1)
if ((%popup.prev == 1) && ($dialog(popups)) && ($did(popups,13).state == 0)) || ((%popup.resize == 0) && (!$dialog(popups)) && ((%popup.whois == 0) || (!%popup.whois))) {
var %g = $len(%f)
if ($calc($width($txtcut(%f,%g),Tahoma,11) +10) >= %popup.width) {
while ($calc($width($txtcut(%f,%g),Tahoma,11) +10) >= %popup.width) {
dec %g
}
var %f = $txtcut(%f,%g)
}
var %c = $window(@popup*,0)
var %d = $iif($gettok(%popup.locat,1,32) == Lower,$calc($window(-1).h - 25 - 35),2)
var %e = $window(@popup*,0)
while %e {
if ($window(@popup*,%e).y == %d) {
var %d = $iif($gettok(%popup.locat,1,32) == Lower,$calc(%d - 37),$calc(%d + 37))
var %e = $window(@popup*,0)
}
else {
dec %e
}
}
window -Bphdo +dL %b $iif($gettok(%popup.locat,2,32) == Left,2,$calc($window(-1).w - %a -2)) %d %a 35
setlayer 0 %b
drawfill -r %b %popup.bckg %popup.bord 4 4
drawtext $iif(((%popup.prev == 1) && ($dialog(popups)) && ($did(popups,3).state == 1)) || ((%popup.bold == 1) && (!$dialog(popups))),-or,-r) %b %popup.text Tahoma 11 4 2 $gettok($1-,1,1)
if ((%popup.prev == 1) && ($dialog(popups)) && ($did(popups,4).state == 1)) || ((%popup.time == 1) && (!$dialog(popups))) {
drawtext $iif(((%popup.prev == 1) && ($dialog(popups)) && ($did(popups,3).state == 1)) || ((%popup.bold == 1) && (!$dialog(popups))),-or,-r) %b %popup.text Tahoma 11 $iif(((%popup.prev == 1) && ($dialog(popups)) && ($did(popups,5).state == 1)) || ((%popup.ampm == 1) && (!$dialog(popups))),$calc($window(%b).w -54) 2 $asctime(hh:nn TT),$calc($window(%b).w -33) 2 $asctime(HH:nn))
}
drawtext -r %b %popup.text "Small Fonts" 7 $calc(%a - 44) 13 YAmIRC v1.0
drawtext -r %b %popup.text Tahoma 11 4 20 %f
drawrect -r %b %popup.bord %popup.bord 0 0 %a 35
}
else {
if ((%popup.prev == 1) && ($dialog(popups)) && ($did(popups,13).state == 1)) || ((%popup.resize == 1) && (!$dialog(popups))) || ((%popup.resize == 0) && (%popup.whois == 1) && (!$dialog(popups))) {
var %f.1 = $numtok(%f,32)
var %f.2 = 1
var %f.3 = ""
var %g = 1
while $gettok(%f,%f.2,32) {
%f.3 = $instok(%f.3,$gettok(%f,%f.2,32),%f.2,32)
if ($calc($width(%f.3,Tahoma,11) +20) >= $calc(%a -10)) || ($gettok(%f,$calc(%f.2 +1),32) == $null) {
set %g. [ $+ [ %g ] ] %f.3
%f.3 = ""
inc %g
}
inc %f.2
}
var %a.2 = $calc(20 + ((%g -1) * 15))
var %d = $iif($gettok(%popup.locat,1,32) == Lower,$calc($window(-1).h - 25 - %a.2),2)
var %c = $window(@popup*,0)
var %e = $window(@popup*,0)
while %e {
if ($window(@popup*,%e).y == %d) {
var %d = $iif($gettok(%popup.locat,1,32) == Lower,$calc($window(-1).h - 25 - %a.2),2)
var %e = $window(@popup*,0)
}
else {
dec %e
}
}
window -Bphdo +dL %b $iif($gettok(%popup.locat,2,32) == Left,2,$calc($window(-1).w - %a -2)) %d %a %a.2
setlayer 0 %b
drawfill -r %b %popup.bckg %popup.bord 4 4
drawtext $iif(((%popup.prev == 1) && ($dialog(popups)) && ($did(popups,3).state == 1)) || ((%popup.bold == 1) && (!$dialog(popups))),-or,-r) %b %popup.text Tahoma 11 4 2 $gettok($1-,1,1)
if ((%popup.prev == 1) && ($dialog(popups)) && ($did(popups,4).state == 1)) || ((%popup.time == 1) && (!$dialog(popups))) {
drawtext $iif(((%popup.prev == 1) && ($dialog(popups)) && ($did(popups,3).state == 1)) || ((%popup.bold == 1) && (!$dialog(popups))),-or,-r) %b %popup.text Tahoma 11 $iif(((%popup.prev == 1) && ($dialog(popups)) && ($did(popups,5).state == 1)) || ((%popup.ampm == 1) && (!$dialog(popups))),$calc($window(%b).w -54) 2 $asctime(hh:nn TT),$calc($window(%b).w -33) 2 $asctime(HH:nn))
}
drawtext -r %b %popup.text "Small Fonts" 7 $calc(%a - 44) 13 YAmIRC v1.0
var %g.a = 1
var %g.b = $calc(%g -1)
var %g.c = 20
while %g.a <= %g.b {
drawtext -r %b %popup.text Tahoma 11 4 %g.c %g. [ $+ [ %g.a ] ]
inc %g.c 15
inc %g.a
}
drawrect -r %b %popup.bord %popup.bord 0 0 %a %g.c
}
}
if ((%popup.prev == 1) && ($dialog(popups)) && ($did(popups,6).state == 1)) || ((%popup.fade == 1) && (!$dialog(popups))) {
var %fin = 1
var %fou = $iif(((%popup.prev == 1) && ($dialog(popups)) && ($did(popups,7).state == 1)),$gettok($did(popups,8).seltext,1,32),$iif((%popup.transdo == 1) && (!$dialog(popups)),%popup.trans,255))
while %fin <= %fou {
setlayer $calc(%fin *2.55) %b
inc %fin
}
}
else {
if ((%popup.prev == 1) && ($dialog(popups)) && ($did(popups,7).state == 1)) || ((%popup.transdo == 1) && (!$dialog(popups))) {
setlayer $calc(%popup.trans *2.55) %b
}
else {
setlayer 255 %b
}
}
.timer $+ $remove(%b,@) -o 1 $iif(((%popup.prev == 1) && ($dialog(popups)) && ($did(popups,10) == $null)) || ((%popup.delay == $null) && (!$dialog(popups))),4,$iif(((%popup.prev == 1) && ($dialog(popups))),$did(popups,10),%popup.delay)) popupremo %b
if ($appactive == $true) { showmirc -s }
unset %g.*
}
alias popupremo {
if ((%popup.prev == 1) && ($dialog(popups)) && ($did(popups,6).state == 1)) || ((%popup.fade == 1) && (!$dialog(popups))) {
var %fin = 1
var %fou = $iif(((%popup.prev == 1) && ($dialog(popups)) && ($did(popups,7).state == 1)),$gettok($did(popups,8).seltext,1,32),$iif((%popup.transdo == 1) && (!$dialog(popups)),%popup.trans,255))
while %fin <= %fou {
setlayer $calc(%fou *2.55) $1
dec %fou
}
window -c $1
}
else {
window -c $1
}
set %popup.prev 0
}
alias regex.mk {
if ($1 != $null) {
return /(?:^|\s)( $+ $replace($1,\,\\,$,\$,^,\^,|,\|,$chr(44),|,+,\+,.,\.,[,\[,],\],*,.*,?,.,$chr(123),\ $+ $chr(123),$chr(125),\ $+ $chr(125),$chr(40),\ $+ $chr(40),$chr(41),\ $+ $chr(41)) $+ )(?:$|\s)/i }
}
alias regex.unmk {
if ($1 != $null) {
return $replace($mid($1,11,-11),\^,^,\.,‰‰‰‰,\|,,|,$chr(44),\$,$,\\,\,\?,?,\+,+,\[,[,\],],.*,*,.,?,\ $+ $chr(123),$chr(123),\ $+ $chr(125),$chr(125),\ $+ $chr(40),$chr(40),\ $+ $chr(41),$chr(41),‰‰‰‰,.,,|) }
}
dialog popups {
title "Popups - /popups"
size -1 -1 152 158
option dbu
tab "Appearance", 50, 2 0 148 141
tab "Colors", 51
tab "Events", 2
check "Fade in/out (2000/XP)", 6, 6 48 80 10, tab 50
check "Use transparency (2000/XP)", 7, 6 58 80 10, tab 50
list 8, 88 56 60 14, tab 50 size
text "Popup show delay (in seconds)", 9, 6 73 80 8, tab 50
edit "", 10, 88 72 60 10, tab 50 center
text "Popup width", 11, 6 85 80 8, tab 50
edit "", 12, 88 84 60 10, tab 50 center
check "Resize popup by height if text doest not fit", 13, 6 96 142 10, tab 50
text "Show popups if", 14, 6 108 60 8, tab 50
check "mIRC window is inactive", 15, 68 107 80 10, tab 50
check "not in away mode", 16, 68 117 80 10, tab 50
check "Display time", 4, 6 38 80 10, tab 50
check "Enable Popups", 1, 6 16 50 10, tab 50
check "AM/PM", 5, 88 38 60 10, tab 50
check "Use bold font for event/time", 3, 6 28 80 10, tab 50
text "Show popups in", 17, 6 130 61 8, tab 50
combo 52, 68 128 60 12, tab 50 drop
text "Background color", 18, 6 19 50 8, tab 51
list 19, 58 18 74 10, tab 51 disable size
button "...", 20, 134 18 15 10, tab 51
check "Use color from", 21, 12 30 44 10, tab 51
combo 22, 58 30 74 12, tab 51 drop
text "Border color", 23, 6 46 50 8, tab 51
list 24, 58 45 74 10, tab 51 disable size
button "...", 25, 134 45 15 10, tab 51
check "Use color from", 26, 12 57 44 10, tab 51
combo 27, 58 57 74 12, tab 51 drop
text "Text color", 28, 6 73 50 8, tab 51
list 29, 58 72 74 10, tab 51 disable size
button "...", 30, 134 72 15 10, tab 51
check "Use color from", 31, 12 84 44 10, tab 51
combo 32, 58 84 74 12, tab 51 drop
check "CTCPs", 35, 6 26 45 10, tab 2
check "DCCs", 36, 6 36 45 10, tab 2
check "Disconnects", 37, 6 46 45 10, tab 2
check "Highlight", 38, 6 56 45 10, tab 2
check "Kicks, bans", 39, 54 16 45 10, tab 2
check "Notices", 40, 54 26 45 10, tab 2
check "Notifies", 41, 54 36 45 10, tab 2
check "AMIP Songs", 42, 54 46 45 10, tab 2
check "Queries", 43, 54 56 45 10, tab 2
check "Words", 44, 102 16 45 10, tab 2
button "Edit words", 45, 102 26 46 10, tab 2
check "Connects", 34, 6 16 45 10, tab 2
check "Whois", 33, 102 38 45 10, tab 2
check "Log notices/word trigger and highlight events into the special windows", 53, 6 70 142 16, tab 2 multi
button "Apply", 47, 120 146 30 10
button "Cancel", 48, 88 146 30 10, cancel
button "Ok", 49, 56 146 30 10, ok
button "Preview", 46, 2 146 30 10
}
on *:dialog:popups:*:*: {
if ($devent == init) {
mdx SetMircVersion $version
mdx MarkDialog $dname $dialog($dname).hwnd
mdx SetDialog $dname style tool title
mdx SetBorderStyle $dname 8,10,12,19,24,29 staticedge
mdx SetControlMDX 8 TrackBar noticks tooltips > $scriptdirbars.mdx
mdx SetColor $dname 19 background %popup.bckg
mdx SetColor $dname 24 background %popup.bord
mdx SetColor $dname 29 background %popup.text
did -i $dname 8 1 params %popup.trans
didtok $dname 52 124 Upper Right Corner|Lower Right Corner|Lower Left Corner|Upper Left Corner
did -c $dname 52 $didwm(popups,52,%popup.locat)
did $iif(%popup.enab == 1,-c,-u) $dname 1
if (%popup.enab == 0) {
did -b $dname 3,4,5,6,7,8,10,12,13,15,16,18,21,22,24,26,27,29,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46
}
else {
did -e $dname 3,4,5,6,7,8,10,12,13,15,16,18,21,22,24,26,27,29,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46
}
did -a $dname 10 $iif(%popup.delay == $null,4,%popup.delay)
did -a $dname 12 $iif(%popup.width == $null,200,%popup.width)
did $iif($gettok(%popup.transdo,1,32) == 1,-c,-u) $dname 7
if (%popup.transdo == 0) {
did -b $dname 8
}
else {
did -e $dname 8
}
did $iif(%popup.log == 1,-c,-u) $dname 53
did $iif(%popup.fade == 1,-c,-u) $dname 6
did $iif(%popup.bold == 1,-c,-u) $dname 3
did $iif(%popup.time == 1,-c,-u) $dname 4
did $iif(%popup.ampm == 1,-c,-u) $dname 5
did $iif(%popup.resize == 1,-c,-u) $dname 13
did $iif(%popup.mrcin == 1,-c,-u) $dname 15
did $iif(%popup.noaway == 1,-c,-u) $dname 16
did $iif(%popup.bckgmrc == 1,-c,-u) $dname 21
did $iif(%popup.bordmrc == 1,-c,-u) $dname 26
did $iif(%popup.textmrc == 1,-c,-u) $dname 31
if (%popup.bckgmrc == 1) {
did -b $dname 20
did -e $dname 22
}
else {
did -e $dname 20
did -b $dname 22
}
if (%popup.bordmrc == 1) {
did -b $dname 25
did -e $dname 27
}
else {
did -e $dname 25
did -b $dname 27
}
if (%popup.textmrc == 1) {
did -b $dname 30
did -e $dname 32
}
else {
did -e $dname 30
did -b $dname 32
}
didtok $dname 22,27,32 124 Default|Action|CTCP|Highlight|Info|Info2|Invite|Join|Kick|Mode|Nick|Normal|Notice|Notify|Other|Own|Part|Quit|Topic|Wallops|Whois|Editbox|Editbox Text|Listbox|Listbox Text|Gray|Title Text|Inactive
if (%popup.bckg2) {
did -c $dname 22 $didwm(popups,22,%popup.bckg2)
}
if (%popup.bord2) {
did -c $dname 27 $didwm(popups,27,%popup.bord2)
}
if (%popup.text2) {
did -c $dname 32 $didwm(popups,32,%popup.text2)
}
var %a = 33
var %b = 1
while %a <= 44 {
did $iif($gettok(%popup.even,%b,32) == 1,-c,-u) $dname %a
inc %a
inc %b
}
did $iif($did($dname,44).state == 1,-e,-b) $dname 45
}
elseif ($devent == sclick) {
if ($did == 1) {
if ($did($dname,1).state == 0) {
did -b $dname 3,4,5,6,7,8,10,12,13,15,16,18,20,21,22,24,25,26,27,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46
halt
}
else {
did -e $dname 3,4,5,6,7,8,10,12,13,15,16,18,21,22,24,26,27,29,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46
}
if ($did($dname,7).state == 0) {
did -b $dname 8
}
else {
did -e $dname 8
}
did $iif($did($dname,44).state == 1,-e,-b) $dname 45
if ($did($dname,21).state == 1) {
did -b $dname 20
did -e $dname 22
}
else {
did -e $dname 20
did -b $dname 22
}
if ($did($dname,26).state == 1) {
did -b $dname 25
did -e $dname 27
}
else {
did -e $dname 25
did -b $dname 27
}
if ($did($dname,31).state == 1) {
did -b $dname 30
did -e $dname 32
}
else {
did -e $dname 30
did -b $dname 32
}
}
if ($did == 20) {
var %a = $colordll(Color,%popup.bckg)
if (%a == $false) {
halt
}
else {
set %popup.bckg %a
mdx SetColor $dname 19 background %popup.bckg
}
}
if ($did == 25) {
var %a = $colordll(Color,%popup.bord)
if (%a == $false) {
halt
}
else {
set %popup.bord %a
mdx SetColor $dname 24 background %popup.bord
}
}
if ($did == 30) {
var %a = $colordll(Color,%popup.text)
if (%a == $false) {
halt
}
else {
set %popup.text %a
mdx SetColor $dname 29 background %popup.text
}
}
if ($did == 7) {
did $iif($did($dname,$did).state == 1,-e,-b) $dname 8
}
if ($did == 21) {
did $iif($did($dname,$did).state == 1,-b,-e) $dname 20
did $iif($did($dname,$did).state == 1,-e,-b) $dname 22
}
if ($did == 26) {
did $iif($did($dname,$did).state == 1,-b,-e) $dname 25
did $iif($did($dname,$did).state == 1,-e,-b) $dname 27
}
if ($did == 31) {
did $iif($did($dname,$did).state == 1,-b,-e) $dname 30
did $iif($did($dname,$did).state == 1,-e,-b) $dname 32
}
if ($did == 22) {
mdx SetColor $dname 19 background $color($color($did($dname,$did).seltext))
}
if ($did == 27) {
mdx SetColor $dname 24 background $color($color($did($dname,$did).seltext))
}
if ($did == 32) {
mdx SetColor $dname 29 background $color($color($did($dname,$did).seltext))
}
if ($did == 47) || ($did == 49) {
if ($did($dname,12) < 140) {
.echo -q $input(Popup width cannot be lower than 140 $crfl $+ Setting popup width to 140,ow,Error)
set %popup.width 140
did -o $dname 12 1 140
}
elseif ($did($dname,12) > $calc($window(-1).w -50)) {
.echo -q $input(Popup width cannot be lower than $calc($window(-1).w -50) $crfl $+ Setting popup width to $calc($window(-1).w -50),ow,Error)
set %popup.width $calc($window(-1).w -50)
did -o $dname 12 1 $calc($window(-1).w -50)
}
else {
set %popup.width $did($dname,12)
}
set %popup.enab $did($dname,1).state
set %popup.delay $did($dname,10)
set %popup.fade $did($dname,6).state
set %popup.bold $did($dname,3).state
set %popup.time $did($dname,4).state
set %popup.ampm $did($dname,5).state
set %popup.transdo $did($dname,7).state
set %popup.resize $did($dname,13).state
set %popup.mrcin $did($dname,15).state
set %popup.noaway $did($dname,16).state
set %popup.bckgmrc $did($dname,21).state
set %popup.bordmrc $did($dname,26).state
set %popup.textmrc $did($dname,31).state
set %popup.locat $did($dname,52)
set %popup.log $did($dname,53).state
set %popup.trans $gettok($did($dname,8).seltext,1,32)
if ($did($dname,21).state == 1) {
set %popup.bckg $color($color($did($dname,22).seltext))
set %popup.bckg2 $did($dname,22).seltext
}
if ($did($dname,26).state == 1) {
set %popup.bord $color($color($did($dname,27).seltext))
set %popup.bord2 $did($dname,27).seltext
}
if ($did($dname,31).state == 1) {
set %popup.text $color($color($did($dname,32).seltext))
set %popup.text2 $did($dname,32).seltext
}
var %a = 33
var %b = 1
set %popup.even ""
while %a <= 44 {
set %popup.even $instok(%popup.even,$did($dname,%a).state,%b,32)
inc %a
inc %b
}
}
if ($did == 44) {
did $iif($did($dname,$did).state == 1,-e,-b) $dname 45
}
if ($did == 45) {
dialog -m popup.words popup.words
}
if ($did == 46) {
showmirc -s
set %popup.prev 1
popupmake $+(Preview Popup,$chr(1),This is a preview popup using predefined settings which will be used for every popup)
}
}
}
dialog popup.words {
title "Popup Words"
size -1 -1 92 79
option dbu
combo 1, 2 2 66 62, sort size vsbar limit 50
button "+", 2, 70 2 20 10
button "-", 3, 70 14 20 10
button "-all", 4, 70 26 20 10
button "Ok", 5, 28 67 30 10, ok
button "Cancel", 6, 60 67 30 10, cancel
}
on *:dialog:popup.words:*:*:{
if ($devent == init) {
mdx SetMircVersion $version
mdx MarkDialog $dname $dialog($dname).hwnd
mdx SetDialog $dname style tool title
didtok $dname 1 44 $regex.unmk(%popup.word)
}
elseif ($devent == sclick) {
if ($did == 2) {
if ($did(1) != $null) {
if (!$istok($didtok(1,1),$did(1),1)) {
var %a = $did(popup.words,1).lines
while %a {
var %b = $addtok(%b,$did($dname,1,%a),160)
dec %a
}
if ($len(%b) > 500) {
.echo -q $input(Too many words added,ow,Error)
}
else {
did -a $dname 1 $did(1)
}
}
else {
.echo -q $input(This word has already been added,ow,Error)
}
}
}
if ($did == 3) && ($did(1).sel) {
did -d $dname 1 $did(1).sel
}
if ($did == 4) {
set %popup.word ""
did -r $dname 1
}
if ($did == 5) {
set %popup.word $regex.mk($didtok($dname,1,44))
}
}
}
alias popups {
if (!$dialog(popups)) {
dialog -m popups popups
}
else {
dialog -x popups
}
}
alias mdx {
return $dll($scriptdirmdx.dll,$1,$2-)
}
alias colordll {
return $dll($scriptdircolor.dll,$1,$2-)
}
menu menubar {
Popups:popups
}
alias whois {
set %popup.whois 1
whois $1
}
on *:CONNECT:{
if (%popup.enab != 1) {
}
else {
popupmake $+($server,$chr(1),Connected)
}
}
on *:DISCONNECT:{
if (%popup.enab != 1) {
}
else {
popupmake $+($server,$chr(1),Disconnected)
}
}
ctcp *:*:*:{
if (%popup.enab != 1) {
}
else {
if ($1 == dcc) && ($gettok(%popup.even,4,32) == 1) {
popupmake $+(DCC : $nick,$chr(1),$1-)
}
else {
if ($gettok(%popup.even,3,32) == 1) {
popupmake $+(CTCP : $nick,$chr(1),$1-)
}
}
}
}
on *:action:*:#:{
if (%popup.enab != 1) {
}
else {
if ($gettok(%popup.even,6,32) == 1) && ($highlight($1-)) && (($chan != $active) || ($chan == $active) && ($appactive == $false)) {
popupmake $+(Highlight : $chan : $nick,$chr(1),$strip($1-))
if (%popup.log == 1) {
window -k0ng1 @Highlight $+ $chr(160) $+ $server
aline @Highlight $+ $chr(160) $+ $server $time : $server : $chan : $nick : $strip($1-)
}
}
if ($gettok(%popup.even,12,32) == 1) && ($regex($1-,%popup.word) != 0) && (($chan != $active) || ($chan == $active) && ($appactive == $false)) {
popupmake $+(Word Trig : $chan : $nick,$chr(1),$strip($1-))
if (%popup.log == 1) {
window -k0ng1 @WordTrig $+ $chr(160) $+ $server
aline @WordTrig $+ $chr(160) $+ $server $time : $server : $chan : $nick : $strip($1-)
}
}
}
}
on *:action:*:?:{
if (%popup.enab != 1) {
}
else {
if ($gettok(%popup.even,11,32) == 1) && (($nick != $active) || ($nick == $active) && ($appactive == $false)) {
popupmake $+(Private : $nick,$chr(1),$strip($nick $1-))
}
if ($gettok(%popup.even,6,32) == 1) && ($highlight($1-)) && (($nick != $active) || ($nick == $active) && ($appactive == $false)) {
popupmake $+(Highlight : $nick,$chr(1),$strip($nick $1-))
if (%popup.log == 1) {
window -k0ng1 @Highlight $+ $chr(160) $+ $server
aline @Highlight $+ $chr(160) $+ $server $time : $server : $nick : $strip($1-)
}
}
if ($gettok(%popup.even,12,32) == 1) && ($regex($1-,%popup.word) != 0) && (($nick != $active) || ($nick == $active) && ($appactive == $false)) {
popupmake $+(Word Trig : $nick,$chr(1),$strip($1-))
popupmake $+(Word Trig : $chan : $nick,$chr(1),$strip($1-))
if (%popup.log == 1) {
window -k0ng1 @WordTrig $+ $chr(160) $+ $server
aline @WordTrig $+ $chr(160) $+ $server $time : $server : $nick : $strip($1-)
}
}
}
}
on *:text:*:#:{
if (%popup.enab != 1) {
}
else {
if ($gettok(%popup.even,6,32) == 1) && ($highlight($1-)) && (($chan != $active) || ($chan == $active) && ($appactive == $false)) {
popupmake $+(Highlight : $chan : $nick,$chr(1),$strip($1-))
if (%popup.log == 1) {
window -k0ng1 @Highlight $+ $chr(160) $+ $server
aline @Highlight $+ $chr(160) $+ $server $time : $server : $chan : $nick : $strip($1-)
}
}
if ($gettok(%popup.even,12,32) == 1) && ($regex($1-,%popup.word) != 0) && (($chan != $active) || ($chan == $active) && ($appactive == $false)) {
popupmake $+(Word Trig : $chan : $nick,$chr(1),$strip($1-))
if (%popup.log == 1) {
window -k0ng1 @WordTrig $+ $chr(160) $+ $server
aline @WordTrig $+ $chr(160) $+ $server $time : $server : $chan : $nick : $strip($1-)
}
}
}
}
on *:text:*:?:{
if (%popup.enab != 1) || ($nick == Chanserv || $nick == Memoserv || $nick == Nickserv) {
}
else {
if ($gettok(%popup.even,11,32) == 1) && (($nick != $active) || ($nick == $active) && ($appactive == $false)) {
popupmake $+(Private : $nick,$chr(1),$strip($1-))
}
if ($gettok(%popup.even,6,32) == 1) && ($highlight($1-)) && (($nick != $active) || ($nick == $active) && ($appactive == $false)) {
popupmake $+(Highlight : $nick ,$chr(1),$strip($1-))
if (%popup.log == 1) {
window -k0ng1 @Highlight $+ $chr(160) $+ $server
aline @Highlight $+ $chr(160) $+ $server $time : $server : $nick : $strip($1-)
}
}
if ($gettok(%popup.even,12,32) == 1) && ($regex($1-,%popup.word) != 0) && (($nick != $active) || ($nick == $active) && ($appactive == $false)) {
popupmake $+(Word Trig : $nick,$chr(1),$strip($1-))
if (%popup.log == 1) {
window -k0ng1 @WordTrig $+ $chr(160) $+ $server
aline @WordTrig $+ $chr(160) $+ $server $time : $server : $nick : $strip($1-)
}
}
}
}
on *:KICK:#:{
if (%popup.enab != 1) {
}
else {
if ($gettok(%popup.even,7,32) == 1) && (($chan != $active) || ($chan == $active) && ($appactive == $false)) {
popupmake $+(Kick,$chr(1),$knick was kicked from $chan by $nick $iif($1-,$chr(40) $+ $1- $+ $chr(41),))
}
}
}
on *:BAN:#:{
if (%popup.enab != 1) {
}
else {
if ($gettok(%popup.even,7,32) == 1) && (($chan != $active) || ($chan == $active) && ($appactive == $false)) {
popupmake $+(Ban,$chr(1),$nick sets ban for $2- at $chan)
}
}
}
on *:UNBAN:#:{
if (%popup.enab != 1) {
}
else {
if ($gettok(%popup.even,7,32) == 1) && (($chan != $active) || ($chan == $active) && ($appactive == $false)) {
popupmake $+(Unban,$chr(1),$nick removes ban for $2- at $chan)
}
}
}
on *:NOTICE:*:?:{
if (%popup.enab != 1) || ($nick == Chanserv || $nick == Memoserv || $nick == Nickserv) {
}
else {
if ($gettok(%popup.even,8,32) == 1) && (($nick != $active) || ($nick == $active) && ($appactive == $false)) {
popupmake $+(Notice : $nick,$chr(1),$strip($1-))
if (%popup.log == 1) {
window -k0ng1 @Notices $+ $chr(160) $+ $server
aline @Notices $+ $chr(160) $+ $server $time : $server : $nick : $strip($1-)
}
}
}
}
on *:NOTICE:*:#:{
if (%popup.enab != 1) {
}
else {
if ($gettok(%popup.even,8,32) == 1) && (($chan != $active) || ($chan == $active) && ($appactive == $false)) {
popupmake $+(Notice : $chan : $nick,$chr(1),$strip($1-))
if (%popup.log == 1) {
window -k0ng1 @Notices $+ $chr(160) $+ $server
aline @Notices $+ $chr(160) $+ $server $time : $server : $chan : $nick : $strip($1-)
}
}
}
}
on *:NOTIFY:{
if (%popup.enab != 1) {
}
else {
if ($gettok(%popup.even,9,32) == 1) {
popupmake $+(Notify,$chr(1),$nick is online at $server)
}
}
}
on *:UNOTIFY:{
if (%popup.enab != 1) {
}
else {
if ($gettok(%popup.even,9,32) == 1) {
popupmake $+(Notify,$chr(1),$nick is offline at $server)
}
}
}
RAW *:*:{
var %n = $numeric
if (%n == 311 || %n == 319 || %n == 312 || %n == 307 || %n == 301 || %n == 317 || %n == 703 || %n == 318) {
if (%popup.whois == 1) && (%popup.enab == 1) && ($gettok(%popup.even,1,32) == 1) {
if !$window(@whois) { window -h @whois }
if %n == 311 {
aline @whois Whois for $2
aline @whois Address: $3 $+ @ $+ $4
}
if %n == 319 {
aline @whois Channels: $3-
}
if %n == 312 {
aline @whois Server: $3
}
if %n == 307 {
aline @whois Identified: $iif(identified for this nick isin $3-,yes,no)
}
if %n == 301 {
aline @whois Away: $3-
}
if %n == 317 {
aline @whois Idle: $duration($3) $6-
aline @whois Sign on: $asctime($4)
}
if %n == 703 {
aline @whois Translation: $3-
}
if %n == 318 {
if ($gettok(%popup.even,1,32) == 1) && (%popup.enab == 1) {
var %a = $line(@whois,0)
var %b = 2
while %a {
set %popup.who. [ $+ [ %b ] ] $line(@whois,%b)
while ($calc($width(%popup.who. [ $+ [ %b ] ],Tahoma,11) +10) <= $calc($iif(%popup.width == $null,200,%popup.width) -10)) {
set %popup.who. [ $+ [ %b ] ] %popup.who. [ $+ [ %b ] ] $+ $chr(160)
}
inc %b
dec %a
}
dec %b
unset %popup.who. [ $+ [ %b ] ]
var %d = $var(%popup.who.*)
var %e = 1
while %e <= %d {
var %f = %f $var(%popup.who.*,%e)
inc %e
}
popupmake $+($line(@whois,1),$chr(1),$eval(%f,2))
}
window -c @whois
unset %popup.who.*
set %popup.whois 0
}
halt
}
else { }
}
}
alias txtcut {
if ($len($1) > $2) {
return $left($1,$2) $+ ...
}
else {
return $1
}
}