API tools faq
paste
Guest User

Untitled

a guest
May 5th, 2012
37
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 18.57 KB | None | 0 0
raw download clone embed print report
  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. }
Advertisement
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!