Variable Manager

Please Register to submit score.

Average Score	9.6
Scores Submitted	7
Date Added	May 03, 2008
Last Updated	May 05, 2008
Tags	dialog manager variable

Introduction

Ok i made this awhile back . What it does is allows you to make changes and edits of ur Variable's . ez to use copy/paste into a new remote click either in ur menubar or a channel to open. Enjoy...

Grab the Code

dialog vls {
  title "Variable Manager"
  size -1 -1 126 73
  option dbu
  box "Variable List", 1, 2 1 64 71
  list 2, 4 10 60 49, size vsbar
  box "Edit/Add Variable", 3, 67 1 58 30
  edit "", 4, 69 10 54 9, autohs
  button "save", 5, 69 20 27 9, flat
  button "delete", 6, 96 20 27 9, flat
  box "Edit Variable's Info", 7, 67 32 58 40
  edit "", 8, 69 40 54 9, read autohs
  edit "", 9, 69 50 54 9, autohs center
  button "edit", 10, 69 61 54 9, flat
  text "", 11, 4 61 60 8, center
}
on *:load: { 
  echo 12 -a You Have Just Loaded Napa182's Variable Manager 
  echo 12 -a A Script0rs Inc. Production 
  echo -a 14,1(14,1¯15,1¯0,1¯0,1º $+($chr(171),$chr(164),$chr(88),$chr(167),$chr(199),$chr(174),$chr(238),$chr(254),$chr(116),$chr(48),$chr(174),$chr(167),$chr(88),$chr(164),$chr(187)) º0,1¯15,1¯14,1¯) $+ $chr(153)
}
alias vls { dialog $iif($dialog(vls),-v,-md) vls vls }
menu menubar,channel {
  .Variable Manager:{ vls }
}
on *:dialog:vls:init:0:{ 
  did -b vls 6,9,10 
  did -a vls 11 Total Var's $var(*,0)
  var %x = 1
  while (%x <= $var(%*,0)) {
    did -a vls 2 $var(%*,%x)
    inc %x
  }
}
on *:dialog:vls:edit:4:{ did -r vls 8,9 | did -b vls 6 }
on *:dialog:vls:sclick:*:{
  if ($did = 2) { 
    did -e vls 6,9,10
    did -ra vls 4,8 $did(2).seltext
    did -ra vls 9 $var($did(2).seltext,1).value
  }
  if ($did == 5) { 
    if (!$did(4).text) { noop $input(No Variable Entered.,uho,ERROR!) | return }
    if ($did(4).text == $var($did(4).text,1)) { noop $input(Variable Already Exists.,uho,ERROR!) } 
    else { 
      if ($input(Are You Sure You Want To ADD ( $+ $iif($left($did(4).text,1) != $chr(37),% $+ $did(4).text,$did(4).text) $+ ) To The Variable List,uqy,Are U Sure?) == $true) {
        if ($left($did(4).text,1) != $chr(37)) { 
          set % $+ $did(4).text 
          did -r vls 2,8
          did -e vls 6,9,10
          did -ra vls 4,8 % $+ $did(4).text
          did -ra vls 11 Total Var's $var(*,0)
          var %x = 1
          while (%x <= $var(%*,0)) {
            did -a vls 2 $var(%*,%x)
            inc %x
          }
        }
        else { 
          set $did(4).text 
          did -r vls 2,8
          did -e vls 6,9,10
          did -a vls 8 $did(4).text
          did -ra vls 11 Total Var's $var(*,0)
          var %x = 1
          while (%x <= $var(%*,0)) {
            did -a vls 2 $var(%*,%x)
            inc %x
          }
        }
      }
    }
    else { halt }
  }
  if ($did == 6) { 
    if (!$did(4).text) { noop $input(There's No Variable To Delete.,uho,ERROR!) | return }
    if ($did(4).text != $var($did(4).text,1)) { noop $input(Variable Does Not Exist.,uho,ERROR!) }
    else {
      if ($input(Are You Sure You Want To Delete ( $+ $did(4).text $+ ) From The Variable List,uqy,Are U Sure?) == $true) {
        unset $did(4).text
        did -r vls 2,4,8,9
        did -b vls 6,9,10
        did -ra vls 11 Total Var's $var(*,0)
        var %x = 1
        while (%x <= $var(%*,0)) {
          did -a vls 2 $var(%*,%x)
          inc %x
        }
      }
    }
    else { halt }
  }
  if ($did == 10) { set $did(8).text $did(9).text }
}

Comments

(1) RSS

Go to Bottom

Comments: 801

mIRC Snippet: Variable Manager
Posted on May 7, 2008 8:51 pm

wtN no comments well its a !#$@ 9 from me again i cant count i said 8 on yur ircop joint but i rated a 9 sue eh?.Any ways useful as hell you can make vars an edit vars that have been make extremely usefull if you have counter vars or dat vars and very well coded to BOOT,very well dont again Steve there should be more comments an i hope ppl will see this and USE it for there vars for management an optional creation.Well done man.`-.-´

Variable Manager

Introduction

Grab the Code

Comments

napa182

My Snippet Tags

Contact

Friends (29)

Sponsors

		Head Admin For irc.EzzyChat.com California ÎÇ ×Ç ÑÎ KÅ
Last seen: Jul 06, 2008 Profile \| Website Friends (29) Snippets (40) Images (1) Comments Received (343) Comments Submitted (735) Forum Posts (135)