Advertisement
SaNCaK

mIRC Add Action Menu Edited/Manual

Feb 3rd, 2014
511
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
mIRC 1.95 KB | None | 0 0
  1.  
  2. menu nicklist {
  3.   Action
  4.   .Add/Edit/Reload
  5.   ..Add Action:$conf
  6.   ..-
  7.   ..$iif((!$hget(menu,0).item),$style(2)) Edit Action:$editx($1)
  8.   ..-
  9.   ..$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 }
  10.   .$iif((!$hget(menu,0).item),$style(2)) Del/Reset
  11.   ..Del Action:$delc($1)  
  12.   ..-
  13.   ..Reset All:.hfree menu | .remove acmenu.ini
  14.   ..-
  15.   ..$iif(!$exists(acmenu.ini),$style(2)) Unload: { .hfree menu }
  16.   .$submenu($actio($1))
  17. }
  18. alias tax {
  19.   if ($1 == 1) return Action
  20.   if ($1 == 2) return Text
  21. }
  22. alias actio {
  23.   var %menu = 1
  24.   if ($1 == begin) return -
  25.   while ($hget(menu,%menu).item) {
  26.     if ($1 == %menu) return $+([,%menu,] $hget(menu,%menu).item,:describe $chan $hget(menu,$hget(menu,%menu).item))
  27.     inc %menu
  28.   }
  29.   if ($1 == end) return -
  30. }
  31. alias delc {
  32.   var %itemx = $$?"Item Number?"
  33.   if (%itemx > $hget(menu,0).item) { halt }
  34.   if ($input(Item: $hget(menu,%itemx).item $&
  35.     $+ $crlf $+ text: $replace($hget(menu,$hget(menu,%itemx).item),$!snick(#),nick),satu,y,Delete)) { .hdel menu $hget(menu,%itemx).item }
  36.   $iif($hget(menu,0).item,.hsave -ob menu,.remove) acmenu.ini
  37. }
  38.  
  39. alias conf {
  40.   var %item = $$?"item? eg: slaps/bite or else"
  41.   var %context = $replace($remove($$?"text? eg: slaps nick at head dishh!! $&
  42.     $+ $crlf $+ info: don't use $!nick just nick",$),nick,$!snick(#))
  43.   .hadd -m menu %item %context
  44.   .hsave -ob menu acmenu.ini
  45. }
  46. alias editx {
  47.   var %item = $$?"Edit Item Number?"
  48.   if (%item > $hget(menu,0).item) { halt }
  49.   var %context = $replace($$?"Item: $hget(menu,%item).item $&
  50.     $+ $crlf $+ now: $replace($hget(menu,$hget(menu,%item).item),$!snick(#),nick) ",nick,$!snick(#))
  51.   .hadd -m menu $hget(menu,%item).item %context
  52.   .hsave -ob menu acmenu.ini
  53. }
  54. 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