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 }