home *** CD-ROM | disk | FTP | other *** search
/ napalm.napnet.hu / 2015-02-12.napalm.napnet.hu.tar / napalm.napnet.hu / programok / kommunikacio / mpp700.exe / cpanel.mrc < prev    next >
Text File  |  2004-01-18  |  9KB  |  187 lines
  1.  
  2. ;
  3. ; Magick^ControlPanel - by Tanthalas (c) 2003
  4. ; http://www.magick-knight.com
  5. ;
  6. ; This version was haxed by SGT-D for use with MPP
  7. ;
  8.  
  9. on *:start: {
  10.   if ($os == xp) || ($os == 2000) || ($os == 2k) || ($os == nt) {
  11.     cp_xp
  12.   }
  13.   else {
  14.     cp_98
  15.   }
  16. }
  17. alias cp_xp {
  18.   set %cpanel3.ini cpanel3a.ini
  19.   .disable #98aliases
  20.   .enable #xpaliases 
  21.   .copy -o " $+ $mircdirsystem\cpanel\icons\liquid1.ico $+ " " $+ $mircdirsystem\cpanel\icons\liquid.ico $+ "
  22.   .copy -o " $+ $mircdirsystem\cpanel\icons\xphelp1.ico $+ " " $+ $mircdirsystem\cpanel\icons\help1.ico $+ "
  23.   .copy -o " $+ $mircdirsystem\cpanel\icons\xphelp2.ico $+ " " $+ $mircdirsystem\cpanel\icons\help2.ico $+ "
  24.   .copy -o " $+ $mircdirsystem\cpanel\icons\xpcontrol.ico $+ " " $+ $mircdirsystem\cpanel\icons\control.ico $+ "
  25.   .copy -o " $+ $mircdirsystem\cpanel\icons\xpusers.ico $+ " " $+ $mircdirsystem\cpanel\icons\users.ico $+ "
  26.   .copy -o " $+ $mircdirsystem\cpanel\icons\xpinet.ico $+ " " $+ $mircdirsystem\cpanel\icons\inet.ico $+ "
  27.   .copy -o " $+ $mircdirsystem\cpanel\icons\sec3.ico $+ " " $+ $mircdirsystem\cpanel\icons\sec.ico $+ "
  28.   .copy -o " $+ $mircdirsystem\cpanel\icons\dx1.ico $+ " " $+ $mircdirsystem\cpanel\icons\dxdiag.ico $+ "
  29.  
  30. }
  31. alias cp_98 {
  32.   set %cpanel3.ini cpanel3b.ini
  33.   .disable #xpaliases
  34.   .enable #98aliases
  35.   .copy -o " $+ $mircdirsystem\cpanel\icons\liquid2.ico $+ " " $+ $mircdirsystem\cpanel\icons\liquid.ico $+ "
  36.   .copy -o " $+ $mircdirsystem\cpanel\icons\98help1.ico $+ " " $+ $mircdirsystem\cpanel\icons\help1.ico $+ "
  37.   .copy -o " $+ $mircdirsystem\cpanel\icons\98help2.ico $+ " " $+ $mircdirsystem\cpanel\icons\help2.ico $+ "
  38.   .copy -o " $+ $mircdirsystem\cpanel\icons\98control.ico $+ " " $+ $mircdirsystem\cpanel\icons\control.ico $+ "
  39.   .copy -o " $+ $mircdirsystem\cpanel\icons\98users.ico $+ " " $+ $mircdirsystem\cpanel\icons\users.ico $+ "
  40.   .copy -o " $+ $mircdirsystem\cpanel\icons\98inet.ico $+ " " $+ $mircdirsystem\cpanel\icons\inet.ico $+ "
  41.   .copy -o " $+ $mircdirsystem\cpanel\icons\sec1.ico $+ " " $+ $mircdirsystem\cpanel\icons\sec.ico $+ "
  42.   .copy -o " $+ $mircdirsystem\cpanel\icons\dx2.ico $+ " " $+ $mircdirsystem\cpanel\icons\dxdiag.ico $+ "
  43. }
  44.  
  45. alias cpanel111 {
  46.   if !$dialog(cpanel1) {
  47.     dialog -md mppaway mppaway
  48.   }
  49.   else {
  50.     dialog -e mppaway
  51.     dialog -o mppaway
  52.     dialog -n mppaway
  53.   }
  54. }
  55.  
  56. alias cpanel1 { pgmup . | if ($dialog(cpanel1) == $null) { dialog %cpv cpanel1 cpanel1 } | else { dialog -x cpanel1 cpanel1 } } }
  57. alias -l mdx { return $shortfn($scriptdir $+ \mdx.dll) }
  58. alias -l views { return $shortfn($scriptdir $+ \views.mdx) }
  59. alias -l bars { return $shortfn($scriptdir $+ \bars.mdx) }
  60. dialog cpanel1 {
  61.   title MPP + Game Tools
  62.   icon $mircdirsystem\mpp\icons\mpp1.ico, 0
  63.   size %cpx %cpy %cpw %cph
  64.   option dbu
  65.   list 1, 5 5 $calc(%cpw -10) $calc(%cph -26), size
  66.   edit "", 2, 5 $calc(%cph -16) $calc(%cpw -75) 10, read center
  67.   edit "", 3, $calc(%cpw -65) $calc(%cph -16) 60 10, read center
  68.   button "",4, -5 -5 1 1
  69. }
  70. on *:dialog:cpanel1:init:*:{
  71.   did -f $dname 4
  72.   dll $mdx SetMircVersion $version
  73.   dll $mdx MarkDialog $dname
  74.   dll $mdx SetFont $dname 1,2,3 -11 400 Verdana
  75.   dll $mdx SetBorderStyle $dname 1,2,3 windowedge clientedge
  76.   dll $mdx SetColor 1,2,3 background [ $rgb(255,255,255) ] 
  77.   dll $mdx SetColor 1,2,3 textbg [ $rgb(255,255,255) ] 
  78.   dll $mdx SetColor 2,3 text [ $rgb(0,0,0) ] 
  79.   dll $mdx SetDialog [ $dname ] bgcolor [ $rgb(235,235,235) ] 
  80.   did -i $dname 1 1 bmpsize 32 32
  81.   dll $mdx SetControlMDX $dname 1 listview icon single noheader flatsb autoarrange > $views
  82.   var %cpanel.cnt 1
  83.   while (%cpanel.cnt <= $ini($shortfn($scriptdircpanel1.ini),cpanel,0)) {
  84.     did -i $dname 1 1 seticon normal 0 $gettok($readini($shortfn($scriptdircpanel1.ini),cpanel,%cpanel.cnt),1,222)
  85.     did -a $dname 1 0 + %cpanel.cnt 0 0 $gettok($readini($shortfn($scriptdircpanel1.ini),cpanel,%cpanel.cnt),2,222)
  86.     inc %cpanel.cnt
  87.   }
  88. }
  89. on *:dialog:cpanel1:dclick:1:{
  90.   .timercpanel off
  91.   .timercpanel 1 1 .alias _temp_cpanel_alias
  92.   .alias _temp_cpanel_alias $gettok($readini($shortfn($scriptdircpanel1.ini),cpanel,$calc($did(1).sel -1)),3,222)
  93.   _temp_cpanel_alias
  94. }
  95. on *:dialog:cpanel1:sclick:1:{
  96.   did -ra $dname 2 $gettok($did(1).seltext,6-,32)
  97.   did -ra $dname 3 $gettok($readini($shortfn($scriptdircpanel1.ini),cpanel,$calc($did(1).sel -1)),3,222)
  98. }
  99.  
  100. alias cpanel2 { pgmup . | if ($dialog(cpanel2) == $null) { dialog %cpv cpanel2 cpanel2 } | else { dialog -x cpanel2 cpanel2 } } }
  101. alias -l mdx { return $shortfn($scriptdir $+ \mdx.dll) }
  102. alias -l views2 { return $shortfn($scriptdir $+ \views.mdx) }
  103. alias -l bars { return $shortfn($scriptdir $+ \bars.mdx) }
  104. dialog cpanel2 {
  105.   title Windows Tools
  106.   icon $mircdirsystem\mpp\icons\mpp2.ico, 0
  107.   size %cpx %cpy %cpw %cph
  108.   option dbu
  109.   list 1, 5 5 $calc(%cpw -10) $calc(%cph -26), size
  110.   edit "", 2, 5 $calc(%cph -16) $calc(%cpw -75) 10, read center
  111.   edit "", 3, $calc(%cpw -65) $calc(%cph -16) 60 10, read center
  112.   button "",4, -5 -5 1 1
  113. }
  114. on *:dialog:cpanel2:init:*:{
  115.   did -f $dname 4
  116.   dll $mdx SetMircVersion $version
  117.   dll $mdx MarkDialog $dname
  118.   dll $mdx SetFont $dname 1,2,3 -11 400 Verdana
  119.   dll $mdx SetBorderStyle $dname 1,2,3 windowedge clientedge
  120.   dll $mdx SetColor 1,2,3 background [ $rgb(255,255,255) ] 
  121.   dll $mdx SetColor 1,2,3 textbg [ $rgb(255,255,255) ] 
  122.   dll $mdx SetColor 2,3 text [ $rgb(0,0,0) ] 
  123.   dll $mdx SetDialog [ $dname ] bgcolor [ $rgb(235,235,235) ] 
  124.   did -i $dname 1 1 bmpsize 32 32
  125.   dll $mdx SetControlMDX $dname 1 listview icon single noheader flatsb autoarrange > $views2
  126.   var %cpanel.cnt 1
  127.   while (%cpanel.cnt <= $ini($shortfn($scriptdircpanel2.ini),cpanel,0)) {
  128.     did -i $dname 1 1 seticon normal 0 $gettok($readini($shortfn($scriptdircpanel2.ini),cpanel,%cpanel.cnt),1,222)
  129.     did -a $dname 1 0 + %cpanel.cnt 0 0 $gettok($readini($shortfn($scriptdircpanel2.ini),cpanel,%cpanel.cnt),2,222)
  130.     inc %cpanel.cnt
  131.   }
  132. }
  133. on *:dialog:cpanel2:dclick:1:{
  134.   .timercpanel off
  135.   .timercpanel 1 1 .alias _temp_cpanel_alias
  136.   .alias _temp_cpanel_alias $gettok($readini($shortfn($scriptdircpanel2.ini),cpanel,$calc($did(1).sel -1)),3,222)
  137.   _temp_cpanel_alias
  138. }
  139. on *:dialog:cpanel2:sclick:1:{
  140.   did -ra $dname 2 $gettok($did(1).seltext,6-,32)
  141.   did -ra $dname 3 $gettok($readini($shortfn($scriptdircpanel2.ini),cpanel,$calc($did(1).sel -1)),3,222)
  142. }
  143.  
  144. alias cpanel3 { pgmup . | if ($dialog(cpanel3) == $null) { dialog %cpv cpanel3 cpanel3 } | else { dialog -x cpanel3 cpanel3 } } }
  145. alias -l mdx { return $shortfn($scriptdir $+ \mdx.dll) }
  146. alias -l views2 { return $shortfn($scriptdir $+ \views.mdx) }
  147. alias -l bars { return $shortfn($scriptdir $+ \bars.mdx) }
  148. dialog cpanel3 {
  149.   title Windows + GRC Utilities
  150.   icon $mircdirsystem\mpp\icons\mpp3.ico, 0
  151.   size %cpx %cpy %cpw %cph
  152.   option dbu
  153.   list 1, 5 5 $calc(%cpw -10) $calc(%cph -26), size
  154.   edit "", 2, 5 $calc(%cph -16) $calc(%cpw -75) 10, read center
  155.   edit "", 3, $calc(%cpw -65) $calc(%cph -16) 60 10, read center
  156.   button "",4, -5 -5 1 1
  157. }
  158. on *:dialog:cpanel3:init:*:{
  159.   did -f $dname 4
  160.   dll $mdx SetMircVersion $version
  161.   dll $mdx MarkDialog $dname
  162.   dll $mdx SetFont $dname 1,2,3 -11 400 Verdana
  163.   dll $mdx SetBorderStyle $dname 1,2,3 windowedge clientedge
  164.   dll $mdx SetColor 1,2,3 background [ $rgb(255,255,255) ] 
  165.   dll $mdx SetColor 1,2,3 textbg [ $rgb(255,255,255) ] 
  166.   dll $mdx SetColor 2,3 text [ $rgb(0,0,0) ] 
  167.   dll $mdx SetDialog [ $dname ] bgcolor [ $rgb(235,235,235) ] 
  168.   did -i $dname 1 1 bmpsize 32 32
  169.   dll $mdx SetControlMDX $dname 1 listview icon single noheader flatsb autoarrange > $views2
  170.   var %cpanel.cnt 1
  171.   while (%cpanel.cnt <= $ini($shortfn($scriptdir $+ %cpanel3.ini),cpanel,0)) {
  172.     did -i $dname 1 1 seticon normal 0 $gettok($readini($shortfn($scriptdir $+ %cpanel3.ini),cpanel,%cpanel.cnt),1,222)
  173.     did -a $dname 1 0 + %cpanel.cnt 0 0 $gettok($readini($shortfn($scriptdir $+ %cpanel3.ini),cpanel,%cpanel.cnt),2,222)
  174.     inc %cpanel.cnt
  175.   }
  176. }
  177. on *:dialog:cpanel3:dclick:1:{
  178.   .timercpanel off
  179.   .timercpanel 1 1 .alias _temp_cpanel_alias
  180.   .alias _temp_cpanel_alias $gettok($readini($shortfn($scriptdir $+ %cpanel3.ini),cpanel,$calc($did(1).sel -1)),3,222)
  181.   _temp_cpanel_alias
  182. }
  183. on *:dialog:cpanel3:sclick:1:{
  184.   did -ra $dname 2 $gettok($did(1).seltext,6-,32)
  185.   did -ra $dname 3 $gettok($readini($shortfn($scriptdir $+ %cpanel3.ini),cpanel,$calc($did(1).sel -1)),3,222)
  186. }
  187.