Peace & Protection 4.00 — File Browser
PeaceProtection4.00v4.0 / PeaceProtection4.00v4.0 / SCRIPT / newtheme.mrc
newtheme.mrc — 11.29 KB — Download this file
; #= P&P -rs
; ########################################
; Peace & Protection
; New theme editing dialog
; ########################################
dialog themee {
title "Theme Central"
size -1 -1 420 338
list 1, 10 11 100 280, size
list 2, 1 1 1 1, hide
edit "", 3, 1 1 1 1, hide
combo 4, 10 302 100 100, drop disable
button "OK", 5, 120 300 60 25, ok default
button "Cancel", 6, 190 300 60 25, cancel
button "Help", 7, 260 300 60 25, disable
button "Preview >>", 8, 330 300 80 25, disable
text "Action text:", 20, 120 15 100 20, hide right
text "CTCP text:", 21, 120 35 100 20, hide right
text "Highlight text:", 22, 120 55 100 20, hide right
text "Info text:", 23, 120 75 100 20, hide right
text "Info2 text:", 24, 120 95 100 20, hide right
text "Invite text:", 25, 120 115 100 20, hide right
text "Join text:", 26, 120 135 100 20, hide right
text "Kick text:", 27, 120 155 100 20, hide right
text "Mode text:", 28, 120 175 100 20, hide right
text "Nick text:", 29, 120 195 100 20, hide right
text "Normal text:", 30, 260 15 100 20, hide right
text "Notice text:", 31, 260 35 100 20, hide right
text "Notify text:", 32, 260 55 100 20, hide right
text "Other text:", 33, 260 75 100 20, hide right
text "Own text:", 34, 260 95 100 20, hide right
text "Part text:", 35, 260 115 100 20, hide right
text "Quit text:", 36, 260 135 100 20, hide right
text "Topic text:", 37, 260 155 100 20, hide right
text "Wallops text:", 38, 260 175 100 20, hide right
text "Whois text:", 39, 260 195 100 20, hide right
text "Background:", 40, 120 225 100 20, hide right
text "Editbox text:", 41, 120 255 100 20, hide right
text "Editbox background:", 42, 120 275 100 20, hide right
text "Listbox text:", 43, 260 255 100 20, hide right
text "Listbox background:", 44, 260 275 100 20, hide right
icon 45, 238 14 15 15, %.blank, hide
icon 46, 238 34 15 15, %.blank, hide
icon 47, 238 54 15 15, %.blank, hide
icon 48, 238 74 15 15, %.blank, hide
icon 49, 238 94 15 15, %.blank, hide
icon 50, 238 114 15 15, %.blank, hide
icon 51, 238 134 15 15, %.blank, hide
icon 52, 238 154 15 15, script\16.bmp, hide
icon 53, 238 174 15 15, %.blank, hide
icon 54, 238 194 15 15, %.blank, hide
icon 55, 378 14 15 15, %.blank, hide
icon 56, 378 34 15 15, %.blank, hide
icon 57, 378 54 15 15, %.blank, hide
icon 58, 378 74 15 15, %.blank, hide
icon 59, 378 94 15 15, %.blank, hide
icon 60, 378 114 15 15, %.blank, hide
icon 61, 378 134 15 15, %.blank, hide
icon 62, 378 154 15 15, %.blank, hide
icon 63, 378 174 15 15, %.blank, hide
icon 64, 378 194 15 15, %.blank, hide
icon 65, 238 224 15 15, %.blank, hide
icon 66, 238 254 15 15, %.blank, hide
icon 67, 238 274 15 15, %.blank, hide
icon 68, 378 254 15 15, %.blank, hide
icon 69, 378 274 15 15, %.blank, hide
text "Base color:", 80, 190 80 100 20, right hide
text "Word highlight color:", 81, 190 104 100 20, right hide
text "String highlight color:", 82, 190 128 100 20, right hide
text "Warning color:", 83, 190 152 100 20, right hide
text "Alert background:", 84, 190 176 100 20, right hide
icon 85, 300 79 15 15, %.blank, hide
icon 86, 300 103 15 15, %.blank, hide
icon 87, 300 127 15 15, %.blank, hide
icon 88, 300 151 15 15, %.blank, hide
icon 89, 300 175 15 15, %.blank, hide
text "Normal:", 90, 125 55 85 20, right hide
text "Notify / Userlist:", 91, 125 77 85 20, right hide
text "Failed notify:", 92, 125 99 85 20, right hide
text "Blacklist / Ignore:", 93, 125 121 85 20, right hide
text "IRCop:", 94, 125 143 85 20, right hide
text "Yourself:", 95, 125 165 85 20, right hide
text "Lagged:", 96, 125 187 85 20, right hide
text "Being pinged:", 97, 125 209 85 20, right hide
text "Regular:", 98, 217 33 40 16, hide
text "Voice:", 99, 270 33 30 16, hide
text "Op:", 100, 320 33 30 16, hide
icon 101, 230 52 15 15, %.blank, hide
icon 102, 275 52 15 15, %.blank, hide
icon 103, 320 52 15 15, %.blank, hide
icon 104, 230 74 15 15, %.blank, hide
icon 105, 275 74 15 15, %.blank, hide
icon 106, 320 74 15 15, %.blank, hide
icon 107, 230 96 15 15, %.blank, hide
icon 108, 275 96 15 15, %.blank, hide
icon 109, 320 96 15 15, %.blank, hide
icon 110, 230 118 15 15, %.blank, hide
icon 111, 275 118 15 15, %.blank, hide
icon 112, 320 118 15 15, %.blank, hide
icon 113, 230 140 15 15, %.blank, hide
icon 114, 275 140 15 15, %.blank, hide
icon 115, 320 140 15 15, %.blank, hide
icon 116, 230 162 15 15, %.blank, hide
icon 117, 275 162 15 15, %.blank, hide
icon 118, 320 162 15 15, %.blank, hide
icon 119, 230 184 15 15, %.blank, hide
icon 120, 275 184 15 15, %.blank, hide
icon 121, 320 184 15 15, %.blank, hide
icon 122, 230 206 15 15, %.blank, hide
icon 123, 275 206 15 15, %.blank, hide
icon 124, 320 206 15 15, %.blank, hide
radio "Color-based separator:", 130, 123 25 200 16, hide
radio "Custom line separator:", 131, 123 170 200 16, hide
box "", 157, 143 45 230 100, hide
box "", 158, 143 193 230 50, hide
icon 132, 160 65 15 15, %.blank, hide
icon 133, 180 65 15 15, %.blank, hide
icon 134, 200 65 15 15, %.blank, hide
icon 135, 220 65 15 15, %.blank, hide
icon 136, 240 65 15 15, %.blank, hide
icon 137, 260 65 15 15, %.blank, hide
icon 138, 280 65 15 15, %.blank, hide
icon 139, 300 65 15 15, %.blank, hide
icon 140, 320 65 15 15, %.blank, hide
icon 141, 340 65 15 15, %.blank, hide
icon 142, 160 85 15 15, %.blank, hide
icon 143, 180 85 15 15, %.blank, hide
icon 144, 200 85 15 15, %.blank, hide
icon 145, 220 85 15 15, %.blank, hide
icon 146, 240 85 15 15, %.blank, hide
icon 147, 260 85 15 15, %.blank, hide
icon 148, 280 85 15 15, %.blank, hide
icon 149, 300 85 15 15, %.blank, hide
icon 150, 320 85 15 15, %.blank, hide
icon 151, 340 85 15 15, %.blank, hide
text "Char:", 152, 160 116 38 20, right hide
edit "", 153, 200 112 50 22, hide
text "Length:", 154, 267 116 38 20, right hide
edit "", 155, 307 112 50 22, hide
edit "", 156, 160 210 197 22, autohs hide
box "Brackets:", 160, 125 6 160 140, hide
text "&Normal:", 161, 135 28 38 20, right hide
text "&Whois:", 162, 135 50 38 20, right hide
text "&Quotes:", 163, 135 72 38 20, right hide
text "&Public:", 164, 135 94 38 20, right hide
text "&Bold:", 165, 135 116 38 20, right hide
box "Symbols:", 166, 125 150 160 140, hide
text "&Line bullet:", 167, 135 172 88 20, right hide
text "&CTCP symbol:", 168, 135 194 88 20, right hide
text "W&allop symbol:", 169, 135 216 88 20, right hide
text "&Server notices:", 170, 135 238 88 20, right hide
text "B&ulleted list:", 171, 135 260 88 20, right hide
edit "", 176, 175 24 50 22, autohs hide
edit "", 177, 225 24 50 22, autohs hide
edit "", 174, 175 46 50 22, autohs hide
edit "", 175, 225 46 50 22, autohs hide
edit "", 180, 175 68 50 22, autohs hide
edit "", 181, 225 68 50 22, autohs hide
edit "", 178, 175 90 50 22, autohs hide
edit "", 179, 225 90 50 22, autohs hide
edit "", 172, 175 112 50 22, autohs hide
edit "", 173, 225 112 50 22, autohs hide
edit "", 182, 225 168 50 22, autohs hide
edit "", 183, 225 190 50 22, autohs hide
edit "", 184, 225 212 50 22, autohs hide
edit "", 185, 225 234 50 22, autohs hide
edit "", 186, 225 256 50 22, autohs hide
}
on *:DIALOG:themee:init:*:{
unset %.blank
did -ac $dname 4 Load defaults:
loadbuf -ottheme $dname 1 script\dlgtext.dat
var %num = 14 | :loop | did -a $dname 2 0 | if (%num) { dec %num | goto loop }
did -c $dname 1 1
_activate.page 1
}
on *:DIALOG:themee:sclick:1:{
if ($did(1,$did(1).sel).text == $chr(32)) did -c $dname 1 $did(3)
else _activate.page $did(1).sel
}
on *:DIALOG:themee:sclick:5:{
var %num = 15
:loop
if ($did(2,%num) == 1) _apply.page %num
if (%num > 1) { dec %num | goto loop }
}
on *:DIALOG:themee:sclick:*:{
if (($did isnum 45-69) || ($did isnum 85-89) || ($did isnum 101-124)) _cs-go 15 15
elseif ($did isnum 132-151) _cs-go 15 15 1
}
alias -l _activate.page {
if ($did(3) == $1) return
if ($did(3)) _show.page -h $did(3)
did -o themee 3 1 $1
if ($did(2,$1) == 0) {
did -o themee 2 $1 1
_init.page $1
}
_show.page -v $1
}
alias th {
set %.blank $mircdirscript\16.bmp
_dialog -dm themee themee
}
alias -l _show.page {
goto $2
:1 | did $1 themee 20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69 | return
:2 | did $1 themee 80,81,82,83,84,85,86,87,88,89 | return
:3 | did $1 themee 90,91,92,93,94,95,96,97,98,99,100,101,102,103,104,105,106,107,108,109,110,111,112,113,114,115,116,117,118,119,120,121,122,123,124 | return
:4 | did $1 themee 130,131,132,133,134,135,136,137,138,139,140,141,142,143,144,145,146,147,148,149,150,151,152,153,154,155,156,157,158 | return
:5 | did $1 themee 160,161,162,163,164,165,166,167,168,169,170,171,172,173,174,175,176,177,178,179,180,181,182,183,184,185,186 | return
:7 | return
:9 | return
:10 | return
:11 | return
:12 | return
:14 | return
:15 | return
}
alias -l _init.page {
goto $1
:1
var %num = 1,%area = a.c.h.i.info2.inv.j.k.m.n.no.not.notif.o.ow.p.q.t.w.wh.b.editbox t.e.listbox t.l
:loop1
did -g themee $calc(44 + %num) script\ $+ $colour($gettok(%area,%num,46)) $+ .bmp
if (%num < 25) { inc %num | goto loop1 }
return
:2
var %file = $_cfg(display.dat),%num = 3
:loop2
var %bit = $read -nl $+ %num %file
did -g themee $calc(%num + 82) script\ $+ $calc(%bit) $+ .bmp
if (%num < 7) { inc %num | goto loop2 }
return
:3
var %col = %`nickcol,%x = 1,%y = 1,%where = 101
:loop3
did -g themee %where script\ $+ $calc($gettok($gettok(%col,%y,32),%x,45)) $+ .bmp
inc %where
if (%x < 3) { inc %x | goto loop3 }
if (%y < 8) { %x = 1 | inc %y | goto loop3 }
return
:4
var %line = $read -ntl23 $_cfg(display.dat)
if ($gettok(%line,1,32) == a) {
var %col,%num = 1
:loop4a
%col = $gettok(%line,$calc(3 + %num),32)
if (%col isnum) %col = $calc(%col)
else %col = 16
did -g themee $calc(%num + 131) script\ $+ %col $+ .bmp
if (%num < 20) { inc %num | goto loop4a }
did -c themee 130
did -a themee 153 $gettok(%line,3,32)
did -a themee 155 $gettok(%line,2,32)
did -a themee 156 $:::
}
else {
var %num = 1
did -c themee 131
did -a themee 156 $gettok(%line,2-,32)
%num = $len($strip($gettok(%line,2-,32)))
if (%num > 200) %num = 200
elseif (%num < 1) %num = 1
did -a themee 155 %num
var %char = $right($left($strip($gettok(%line,2-,32)),2),1)
if (%char == $null) %char = -
did -a themee 153 %char
}
return
:5
window -hl @.display
loadbuf 1-22 @.display $_cfg(display.dat)
var %num = 8
:loop5
did -a $dname $calc(%num + 164) $line(@.display,%num)
if (%num < 22) { inc %num | goto loop5 }
window -c @.display
return
:7 | return
:9 | return
:10 | return
:11 | return
:12 | return
:14 | return
:15 | return
}
alias -l _apply.page {
goto $1
:1 | return
:2 | return
:3 | return
:4 | return
:5 | return
:7 | return
:9 | return
:10 | return
:11 | return
:12 | return
:14 | return
:15 | return
}