API tools faq
paste
Advertisement
makimaki

Untitled

makimaki
Jun 8th, 2010
225
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 48.39 KB | None | 0 0
raw download clone embed print report
  1. alias statuload {
  2. load_pdstatusbar
  3. load_pdswitchbar
  4. }
  5. alias graphicreload {
  6. if ($conf(Varie,Graphic) == Modern) { xdock -p }
  7. titlebar Project Dream $pdversion
  8. glassreload
  9. pdtray start
  10. }
  11. alias strongreload {
  12. if ($conf(Varie,Graphic) == Modern) {
  13. if ($dialog(pdtoolbar)) { dialog -x pdtoolbar }
  14. if ($dialog(pdswitchbar)) { dialog -x pdswitchbar }
  15. if ($dialog(pdstatusbar)) { dialog -x pdstatusbar }
  16. pdtoolbar
  17. pdstatusbar
  18. pdswitchbar
  19. xdock -p
  20. }
  21. titlebar Project Dream $pdversion
  22. glassreload
  23. pdtray start
  24. }
  25. alias graphicswitch {
  26. if ($conf(Varie,Graphic) == Modern) {
  27. .toolbar off
  28. .switchbar off
  29. strongreload
  30. }
  31. elseif ($conf(Varie,Graphic) == Classic) {
  32. if ($dialog(pdtoolbar)) { dialog -x pdtoolbar }
  33. if ($dialog(pdswitchbar)) { dialog -x pdswitchbar }
  34. if ($dialog(pdstatusbar)) { dialog -x pdstatusbar }
  35. .dll -u hOSLite.dll
  36. .toolbar on
  37. .switchbar on
  38. .toolbar -r
  39. .toolbar -d 34
  40. .toolbar -az1n27 manager_connessioni " $+ $lang(Toolbar,02) $+ " $icons(PDIcons.icl) "/connman" @tbconnection
  41. .toolbar -az1n15 cambia_nick " $+ $lang(Toolbar,04) $+ " $icons(PDIcons.icl) "/tbchangenick" @null
  42. .toolbar -az1n11 joina_chan " $+ $lang(Toolbar,06) $+ " $icons(PDIcons.icl) "/tbjoiner" @null
  43. .toolbar -az1n28 impostazioni " $+ $lang(Toolbar,08) $+ " $icons(PDIcons.icl) "/tbimpostazioni" @tbimpostazioni
  44. .toolbar -az1n29 away_system " $+ $lang(Toolbar,10) $+ " $icons(PDIcons.icl) "/awaysys" @null
  45. .toolbar -az1n30 liste_speciali " $+ $lang(Toolbar,12) $+ " $icons(PDIcons.icl) "/listespec" @null
  46. .toolbar -az1n31 media_players " $+ $lang(Toolbar,14) $+ " $icons(PDIcons.icl) "/tbmediap" @tbmediap
  47. .toolbar -az1n32 utility " $+ $lang(Toolbar,16) $+ " $icons(PDIcons.icl) "/tbutility" @tbutility
  48. titlebar Project Dream $pdversion
  49. glassreload
  50. pdtray start
  51. }
  52. }
  53. menu @tbconnection {
  54. $lang(ConnManager,Title):connman
  55. -
  56. $iif($server,$lang(PopupDll,02),$lang(PopupDll,01)):$iif($server,.disconnect,.server)
  57. -
  58. $lang(PopupDll,03):cambiaserv
  59. $lang(PopupDll,04):nuovoserv
  60. }
  61. menu @tbimpostazioni {
  62. $lang(Settings,Title):impostazioni
  63. $lang(Extensions,Title):extensions
  64. -
  65. $lang(UpdateCheck,Title):upcheck
  66. }
  67. menu @tbmediap {
  68. $lang(MusicPlayer,Title):musicplay
  69. $lang(RadioPlayer,Title):radioplay
  70. -
  71. $lang(VideoPlayer,Title):videoplay
  72. }
  73. menu @tbutility {
  74. $lang(AsciiCodes,Title):asciicodes
  75. $lang(ConvTool,Title):convtool
  76. $lang(DCCMonitor,Title):dccmon
  77. $lang(SystemInfo,Title):sysinfo
  78. $lang(LastSeen,Title):lastseen
  79. $lang(LogManager,Title):logman
  80. $lang(QueryLock,Title):querylock
  81. $lang(TelNet,Title):telnet
  82. $lang(ImageViewer,Title):imgviewer
  83. $lang(WebBrowser,Title):webbrowser
  84. }
  85. alias tbconnection {
  86. if ($conf(TastiToolbar,Connessione) == 1) { connman }
  87. elseif ($conf(TastiToolbar,Connessione) == 2) {
  88. if (!$server) { connman }
  89. else { .disconnect }
  90. }
  91. elseif ($conf(TastiToolbar,Connessione) == 3) {
  92. if (!$server) { .server }
  93. else { .disconnect }
  94. }
  95. }
  96. alias tbchangenick { nick $$?=" $lang(PopupDll,05) " }
  97. alias tbjoiner { if ($server) { join #$$?=" $lang(PopupDll,06) " } }
  98. alias tbimpostazioni {
  99. if ($conf(TastiToolbar,Impostazioni) == 1) { impostazioni }
  100. elseif ($conf(TastiToolbar,Impostazioni) == 2) { extensions }
  101. elseif ($conf(TastiToolbar,Impostazioni) == 3) { upcheck }
  102. }
  103. alias tbmediap {
  104. if ($conf(TastiToolbar,MediaPlayers) == 1) { musicplay }
  105. elseif ($conf(TastiToolbar,MediaPlayers) == 2) { radioplay }
  106. elseif ($conf(TastiToolbar,MediaPlayers) == 3) { videoplay }
  107. }
  108. alias tbutility {
  109. if ($conf(TastiToolbar,Utility) == 1) { asciicodes }
  110. if ($conf(TastiToolbar,Utility) == 2) { convtool }
  111. if ($conf(TastiToolbar,Utility) == 3) { dccmon }
  112. if ($conf(TastiToolbar,Utility) == 4) { sysinfo }
  113. if ($conf(TastiToolbar,Utility) == 5) { lastseen }
  114. if ($conf(TastiToolbar,Utility) == 6) { logman }
  115. if ($conf(TastiToolbar,Utility) == 7) { querylock }
  116. if ($conf(TastiToolbar,Utility) == 8) { telnet }
  117. if ($conf(TastiToolbar,Utility) == 9) { imgviewer }
  118. if ($conf(TastiToolbar,Utility) == 10) { webbrowser }
  119. }
  120. alias pdstatusbar {
  121. if ($dialog(pdstatusbar)) { dialog -x pdstatusbar }
  122. else { dialog -mh pdstatusbar pdstatusbar }
  123. }
  124. dialog pdstatusbar {
  125. title "pdstatubar"
  126. size 0 0 1920 22
  127. option pixels
  128. list 1, 72 1 3000 20, size
  129. }
  130. on *:dialog:pdstatusbar:init:0:{
  131. dcx Mark $dname cb_pdstatusbar
  132. xdialog -c $dname 2 button 5 1 64 22 shadow default
  133. xdid -l $dname 2 16
  134. xdid -t $dname 2 $lang(Statusbar,08)
  135. xdid -f $dname 2 +b ansi 8 Tahoma
  136. xdid -w $dname 2 +nh 26 $icons(PDIcons.icl)
  137.  
  138. mdxinit $dname
  139. mdx SetBorderStyle $dname 1 windowedge
  140. mdx SetControlMDX $dname 1 StatusBar > $mdxbars
  141. var %stbnum = $calc($window(-2).w / 7)
  142. did -i $dname 1 1 setparts $int($calc(%stbnum + ((%stbnum * 23) / 100))) $int($calc((%stbnum * 2) + ((%stbnum * 33) / 100))) $int($calc((%stbnum * 3) + ((%stbnum * 56) / 100))) $int($calc((%stbnum * 4) + ((%stbnum * 24) / 100))) $int($calc((%stbnum * 5) - ((%stbnum * 6) / 100))) $int($calc((%stbnum * 6) - ((%stbnum * 30) / 100))) $int($calc((%stbnum * 7) - ((%stbnum * 55) / 100)))
  143. did -i $dname 1 1 seticon 0 small 8, $+ $icons(PDIcons.icl)
  144. did -i $dname 1 1 seticon 0 small 3, $+ $icons(PDIcons.icl)
  145. did -i $dname 1 1 seticon 0 small 16, $+ $icons(PDIcons.icl)
  146. did -i $dname 1 1 seticon 0 small 9, $+ $icons(PDIcons.icl)
  147. did -i $dname 1 1 seticon 0 small 13, $+ $icons(PDIcons.icl)
  148. did -i $dname 1 1 seticon 0 small 19, $+ $icons(PDIcons.icl)
  149. did -i $dname 1 1 seticon 0 small 18, $+ $icons(PDIcons.icl)
  150. load_pdstatusbar
  151. xdock -m $dialog($dname).hwnd +b
  152. xdock -r $dialog($dname).hwnd + 1920 23
  153. }
  154. alias cb_pdstatusbar { if (($2 == sclick) && ($3 == 2)) { pdplay $+($skin(Sounds,StartMenu,Path),$chr(92),$skin(Sounds,StartMenu)) | start_menu } }
  155. alias load_pdstatusbar {
  156. if ($dialog(pdstatusbar)) {
  157. xdid -t pdstatusbar 2 $lang(Statusbar,08)
  158. did -i pdstatusbar 1 2 1 $lang(Statusbar,01) $iif($server,$v1,$lang(Statusbar,10))
  159. did -i pdstatusbar 1 3 2 $lang(Statusbar,02) $iif($server,$network,$lang(Statusbar,10))
  160. did -i pdstatusbar 1 4 3 $lang(Statusbar,03) $me
  161. did -i pdstatusbar 1 5 4 $lang(Statusbar,04) $chan(0)
  162. did -i pdstatusbar 1 6 5 $lang(Statusbar,05) $query(0)
  163. did -i pdstatusbar 1 7 6 $lang(Statusbar,06) $get(0)
  164. did -i pdstatusbar 1 8 7 $lang(Statusbar,07) $send(0)
  165. }
  166. }
  167.  
  168. alias lagmup {
  169. if ($dialog(pdswitchbar)) {
  170. var %lag $left($round($calc(($ticks - $2) / 1000),3),5)
  171. if ($conf(Varie,LagMeter) == Si) {
  172. did -a pdswitchbar 2 $int($calc(%lag * 7)) 0 300
  173. did -ra pdswitchbar 4 %lag
  174. }
  175. }
  176. }
  177. alias switchinfo {
  178. if ($dialog(pdswitchbar)) {
  179. did -ra pdswitchbar 5 $time
  180. did -ra pdswitchbar 8 $date
  181. if (!$dll(hOSLite.dll)) { hos StubLoad }
  182.  
  183. ;PROVA BARRE
  184. xdid -v pdswitchbar 19 $int($calc(($darke(usedphysicalmem) * 100) / $darke(totalphysicalmem)))
  185. }
  186. if (mIRC Project Dream isin $hos(GetmIRCTitleBar)) { titlebar Project Dream $pdversion }
  187. if ($dialog(musicplay)) { did -i musicplay 3 1 params $vol(master)) 0 65535 1 10 0 65535 10 }
  188. if ($dialog(radioplay)) { did -i radioplay 7 1 params $calc(65535 - $vol(master)) 0 65535 1 10 0 65535 10 }
  189. if ($dialog(videoplay)) { did -i videoplay 9 1 params $vol(master)) 0 65535 1 10 0 65535 10 }
  190. if ($conf(Varie,Graphic) == Modern) {
  191. if ($toolbar) { .toolbar off | graphicreload }
  192. if ($treebar) { .treebar off | graphicreload }
  193. if ($switchbar) { .switchbar off | graphicreload }
  194. }
  195. set %dccschk1 $send(0)
  196. set %dccgchk1 $get(0)
  197. set %scidchk1 $scid(0)
  198. if ((%scidchk1 != %scidchk2) || (%dccschk1 != %dccschk2) || (%dccgchk1 != %dccgchk2)) {
  199. if ($conf(Varie,Graphic) == Modern) { load_pdswitchbar }
  200. if ($dialog(dccmon)) {
  201. dccmonreload
  202. if (!$timer(dccmon)) { .timerdccmon -m 0 300 dccmonrefresh }
  203. }
  204. if ($dialog(dccmonmini)) { if (!$timer(dccmonmini)) { .timerdccmonmini -m 0 300 dccmonminirefresh } }
  205. }
  206. set %dccschk2 $send(0)
  207. set %dccgchk2 $get(0)
  208. set %scidchk2 $scid(0)
  209. mp3_info
  210. video_info
  211. if ($conf(Radio,Play) == ON) { radiotime }
  212. autoaway_check
  213. .timerkernel -o 1 1 switchinfo
  214. }
  215. alias lagmeter { if ($server) { notice $me $chr(1) $+ PING $ticks $+ $chr(1) } }
  216.  
  217. alias pdswitchbar {
  218. if ($dialog(pdswitchbar)) { dialog -x pdswitchbar }
  219. else { dialog -mh pdswitchbar pdswitchbar }
  220. }
  221. dialog pdswitchbar {
  222. title "pdswitchbar"
  223. size 0 0 146 650
  224. option pixels
  225. list 1, 1 1 150 420, size
  226. text "", 2, 39 433 70 16, nowrap
  227. text "", 3, 14 433 23 16, nowrap
  228. text "", 4, 111 433 28 16, nowrap
  229. text "", 5, 37 463 79 18, center nowrap
  230. box "", 6, 10 424 134 29
  231. box "", 7, 10 452 134 56
  232. text "", 8, 34 485 85 18, center nowrap
  233. box "", 9, 10 562 134 54
  234. text "", 10, 15 573 53 16, right nowrap
  235. text "", 11, 15 593 53 16, right nowrap
  236. text "", 12, 72 573 66 16, nowrap
  237. text "", 13, 72 593 66 16, nowrap
  238. box "", 14, 10 510 134 29
  239. text "", 16, 14 519 24 16, nowrap
  240. text "", 17, 111 519 28 16
  241. box "", 18, 10 536 134 29
  242. text "", 20, 14 545 24 16, nowrap
  243. text "", 21, 111 545 28 16, nowrap
  244. }
  245. on *:dialog:pdswitchbar:init:0:{
  246. dcx Mark $dname cb_noop
  247. xdialog -c $dname 15 pbar 40 519 99 16 smooth
  248. xdialog -c $dname 19 pbar 40 545 99 16 smooth
  249.  
  250. mdxinit $dname
  251. mdx SetDialog $dname style staticedge
  252. mdx SetControlMDX $dname 1 TreeView haslines hasbuttons showsel > $mdxviews
  253. mdx SetControlMDX $dname 2 ProgressBar smooth > $mdxctlgen
  254. mdx SetFont $dname 5 ANSI 20 700 Tahoma
  255. mdx SetFont $dname 8 ANSI 15 700 Tahoma
  256. did -i $dname 1 1 iconsize normal small
  257. did -i $dname 1 1 seticon normal 8, $+ $icons(PDIcons.icl)
  258. did -i $dname 1 1 seticon normal 13, $+ $icons(PDIcons.icl)
  259. did -i $dname 1 1 seticon normal 14, $+ $icons(PDIcons.icl)
  260. did -i $dname 1 1 seticon normal 21, $+ $icons(PDIcons.icl)
  261. did -i $dname 1 1 seticon normal 18, $+ $icons(PDIcons.icl)
  262. did -i $dname 1 1 seticon normal 15, $+ $icons(PDIcons.icl)
  263. did -i $dname 1 1 seticon normal 19, $+ $icons(PDIcons.icl)
  264. did -i $dname 1 1 seticon normal 9, $+ $icons(PDIcons.icl)
  265. did -i $dname 1 1 seticon normal 0, $+ $icons(PDIcons.icl)
  266. did -i $dname 1 1 seticon normal 17, $+ $icons(PDIcons.icl)
  267. did -i $dname 1 1 seticon normal 22, $+ $icons(PDIcons.icl)
  268. did -i $dname 1 1 seticon normal 11, $+ $icons(PDIcons.icl)
  269. did -i $dname 1 1 seticon normal 23, $+ $icons(PDIcons.icl)
  270. did -i $dname 1 1 seticon normal 24, $+ $icons(PDIcons.icl)
  271. did -i $dname 1 1 seticon normal 10, $+ $icons(PDIcons.icl)
  272. did -i $dname 1 1 seticon normal 12, $+ $icons(PDIcons.icl)
  273. did -i $dname 1 1 seticon normal 20, $+ $icons(PDIcons.icl)
  274. did -v $dname 3,4
  275. did -a $dname 2 min 0
  276. did -a $dname 2 max 150
  277. switchinfo
  278. color_pdswitchbar
  279. load_pdswitchbar
  280. xdock -m $dialog($dname).hwnd +l
  281. }
  282. alias color_pdswitchbar {
  283. if ($dialog(pdswitchbar)) {
  284. mdx SetColor pdswitchbar 1 background $skin(TreeView,SWBack)
  285. mdx SetColor pdswitchbar 1 textbg $skin(TreeView,SWBack)
  286. did -i pdswitchbar 1 1 setcolor bkg $skin(TreeView,SWBack)
  287. did -i pdswitchbar 1 1 setcolor text $skin(TreeView,SWText)
  288. did -i pdswitchbar 1 1 setcolor line $skin(TreeView,SWLine)
  289. }
  290. }
  291. alias load_pdswitchbar {
  292. if ($dialog(pdswitchbar)) {
  293. if ($conf(Varie,SwitchAutoSize) == No) {
  294. var %switchsize = $calc(350 + $round($calc($window(-2).h - $calc(($window(-2).h * $conf(SwitchBar,Size)) / 100)),0))
  295. mdx MoveControl pdswitchbar 1 * * * $calc(%switchsize - 351)
  296. mdx MoveControl pdswitchbar 2 * $calc(%switchsize - 337)
  297. mdx MoveControl pdswitchbar 3 * $calc(%switchsize - 337)
  298. mdx MoveControl pdswitchbar 4 * $calc(%switchsize - 337)
  299. mdx MoveControl pdswitchbar 5 * $calc(%switchsize - 307)
  300. mdx MoveControl pdswitchbar 6 * $calc(%switchsize - 346)
  301. mdx MoveControl pdswitchbar 7 * $calc(%switchsize - 317)
  302. mdx MoveControl pdswitchbar 8 * $calc(%switchsize - 282)
  303. mdx MoveControl pdswitchbar 9 * $calc(%switchsize - 203)
  304. mdx MoveControl pdswitchbar 10 * $calc(%switchsize - 191)
  305. mdx MoveControl pdswitchbar 11 * $calc(%switchsize - 172)
  306. mdx MoveControl pdswitchbar 12 * $calc(%switchsize - 191)
  307. mdx MoveControl pdswitchbar 13 * $calc(%switchsize - 172)
  308. mdx MoveControl pdswitchbar 14 * $calc(%switchsize - 257)
  309. mdx MoveControl pdswitchbar 15 * $calc(%switchsize - 248)
  310. mdx MoveControl pdswitchbar 16 * $calc(%switchsize - 247)
  311. mdx MoveControl pdswitchbar 17 * $calc(%switchsize - 247)
  312. mdx MoveControl pdswitchbar 18 * $calc(%switchsize - 230)
  313. mdx MoveControl pdswitchbar 19 * $calc(%switchsize - 221)
  314. mdx MoveControl pdswitchbar 20 * $calc(%switchsize - 220)
  315. mdx MoveControl pdswitchbar 21 * $calc(%switchsize - 220)
  316.  
  317. }
  318. elseif ($window(-2).h >= 645) {
  319. mdx MoveControl pdswitchbar 1 * * * $calc($window(-2).h - 351)
  320. mdx MoveControl pdswitchbar 2 * $calc($window(-2).h - 337)
  321. mdx MoveControl pdswitchbar 3 * $calc($window(-2).h - 337)
  322. mdx MoveControl pdswitchbar 4 * $calc($window(-2).h - 337)
  323. mdx MoveControl pdswitchbar 5 * $calc($window(-2).h - 307)
  324. mdx MoveControl pdswitchbar 6 * $calc($window(-2).h - 346)
  325. mdx MoveControl pdswitchbar 7 * $calc($window(-2).h - 317)
  326. mdx MoveControl pdswitchbar 8 * $calc($window(-2).h - 282)
  327. mdx MoveControl pdswitchbar 9 * $calc($window(-2).h - 203)
  328. mdx MoveControl pdswitchbar 10 * $calc($window(-2).h - 191)
  329. mdx MoveControl pdswitchbar 11 * $calc($window(-2).h - 172)
  330. mdx MoveControl pdswitchbar 12 * $calc($window(-2).h - 191)
  331. mdx MoveControl pdswitchbar 13 * $calc($window(-2).h - 172)
  332. mdx MoveControl pdswitchbar 14 * $calc($window(-2).h - 257)
  333. mdx MoveControl pdswitchbar 15 * $calc($window(-2).h - 248)
  334. mdx MoveControl pdswitchbar 16 * $calc($window(-2).h - 247)
  335. mdx MoveControl pdswitchbar 17 * $calc($window(-2).h - 247)
  336. mdx MoveControl pdswitchbar 18 * $calc($window(-2).h - 230)
  337. mdx MoveControl pdswitchbar 19 * $calc($window(-2).h - 221)
  338. mdx MoveControl pdswitchbar 20 * $calc($window(-2).h - 220)
  339. mdx MoveControl pdswitchbar 21 * $calc($window(-2).h - 220)
  340. }
  341. var %stbnum = $calc($window(-2).w / 7)
  342. if ($dialog(pdstatusbar)) {
  343. did -i pdstatusbar 1 1 setparts $int($calc(%stbnum + ((%stbnum * 23) / 100))) $int($calc((%stbnum * 2) + ((%stbnum * 33) / 100))) $int($calc((%stbnum * 3) + ((%stbnum * 56) / 100))) $int($calc((%stbnum * 4) + ((%stbnum * 24) / 100))) $int($calc((%stbnum * 5) - ((%stbnum * 6) / 100))) $int($calc((%stbnum * 6) - ((%stbnum * 30) / 100))) $int($calc((%stbnum * 7) - ((%stbnum * 55) / 100)))
  344. }
  345. did -ra pdswitchbar 3 $lang(Switchbar,01)
  346. did -ra pdswitchbar 10 $lang(Switchbar,04)
  347. did -ra pdswitchbar 11 $lang(Switchbar,05)
  348. did -ra pdswitchbar 16 $lang(Switchbar,02)
  349. did -ra pdswitchbar 20 $lang(Switchbar,03)
  350.  
  351. did -r pdswitchbar 1
  352. var %c = 1
  353. while (%c <= $scid(0)) {
  354. var %a = $scid($scon(%c))
  355. .scon %c
  356. did -i pdswitchbar 1 1 cb root
  357. did -a pdswitchbar 1 +eb 1 1 $iif($status = connected,$iif($scid(%a).network,$v1,$scid(%a).server),$lang(Switchbar,06)) $chr(9) $+ $lang(Switchbar,07)
  358. did -i pdswitchbar 1 1 cb last
  359. did -a pdswitchbar 1 +e 8 8 $lang(Switchbar,08) $chr(9) $+ $lang(Switchbar,09)
  360. did -i pdswitchbar 1 1 cb last
  361. var %temp1 = 1
  362. while (%temp1 <= $chan(0)) {
  363. if (%switchchan [ $+ [ $chan(%temp1) ] $+ [ $server ] ] == 1) { did -a pdswitchbar 1 + 15 12 $lower($chan(%temp1)) $chr(9) $+ $lower($chan(%temp1)) }
  364. elseif (%switchchan [ $+ [ $chan(%temp1) ] $+ [ $server ] ] == 2) { did -a pdswitchbar 1 + 16 12 $lower($chan(%temp1)) $chr(9) $+ $lower($chan(%temp1)) }
  365. else { did -a pdswitchbar 1 + 8 12 $lower($chan(%temp1)) $chr(9) $+ $lower($chan(%temp1)) }
  366. inc %temp1
  367. }
  368. did -i pdswitchbar 1 1 cb up
  369. did -a pdswitchbar 1 +e 2 2 $lang(Switchbar,10) $chr(9) $+ $lang(Switchbar,11)
  370. did -i pdswitchbar 1 1 cb last
  371. var %temp2 = 1
  372. while (%temp2 <= $query(0)) {
  373. if (%switchquery [ $+ [ $query(%temp2) ] $+ [ $server ] ]) { did -a pdswitchbar 1 + 3 6 $query(%temp2) $chr(9) $+ $query(%temp2) }
  374. else { did -a pdswitchbar 1 + 2 6 $query(%temp2) $chr(9) $+ $query(%temp2) }
  375. inc %temp2
  376. }
  377. inc %c
  378. did -i pdswitchbar 1 1 cb up
  379. did -a pdswitchbar 1 +e 11 11 $lang(Switchbar,22) $chr(9) $+ $lang(Switchbar,23)
  380. did -i pdswitchbar 1 1 cb last
  381. var %noty1 = 1
  382. while ($notify(%noty1)) {
  383. if ($notify(%noty1).ison) { did -a pdswitchbar 1 + 2 2 $notify(%noty1) $chr(9) $+ $rpcode($lang(Switchbar,26),$notify(%noty1)) }
  384. inc %noty1
  385. }
  386. }
  387. did -i pdswitchbar 1 1 cb root
  388. did -a pdswitchbar 1 +eb 10 10 $lang(Switchbar,12) $chr(9) $+ $lang(Switchbar,13)
  389. did -i pdswitchbar 1 1 cb last
  390. did -a pdswitchbar 1 +e 7 7 $lang(Switchbar,14) $chr(9) $+ $lang(Switchbar,15)
  391. did -i pdswitchbar 1 1 cb last
  392. var %temp3 = 1
  393. while (%temp3 <= $get(0)) {
  394. did -a pdswitchbar 1 + 2 6 $get(%temp3) $chr(9) $+ $get(%temp3)
  395. inc %temp3
  396. }
  397. did -i pdswitchbar 1 1 cb up
  398. did -a pdswitchbar 1 +e 5 5 $lang(Switchbar,16) $chr(9) $+ $lang(Switchbar,17)
  399. did -i pdswitchbar 1 1 cb last
  400. var %temp4 = 1
  401. while (%temp4 <= $send(0)) {
  402. did -a pdswitchbar 1 + 2 6 $send(%temp4) $chr(9) $+ $send(%temp4)
  403. inc %temp4
  404. }
  405. did -i pdswitchbar 1 1 cb up
  406. did -a pdswitchbar 1 +e 2 2 $lang(Switchbar,18) $chr(9) $+ $lang(Switchbar,19)
  407. did -i pdswitchbar 1 1 cb last
  408. var %temp5 = 1
  409. while (%temp5 <= $chat(0)) {
  410. did -a pdswitchbar 1 + 2 6 $chat(%temp5) $chr(9) $+ $chat(%temp5)
  411. inc %temp5
  412. }
  413. did -i pdswitchbar 1 1 cb root
  414. did -a pdswitchbar 1 +eb 17 17 $lang(Switchbar,20) $chr(9) $+ $lang(Switchbar,21)
  415. did -i pdswitchbar 1 1 cb last
  416. var %temp6 = 1
  417. while (%temp6 <= $window(0)) {
  418. if ((eXo !isin $window(%temp6)) && (ppop !isin $window(%temp6)) && (pdtelnet !isin $window(%temp6))) {
  419. did -a pdswitchbar 1 + 17 17 $replace($window(%temp6),@,) $chr(9) $window(%temp6)
  420. }
  421. inc %temp6
  422. }
  423. did -i pdswitchbar 1 1 cb root
  424. did -a pdswitchbar 1 +b 4 4 $lang(Switchbar,30) $chr(9) $+ $lang(Switchbar,31)
  425. did -i pdswitchbar 1 1 cb up
  426. }
  427. }
  428.  
  429. on *:dialog:pdswitchbar:sclick:1:{
  430. tokenize 32 $did(1,1,1)
  431. if (($1 == slclick) && ($3 != unknown)) {
  432. if (($4) && (($5 = 2) || ($5 = 3)) && (!$6)) {
  433. if ($calc($4 - 1) <= $scid(0)) {
  434. .scon $calc($4 - 1)
  435. .window -a "Status Window"
  436. .timerfocus1 -h 1 50 .editbox -f $editbox($active)
  437. }
  438. }
  439. if (($4) && (!$5)) {
  440. if ($calc($4 - 1) <= $scid(0)) {
  441. .scon $calc($4 - 1)
  442. .window -a "Status Window"
  443. .timerfocus1 -h 1 50 .editbox -f $editbox($active)
  444. }
  445. }
  446. if ($4 = $calc($scid(0) + 4)) {
  447. var %x = 1
  448. while ((%x <= $scid(0)) && ($scon(%x) != $activecid)) { inc %x }
  449. .scon %x
  450. if ($window(Channels List)) { .window -a "Channels List" }
  451. elseif ($server) { .list }
  452. }
  453. elseif ($calc($4 - 1) > $scid(0)) {
  454. if (($calc($4 - 1) = $calc($scid(0) + 1)) && ($6)) {
  455. if ($5 == 2) { .window -a "Get $get($calc($6 - 1)) $+($get($calc($6 - 1)).file,") }
  456. elseif ($5 == 3) { .window -a "Send $send($calc($6 - 1)) $+($send($calc($6 - 1)).file,") }
  457. elseif ($5 == 4) {
  458. .window -a $+(=,$chat($calc($6 - 1)))
  459. .timerfocus2 -h 1 50 .editbox -f $+(=,$chat($calc($6 - 1))) $editbox($+(=,$chat($calc($6 - 1))))
  460. }
  461. }
  462. if (($calc($4 - 1) = $calc($scid(0) + 2)) && ($5)) { .window -a $window($calc($5 - 1)) }
  463. }
  464. elseif (($5 = 2) && ($6)) {
  465. .scon $calc($4 - 1)
  466. if ($chan($calc($6 - 1)) != $chr(35)) {
  467. .window -a $chan($calc($6 - 1))
  468. .timerfocus3 -h 1 50 .editbox -f $chan($calc($6 - 1)) $editbox($chan($calc($6 - 1)))
  469. }
  470. else {
  471. .window -a $chan($calc($6 - 1))
  472. .editbox -f $chan($calc($6 - 1)) $editbox($chan($calc($6 - 1)))
  473. }
  474. }
  475. elseif (($5 = 3) && ($6)) {
  476. .scon $calc($4 - 1)
  477. .window -a $query($calc($6 - 1))
  478. .timerfocus4 -h 1 50 .editbox -f $query($calc($6 - 1)) $editbox($query($calc($6 - 1)))
  479. }
  480. elseif (($5 = 4) && (!$6)) {
  481. .notify -s
  482. .window -a "Notify List"
  483. }
  484. }
  485. if ($1 = rclick) {
  486. if (($3) && (!$4)) {
  487. if ($3 = $calc($scid(0) + 4)) { halt }
  488. if ($calc($3 - 1) <= $scid(0)) {
  489. .scon $calc($3 - 1)
  490. if ($server) {
  491. set %scontmp $calc($3 - 1)
  492. load_menu_disconnect
  493. xpopup -s tb1 +m $mouse.dx $mouse.dy
  494. }
  495. }
  496. elseif ($calc($3 - 1) = $calc($scid(0) + 2)) {
  497. load_menu_close_all_window
  498. xpopup -s tb14 +m $mouse.dx $mouse.dy
  499. }
  500. }
  501. elseif (($3) && ($4) && (!$5)) {
  502. if ($calc($3 - 1) <= $scid(0)) {
  503. if ($4 = 2) {
  504. .scon $calc($3 - 1)
  505. if ($server) {
  506. set %scontmp $calc($3 - 1)
  507. load_menu_close_all_chan
  508. xpopup -s tb9 +m $mouse.dx $mouse.dy
  509. }
  510. }
  511. if ($4 = 3) {
  512. .scon $calc($3 - 1)
  513. if ($server) {
  514. set %scontmp $calc($3 - 1)
  515. load_menu_close_all_query
  516. xpopup -s tb10 +m $mouse.dx $mouse.dy
  517. }
  518. }
  519. }
  520. elseif ($calc($3 - 1) = $calc($scid(0) + 1)) {
  521. if ($4 = 2) {
  522. load_menu_close_all_get
  523. xpopup -s tb11 +m $mouse.dx $mouse.dy
  524. }
  525. if ($4 = 3) {
  526. load_menu_close_all_send
  527. xpopup -s tb12 +m $mouse.dx $mouse.dy
  528. }
  529. if ($4 = 4) {
  530. load_menu_close_all_chat
  531. xpopup -s tb13 +m $mouse.dx $mouse.dy
  532. }
  533. }
  534. }
  535. elseif ($calc($3 - 1) > $scid(0)) {
  536. if (($calc($3 - 1) = $calc($scid(0) + 1)) && ($5)) {
  537. if ($4 = 2) {
  538. load_menu_close_get
  539. xpopup -s tb4 +m $mouse.dx $mouse.dy
  540. }
  541. elseif ($4 = 3) {
  542. load_menu_close_send
  543. xpopup -s tb5 +m $mouse.dx $mouse.dy
  544. }
  545. elseif ($4 = 4) {
  546. load_menu_close_chat
  547. xpopup -s tb6 +m $mouse.dx $mouse.dy
  548. }
  549. }
  550. }
  551. if ($calc($3 - 1) = $calc($scid(0) + 2)) {
  552. load_menu_close_window
  553. xpopup -s tb7 +m $mouse.dx $mouse.dy
  554. }
  555. elseif (($4 = 2) && ($5)) {
  556. .scon $calc($3 - 1)
  557. set %scontmp $calc($3 - 1)
  558. load_menu_close_chan
  559. xpopup -s tb2 +m $mouse.dx $mouse.dy
  560. }
  561. elseif (($4 = 3) && ($5)) {
  562. .scon $calc($3 - 1)
  563. load_menu_close_query
  564. xpopup -s tb3 +m $mouse.dx $mouse.dy
  565. }
  566. elseif (($4 = 4) && ($5)) {
  567. .scon $calc($3 - 1)
  568. load_menu_notify
  569. xpopup -s tb8 +m $mouse.dx $mouse.dy
  570. }
  571. }
  572. }
  573. alias load_menu_disconnect {
  574. if ($xpopup(tb1).ismenu) { xpopup -d tb1 }
  575. xpopup -c tb1 normal
  576. xpopup -i tb1 + 55 $icons(PDIcons.icl)
  577. xpop -a tb1 0 $chr(9) + 1 1 $rpcode($lang(SwitchPop,01),$pdtree(pdswitchbar,1))
  578. }
  579. alias load_menu_close_chan {
  580. if ($xpopup(tb2).ismenu) { xpopup -d tb2 }
  581. xpopup -c tb2 normal
  582. xpopup -i tb2 + 55 $icons(PDIcons.icl)
  583. xpop -a tb2 0 $chr(9) + 1 1 $rpcode($lang(SwitchPop,02),$pdtree(pdswitchbar,1))
  584. }
  585. alias load_menu_close_query {
  586. if ($xpopup(tb3).ismenu) { xpopup -d tb3 }
  587. xpopup -c tb3 normal
  588. xpopup -i tb3 + 55 $icons(PDIcons.icl)
  589. xpop -a tb3 0 $chr(9) + 1 1 $rpcode($lang(SwitchPop,03),$pdtree(pdswitchbar,1))
  590. }
  591. alias load_menu_close_get {
  592. if ($xpopup(tb4).ismenu) { xpopup -d tb4 }
  593. xpopup -c tb4 normal
  594. xpopup -i tb4 + 55 $icons(PDIcons.icl)
  595. xpop -a tb4 0 $chr(9) + 1 1 $rpcode($lang(SwitchPop,04),$pdtree(pdswitchbar,1))
  596. }
  597. alias load_menu_close_send {
  598. if ($xpopup(tb5).ismenu) { xpopup -d tb5 }
  599. xpopup -c tb5 normal
  600. xpopup -i tb5 + 55 $icons(PDIcons.icl)
  601. xpop -a tb5 0 $chr(9) + 1 1 $rpcode($lang(SwitchPop,05),$pdtree(pdswitchbar,1))
  602. }
  603. alias load_menu_close_chat {
  604. if ($xpopup(tb6).ismenu) { xpopup -d tb6 }
  605. xpopup -c tb6 normal
  606. xpopup -i tb6 + 55 $icons(PDIcons.icl)
  607. xpop -a tb6 0 $chr(9) + 1 1 $rpcode($lang(SwitchPop,06),$pdtree(pdswitchbar,1))
  608. }
  609. alias load_menu_close_window {
  610. if ($xpopup(tb7).ismenu) { xpopup -d tb7 }
  611. xpopup -c tb7 normal
  612. xpopup -i tb7 + 55 $icons(PDIcons.icl)
  613. xpop -a tb7 0 $chr(9) + 1 1 $lang(SwitchPop,07)
  614. }
  615. alias load_menu_notify {
  616. if ($xpopup(tb8).ismenu) { xpopup -d tb8 }
  617. xpopup -c tb8 normal
  618. xpopup -i tb8 + 14 $icons(PDIcons.icl)
  619. xpopup -i tb8 +g 14 $icons(PDIcons.icl)
  620. xpopup -i tb8 + 55 $icons(PDIcons.icl)
  621. xpop -a tb8 0 $chr(9) + 1 1 $rpcode($lang(SwitchPop,08),$pdtree(pdswitchbar,1))
  622. xpop -a tb8 0 $chr(9) + 2 3 $rpcode($lang(SwitchPop,09),$pdtree(pdswitchbar,1))
  623. }
  624. alias load_menu_close_all_chan {
  625. if ($xpopup(tb9).ismenu) { xpopup -d tb9 }
  626. xpopup -c tb9 normal
  627. xpopup -i tb9 + 55 $icons(PDIcons.icl)
  628. .scon %scontmp
  629. if ($chan(0)) { xpop -a tb9 0 $chr(9) + 1 1 $lang(SwitchPop,10) }
  630. else { xpop -a tb9 0 $chr(9) +g 1 1 $lang(SwitchPop,10) }
  631. }
  632. alias load_menu_close_all_query {
  633. if ($xpopup(tb10).ismenu) { xpopup -d tb10 }
  634. xpopup -c tb10 normal
  635. xpopup -i tb10 + 55 $icons(PDIcons.icl)
  636. .scon %scontmp
  637. if ($query(0)) { xpop -a tb10 0 $chr(9) + 1 1 $lang(SwitchPop,11) }
  638. else { xpop -a tb10 0 $chr(9) +g 1 1 $lang(SwitchPop,11) }
  639. }
  640. alias load_menu_close_all_get {
  641. if ($xpopup(tb11).ismenu) { xpopup -d tb11 }
  642. xpopup -c tb11 normal
  643. xpopup -i tb11 + 55 $icons(PDIcons.icl)
  644. if ($get(0)) { xpop -a tb11 0 $chr(9) + 1 1 $lang(SwitchPop,12) }
  645. else { xpop -a tb11 0 $chr(9) +g 1 1 $lang(SwitchPop,12) }
  646. }
  647. alias load_menu_close_all_send {
  648. if ($xpopup(tb12).ismenu) { xpopup -d tb12 }
  649. xpopup -c tb12 normal
  650. xpopup -i tb12 + 55 $icons(PDIcons.icl)
  651. if ($send(0)) { xpop -a tb12 0 $chr(9) + 1 1 $lang(SwitchPop,13) }
  652. else { xpop -a tb12 0 $chr(9) +g 1 1 $lang(SwitchPop,13) }
  653. }
  654. alias load_menu_close_all_chat {
  655. if ($xpopup(tb13).ismenu) { xpopup -d tb13 }
  656. xpopup -c tb13 normal
  657. xpopup -i tb13 + 55 $icons(PDIcons.icl)
  658. if ($chat(0)) { xpop -a tb13 0 $chr(9) + 1 1 $lang(SwitchPop,14) }
  659. else { xpop -a tb13 0 $chr(9) +g 1 1 $lang(SwitchPop,14) }
  660. }
  661. alias load_menu_close_all_window {
  662. if ($xpopup(tb14).ismenu) { xpopup -d tb14 }
  663. xpopup -c tb14 normal
  664. xpopup -i tb14 + 55 $icons(PDIcons.icl)
  665. if ($window(0)) { xpop -a tb14 0 $chr(9) + 1 1 $lang(SwitchPop,15) }
  666. else { xpop -a tb14 0 $chr(9) +g 1 1 $lang(SwitchPop,15) }
  667. }
  668. on *:SIGNAL:XPopup-tb*:{
  669. if ($1 == 0) { return }
  670. .scon %tbsconvar
  671. if ($signal == XPopup-tb1) { if ($1 == 1) { .scon %scontmp | .disconnect | unset %scontmp } }
  672. elseif ($signal == XPopup-tb2) { if ($1 == 1) { .scon %scontmp | .part $pdtree(pdswitchbar,1) | unset %scontmp | .timerload1 -h 1 400 statuload } }
  673. elseif ($signal == XPopup-tb3) { if ($1 == 1) { .close -m $pdtree(pdswitchbar,1) | .timerload2 -h 1 400 statuload } }
  674. elseif ($signal == XPopup-tb4) { if ($1 == 1) { .close -g "Get $get($pdtree(pdswitchbar,1)) $+($pdtree(pdswitchbar,1).file,") } }
  675. elseif ($signal == XPopup-tb5) { if ($1 == 1) { .close -s "Send $send($pdtree(pdswitchbar,1)) $+($pdtree(pdswitchbar,1).file,") | statuload } }
  676. elseif ($signal == XPopup-tb6) { if ($1 == 1) { .close -c $chat($pdtree(pdswitchbar,1)) | .timerload3 -h 1 500 statuload } }
  677. elseif ($signal == XPopup-tb7) { if ($1 == 1) { .window -c $+($chr(64),$pdtree(pdswitchbar,1)) } }
  678. elseif ($signal == XPopup-tb8) {
  679. if ($1 == 1) {
  680. .scon $calc($gettok($did(pdswitchbar,1,1),3,32) - 1)
  681. .query $pdtree(pdswitchbar,1)
  682. }
  683. elseif ($1 == 2) { notify -r $pdtree(pdswitchbar,1) }
  684. }
  685. elseif ($signal == XPopup-tb9) {
  686. .scon %scontmp
  687. .partall
  688. .timerload1a -h 1 400 statuload
  689. }
  690. elseif ($signal == XPopup-tb10) {
  691. .scon %scontmp
  692. .close -m
  693. .timerload1b -h 1 400 statuload
  694. }
  695. elseif ($signal == XPopup-tb11) {
  696. .close -g
  697. .timerload1c -h 1 400 statuload
  698. }
  699. elseif ($signal == XPopup-tb12) {
  700. .close -s
  701. .timerload1d -h 1 400 statuload
  702. }
  703. elseif ($signal == XPopup-tb13) {
  704. .close -c
  705. .timerload1e -h 1 400 statuload
  706. }
  707. elseif ($signal == XPopup-tb14) {
  708. var %cwinall = $window(0)
  709. while (%cwinall >= 1) {
  710. if ((eXo !isin $window(%cwinall)) && (ppop !isin $window(%cwinall)) && (pdtelnet !isin $window(%cwinall))) { .window -c $window(%cwinall) }
  711. dec %cwinall
  712. }
  713. .timerload1f -h 1 400 statuload
  714. }
  715. }
  716.  
  717. alias pdtree {
  718. var %dialog = $1
  719. var %id = $2
  720. if (!$dialog(%dialog)) { return }
  721. if ($3) {
  722. var %loc = $3-
  723. if ($prop = lines) {
  724. did -i %dialog %id 1 cb root %loc
  725. return $calc($did(%dialog,%id,0).lines -1)
  726. }
  727. if ($numtok(%Loc,32) = 1) { did -i %dialog %id 1 cb root }
  728. else { did -i %dialog %id 1 cb root $gettok(%loc,1- $+ $calc($numtok(%loc,32) -1),32) }
  729. var %line = $gettok($did(%dialog,%id,$gettok(%Loc,-1,32)),7-,32)
  730. if ($prop = tooltip) { return $gettok(%line,2-,9) }
  731. return $gettok(%line,1,9)
  732. }
  733. var %entry = $did(%dialog,%id,1)
  734. if ($gettok(%entry,1,32) = slclick) { var %loc = $gettok(%entry,4-,32) }
  735. else { var %loc = $gettok(%entry,3-,32) }
  736. var %depth = $calc($numtok(%loc,32) -1)
  737. var %branch = $gettok(%loc,-1,32)
  738. if (%depth = 0) { did -i %dialog %id 1 cb root }
  739. else { did -i %dialog %id 1 cb root $gettok(%loc,1- $+ %depth,32) }
  740. var %line = $gettok($did(%dialog,%id,%branch),7-,32)
  741. if (!$prop) { return $gettok(%line,1,9) }
  742. if ($prop = root) { return $gettok(%loc,1,32) }
  743. if ($prop = sel) { return %loc }
  744. if ($prop = lines) { return $calc($did(%dialog,%id,0).lines -1) }
  745. if ($prop = len) { return $len(%line) }
  746. if ($prop = tooltip) { return $gettok(%line,2-,9) }
  747. if ($prop = event) { return $gettok(%entry,1,32) }
  748. }
  749.  
  750. on *:SIGNAL:hOS:{
  751. if ($1 == MIRCRESIZE) { load_pdswitchbar }
  752. }
  753.  
  754. alias switchicon1 {
  755. if ($dialog(pdswitchbar)) {
  756. var %serv = $2
  757. if ((($active != $1) || ($activecid != $3)) && (!%switchchan [ $+ [ $1 ] $+ [ $2 ] ])) {
  758. set %switchchan [ $+ [ $1 ] $+ [ $2 ] ] 1
  759. var %x = 1
  760. while (%x <= $scon(0)) {
  761. .scon %x
  762. if (%serv != $server) { goto jump }
  763. did -i pdswitchbar 1 1 cb root $calc(%x + 1) 2
  764. var %temp = 2
  765. while ($did(pdswitchbar,1,1,%temp)) {
  766. if ($gettok($did(pdswitchbar,1,1,%temp),2,9)) { if ($+(*,$1) iswm $gettok($did(pdswitchbar,1,1,%temp),2,9)) { did -i pdswitchbar 1 1 replaceitem %temp + 15 12 $lower($1) $chr(9) $+ $lower($1) } }
  767. elseif ($+(*,$1) iswm $gettok($did(pdswitchbar,1,1,%temp),7,32)) { did -i pdswitchbar 1 1 replaceitem %temp + 15 12 $lower($1) $chr(9) $+ $lower($1) }
  768. inc %temp
  769. }
  770. :jump
  771. inc %x
  772. }
  773. }
  774. }
  775. }
  776. alias switchicon2 {
  777. if ($dialog(pdswitchbar)) {
  778. var %serv = $2
  779. if ((($active != $1) || ($activecid != $3)) && (!%switchchan [ $+ [ $1 ] $+ [ $2 ] ])) {
  780. set %switchchan [ $+ [ $1 ] $+ [ $2 ] ] 2
  781. var %x = 1
  782. while (%x <= $scon(0)) {
  783. .scon %x
  784. if (%serv != $server) { goto jump }
  785. did -i pdswitchbar 1 1 cb root $calc(%x + 1) 2
  786. var %temp = 2
  787. while ($did(pdswitchbar,1,1,%temp)) {
  788. if ($gettok($did(pdswitchbar,1,1,%temp),2,9)) { if ($+(*,$1) iswm $gettok($did(pdswitchbar,1,1,%temp),2,9)) { did -i pdswitchbar 1 1 replaceitem %temp + 16 12 $lower($1) $chr(9) $+ $lower($1) } }
  789. elseif ($+(*,$1) iswm $gettok($did(pdswitchbar,1,1,%temp),7,32)) { did -i pdswitchbar 1 1 replaceitem %temp + 16 12 $lower($1) $chr(9) $+ $lower($1) }
  790. inc %temp
  791. }
  792. :jump
  793. inc %x
  794. }
  795. }
  796. }
  797. }
  798. alias switchicon3 {
  799. if ($dialog(pdswitchbar)) {
  800. var %serv = $2
  801. if ((($active != $1) || ($activecid != $3)) && (!%switchquery [ $+ [ $1 ] $+ [ $2 ] ])) {
  802. set %switchquery [ $+ [ $1 ] $+ [ $2 ] ] 1
  803. var %x = 1
  804. while (%x <= $scon(0)) {
  805. .scon %x
  806. if (%serv != $server) { goto jump }
  807. did -i pdswitchbar 1 1 cb root $calc(%x + 1) 3
  808. var %temp = 2
  809. while ($did(pdswitchbar,1,1,%temp)) {
  810. if ($gettok($did(pdswitchbar,1,1,%temp),2,9)) { if ($+(*,$1) iswm $gettok($did(pdswitchbar,1,1,%temp),2,9)) { did -i pdswitchbar 1 1 replaceitem %temp + 3 6 $1 $chr(9) $+ $1 } }
  811. elseif ($+(*,$1) iswm $gettok($did(pdswitchbar,1,1,%temp),7,32)) { did -i pdswitchbar 1 1 replaceitem %temp + 3 6 $1 $chr(9) $+ $1 }
  812. inc %temp
  813. }
  814. :jump
  815. inc %x
  816. }
  817. }
  818. }
  819. }
  820.  
  821. on *:TEXT:*:#:{ switchicon1 $chan $server $cid }
  822. on *:ACTION:*:#:{ switchicon1 $chan $server $cid }
  823. on *:TEXT:*:?:{ switchicon3 $nick $server $cid }
  824. on *:ACTION:*:?:{ switchicon3 $nick $server $cid }
  825. on *:DCCSERVER:*:{ statuload }
  826. on *:DCCSERVER:CHAT:{ statuload }
  827.  
  828. on *:ACTIVE:*:{
  829. if ($dialog(pdswitchbar)) {
  830. var %x = 1
  831. while ((%x <= $scid(0)) && ($scon(%x) != $activecid)) { inc %x }
  832. .scon %x
  833. if (%switchchan [ $+ [ $active ] $+ [ $server ] ]) {
  834. unset %switchchan [ $+ [ $active ] $+ [ $server ] ]
  835. did -i pdswitchbar 1 1 cb root $calc(%x + 1) 2
  836. var %x = 1
  837. var %temp1 = 2
  838. while ($did(pdswitchbar,1,1,%temp1)) {
  839. if ($gettok($did(pdswitchbar,1,1,%temp1),2,9)) { if ($+(*,$active) iswm $gettok($did(pdswitchbar,1,1,%temp1),2,9)) { did -i pdswitchbar 1 1 replaceitem %temp1 + 8 12 $lower($active) $chr(9) $+ $lower($active) } }
  840. elseif ($+(*,$active) iswm $gettok($did(pdswitchbar,1,1,%temp1),7,32)) { did -i pdswitchbar 1 1 replaceitem %temp1 + 8 12 $lower($active) $chr(9) $+ $lower($active) }
  841. inc %temp1
  842. }
  843. }
  844. var %x = 1
  845. while ((%x <= $scid(0)) && ($scon(%x) != $activecid)) { inc %x }
  846. .scon %x
  847. if (%switchquery [ $+ [ $active ] $+ [ $server ] ]) {
  848. unset %switchquery [ $+ [ $active ] $+ [ $server ] ]
  849. did -i pdswitchbar 1 1 cb root $calc(%x + 1) 3
  850. var %x = 1
  851. var %temp2 = 2
  852. while ($did(pdswitchbar,1,1,%temp2)) {
  853. if ($gettok($did(pdswitchbar,1,1,%temp2),2,9)) { if ($+(*,$active) iswm $gettok($did(pdswitchbar,1,1,%temp2),2,9)) { did -i pdswitchbar 1 1 replaceitem %temp2 + 2 6 $active $chr(9) $+ $active } }
  854. elseif ($+(*,$active) iswm $gettok($did(pdswitchbar,1,1,%temp2),7,32)) { did -i pdswitchbar 1 1 replaceitem %temp2 + 2 6 $active $chr(9) $+ $active }
  855. inc %temp2
  856. }
  857. }
  858. }
  859. if (!$timer(reload)) { .timerreload -o 0 2000 graphicreload }
  860. if (!$timer(kernel)) { .timerkernel -o 1 1 switchinfo }
  861. away_ctrl
  862. load_pdstatusbar
  863. }
  864.  
  865. alias pdtoolbar {
  866. if ($dialog(pdtoolbar)) { dialog -x pdtoolbar }
  867. else { dialog -mh pdtoolbar pdtoolbar }
  868. }
  869. alias toolbarsize {
  870. if ($conf(Varie,ToolbarSize) == A) {
  871. if ($conf(Varie,ToolbarText) == A) { return 32 }
  872. elseif ($conf(Varie,ToolbarText) == B) { return 47 }
  873. elseif ($conf(Varie,ToolbarText) == C) { return 24 }
  874. }
  875. elseif ($conf(Varie,ToolbarSize) == B) {
  876. if ($conf(Varie,ToolbarText) == A) { return 48 }
  877. elseif ($conf(Varie,ToolbarText) == B) { return 62 }
  878. elseif ($conf(Varie,ToolbarText) == C) { return 41 }
  879. }
  880. }
  881. alias toolbartext {
  882. if ($conf(Varie,ToolbarText) == A) { return list }
  883. elseif ($conf(Varie,ToolbarText) == B) { return $null }
  884. elseif ($conf(Varie,ToolbarText) == C) { return $null }
  885. }
  886. dialog pdtoolbar {
  887. title "pdtoolbar"
  888. size 0 0 1920 $toolbarsize
  889. option pixels
  890. list 1, 0 0 10000 $toolbarsize, size
  891. }
  892. on *:dialog:pdtoolbar:init:0:{
  893. mdxinit $dname
  894. mdx SetBorderStyle $dname 1
  895. mdx SetControlMDX $dname 1 ToolBar arrows $toolbartext flat noresize nodivider > $mdxbars
  896. mdx SetDialog $dname 1 style
  897. did -i $dname 1 1 bmpsize $iif($conf(Varie,ToolbarSize) == B,32 32,16 16)
  898. did -r $dname 1
  899. did -i $dname 1 1 setimage icon list, 27, $+ $icons(PDIcons.icl)
  900. did -i $dname 1 1 setimage icon list, 15, $+ $icons(PDIcons.icl)
  901. did -i $dname 1 1 SetImage icon list, 11, $+ $icons(PDIcons.icl)
  902. did -i $dname 1 1 setimage icon list, 28, $+ $icons(PDIcons.icl)
  903. did -i $dname 1 1 setimage icon list, 29, $+ $icons(PDIcons.icl)
  904. did -i $dname 1 1 setimage icon list, 30, $+ $icons(PDIcons.icl)
  905. did -i $dname 1 1 setimage icon list, 31, $+ $icons(PDIcons.icl)
  906. did -i $dname 1 1 setimage icon list, 32, $+ $icons(PDIcons.icl)
  907. did -i $dname 1 1 SetImage icon list, 25, $+ $icons(PDIcons.icl)
  908. load_pdtoolbar
  909. xdock -m $dialog($dname).hwnd +t
  910. xdock -r $dialog($dname).hwnd + 1920 $toolbarsize
  911. }
  912. alias load_pdtoolbar {
  913. if ($dialog(pdtoolbar)) {
  914. did -r pdtoolbar 1
  915. did -a pdtoolbar 1 -
  916. did -a pdtoolbar 1 +av 1 $iif($conf(Varie,ToolbarText) != C,$lang(Toolbar,01) $+ $chr(9) $+ $lang(Toolbar,02))
  917. did -a pdtoolbar 1 -
  918. did -a pdtoolbar 1 +a 2 $iif($conf(Varie,ToolbarText) != C,$lang(Toolbar,03) $+ $chr(9) $+ $lang(Toolbar,04))
  919. did -a pdtoolbar 1 -
  920. did -a pdtoolbar 1 +a 3 $iif($conf(Varie,ToolbarText) != C,$lang(Toolbar,05) $+ $chr(9) $+ $lang(Toolbar,06))
  921. did -a pdtoolbar 1 -
  922. did -a pdtoolbar 1 +av 4 $iif($conf(Varie,ToolbarText) != C,$lang(Toolbar,07) $+ $chr(9) $+ $lang(Toolbar,08))
  923. did -a pdtoolbar 1 -
  924. did -a pdtoolbar 1 +a 5 $iif($conf(Varie,ToolbarText) != C,$lang(Toolbar,09) $+ $chr(9) $+ $lang(Toolbar,10))
  925. did -a pdtoolbar 1 -
  926. did -a pdtoolbar 1 +a 6 $iif($conf(Varie,ToolbarText) != C,$lang(Toolbar,11) $+ $chr(9) $+ $lang(Toolbar,12))
  927. did -a pdtoolbar 1 -
  928. did -a pdtoolbar 1 +av 7 $iif($conf(Varie,ToolbarText) != C,$lang(Toolbar,13) $+ $chr(9) $+ $lang(Toolbar,14))
  929. did -a pdtoolbar 1 -
  930. did -a pdtoolbar 1 +av 8 $iif($conf(Varie,ToolbarText) != C,$lang(Toolbar,15) $+ $chr(9) $+ $lang(Toolbar,16))
  931. did -a pdtoolbar 1 -
  932. did -a pdtoolbar 1 +a 9 $iif($conf(Varie,ToolbarText) != C,$lang(Toolbar,17) $+ $chr(9) $+ $lang(Toolbar,18))
  933. }
  934. }
  935. on *:dialog:pdtoolbar:dclick:1:{
  936. if ($did(1).sel == 3) { pdplay $+($skin(Sounds,TBMenu,Path),$chr(92),$skin(Sounds,TBMenu)) | conntool }
  937. if ($did(1).sel == 9) { pdplay $+($skin(Sounds,TBMenu,Path),$chr(92),$skin(Sounds,TBMenu)) | impostool }
  938. if ($did(1).sel == 15) { pdplay $+($skin(Sounds,TBMenu,Path),$chr(92),$skin(Sounds,TBMenu)) | mediatool }
  939. if ($did(1).sel == 17) { pdplay $+($skin(Sounds,TBMenu,Path),$chr(92),$skin(Sounds,TBMenu)) | utilitytool }
  940. }
  941. on *:dialog:pdtoolbar:sclick:1:{
  942. if ($did(1).sel == 3) {
  943. if ($conf(TastiToolbar,Connessione) == 1) { connman }
  944. elseif ($conf(TastiToolbar,Connessione) == 2) {
  945. if (!$server) { connman }
  946. else { .disconnect }
  947. }
  948. elseif ($conf(TastiToolbar,Connessione) == 3) {
  949. if (!$server) { .server }
  950. else { .disconnect }
  951. }
  952. }
  953. if ($did(1).sel == 5) { nick $$?=" $lang(PopupDll,05) " }
  954. if ($did(1).sel == 7) { if ($server) { join #$$?=" $lang(PopupDll,06) " } }
  955. if ($did(1).sel == 9) {
  956. if ($conf(TastiToolbar,Impostazioni) == 1) { impostazioni }
  957. elseif ($conf(TastiToolbar,Impostazioni) == 2) { extensions }
  958. elseif ($conf(TastiToolbar,Impostazioni) == 3) { upcheck }
  959. }
  960. if ($did(1).sel == 11) { awaysys }
  961. if ($did(1).sel == 13) { listespec }
  962. if ($did(1).sel == 15) {
  963. if ($conf(TastiToolbar,MediaPlayers) == 1) { musicplay }
  964. elseif ($conf(TastiToolbar,MediaPlayers) == 2) { radioplay }
  965. elseif ($conf(TastiToolbar,MediaPlayers) == 3) { videoplay }
  966. }
  967. if ($did(1).sel == 17) {
  968. if ($conf(TastiToolbar,Utility) == 1) { asciicodes }
  969. if ($conf(TastiToolbar,Utility) == 2) { convtool }
  970. if ($conf(TastiToolbar,Utility) == 3) { dccmon }
  971. if ($conf(TastiToolbar,Utility) == 4) { sysinfo }
  972. if ($conf(TastiToolbar,Utility) == 5) { lastseen }
  973. if ($conf(TastiToolbar,Utility) == 6) { logman }
  974. if ($conf(TastiToolbar,Utility) == 7) { querylock }
  975. if ($conf(TastiToolbar,Utility) == 8) { telnet }
  976. if ($conf(TastiToolbar,Utility) == 9) { imgviewer }
  977. if ($conf(TastiToolbar,Utility) == 10) { webbrowser }
  978. }
  979. if ($did(1).sel == 19) { pdclose }
  980. }
  981. alias toolbrel {
  982. pdtoolbar
  983. pdtoolbar
  984. }
  985. alias toolbrelsw {
  986. pdswitchbar
  987. pdtoolbar
  988. pdtoolbar
  989. pdswitchbar
  990. xdock -p
  991. }
  992. alias conntool {
  993. if ($xpopup(conntool).ismenu) { xpopup -d conntool }
  994. xpopup -c conntool normal
  995. xpopup -x conntool +dp
  996. xpopup -i conntool + 33 $icons(PDIcons.icl)
  997. xpopup -i conntool + 4 $icons(PDIcons.icl)
  998. xpopup -i conntool + 5 $icons(PDIcons.icl)
  999. xpopup -i conntool + 6 $icons(PDIcons.icl)
  1000. xpopup -i conntool + 7 $icons(PDIcons.icl)
  1001. xpop -a conntool 0 $chr(9) + 1 1 $lang(ConnManager,Title)
  1002. xpop -a conntool 0 $chr(9) + 0 0 -
  1003. if (!$server) {
  1004. xpop -a conntool 0 $chr(9) + 2 2 $lang(PopupDll,01)
  1005. xpop -a conntool 0 $chr(9) +g 3 3 $lang(PopupDll,02)
  1006. }
  1007. else {
  1008. xpop -a conntool 0 $chr(9) +g 2 2 $lang(PopupDll,01)
  1009. xpop -a conntool 0 $chr(9) + 3 3 $lang(PopupDll,02)
  1010. }
  1011. xpop -a conntool 0 $chr(9) + 0 0 -
  1012. xpop -a conntool 0 $chr(9) + 4 5 $lang(PopupDll,03)
  1013. xpop -a conntool 0 $chr(9) + 5 4 $lang(PopupDll,04)
  1014. xpopup -s conntool +m $mouse.dx $mouse.dy
  1015. }
  1016. on *:SIGNAL:XPopup-conntool:{
  1017. if ($1 == 0) { return }
  1018. elseif ($1 == 1) { connman }
  1019. elseif ($1 == 2) { .server }
  1020. elseif ($1 == 3) { .disconnect }
  1021. elseif ($1 == 4) { cambiaserv }
  1022. elseif ($1 == 5) { nuovoserv }
  1023. }
  1024. alias cambiaserv { .server $$?" $lang(PopupDll,06) " }
  1025. alias nuovoserv { .server -m $$?" $lang(PopupDll,07) " }
  1026. alias impostool {
  1027. if ($xpopup(impostool).ismenu) { xpopup -d impostool }
  1028. xpopup -c impostool normal
  1029. xpopup -x impostool +dp
  1030. xpopup -i impostool + 28 $icons(PDIcons.icl)
  1031. xpopup -i impostool + 87 $icons(PDIcons.icl)
  1032. xpopup -i impostool + 34 $icons(PDIcons.icl)
  1033. xpop -a impostool 0 $chr(9) + 1 1 $lang(Settings,Title)
  1034. xpop -a impostool 0 $chr(9) + 2 2 $lang(Extensions,Title)
  1035. xpop -a impostool 0 $chr(9) + 0 0 -
  1036. xpop -a impostool 0 $chr(9) + 3 3 $lang(UpdateCheck,Title)
  1037. xpopup -s impostool +m $mouse.dx $mouse.dy
  1038. }
  1039. on *:SIGNAL:XPopup-impostool:{
  1040. if ($1 == 0) { return }
  1041. elseif ($1 == 1) { impostazioni }
  1042. elseif ($1 == 2) { extensions }
  1043. elseif ($1 == 3) { upcheck }
  1044. }
  1045. alias mediatool {
  1046. if ($xpopup(mediatool).ismenu) { xpopup -d mediatool }
  1047. xpopup -c mediatool normal
  1048. xpopup -x mediatool +dp
  1049. xpopup -i mediatool + 35 $icons(PDIcons.icl)
  1050. xpopup -i mediatool + 36 $icons(PDIcons.icl)
  1051. xpopup -i mediatool + 37 $icons(PDIcons.icl)
  1052. xpop -a mediatool 0 $chr(9) + 1 1 $lang(MusicPlayer,Title)
  1053. xpop -a mediatool 0 $chr(9) + 2 2 $lang(RadioPlayer,Title)
  1054. xpop -a mediatool 0 $chr(9) + 0 0 -
  1055. xpop -a mediatool 0 $chr(9) + 3 3 $lang(VideoPlayer,Title)
  1056. xpopup -s mediatool +m $mouse.dx $mouse.dy
  1057. }
  1058. on *:SIGNAL:XPopup-mediatool:{
  1059. if ($1 == 0) { return }
  1060. elseif ($1 == 1) { musicplay }
  1061. elseif ($1 == 2) { radioplay }
  1062. elseif ($1 == 3) { videoplay }
  1063. }
  1064. alias utilitytool {
  1065. if ($xpopup(utilitytool).ismenu) { xpopup -d utilitytool }
  1066. xpopup -c utilitytool normal
  1067. xpopup -x utilitytool +dp
  1068. xpopup -i utilitytool + 38 $icons(PDIcons.icl)
  1069. xpopup -i utilitytool + 39 $icons(PDIcons.icl)
  1070. xpopup -i utilitytool + 17 $icons(PDIcons.icl)
  1071. xpopup -i utilitytool + 40 $icons(PDIcons.icl)
  1072. xpopup -i utilitytool + 41 $icons(PDIcons.icl)
  1073. xpopup -i utilitytool + 42 $icons(PDIcons.icl)
  1074. xpopup -i utilitytool + 67 $icons(PDIcons.icl)
  1075. xpopup -i utilitytool + 88 $icons(PDIcons.icl)
  1076. xpopup -i utilitytool + 44 $icons(PDIcons.icl)
  1077. xpopup -i utilitytool + 45 $icons(PDIcons.icl)
  1078. xpop -a utilitytool 0 $chr(9) + 1 1 $lang(AsciiCodes,Title)
  1079. xpop -a utilitytool 0 $chr(9) + 2 2 $lang(ConvTool,Title)
  1080. xpop -a utilitytool 0 $chr(9) + 3 3 $lang(DCCMonitor,Title)
  1081. xpop -a utilitytool 0 $chr(9) + 4 4 $lang(SystemInfo,Title)
  1082. xpop -a utilitytool 0 $chr(9) + 5 5 $lang(LastSeen,Title)
  1083. xpop -a utilitytool 0 $chr(9) + 6 6 $lang(LogManager,Title)
  1084. xpop -a utilitytool 0 $chr(9) + 7 7 $lang(QueryLock,Title)
  1085. xpop -a utilitytool 0 $chr(9) + 8 8 $lang(TelNet,Title)
  1086. xpop -a utilitytool 0 $chr(9) + 9 9 $lang(ImageViewer,Title)
  1087. xpop -a utilitytool 0 $chr(9) + 10 10 $lang(WebBrowser,Title)
  1088. xpopup -s utilitytool +m $mouse.dx $mouse.dy
  1089. }
  1090. on *:SIGNAL:XPopup-utilitytool:{
  1091. if ($1 == 0) { return }
  1092. elseif ($1 == 1) { asciicodes }
  1093. elseif ($1 == 2) { convtool }
  1094. elseif ($1 == 3) { dccmon }
  1095. elseif ($1 == 4) { sysinfo }
  1096. elseif ($1 == 5) { lastseen }
  1097. elseif ($1 == 6) { logman }
  1098. elseif ($1 == 7) { querylock }
  1099. elseif ($1 == 8) { telnet }
  1100. elseif ($1 == 9) { imgviewer }
  1101. elseif ($1 == 10) { webbrowser }
  1102. }
  1103.  
  1104. alias start_menu {
  1105. if ($xpopup(startmenu).ismenu) { xpopup -d startmenu }
  1106. xpopup -c startmenu office2003rev
  1107. xpopup -x startmenu +dp
  1108. xpopup -p startmenu 2 $skin(Menus,SideBar)
  1109. xpopup -p startmenu $rgb(255,255,255)
  1110. xpopup -i startmenu + 0 $icons(PDIcons.icl)
  1111. xpopup -i startmenu + 2 $icons(PDIcons.icl)
  1112. xpopup -i startmenu + 28 $icons(PDIcons.icl)
  1113. xpopup -i startmenu + 87 $icons(PDIcons.icl)
  1114. xpopup -i startmenu + 33 $icons(PDIcons.icl)
  1115. xpopup -i startmenu + 34 $icons(PDIcons.icl)
  1116. xpopup -i startmenu + 29 $icons(PDIcons.icl)
  1117. xpopup -i startmenu + 30 $icons(PDIcons.icl)
  1118. xpopup -i startmenu + 52 $icons(PDIcons.icl)
  1119. xpopup -i startmenu + 51 $icons(PDIcons.icl)
  1120. xpopup -i startmenu + 31 $icons(PDIcons.icl)
  1121. xpopup -i startmenu + 35 $icons(PDIcons.icl)
  1122. xpopup -i startmenu + 36 $icons(PDIcons.icl)
  1123. xpopup -i startmenu + 37 $icons(PDIcons.icl)
  1124. xpopup -i startmenu + 32 $icons(PDIcons.icl)
  1125. xpopup -i startmenu + 38 $icons(PDIcons.icl)
  1126. xpopup -i startmenu + 39 $icons(PDIcons.icl)
  1127. xpopup -i startmenu + 17 $icons(PDIcons.icl)
  1128. xpopup -i startmenu + 40 $icons(PDIcons.icl)
  1129. xpopup -i startmenu + 41 $icons(PDIcons.icl)
  1130. xpopup -i startmenu + 42 $icons(PDIcons.icl)
  1131. xpopup -i startmenu + 67 $icons(PDIcons.icl)
  1132. xpopup -i startmenu + 88 $icons(PDIcons.icl)
  1133. xpopup -i startmenu + 44 $icons(PDIcons.icl)
  1134. xpopup -i startmenu + 45 $icons(PDIcons.icl)
  1135. xpopup -i startmenu + 25 $icons(PDIcons.icl)
  1136. xpop -a startmenu 0 $chr(9) +g 1 1 Project Dream $pdversion
  1137. xpop -a startmenu 0 $chr(9) + 2 0 -
  1138. xpop -a startmenu 0 $chr(9) + 3 2 $lang(AboutPD,Title)
  1139. xpop -a startmenu 0 $chr(9) + 4 0 -
  1140. xpop -a startmenu 0 $chr(9) +s 5 3 $lang(Toolbar,07)
  1141. xpop -a startmenu 5 0 $chr(9) + 15 3 $lang(Settings,Title)
  1142. xpop -a startmenu 5 0 $chr(9) + 16 4 $lang(Extensions,Title)
  1143. xpop -a startmenu 5 0 $chr(9) + 17 0 -
  1144. xpop -a startmenu 5 0 $chr(9) + 18 5 $lang(ConnManager,Title)
  1145. xpop -a startmenu 5 0 $chr(9) + 19 6 $lang(UpdateCheck,Title)
  1146. xpop -a startmenu 0 $chr(9) + 6 0 -
  1147. xpop -a startmenu 0 $chr(9) + 7 7 $lang(AwaySystem,Title)
  1148. xpop -a startmenu 0 $chr(9) + 8 8 $lang(SpecialLists,Title)
  1149. xpop -a startmenu 0 $chr(9) + 9 0 -
  1150. xpop -a startmenu 0 $chr(9) + 10 9 $lang(PopupDll,09)
  1151. xpop -a startmenu 0 $chr(9) + 11 10 $lang(PopupDll,10)
  1152. xpop -a startmenu 0 $chr(9) + 12 0 -
  1153. xpop -a startmenu 0 $chr(9) +s 13 11 $lang(Toolbar,13)
  1154. xpop -a startmenu 13 0 $chr(9) + 20 12 $lang(MusicPlayer,Title)
  1155. xpop -a startmenu 13 0 $chr(9) + 21 13 $lang(RadioPlayer,Title)
  1156. xpop -a startmenu 13 0 $chr(9) + 22 0 -
  1157. xpop -a startmenu 13 0 $chr(9) + 23 14 $lang(VideoPlayer,Title)
  1158. xpop -a startmenu 0 $chr(9) +s 14 15 $lang(Toolbar,15)
  1159. xpop -a startmenu 14 0 $chr(9) + 24 16 $lang(AsciiCodes,Title)
  1160. xpop -a startmenu 14 0 $chr(9) + 25 17 $lang(ConvTool,Title)
  1161. xpop -a startmenu 14 0 $chr(9) + 26 18 $lang(DCCMonitor,Title)
  1162. xpop -a startmenu 14 0 $chr(9) + 27 19 $lang(SystemInfo,Title)
  1163. xpop -a startmenu 14 0 $chr(9) + 28 20 $lang(LastSeen,Title)
  1164. xpop -a startmenu 14 0 $chr(9) + 29 21 $lang(LogManager,Title)
  1165. xpop -a startmenu 14 0 $chr(9) + 30 22 $lang(QueryLock,Title)
  1166. xpop -a startmenu 14 0 $chr(9) + 31 23 $lang(TelNet,Title)
  1167. xpop -a startmenu 14 0 $chr(9) + 32 24 $lang(ImageViewer,Title)
  1168. xpop -a startmenu 14 0 $chr(9) + 33 25 $lang(WebBrowser,Title)
  1169. xpop -a startmenu 0 $chr(9) + 34 0 -
  1170. xpop -a startmenu 0 $chr(9) + 35 26 $lang(Toolbar,17)
  1171. xpopup -s startmenu +m $dialog(pdstatusbar).x $calc($dialog(pdstatusbar).y + 2)
  1172. }
  1173. on *:SIGNAL:XPopup-startmenu:{
  1174. if ($1 == 0) { return }
  1175. if ($1 == 3) { about }
  1176. if ($1 == 15) { impostazioni }
  1177. if ($1 == 16) { extensions }
  1178. if ($1 == 18) { connman }
  1179. if ($1 == 19) { upcheck }
  1180. if ($1 == 7) { awaysys }
  1181. if ($1 == 8) { listespec }
  1182. if ($1 == 10) { run $shortfn($getdir) }
  1183. if ($1 == 11) { run $shortfn($logdir) }
  1184. if ($1 == 20) { musicplay }
  1185. if ($1 == 21) { radioplay }
  1186. if ($1 == 23) { videoplay }
  1187. if ($1 == 24) { asciicodes }
  1188. if ($1 == 25) { convtool }
  1189. if ($1 == 26) { dccmon }
  1190. if ($1 == 27) { sysinfo }
  1191. if ($1 == 28) { lastseen }
  1192. if ($1 == 29) { logman }
  1193. if ($1 == 30) { querylock }
  1194. if ($1 == 31) { telnet }
  1195. if ($1 == 32) { imgviewer }
  1196. if ($1 == 33) { webbrowser }
  1197. if ($1 == 35) { pdclose }
  1198. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
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!