Hash Manager

mIRC Code

+ 0 likes

Please Register to submit score.

Average Score	5.7
Scores Submitted	6
Date Added	Feb 16, 2006
Last Updated	Feb 16, 2006
Tags	hash tables

Introduction

This script lets you create/edit your hash tables visually / easily. load to your remotes (alt + r) then choose hash manager from the menubar

Grab the Code

dialog hsh {
  title "Hash Manager"
  size -1 -1 231 142
  option dbu
  list 1, 6 11 63 102, size
  list 2, 85 11 63 102, size
  edit "", 3, 162 11 63 102, read multi return autovs vsbar 
  box "Table", 4, 3 2 73 127
  box "Item", 5, 80 2 73 127
  box "Data", 6, 157 2 73 127
  button "New Table", 7, 6 115 30 12
  button "Delete", 8, 37 115 32 12, 
  button "Add Item", 9, 84 115 31 12, 
  button "Delete", 10, 116 115 31 12, 
  button "Edit Data", 11, 162 114 63 12, 
  edit "", 12, 1 130 230 11, read center
}

alias re.fresh {
  did -r hsh 2,3
  var %x 1
  did -r hsh 1
  while ($hget(%x)) {
    did -a hsh 1 $hget(%x)
    inc %x
  }

}
alias re.fresh2 {
  var %x 1
  did -r hsh 2
  while ($hget($did(1).seltext,%x).item) {
    did -a hsh 2 $hget($did(1).seltext,%x).item
    inc %x
  }
  did -ra hsh 12 You Are Viewing: $did(1).seltext ; (Total: $did(1).lines Table(s))

}
alias re.fresh3 {
  did -r hsh 3
  did -a hsh 3 $hget($did(1).seltext,$did(2).seltext)

}

on *:dialog:hsh:init:* {
  re.fresh
}
on *:dialog:hsh:sclick:1 {
  var %x 1
  did -r hsh 2
  while ($hget($did(1).seltext,%x).item) {
    did -a hsh 2 $hget($did(1).seltext,%x).item
    inc %x
  }

did -ra hsh 12 You Are Viewing: $did(1).seltext ; (Total: $did(1).lines Table(s))
}
on *:dialog:hsh:sclick:2 {
  did -r hsh 3
  did -ra hsh 3 $hget($did(1).seltext,$did(2).seltext)  
  did -ra hsh 12 Table: $did(1).seltext $+ /Item: $did(2).seltext (Total: $did(1).lines Tables/ $+ $did(2).lines Items)
}
on *:dialog:hsh:sclick:7 { 
  .hmake $input(Enter the hash table name you want to create,qe,Hash Table Name) 10
  re.fresh

}
on *:dialog:hsh:sclick:9 { 
  if ($did(1).sel) {
    .hadd $did(1).seltext $input(Enter item name,qe,Item Name) $input(Enter Data,qe,Date?)
  }
  re.fresh2
}
on *:dialog:hsh:sclick:10 {
  if ($did(2).sel) {
    .hdel $did(1).seltext $did(2).seltext
    did -r hsh 3
    re.fresh2
  }
}
on *:dialog:hsh:sclick:8 {
  if ($did(1).sel) {
    if ($input(Are you sure that you want to delete $did(1).seltext,qy,Confirmation)) {
      .hfree $did(1).seltext
      re.fresh
    }
  }
}

on *:dialog:hsh:sclick:11 {
  var %x $input(Enter Data,qe,Data?,$hget($did(1).seltext,$did(2).seltext))
  if (%x) {
    .hdel $did(1).seltext $did(2).seltext
    .hadd $did(1).seltext $did(2).seltext %x
    re.fresh3
  }
}
alias hshviewer {
  if (!$dialog(hsh)) { dialog -m hsh hsh }
}

menu menubar {
  Hash Manager:/hshviewer
}

Comments

(5) RSS

Go to Bottom

`Kazuma

Comments: 254

mIRC Snippet: Hash Manager
Posted on Feb 16, 2006 8:26 am

Nice dialog job. Good work too. :P

Gex

Comments: 94

mIRC Snippet: Hash Manager
Posted on Feb 16, 2006 3:53 pm

Thanks `Kazuma i hope evryone finds it useful

elya elina

Comments: 6

mIRC Snippet: Hash Manager
Posted on Feb 17, 2006 8:45 am

Yeah.. pretty useful snippet...good work Gex

sean

Comments: 108

mIRC Snippet: Hash Manager
Posted on Feb 21, 2006 12:11 pm

very usefull, excellent work (as always) Gex

Gex

Comments: 94

mIRC Snippet: Hash Manager
Posted on Feb 21, 2006 8:41 pm

thanks guys

Gex

		Student Behind You
Last seen: Feb 25, 2008 Profile \| Website Snippets (13) Images (1) Comments Received (106) Comments Submitted (94) Forum Posts (35)

My Snippet Tags

Contact

Add to Friends

Send Private Message

AOL AIM:

Yahoo YIM:

MSN: black_coder@fastmail.fm