Don't like ads? PRO users don't see any ads ;-)
Public Pastes
Guest

Untitled

By: a guest on May 5th, 2012  |  syntax: None  |  size: 18.57 KB  |  hits: 12  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. ;;open alias
  2. alias itheme {
  3.   if ($dialog(itheme)) { dialog -x itheme }
  4.   dialog -md itheme itheme
  5. }
  6. menu * {
  7.   iTheme
  8.   .Reload:themeload reload
  9.   .Open:$iif($dialog(itheme),dialog -x itheme) | dialog -md itheme itheme
  10. }
  11. alias themeload {
  12.   .timestamp -f $+($itc1($itbrack1),$itc2(hh),$itc1(:),$itc2(nn),$itc1(:),$itc2(ss) $itc1(TT),$itc1($itbrack2))
  13.   .font -z 12 $itfont
  14.   .color background $iif($readini(itheme.ini,settings,bg) != $null,$v1,1)
  15.   .color treebar $iif($readini(itheme.ini,settings,treebarbg) != $null,$v1,1)
  16.   .color normal text $iif($readini(itheme.ini,colors,main) != $null,$v1,14)
  17.   .color own text $iif($readini(itheme.ini,colors,main) != $null,$v1,14)
  18.   .color listbox $iif($readini(itheme.ini,settings,listboxbg) != $null,$v1,1)
  19.   .color editbox $iif($readini(itheme.ini,settings,editboxbg) != $null,$v1,1)
  20.   .color editbox text $iif($readini(itheme.ini,settings,editboxtext) != $null,$v1,14)
  21.   .color listbox text $iif($readini(itheme.ini,settings,listboxtext) != $null,$v1,14)
  22.   .color treebar text  $iif($readini(itheme.ini,settings,treebartext) != $null,$v1,14)
  23.   .color treebar  $iif($readini(itheme.ini,settings,treebarbg) != $null,$v1,1)
  24.   .color whois text $iif($readini(itheme.ini,settings,whoistext) != $null,$v1,14)
  25.   .color inactive $iif($readini(itheme.ini,settings,editboxbg) != $null ,$v1,1)
  26.   if (%newtrig) {
  27.     echo -sta $itc1(Your) $itc2(iTheme) $itc1(alias has been updated.)
  28.   }
  29.   elseif ($1 == Start) {
  30.     echo -sta $itc2($ita) $itc1(Welcome to) $itc2(iTheme) $+ $itc1(.)
  31.   }
  32.   elseif ($1 == Reload) {
  33.     echo -sta $itc2($ita) $itc1(Your) $itc2(iTheme) $itc1(settings have been updated.)
  34.   }
  35. }
  36. alias itcs { echo -t $1 $itc1($ita) $itc2($1) $itc1(-) $itc2($nick($1,0)) $itc1(users) $itc1($itbrack1)) $+ $itc2($nick($1,0,o)) $itc1(Ops -) $itc2($nick($1,0,h,o)) $itc1(Halfs -) $itc2($nick($1,0,v,oh)) $itc1(Voices -) $itc2($nick($1,0,r)) $itc1(Regulars $+ $itbrack2)) }
  37. alias itfl {
  38.   var %x 1
  39.   while (%x <= $lines($script)) {
  40.     if ($read($script,%x) == ;;open alias) {
  41.       inc %x
  42.       tokenize 32 $read($script,%x)
  43.       return $2 %x
  44.       halt
  45.     }
  46.     inc %x
  47.   }
  48. }
  49. alias itlc {
  50.   set -u10 %newtrig Yes
  51.   /write $+(-l,$gettok($itfl,2,32)) $qt($script) alias $1 $chr(123)
  52.   echo -ta $itc1(The command to open your command center has been changed to) $itc2(/ $+ $1) $+ $itc1(.)
  53.   echo -ta $itc1(Please allow the script to reload.)
  54. }
  55. alias itcl
  56. alias itheme { $iif($dialog(itheme),dialog -x itheme) | dialog -md itheme itheme }
  57. alias itvers return 1.0
  58. alias lll return        
  59. alias ita return $iif($readini(itheme.ini,settings,arrow),$v1,—›)
  60. alias itbrack1 { return $iif($readini(itheme.ini,settings,brack1),$v1,$chr(40)) }
  61. alias itbrack2 { return $iif($readini(itheme.ini,settings,brack2),$v1,$chr(41)) }
  62. alias itc1 { return $+($chr(3),$iif($readini(itheme.ini,colors,main),$v1,14),$1-,$chr(3)) }
  63. alias itc2 { return $+($chr(3),$iif($readini(itheme.ini,colors,second),$v1,10),$1-,$chr(3)) }
  64. alias itfont { return $iif($readini(itheme.ini,settings,font),$v1,verdana) }
  65. alias itautoid { return $iif($readini(itheme.ini,settings,autoid) == Yes,On) }
  66. alias itpass { return $readini(itheme.ini,settings,pass) }
  67. ON *:START:{
  68.   themeload start
  69. }
  70. ON *:INPUT:*: {
  71.   haltdef
  72.   if ($left($1,1) == /) {
  73.     if (/msg isin $1) {
  74.       var %t $iif($left($nick(#,$nick).pnick,1) isin $+($chr(64),$chr(37),$chr(38),$chr(126),$chr(43)),$v1)
  75.       .msg $($2,2) $3-
  76.       echo -t $iif($me ison $($2,2),$v2,$itc1($ita)) $+($itc1($itbrack1),$chr(3),$replace(%t,@,4,%,7,+,2,~,14,&,14),%t,$chr(3),$itc2($me),$itc1($itbrack2)) $3-
  77.       halt
  78.     }
  79.     if (!$ctrlenter) {
  80.       $iif($left($1,2) != //,$1-,$($1-,2))
  81.     }
  82.     else {
  83.       goto tuche
  84.     }
  85.   }
  86.   else {
  87.     if ($chan) {
  88.       :tuche
  89.       if ($away) && ($?="You're away. Continue?" != Yes) { halt }
  90.       var %t $iif($left($nick(#,$me).pnick,1) isin @%+~&,$v1,$null)
  91.       .msg $active $1-
  92.       echo -a $timestamp $+($itc1($itbrack1),$chr(3),$replace(%t,@,4,&,4,~,4,%,7,+,2),%t,$chr(3),$itc2($me),$itc1($itbrack2)) $1-
  93.     }
  94.     else {
  95.       echo -a $timestamp $+($itc1($itbrack1),$itc2($me),$itc1($itbrack2)) $1-
  96.       if ($away) && ($?="You're away. Continue?" != Yes) { halt }
  97.       .msg $active $1-
  98.     }
  99.   }
  100. }
  101. ON ^*:TEXT:*:*: {
  102.   haltdef
  103.   if ($chan) {
  104.     if ($me isin $1- && $chan != $active) {
  105.       echo -ta $itc1($ita) $itc2($nick) $itc1(has highlighted you in) $itc2($chan) $itc1(- ") $+ $itc2($1-) $+ $itc1(")
  106.     }
  107.     var %p $iif($left($nick(#,$nick).pnick,1) isin $+($chr(64),$chr(37),$chr(38),$chr(126),$chr(43)),$v1)
  108.     echo -t $chan $+($itc1($itbrack1),$chr(3),$iif(%p,$replace(%p,@,4,%,7,+,2,&,4,~,4),10),%p,$itc2($nick),$itc1($itbrack2)) $1-
  109.   }
  110.   else {
  111.     echo -t $nick $+($itc1($itbrack1),$itc2($nick),$itc1($itbrack2)) $1-
  112.   }
  113. }
  114. ON ^*:ACTION:*:*: {
  115.   haltdef
  116.   echo -t $iif($chan,$chan,$nick) $itc1($ita) $itc1($nick) $itc1($1-)
  117. }
  118. ON ^*:KICK:#: {
  119.   haltdef
  120.   if ($knick == $me) {
  121.     echo -st $itc1($ita) $itc1(You were kicked from) $itc2($chan) $itc1(by) $itc1($nick) $+($itc1($itbrack1),$itc2($iif($1-,$1-,No Reason)),$itc1($itbrack2))
  122.   }
  123.   else {
  124.     echo -t $chan $itc1($ita) $itc2($knick) $itc1(was kicked from) $itc2($chan) $itc1(by) $itc1($nick) $+($itc1($itbrack1),$itc2($iif($1-,$1-,No Reason)),$itc1($itbrack2))
  125.   }
  126. }
  127. raw 311:*:{
  128.   haltdef
  129.   echo -tma $itc1($ita) $itc2($2) $itc1(is) $qt($itc2($6-)) $+($itc1($itbrack1),$itc2($3),$itc1(@),$itc2($4),$itc1($itbrack2))
  130. }
  131. raw 319:*:{
  132.   haltdef
  133.   var %o $count($1-,$chr(64))
  134.   var %h $count($3-,$chr(37))
  135.   var %v $count($3-,+)
  136.   var %r $calc($count($3-,$chr(35))) - $calc(%o + %h + %v))
  137.   echo -ta $itc1($ita) $itc2($2) $itc1(is on) $itc2($count($3-,$chr(35))) $itc1(channel $+ $iif($count($3-,$chr(35)) > 1,s) $+ .) $itc1($itbrack1) $+ $itc1(Op in) $itc2(%o) $itc1(- HalfOp in) $itc2(%h) $itc1(- Voice in) $itc2(%v) $itc1(- Regular in) $itc2(%r) $+ $itc1($itbrack2)
  138.   tokenize 32 $3-
  139.   var %x 1
  140.   while (%x <= $gettok($1-,0,32)) {
  141.     if ($left($gettok($1-,%x,32),1) isin @~&) { var %all %all $+($chr(3),4,$left($gettok($1-,%x,32),1),$itc1($mid($gettok($1-,%x,32),2-))) }
  142.     elseif ($left($gettok($1-,%x,32),1) == $chr(37)) { var %all %all $+($chr(3),7,$chr(37),$itc1($mid($gettok($1-,%x,32),2-))) }
  143.     elseif ($left($gettok($1-,%x,32),1) == +) { var %all %all $+($chr(3),2,+,$itc1($mid($gettok($1-,%x,32),2-))) }
  144.     else { var %all %all $+($chr(3),10,-,$itc1($mid($gettok($1-,%x,32),1-))) }
  145.     inc %x
  146.   }
  147.   echo -ta $itc1($ita) %all
  148. }
  149. raw 301:*:{
  150.   haltdef
  151.   echo -tma $itc1($ita) $itc2($2) $itc1(is away:) $+($itc1("),$itc2($3-),$itc1("))
  152. }
  153. raw 335:*:{
  154.   haltdef
  155.   echo -tma $itc1($ita) $itc2($2) $itc1(is a) $itc2(Bot)
  156. }
  157. raw 312:*:{
  158.   haltdef
  159.   echo -tma $itc1($ita) $itc2($2) $itc1(is using) $itc2($3) $+($itc1($chr(40)),$itc2($4-),$itc1($chr(41)))
  160. }
  161. raw 313:*:{
  162.   haltdef
  163.   echo -tma $itc1($ita) $itc2($2) $itc1(is a) $itc2($5-)
  164. }
  165. raw 320:*:{
  166.   haltdef
  167.   echo -tma $itc1($ita) $itc2($2) $itc1(is a) $itc2($5-)
  168. }
  169. raw 307:*:{
  170.   haltdef
  171.   echo -tma $itc1($ita) $itc2($2) $itc1(is identified.)
  172. }
  173. raw 671:*:{
  174.   haltdef
  175.   echo -tma $itc1($ita) $itc2($2) $itc1(is using a) $itc2(Secure Connection)
  176. }
  177. raw 378:*:{
  178.   haltdef
  179.   echo -tma $itc1($ita) $itc2($2) $itc1(is connecting from) $itc2($6-)
  180. }
  181. raw 317:*:{
  182.   haltdef
  183.   echo -tma $itc1($ita) $itc2($2) $itc1(has been idle for) $itc2($duration($3))
  184.   echo -tma $itc1($ita) $itc2($2) $itc1(signed on) $itc2($asctime($4))
  185. }
  186. raw 310:*:{
  187.   haltdef
  188.   echo -tma $itc1($ita) $itc2($2) $itc1(is available for help.)
  189. }
  190. raw 332:*:{
  191.   haltdef
  192.   echo -tm $2 $itc1($ita) $itc1(Topic for) $itc2($2) $itc1(is) $+($itc1("),$3-,$itc1("))
  193. }
  194. raw 401:*:{
  195.   haltdef
  196.   echo -tma $itc1($ita) $itc2($2) $itc1(- No such nick or channel.)
  197. }
  198. raw 333:*:{
  199.   haltdef
  200.   echo -tm $2 $itc1($ita) $itc1(Set By) $itc2($3) $itc1(-) $itc2($asctime($4))
  201. }
  202. raw 482:*:{
  203.   haltdef
  204.   echo -tma $itc1($ita) $itc2($2) $itc1(- $3-)
  205. }
  206. ON ^*:notice:*:*:{
  207.   haltdef
  208.   if ($nick == NickServ && $itpass && $1- == please choose a different nick.) {
  209.     ns id $itpass
  210.   }
  211.   echo -tsa $itc2($chan) $itc1($ita) $+($itc1($itbrack1),$itc2(Notice:),$itc1($itbrack2)) $+($itc1(-),$itc2($nick),$itc1(-)) $1-
  212. }
  213. ON ^*:snotice:*:{
  214.   haltdef
  215.   echo -tsa $itc1($ita) $itc2($server) $itc1($1-)
  216. }
  217. ON ^*:PART:#: {
  218.   haltdef
  219.   if ($nick == $me) {
  220.     echo -satm $itc1($ita) $itc1(You have parted) $itc2($chan)
  221.     .timer. [ $+ [ $chan ] ] off
  222.   }
  223.   else {
  224.     echo -tm $chan $itc1($ita) $itc2($nick) $itc1(has parted) $itc2($chan) $+($itc1($itbrack1),$itc2($iif($1-,$1-,No Reason)),$itc1($itbrack2))
  225.   }
  226. }
  227. ON ^*:JOIN:#: {
  228.   haltdef
  229.   if ($nick == $me) {
  230.     echo -tm $chan $itc1($ita) $itc1(You are now talking in) $itc2( $+ $chan $+ )
  231.     .timer. [ $+ [ $chan ] ] 1 2 itcs $chan
  232.   }
  233.   else {
  234.     echo -tm $chan $itc1($ita) $itc2($nick) $itc1(has joined) $itc2( $+ $chan $+ ) $+($itc1($itbrack1),$itc2($address($nick,2)),$itc1($itbrack2))
  235.   }
  236. }
  237. on ^*:NICK: {
  238.   haltdef
  239.   var %x 1
  240.   while (%x <= $comchan($newnick,0)) {
  241.     echo -t $comchan($newnick,%x) $itc1($ita) $itc2($nick) $itc1(is now known as) $itc2($newnick)
  242.     inc %x
  243.   }
  244. }
  245. ON ^*:TOPIC:#:{
  246.   haltdef
  247.   echo -tm $chan $itc1($ita) $itc2($nick) $itc1(has changed the topic to) $+($itc1($itbrack1),$itc2($1-),$itc1($itbrack2))
  248. }
  249. on ^*:rawmode:#:{
  250.   haltdef
  251.   echo -t $chan $itc1($ita) $itc2($nick) $itc1(sets mode) $itc2($1-)
  252. }
  253. on ^*:invite:#:{
  254.   haltdef
  255.   echo -tmsa $itc1($ita) $itc2($nick) $itc1(has invited you to) $itc2($chan)
  256. }
  257. on ^*:snotice:*:{
  258.   haltdef
  259.   echo -satm $itc1($ita) $+($itc1($itbrack1),$itc2(Notice:),$itc1($itbrack2)) $+($itc1(-),$itc2($nick),$itc1(-)) %tot
  260. }
  261. on ^*:quit: {
  262.   haltdef
  263.   var %x 1
  264.   while (%x <= $comchan($nick,0)) {
  265.     echo -t $comchan($nick,%x) $itc1($ita) $itc2($nick) $itc1(has just quit) $itc2($network) $+ $itc1(. Reason:) $itc2($iif($1- != Quit:,$1-,None.))
  266.     inc %x
  267.   }
  268. }
  269. raw 318:*: { haltdef }
  270. dialog iTheme {
  271.   title ""
  272.   size -1 -1 225 200
  273.   option dbu
  274.  
  275.   tab "Colors",2,0 0 250 225
  276.   tab "Settings",3
  277.  
  278.   text "Background Color",20,10 40 50 10, tab 2
  279.   combo 21, 8 50 22 10,drop, tab 2
  280.   edit "",22,32 50 20 10, tab 2
  281.  
  282.   text "ChanList Color",25,10 80 50 10, tab 2
  283.   combo 26, 8 90 22 10, drop, tab 2
  284.   edit "",27,32 90 20 10,tab 2
  285.  
  286.   text "Text Color",30, 10 120 50 10, tab 2
  287.   combo 31,8 130 22 10, drop, tab 2
  288.   edit "",32,32 130 20 10, tab 2
  289.  
  290.   text "NickList Color",35,10 160 50 10, tab 2
  291.   combo 36,8 170 22 10, drop,tab 2
  292.   edit "",37,32 170 20 10,tab 2
  293.  
  294.   text "EditBox Color",40,95 40 50 10, tab 2
  295.   combo 41, 88 50 22 10,drop, tab 2
  296.   edit "",42,112 50 20 10, tab 2
  297.  
  298.   text "EditBox Text",45,95 80 50 10, tab 2
  299.   combo 46, 88 90 22 10,drop, tab 2
  300.   edit "",47,112 90 20 10, tab 2
  301.  
  302.   text "Nicklist Text",50,95 120 50 10, tab 2
  303.   combo 51, 88 130 22 10,drop, tab 2
  304.   edit "",52,112 130 20 10, tab 2
  305.  
  306.   text "ChanList Text",55,95 160 50 10, tab 2
  307.   combo 56, 88 170 22 10,drop, tab 2
  308.   edit "",57,112 170 20 10, tab 2
  309.  
  310.   button "Update",100,185 180 30 10, tab 2
  311.   button "Reset",101,185 170 30 10, tab 2
  312.  
  313.   text "Auto Identfiy",152, 30 41 80 8, tab 3
  314.   button "On",153,33 51 25 10, tab 3
  315.  
  316.   text "Password",155, 20 70 40 10, tab 3
  317.   edit "",156,20 80 50 10, tab 3
  318.   button "Save",157,50 90 20 10, tab 3
  319.  
  320.   text "Brackets",160, 130 40 40 10, tab 3
  321.   edit "",161, 155 40 25 9, tab 3
  322.   combo 162,137 50 40 10,drop, tab 3
  323.  
  324.   text "iTheme Command",170,130 70 50 10, tab 3
  325.   edit "",171,130 80 50 10,tab 3
  326.   button "Save",172,160 90 20 10, tab 3
  327.  
  328.   text "Arrow",180,130 120 40 10,tab 3
  329.   edit "",181,155 120 25 9, tab 3
  330.   combo 182,137 130 40 10, drop , tab 3
  331.  
  332.  
  333. }
  334. ON *:DIALOG:itheme:*:*: {
  335.   if ($devent == init) {
  336.     dialog -t itheme iTheme $+(v,$itvers)
  337.     did -m $dname 22,27,32,37,42,47,52,57,161,181
  338.     did -a $dname 22 $iif($readini(itheme.ini,settings,bg) != $null,$v1,1)
  339.     did -a $dname 27 $iif($readini(itheme.ini,settings,treebarbg) != $null,$v1,1)
  340.     did -a $dname 32 $iif($readini(itheme.ini,colors,main) != $null,$v1,14)
  341.     did -a $dname 37 $iif($readini(itheme.ini,settings,listboxbg) != $null,$v1,1)
  342.     did -a $dname 42 $iif($readini(itheme.ini,settings,editboxbg) != $null,$v1,1)
  343.     did -a $dname 47 $iif($readini(itheme.ini,settings,editboxtext) != $null,$v1,14)
  344.     did -a $dname 52 $iif($readini(itheme.ini,settings,listboxtext) != $null,$v1,14)
  345.     did -a $dname 57 $iif($readini(itheme.ini,settings,treebartext) != $null,$v1,14)
  346.     did -a $dname 153 $iif($readini(itheme.ini,settings,autoid) == Yes,On,Off)
  347.     did -a $dname 156 $iif($readini(itheme.ini,settings,pass),$v1)
  348.     did -a $dname 21 0
  349.     did -a $dname 21 1
  350.     did -a $dname 21 2
  351.     did -a $dname 21 3
  352.     did -a $dname 21 4
  353.     did -a $dname 21 5
  354.     did -a $dname 21 6
  355.     did -a $dname 21 7
  356.     did -a $dname 21 8
  357.     did -a $dname 21 9
  358.     did -a $dname 21 10
  359.     did -a $dname 21 11
  360.     did -a $dname 21 12
  361.     did -a $dname 21 13
  362.     did -a $dname 21 14
  363.     did -a $dname 21 15
  364.     did -a $dname 26 0
  365.     did -a $dname 26 1
  366.     did -a $dname 26 2
  367.     did -a $dname 26 3
  368.     did -a $dname 26 4
  369.     did -a $dname 26 5
  370.     did -a $dname 26 6
  371.     did -a $dname 26 7
  372.     did -a $dname 26 8
  373.     did -a $dname 26 9
  374.     did -a $dname 26 10
  375.     did -a $dname 26 11
  376.     did -a $dname 26 12
  377.     did -a $dname 26 13
  378.     did -a $dname 26 14
  379.     did -a $dname 26 15
  380.     did -a $dname 31 0
  381.     did -a $dname 31 1
  382.     did -a $dname 31 2
  383.     did -a $dname 31 3
  384.     did -a $dname 31 4
  385.     did -a $dname 31 5
  386.     did -a $dname 31 6
  387.     did -a $dname 31 7
  388.     did -a $dname 31 8
  389.     did -a $dname 31 9
  390.     did -a $dname 31 10
  391.     did -a $dname 31 11
  392.     did -a $dname 31 12
  393.     did -a $dname 31 13
  394.     did -a $dname 31 14
  395.     did -a $dname 31 15
  396.     did -a $dname 36 0
  397.     did -a $dname 36 1
  398.     did -a $dname 36 2
  399.     did -a $dname 36 3
  400.     did -a $dname 36 4
  401.     did -a $dname 36 5
  402.     did -a $dname 36 6
  403.     did -a $dname 36 7
  404.     did -a $dname 36 8
  405.     did -a $dname 36 9
  406.     did -a $dname 36 10
  407.     did -a $dname 36 11
  408.     did -a $dname 36 12
  409.     did -a $dname 36 13
  410.     did -a $dname 36 14
  411.     did -a $dname 36 15
  412.     did -a $dname 41 0
  413.     did -a $dname 41 1
  414.     did -a $dname 41 2
  415.     did -a $dname 41 3
  416.     did -a $dname 41 4
  417.     did -a $dname 41 5
  418.     did -a $dname 41 6
  419.     did -a $dname 41 7
  420.     did -a $dname 41 8
  421.     did -a $dname 41 9
  422.     did -a $dname 41 10
  423.     did -a $dname 41 11
  424.     did -a $dname 41 12
  425.     did -a $dname 41 13
  426.     did -a $dname 41 14
  427.     did -a $dname 41 15
  428.     did -a $dname 46 0
  429.     did -a $dname 46 1
  430.     did -a $dname 46 2
  431.     did -a $dname 46 3
  432.     did -a $dname 46 4
  433.     did -a $dname 46 5
  434.     did -a $dname 46 6
  435.     did -a $dname 46 7
  436.     did -a $dname 46 8
  437.     did -a $dname 46 9
  438.     did -a $dname 46 10
  439.     did -a $dname 46 11
  440.     did -a $dname 46 12
  441.     did -a $dname 46 13
  442.     did -a $dname 46 14
  443.     did -a $dname 46 15
  444.     did -a $dname 51 0
  445.     did -a $dname 51 1
  446.     did -a $dname 51 2
  447.     did -a $dname 51 3
  448.     did -a $dname 51 4
  449.     did -a $dname 51 5
  450.     did -a $dname 51 6
  451.     did -a $dname 51 7
  452.     did -a $dname 51 8
  453.     did -a $dname 51 9
  454.     did -a $dname 51 10
  455.     did -a $dname 51 11
  456.     did -a $dname 51 12
  457.     did -a $dname 51 13
  458.     did -a $dname 51 14
  459.     did -a $dname 51 15
  460.     did -a $dname 56 0
  461.     did -a $dname 56 1
  462.     did -a $dname 56 2
  463.     did -a $dname 56 3
  464.     did -a $dname 56 4
  465.     did -a $dname 56 5
  466.     did -a $dname 56 6
  467.     did -a $dname 56 7
  468.     did -a $dname 56 8
  469.     did -a $dname 56 9
  470.     did -a $dname 56 10
  471.     did -a $dname 56 11
  472.     did -a $dname 56 12
  473.     did -a $dname 56 13
  474.     did -a $dname 56 14
  475.     did -a $dname 56 15
  476.     did -a $dname 161 $itbrack1 $+ Text $+ $itbrack2
  477.     did -a $dname 162 (Text)
  478.     did -a $dname 162 $chr(91) $+ Text $+ $chr(93)
  479.     did -a $dname 162 -Text-
  480.     did -a $dname 162 .:Text:.
  481.     did -a $dname 162 ~Text~
  482.     did -a $dname 162 .Text.
  483.     did -a $dname 162 :Text:
  484.     did -a $dname 162 *Text*
  485.     did -a $dname 162 ^Text^
  486.     did -a $dname 171 / $+ $gettok($itfl,1,32)
  487.     did -a $dname 181 $ita
  488.     did -a $dname 182 —›
  489.     did -a $dname 182 ~
  490.     did -a $dname 182 -->
  491.     did -a $dname 182 -
  492.     var %x 0
  493.     while (%x <= 15) { did -a $dname 21,26,31,36,41,46,51,56 %x | inc %x }
  494.   }
  495.   if ($devent == sclick) {
  496.     if ($did == 21) { did -r $dname 22 | did -a $dname 22 $did(21).seltext }
  497.     if ($did == 26) { did -r $dname 27 | did -a $dname 27 $did(26).seltext }
  498.     if ($did == 31) { did -r $dname 32 | did -a $dname 32 $did(31).seltext }
  499.     if ($did == 36) { did -r $dname 37 | did -a $dname 37 $did(36).seltext }
  500.     if ($did == 41) { did -r $dname 42 | did -a $dname 42 $did(41).seltext }
  501.     if ($did == 46) { did -r $dname 47 | did -a $dname 47 $did(46).seltext }
  502.     if ($did == 51) { did -r $dname 52 | did -a $dname 52 $did(51).seltext }
  503.     if ($did == 56) { did -r $dname 57 | did -a $dname 57 $did(56).seltext }
  504.     if ($did == 100) {
  505.       var %t writeini -n itheme.ini
  506.       %t settings bg $did(22)
  507.       %t settings treebarbg $did(27)
  508.       %t colors main $did(32)
  509.       %t settings whoistext $did(32)
  510.       %t settings listboxbg $did(37)
  511.       %t settings editboxbg $did(42)
  512.       %t settings editboxtext $did(47)
  513.       %t settings listboxtext $did(52)
  514.       %t settings treebartext $did(57)
  515.       %t colors second $did(57)
  516.       themeload reload
  517.     }
  518.     if ($did == 101) {
  519.       remini itheme.ini settings
  520.       remini itheme.ini colors
  521.       themeload reload
  522.     }
  523.     if ($did == 153) {
  524.       writeini -n theme.ini settings autoid $iif($did(153) == on,off,yes)
  525.       if ($did(153) == off) { did -r $dname 153 | did -a $dname 153 On }
  526.       else { did -r $dname 153 | did -a $dname 153 Off }
  527.     }
  528.     if ($did == 157 && $did(156)) {
  529.       writeini -n itheme.ini settings pass $did(156)
  530.     }
  531.     if ($did == 162) {
  532.       did -r $dname 161
  533.       did -a $dname 161 $did(162).seltext
  534.       var %t $replace($did(162).seltext,text,$chr(124))
  535.       writeini -n itheme.ini settings brack1 $gettok(%t,1,124)
  536.       writeini -n itheme.ini settings brack2 $gettok(%t,2,124)
  537.       themeload reload
  538.     }
  539.     if ($did == 172 && $did(171)) {
  540.       itlc $remove($did(171),/)
  541.     }
  542.     if ($did == 182) {
  543.       did -r $dname 181
  544.       did -a $dname 181 $did(182).seltext
  545.       writeini -n itheme.ini settings arrow $did(182).seltext
  546.       themeload reload
  547.     }
  548.   }
  549. }
create a new version of this paste RAW Paste Data