Menu Action Manual Config

By eyiezinc on Jan 23, 2013

Add Action Text Menu Edited/Manual

/*
-----------------------------------------------------------------------------------------------------------------------
Addon Name: Add Action Menu Edited/Manual
Author: Lestat
Description: "Right Click" At Nick List
------------------------------------------------------------------------------------------------------------------------------------
Manualy Config Your Own Menu Action Text

---------------------------------------
Come As Guest Stay As Family :D
------------------------------------------------------------------------------------------------------------------------------------
*/
menu nicklist {
  Action
  .Add/Edit/Reload
  ..Add Action:$conf 
  ..-
  ..$iif((!$hget(menu,0).item),$style(2)) Edit Action:$editx($1)
  ..-
  ..$iif(!$exists(acmenu.ini) || $hget(menu,0).item,$style(2)) Reload: { $iif($hget(menu,0).item,hfree,hmake) menu 1000 | .hload -b menu acmenu.ini }
  .$iif((!$hget(menu,0).item),$style(2)) Del/Reset
  ..Del Action:$delc($1)  
  ..-
  ..Reset All:.hfree menu | .remove acmenu.ini
  ..-
  ..$iif(!$exists(acmenu.ini),$style(2)) Unload: { .hfree menu }
  .$submenu($actio($1))
}
alias tax {
  if ($1 == 1) return Action
  if ($1 == 2) return Text
}
alias actio {
  var %menu = 1
  if ($1 == begin) return -
  while ($hget(menu,%menu).item) {
    if ($1 == %menu) return $+([,%menu,] $hget(menu,%menu).item,:describe $chan $hget(menu,$hget(menu,%menu).item))
    inc %menu
  }
  if ($1 == end) return -
}
alias delc {
  var %itemx = $$?"Item Number?"
  if (%itemx > $hget(menu,0).item) { halt }
  if ($input(Item: $hget(menu,%itemx).item $&
    $+ $crlf $+ text: $replace($hget(menu,$hget(menu,%itemx).item),$!snick(#),nick),satu,y,Delete)) { .hdel menu $hget(menu,%itemx).item }
  $iif($hget(menu,0).item,.hsave -ob menu,.remove) acmenu.ini 
}

alias conf {
  var %item = $$?"item? eg: slaps/bite or else" 
  var %context = $replace($remove($$?"text? eg: slaps nick at head dishh!! $&
    $+ $crlf $+ info: don't use $!nick just nick",$),nick,$!snick(#))
  .hadd -m menu %item %context
  .hsave -ob menu acmenu.ini
}
alias editx {
  var %item = $$?"Edit Item Number?"
  if (%item > $hget(menu,0).item) { halt }
  var %context = $replace($$?"Item: $hget(menu,%item).item $&
    $+ $crlf $+ now: $replace($hget(menu,$hget(menu,%item).item),$!snick(#),nick) ",nick,$!snick(#))
  .hadd -m menu $hget(menu,%item).item %context
  .hsave -ob menu acmenu.ini
}
On *:start: { if (!$exists(acmenu.ini) || $hget(menu,0).item) { halt } | $iif($hget(menu,0).item,hfree,hmake) menu 1000 | .hload -b menu acmenu.ini }

Comments

Sign in to comment.
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.