Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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 }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement