Sign In   Register
tglogo.png

Downloading File

Filename: Hash View/Edit Dialog

  2. menu * {
  3.   -
  4.   Hash Tables:dialog -mv Hash Hash
  5. }
  6. dialog Hash {
  7.   title "Hash Dialog"
  8.   size -1 -1 294 171
  9.   option dbu
  10.   list 1, 8 11 83 107, size hsbar vsbar
  11.   box "Hash Tables", 2, 4 3 92 149
  12.   button "New Table", 3, 8 126 35 9
  13.   button "Del Table", 4, 55 126 35 9
  14.   box "Table Items", 5, 101 3 92 149
  15.   button "New Item", 6, 105 126 35 9
  16.   button "Del Item", 7, 152 126 35 9
  17.   list 8, 105 11 83 107, size hsbar vsbar
  18.   box "Item Data", 9, 198 3 92 149
  19.   list 10, 202 11 83 107, size hsbar vsbar
  20.   button "New Data", 11, 202 126 35 9
  21.   button "Del Data", 12, 249 126 35 9
  22.   button "Edit Table", 13, 31 139 35 9
  23.   button "Edit Item", 14, 129 139 35 9
  24.   button "Edit Data", 15, 226 139 35 9
  25.   button "...", 16, 181 155 11 12
  26.   edit "Input Search Term Here", 17, 4 155 135 12
  27.   button "Search", 18, 141 155 37 12
  28.   text "Hash Dialog Created by Zeta of SwiftIRC", 19, 194 157 99 8
  29.   button "OK", 20, 245 153 29 8
  30.   button "Cancel", 21, 245 161 29 8
  31.   edit "", 22, 173 155 68 10
  32.   edit "100", 23, 99 155 42 11, center
  33.   text "Number of Slots (Default of 100)", 24, 20 157 79 8
  34.   text "Table Name", 25, 142 157 29 8
  35.   text "New Data", 27, 142 157 25 8
  36.   edit "", 26, 70 155 68 10
  37.   text "New Item", 28, 43 157 25 8
  38. }
  39. on *:DIALOG:Hash:INIT:0:{
  40.   did -h Hash 20-28
  41.   var %Hget $hget(0)
  42.   var %X 1
  43.   while (%X <= %Hget) {
  44.     did -i Hash 1 %X $hget(%X)
  45.     inc %X
  46.   }
  47.   did -z Hash 1
  48.   did -b Hash 4,6,7,11,12,13,14,15
  49. }
  50. on *:DIALOG:Hash:SCLICK:1,8,10:{
  51.   if ($did == 1) {
  52.     if ($did(Hash, 1).sel) {
  53.       did -h Hash 20-28
  54.       did -v Hash 16-19
  55.       did -r Hash 8,10
  56.       did -e Hash 4,6,11,13
  57.       did -b Hash 7,14,12,15
  58.       var %Item $hget($did(Hash, 1).seltext,0).item
  59.       var %X 1
  60.       while (%X <= %Item) {
  61.         did -i Hash 8 %X $hget($did(Hash, 1).seltext,%X).item
  62.         did -i Hash 10 %X $hget($did(Hash, 1).seltext,%X).data
  63.         inc %X
  64.       }
  65.       did -z Hash 8,10
  66.     }
  67.   }
  68.   if ($did == 8) {
  69.     if ($did(Hash, 8).sel) {
  70.       did -h Hash 20-28
  71.       did -v Hash 16-19
  72.       did -c Hash 10 $did(Hash, 8).sel
  73.       did -e Hash 7,14,12,15
  74.     }
  75.   }
  76.   if ($did == 10) {
  77.     if ($did(Hash, 10).sel) {
  78.       did -h Hash 20-28
  79.       did -v Hash 16-19
  80.       did -c Hash 8 $did(Hash, 10).sel
  81.       did -e Hash 7,14,12,15
  82.     }
  83.   }
  84. }
  85. ;Numbers are so I wouldn't forget what $dids to put :>
  86. on *:DIALOG:Hash:SCLICK:3,4,6,7,11-16,18,20-25:{
  87.   if ($did == 3) {
  88.     did -h Hash 16-19,26-28
  89.     did -v Hash 20-25
  90.     did -r Hash 22
  91.     did -r Hash 23
  92.     did -a Hash 23 100
  93.   }
  94.   if ($did == 4) {
  95.     noop $input(Are you sure you would like to delete the table $+(',$did(Hash, 1).seltext,',?) $crlf $chr(160) $chr(160) $chr(160) $chr(160) There's no way of restoring it if you do.,w,Delete Warning)
  96.     if ($! == $true) {
  97.       hfree $did(Hash, 1).seltext 
  98.       did -d Hash 1 $did(Hash, 1).sel
  99.       did -b Hash 6,7,11-15
  100.       did -r Hash 8,10
  101.       did -z Hash 1
  102.     }
  103.   }
  104.   if ($did == 6) {
  105.     did -h Hash 16-25
  106.     did -v Hash 20-22,26-28
  107.   }
  108.   if ($did == 7) {
  109.     noop $input(Are you sure you would like to delete the item $+(',$did(Hash, 8).seltext,') from the $crlf $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) table $+(',$did(Hash, 1).seltext,'?) $crlf $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) There's no way of restoring it if you do.,w,Delete Warning)
  110.     if ($! == $true) {
  111.       hdel $did(Hash, 1).seltext $did(Hash, 8).seltext
  112.       did -d Hash 8,10 $did(Hash, 8).sel
  113.       did -b Hash 7,11-15
  114.     }
  115.   }
  116.   if ($did == 11) {
  117.     did -h Hash 16-25
  118.     did -v Hash 20-22,26-28
  119.   }
  120.   if ($did == 12) {
  121.     noop $input(Are you sure you would like to delete the data $+(',$did(Hash, 10).seltext,') from the $crlf $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) table $+(',$did(Hash, 1).seltext,'?) $crlf $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) There's no way of restoring it if you do.,w,Delete Warning)
  122.     if ($! == $true) {
  123.       hdel $did(Hash, 1).seltext $did(Hash, 8).seltext
  124.       did -d Hash 8,10 $did(Hash, 8).sel
  125.       did -b Hash 7,11-15
  126.     }  
  127.   }
  128.   if ($did == 13) {
  129.     did -h Hash 16-19,23,24,26-28
  130.     did -v Hash 20-22,25
  131.     did -r Hash 22
  132.     did -a Hash 22 $did(Hash, 1).seltext
  133.   }
  134.   if ($did == 14) {
  135.     did -h Hash 16-25
  136.     did -v Hash 20-22,26-28
  137.     did -r Hash 22,26
  138.     did -a Hash 22 $did(Hash, 10).seltext
  139.     did -a Hash 26 $did(Hash, 8).seltext
  140.   }
  141.   if ($did == 15) {
  142.     did -h Hash 16-25
  143.     did -v Hash 20-22,26-28
  144.     did -r Hash 22,26
  145.     did -a Hash 22 $did(Hash, 10).seltext
  146.     did -a Hash 26 $did(Hash, 8).seltext
  147.   }
  148.   if ($did == 16) {
  149.     did -z Hash 1
  150.     did -b Hash 4,6,7,11,12,13,14,15
  151.     did -r Hash 1,8,10
  152.     did -u Hash 1 $did(Hash, 1).sel
  153.     did -r Hash 17
  154.     did -a Hash 17 Input Search Term Here
  155.     var %Hget $hget(0)
  156.     var %Z 1
  157.     while (%Z <= %Hget) {
  158.       did -i Hash 1 %Z $hget(%Z)
  159.       inc %Z
  160.     }
  161.   }
  162.   if ($did == 18) {
  163.     if ($did(Hash, 17).edited) {
  164.       did -r Hash 1,8,10
  165.       var %X 1
  166.       var %Y $hget(0)
  167.       while (%X <= %Y) {
  168.         if ($replace($did(Hash, 17).text,$chr(32),_) isin $hget(%X)) {
  169.           did -a Hash 1 $hget(%X)
  170.           inc %X
  171.         }
  172.         else {
  173.           inc %X
  174.         }
  175.       }
  176.       did -z Hash 1
  177.     }
  178.   }
  179.   if ($did == 20) {
  180.     if ($did(Hash, 27).visible == $true) {
  181.       if (!$did(Hash, 8).sel) || (!$did(Hash, 10).sel) {
  182.         hadd $did(Hash, 1).seltext $replace($did(Hash, 26).text,$chr(32),_) $did(Hash, 22).text
  183.         did -i Hash 8 1 $replace($did(Hash, 26).text,$chr(32),_)
  184.         did -i Hash 10 1 $did(Hash, 22).text
  185.       }
  186.       elseif ($did(Hash, 22).edited) || ($did(Hash, 26).edited) {
  187.         if (!$did(Hash, 22).text) || (!$did(hash, 26).text) {
  188.           noop $input(Please put an item and data!,h,Error)
  189.         }
  190.         else {
  191.           hdel $did(Hash, 1).seltext $did(Hash, 8).seltext
  192.           hadd $did(Hash, 1).seltext $replace($did(Hash, 22).text,$chr(32),_) $replace($did(Hash, 26).text,$chr(32),_)
  193.           did -d Hash 8,10 $did(Hash, 8).sel
  194.           did -i Hash 8 1 $replace($did(Hash, 22).text,$chr(32),_)
  195.           did -i Hash 10 1 $replace($did(Hash, 26).text,$chr(32),_)
  196.           did -h Hash 20-28
  197.           did -v Hash 1-19
  198.         }
  199.       }
  200.     }
  201.     if ($did(Hash, 24).visible != $true) && ($did(Hash, 25).visible == $true) {
  202.       if ($did(Hash, 22).edited) {
  203.         if (!$did(Hash, 22).text) {
  204.           noop $input(Please put a new table name!,h,Error)
  205.         }
  206.         else {
  207.           hsave -b $did(Hash, 1).seltext ht.temp
  208.           hfree $did(Hash, 1).seltext
  209.           hmake $replace($did(Hash, 22).text,$chr(32),_)
  210.           hload -b $replace($did(Hash, 22).text,$chr(32),_) ht.temp
  211.           remove ht.temp
  212.           did -d Hash 1 $did(Hash, 1).sel
  213.           did -i Hash 1 1 $replace($did(Hash, 22).text,$chr(32),_)
  214.           did -r Hash 8,10
  215.           did -h Hash 20-28
  216.           did -v Hash 1-19
  217.         }
  218.       }
  219.     }
  220.     if ($did(Hash, 24).visible == $true) && ($did(Hash, 25).visible == $true) {
  221.       if (!$did(Hash, 22).text) || (!$did(hash, 23).text) {
  222.         noop $input(Please put a table name and number of slots!,h,Error)
  223.       }
  224.       else {
  225.         hmake $did(Hash, 22).text $did(Hash, 23).text
  226.         did -r Hash 8,10
  227.         did -h Hash 20-28
  228.         did -v Hash 1-19
  229.         did -i Hash 1 1 $replace($did(Hash, 22).text,$chr(32),_)
  230.       }
  231.     }
  232.   }
  233.   if ($did == 21) {
  234.     did -h Hash 20-28
  235.     did -a Hash 22,26
  236.     did -v Hash 1-19
  237.   }
  238. }
  239.  

Related Files

by ProIcons
by Takaharu
by Kurdish_Assass1n

Please note that on our website we use cookies necessary for the functioning of our website, cookies that optimize the performance. To learn more about our cookies, how we use them and their benefits, please read our Cookie Policy.
I Understand