Forums Scripts & Popups To dialog or not to dialog? That is the question.

 on *:text:!limit*:*:{
  if !$2 {
    .msg $nick To set your limits, type !limit your limits here
    .msg $nick Put your limits in place of your limits here
    .msg $nick For example: !limit scat, animals, kids, golden showers
  }
  else {
    hadd -m TD $+(Limits.,$address) $2-
    .msg $nick Your limits have now been set as $hget(TD,$+(Limits.,$address))
    .msg $nick If you ever want to change your limits, you can do so by using this same command.
    .msg $nick Old limits will be replaced with new ones.
    if $istok(%play_temp,$nick,44) {
      set %play.list $addtok(%play.list,$nick,44)
      set %play_temp $remtok(%play_temp,$nick,1,44)
      describe %td.chan smiles as $nick is added to the players list
    }
  }
}
 

[color:green];If the data file exists, we load it into the hash table.[/color]
On *:Start: {
  hmake limits
  if ($isfile(limits.rsb)) {
    hload -o limits limits.rsb
  }
}

[color:green];If the dialog isn't opened, we open it with the /limits command.[/color]
alias limits {
  if (!$dialog(limits)) dialog -dm limits limits
}

[color:green]
;A simple dialog, with 7 controls, two texts, two combos, three buttons. 
;A text control will look like this: text "Text here",ID,x y w h.
[/color]
dialog limits {
  title "Truth or Dare by RusselB (/limits)"
  size -1 -1 166 149
  option dbu
  combo 1, 12 18 49 96, size
  text "Preset limits:", 2, 19 8 36 8, center
  text "Your limits:", 3, 104 8 33 8, center
  combo 4, 96 18 49 96, size
  button "Add", 5, 103 114 17 12
  button "Rem", 6, 120 114 17 12
  button "Save and &Exit", 7, 55 133 40 12
}

[color:green];Here we load in our presets with the /did command, you may change.[/color]
On *:Dialog:limits:init:0: {
  did -a limits 1 These
  did -a limits 1 are
  did -a limits 1 your
  did -a limits 1 presets
  did -a limits 1 edit
  did -a limits 1 at
  did -a limits 1 will. 
  did -a limits 1 :)
  [color:green]
  ;Here we list the number of items in the hash table loop through them all and
  ;write them into the dialog with the /did command as used above.
  [/color]  
  var %items = $hget(limits,0).item
  while (%items) {
    did -a limits 4 $hget(limits,%items).item
    dec %items
  }
}

[color:green]
;Ok, just something I quickly thought of, when you click a preset it adds to the %limits var
;using $addtok() if it' already is a token, it's removed with $remtok().
[/color]
On *:Dialog:limits:sclick:1: {
  if ($istok(%limits,$did(1),44)) %limits = $remtok(%limits,$did(1),44)
  else { %limits = $addtok(%limits,$did(1),44) }
}

[color:green]
;We add our items here, if it's already created it wont write to the dialog, 
;of course it wont re-write to the hash table because items are unique anyways, 
;but you can use as many "same" words as you want in a dialog.
[/color]
On *:Dialog:limits:sclick:5: {
  if ($hfind(limits,$did(4))) { 
    echo *** $did(4) already exists and can't be re-added. 
  }
  else {
    [color:green]
    ;Adds item to hash table if not already added.
    [/color]    
    hadd -m limits $did(4)
    [color:green]    
    ;Adds that item to dialog.  The item called would be $did(4) the 4 means the text in the 4th control.
    [/color]    
    did -a limits 4 $did(4)
    echo -a *** Added $did(4) to your limits.
    [color:green]    
    ;Adds the item as token.
    [/color]    
    %limits = $addtok(%limits,$did(4),44)
  }
}

[color:green]
;Same as above, just deleting...
[/color]
On *:Dialog:limits:sclick:6: {
  if (!$hfind(limits,$did(4))) { 
    echo *** $did(4) was already deleted. 
  }
  else {
    hdel limits $did(4)
    echo -a *** Deleted $did(4) from your limits.
    %limits = $remtok(%limits,$did(4),44)
    did -d limits 4 $didwm(limits,4,$+(*,$did(4),*),0)
  }
}

[color:green]
;When we click save and exit, the dialog closes, it doesn't save at this point.. 
;We use the close dialog event ($devent).
[/color]
On *:Dialog:limits:sclick:7: {
  dialog -x $dname $dname
}

[color:green]
;As referenced above, this is where we save our hash table and load it in as mentioned earlier.
[/color]
On *:Dialog:limits:close:0: {
  hsave -o limits limits.rsb
}

hadd -m TD $+(Limits.,$address) $2-