home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / bx75p3.zip / doc / bxmenu.bx < prev    next >
Text File  |  1999-02-23  |  23KB  |  633 lines
  1. ^fset FORMAT_XTERM_TITLE [$0][$2] $5-
  2.  
  3. ^set COMMENT_BREAKAGE on
  4. ^set JOIN_NEW_WINDOW on
  5. ^set WINDOW_DESTROY_PART on
  6.  
  7. @ actionsfile = [actplug.gmz]
  8. @ loadacts = [YES]
  9.  
  10. #############
  11. #GemZ Extras#
  12. #############
  13. @ gz.extras = 1
  14.  
  15. #added by request -- Ripped from Kanji :)
  16. alias bleah {
  17.  if ([$0]) {
  18.   ^msg $0  \\|/ ____ \\|/             \\|/ ____ \\|/
  19.   ^msg $0  ~@-/ oO \\-@~             ~@-/ Oo \\-@~
  20.   ^msg $0  /_\( \\__/ \)_\\   Bleah!!   /_\( \\__/ \)_\\;
  21.   ^msg $0     \\__U_/                   \\_U__/
  22.   gecho BLEAH launched on $0.
  23.  }{gecho Usage: /BLEAH <nick/channel>}
  24. }
  25. alias bork {
  26.  if (C) {
  27.   @ _o.s = lastserver()
  28.   @ _o.t = _dfn($_o.s)
  29.   evalserver $_o.s @ _o.n = N
  30.   evalserver $_o.s @ _o.c = C
  31.   evalserver $_o.s nick SwdshChef
  32.   evalserver $_o.s WAIT
  33.   evalserver $_o.s saysend $_o.c bork bork bork bork
  34.   evalserver $_o.s nick $_o.n
  35.   @ _rfn($_o.s $_o.t)
  36.   purge _o
  37.  }{gecho Yer not on a channel in this window.}
  38. }
  39.  
  40. alias _dfn {
  41.  @ function_return = fn[$servergroup($0)]
  42.  @ fn[$servergroup($0)] = 0
  43. }
  44. alias _rfn {@ fn[$servergroup($0)] = [$1]}
  45.  
  46. alias fozzie {
  47.  if (C) {
  48.   @ _o.s = lastserver()
  49.   @ _o.t = _dfn($_o.s)
  50.   evalserver $_o.s @ _o.c = C
  51.   evalserver $_o.s @ _o.n = N
  52.   evalserver $_o.s nick _fozzie_
  53.   evalserver $_o.s WAIT
  54.   evalserver $_o.s saysend $_o.c wakka wakka wakka
  55.   evalserver $_o.s nick $_o.n
  56.   @ _rfn($_o.s $_o.t)
  57.   purge _o
  58.  }{gecho Your not in a channel in this window.}
  59. }
  60.  
  61. alias beaker {@ o.n = [$N];nick _Beaker_;WAIT;say meep meep meep meep;nick $o.n;^assign -o.n}
  62.  
  63. alias gimpkick {
  64.  @ _g.s = lastserver()
  65.  @ _g.t = _dfn($_g.s)
  66.  @ _g.n = N
  67.  @ _g.c = C
  68.  if (ischanop($_g.n $_g.c)) {
  69.  evalserver $_g.s saysend $_g.c $0, I think The Gimp would love a piece of meat like you...
  70.  evalserver $_g.s saysend $_g.c You're the kind of piece of shit trash he likes...
  71.  evalserver $_g.s nick _The_Gimp_
  72.  evalserver $_g.s WAIT
  73.  evalserver $_g.s saysend $_g.c ARRRGGGGGGGGGHHHHHHHH!!!!!
  74.  evalserver $_g.s saysend $_g.c I'm gonna drill you a new asshole!!!
  75.  evalserver $_g.s WAIT
  76.  evalserver $_g.s me Bends $0 over and "goes to town" on him!
  77.  evalserver $_g.s saysend $_g.c AAHHHHHHHHHHHHHHHHHHHHHHHHHHH!!!!
  78.  evalserver $_g.s saysend $_g.c Feels so fuckin good don't it boy!!!!?????
  79.  evalserver $_g.s WAIT
  80.  evalserver $_g.s me zip up $gender leather pants and leaves $0 crying and rubbing his ass!
  81.  evalserver $_g.s //kick $_g.c $0 You're good...you should give references...
  82.  evalserver $_g.s nick $_g.n
  83.  @ _rfn($_g.s $_g.t)
  84. }{gecho You're not a channel Operator}
  85.  purge _g
  86. }
  87. #
  88. alias soupkick {
  89.  @ _s.s = lastserver()
  90.  @ _s.t = _dfn($_s.s)
  91.  @ _s.c = C
  92.  if (ischanop($N $C)) {
  93.   evalserver $_s.s @ _s.n = N
  94.   evalserver $_s.s nick Soup_Nzi
  95.   evalserver $_s.s Wait
  96.   evalserver $_s.s saysend $_s.c VAT!??!??!!!!
  97.   evalserver $_s.s //kick $_s.c $0 N() S()UP F()R Y()U
  98.   evalserver $_s.s Wait
  99.   evalserver $_s.s nick $_s.n
  100.   @ _rfn($_s.s $_s.t)
  101.  }
  102.  purge _s
  103. }
  104.   
  105. #ripped from Kanji_man
  106. alias gerbilkick {
  107.  if (ischanop($N $C)) {
  108.  @ old_nick = N
  109.  say $0, watch out for the giant gerbil...
  110.  say I hear he likes MomoBoys like you...
  111.  nick _Gerbil_
  112.  WAIT
  113.  me towers above the entire channel... looking for pleasure...
  114.  me reaches down and grabs $0 by the shoulders with one claw...
  115.  WAIT
  116.  me bends over, parts both cheeks with the other claw...
  117.  WAIT
  118.  me begins to scream as a muffled shreek can be heard from $0
  119.  /k $0 SCREEEEEEEEEEEEEECH!
  120.  nick $old_nick
  121.  ^assign -old_nick
  122. }{gecho You're not a channel operator}
  123. }
  124. ###Pimp Ideas Ripped from PimpToolz
  125. alias pimpslap {
  126.  if (ischanop($N $C)) {
  127.  @ old_nick = N
  128.  nick PimpGuido
  129.  WAIT
  130.  say WhaT HaPPenS wHeN YeR hO dOn'T WoRk??
  131.  /k $0 !PiMPSlaP HeR!
  132.  WAIT
  133.  nick $old_nick
  134.  WAIT
  135.  ^assign -old_nick
  136. }{gecho You're not a channel operator}
  137. }
  138. alias pimpkick {
  139.  if (ischanop($N $C)) {
  140.  @ old_nick = N
  141.  nick PimpGuido
  142.  WAIT
  143.  say WHAT IS THE MEANING OF PIMP?
  144.  say PiMP = PoWeR!
  145.  say PiMP = PoWeR!
  146.  say PiMP = PoWeR!
  147.  WAIT
  148.  /k $0 !PiMP-PoWeR! !PiMP-PoWeR!
  149.  WAIT
  150.  nick $old_nick
  151.  WAIT
  152.  ^assign -old_nick
  153. }{gecho You're not a channel Operator}
  154. }
  155. alias stinkkick {
  156.  if (ischanop($N $C)) {
  157.   say ShiT SomEThinG FuXinG StINkS!!!
  158.   /k $0 !ThaT'S BeTTeR!
  159.  }{gecho You're not a channel Operator}
  160. }
  161. alias lamahkick {
  162.  if (ischanop($N $C)) {
  163.   say I'M A LaMaH HawK...
  164.   say HuNtInG FoR A LaMaH...
  165.   /k $0 !FuXinG LaMaH!
  166.  }{gecho You're not a channel Operator}
  167. }
  168.  
  169. #-------------------------------------------------------------------------#
  170. #Swedish Chef Filter by gemini
  171. alias chefsay {
  172.  @ in_line = [$0-]
  173.  fe ($in_line) _in_word {
  174.   switch ($_in_word) {
  175.    (bork) {@ _out_line = _out_line ## [$_in_word]}
  176.    (*tion) {
  177.     @ _len = [$@_in_word] - 4
  178.     @ _out_line = [$_out_line ]##[$subchef($left($_len $_in_word))]##[shun]
  179.    }
  180.    (an) {@ _out_line = _out_line ## [un ]}
  181.    (the) {@ _out_line = _out_line ## [zee ]}
  182.    (*) {@ _out_line = _out_line##[$subchef($_in_word)]
  183.    }
  184.   }
  185.  }
  186.  say $_out_line
  187.  ^assign -_out_line;^assign -_in_line;^assign -_in_word
  188. }
  189.  
  190. alias chefme {
  191.  @ in_line = [$0-]
  192.  fe ($in_line) _in_word {
  193.   switch ($_in_word) {
  194.    (bork) {@ _out_line = _out_line ## [$_in_word]}
  195.    (*tion) {
  196.     @ _len = [$@_in_word] - 4
  197.     @ _out_line = [$_out_line ]##[$subchef($left($_len $_in_word))]##[shun]
  198.    }
  199.    (an) {@ _out_line = _out_line ## [un]}
  200.    (the) {@ _out_line = _out_line ## [zee]}
  201.    (*) {@ _out_line = _out_line##[$subchef($_in_word)]
  202.    }
  203.   }
  204.  }
  205.  me $_out_line
  206.  ^assign -_out_line;^assign -_in_line;^assign -_in_word
  207. }
  208.  
  209. alias chefmsg {
  210.  @ in_line = [$1-]
  211.  fe ($in_line) _in_word {
  212.   switch ($_in_word) {
  213.    (bork) {@ _out_line = _out_line ## [$_in_word]}
  214.    (*tion) {
  215.     @ _len = [$@_in_word] - 4
  216.     @ _out_line = [$_out_line ]##[$subchef($left($_len $_in_word))]##[shun]
  217.    }
  218.    (an) {@ _out_line = _out_line ## [un]}
  219.    (the) {@ _out_line = _out_line ## [zee]}
  220.    (*) {@ _out_line = _out_line ##[$subchef($_in_word)]
  221.    }
  222.   }
  223.  }
  224.  /msg $0 $_out_line
  225.  ^assign -_out_line;^assign -_in_line;^assign _in_word
  226. }
  227.  
  228. alias subchef {
  229.  @ __bork = [$0]
  230.  fec ($__bork) _bork {
  231.   switch ($_bork) {
  232.    (a) {@ bork_return = bork_return ## [e]}
  233.    (e) {@ bork_return = bork_return ## [i]}
  234.    (f) {@ bork_return = bork_return ## [ff]}
  235.    (i) {@ bork_return = bork_return ## [ee]}
  236.    (v) {@ bork_return = bork_return ## [f]}
  237.    (o) {@ bork_return = bork_return ## [u]}
  238.    (u) {@ bork_return = bork_return ## [oo]}
  239.    (w) {@ bork_return = bork_return ## [v]}
  240.    #(.) {@ bork_return = bork_return ## [. Bork Bork Bork!]}
  241.    (!) {@ bork_return = bork_return ## [! Bork Bork Bork!]}
  242.    (*) {@ bork_return = bork_return ## [$_bork]}
  243.   }
  244.  }
  245.  @ FUNCTION_RETURN = [$bork_return ]
  246.  ^assign -bork_return;^assign -_bork;^assign -__bork
  247. }
  248.  
  249. alias postal {
  250.  if (C) {
  251.   @ _p.s = lastserver()
  252.   @ _p.t = _dfn($_p.s)
  253.   @ _p.c = C
  254.   @ _p.mn = N
  255.   evalserver $_p.s if (ischanop($_p.mn $_p.c)) {
  256.    if ([$0]==[all]) {
  257.     evalserver $_p.s @ _p.l = chanusers($_p.c)
  258.    }{
  259.     evalserver $_p.s fe ($chanusers($_p.c)) _p.u {if (!ischanop($_p.u $_p.c)) {@ _p.l = [$_p.l $_p.u]}}
  260.    }
  261.    @ _p.n = [$mid(0 3 $_p.mn)]
  262.    @ _p.n = [$_p.n]##[Postal]
  263.    @ _p.o = [$_p.mn]
  264.    evalserver $_p.s /me suddenly has an urge to become a postal worker.
  265.    evalserver $_p.s /nick $_p.n
  266.    evalserver $_p.s WAIT
  267.    evalserver $_p.s /me grabs an assault weapon and picks a random person...
  268.    evalserver $_p.s //kick $_p.c $word($rand($#_p.l - 1) $_p.l) pOsTaLkIcK vIcTiM
  269.    evalserver $_p.s /nick $_p.o
  270.    @ _rfn($_p.s $_p.t)
  271.   }{gecho You don't own a gun, You can't go postal without one!}
  272.  }{gecho Not in a channel, how can you go postal???}
  273.  purge _p
  274. }
  275.  
  276. alias gz.unloadextras {
  277.  ^alias -bleah;^alias -bork;^alias -fozzie;^alias -beaker
  278.  ^alias -postal;^alias -chefme;^alias -chefsay;^alias -subchef
  279.  ^alias -gimpkick;^alias -soupkick;^alias -gerbilkick;^alias -pimpslap
  280.  ^alias -pimpkick;^alias -pimpslap;^alias -lamahkick;^alias -stinkkick
  281.  ^assign -gz.extras;
  282.  ^timer 1 ^alias -gz.unloadextras
  283.  ^timer 2 makegemzmenu
  284. }
  285.  
  286. ^menu -menubar
  287. ^menu menubar
  288. ^submenu menubar main "~Main"
  289. ^menuitem main "Save Settings" {/save}
  290. ^menuitem main "Change Font" {/fontdialog 0 0}
  291. ^menuitem main "Clear Screen" {/clear}
  292. ^menuitem main separator
  293. ^menuitem main "Quit" {/quit}
  294.  
  295. ^submenu menubar server "~Server"
  296. ^menuitem server "Reconnect" {/rec}
  297. ^menuitem server "Disconnect" {/disco}
  298. ^menuitem server separator
  299. ^submenu server servinfo "Server Information"
  300. ^menuitem servinfo "Administration" {/admin}
  301. ^menuitem servinfo "List users" {/luser}
  302. ^menuitem servinfo "Message of the Day" {/motd}
  303. ^menuitem servinfo "Server Links" {/links}
  304. ^menuitem servinfo "Server Uptime" {/stats u}
  305. ^submenu server ov "Toggle OperView" 
  306. ^menuitem ov "On" {/ov on}
  307. ^menuitem ov "Off" {/ov off}
  308.  
  309. ^submenu menubar user "~User"
  310. ^menuitem user "Set Away" {/away PMBitchX Away}
  311. ^menuitem user "Set Back" {/back}
  312. ^menuitem user separator
  313. ^menuitem user "Show Notify" {/notify}
  314.  
  315. ^submenu menubar msgs "M~esgs"
  316. ^menuitem msgs "Read Message log" {/readlog}
  317. ^menuitem msgs "Delete Message log" {/remlog}
  318.  
  319. ^submenu menubar cdcc "~CDCC"
  320. #^submenu cdcc dccgl -s "Current DCC Items"
  321. ^submenu cdcc cdccoff "Offers..."
  322. ^menuitem cdccoff "Create New offer" {cdcc offer}
  323. ^menuitem cdccoff "Remove an Existing offer" {cdcc doffer}
  324. ^menuitem cdccoff "List your offers (local)" {cdcc list}
  325. ^menuitem cdccoff "Notify Current Channel" {cdcc notice}
  326. ^menuitem cdccoff "Show channel your offers" {cdcc plist}
  327. ^menuitem cdccoff separator
  328. ^menuitem cdccoff "Save Offer File" {cdcc save}
  329. ^menuitem cdccoff "Reload Offer File" {cdcc load}
  330. ^menuitem cdcc "Create DCC ~Window" {/window create level dcc}
  331.  
  332.  
  333. ^submenu menubar bx "~BitchX"
  334. ^menuitem bx "Paste" {/pmpaste}
  335. ^menuitem bx "Paste to input" {/pmpaste -input}
  336. ^menuitem bx "SmartPaste" {/pmpaste -smart}
  337. ^menuitem bx separator
  338. ^menuitem bx "Show Version" {/sv}
  339. ^menuitem bx separator
  340. ^menuitem bx "Send Sound" {/filedialog OA /PMBitchX/sounds/*.* "Send Sound" {/ctcp $winchan() sound $1}}
  341.  
  342. ^submenu menubar window "~Windows"
  343. ^menuitem window "New Window" {/window create}
  344. ^menuitem window "Describe Window" {/window describe}
  345.  
  346. ^submenu menubar help "~Help"
  347. ^menuitem help "Help" {/help}
  348. ^menuitem help "Extended Help" {/bhelp index}
  349. ^menuitem help separator
  350. ^menuitem help "About" {/about}
  351.  
  352. ^window menu menubar
  353.  
  354. ^set DEFAULT_MENU menubar
  355.  
  356. ^menu popupmenu
  357. ^submenu popupmenu paste "Clipboard" 
  358. ^menuitem paste -d "Paste" {/pmpaste}
  359. ^menuitem paste "Paste to input" {/pmpaste -input}
  360. ^menuitem paste "SmartPaste" {/pmpaste -smart}
  361. ^menuitem popupmenu "Change Font" {/fontdialog}
  362. ^menuitem popupmenu "Save Settings" {/save}
  363. ^menuitem popupmenu "Show Notify" {/notify}
  364.  
  365. alias makepopup {
  366. @ gt.ppnick = [$1]
  367. @ gt.ppchan = [$0]
  368.  
  369. menu -popup
  370. menu popup
  371.  //submenu popup md "$gt.ppnick"
  372.   //menuitem md "Op     (+o)" {op $gt.ppnick}
  373.   //menuitem md "DeOp   (-o)" {deop $gt.ppnick}
  374.   //menuitem md "Voice  (+v)" {voice $gt.ppnick}
  375.   //menuitem md "Quiet  (-v)" {quiet $gt.ppnick}
  376. ##Add some cool ignore stuff here.
  377.   //menuitem md "Ignore (temp)" {ig $gt.ppnick all}
  378.   //menuitem md "Ignore (perm)" {ig $gt.ppnick -p all}
  379.   //menuitem md "Unignore" {unig $gt.ppnick all}
  380. ##Do it right
  381.  //submenu popup nxdcc "XDCC"
  382.   //menuitem nxdcc -d "Req Pack List" {msg $gt.ppnick xdcc list}
  383.   //menuitem nxdcc separator
  384.   for (@ _xidx = 1, _xidx <= 15, @ _xidx++) {
  385.    //submenu nxdcc nx$_xidx "Pack #$_xidx  "
  386.    //menuitem nx$_xidx "List" msg $gt.ppnick xdcc list #$_xidx
  387.    //menuitem nx$_xidx -d "Send" msg $gt.ppnick xdcc send #$_xidx
  388.    //menuitem nx$_xidx "ReSend" msg $gt.ppnick xdcc resend #$_xidx
  389.   }
  390.  
  391.  //menuitem popup "Send File(s)" {senddialog $gt.ppnick}
  392.  //menuitem popup "ReSend File(s)" {resenddialog $gt.ppnick}
  393.  //menuitem popup "Send Sound" {dialogsound $gt.ppnick}
  394.  //submenu popup popother "Other"
  395.   //menuitem popother -d "Whois" {whois $gt.ppnick}
  396.   //menuitem popother "Server Whois" {wii $gt.ppnick}
  397.   //menuitem popother "Lookup" {lookup $gt.ppnick}
  398.   //menuitem popother "Channel Idletime" {idle $gt.ppnick}
  399.   //menuitem popother separator
  400.   //menuitem popother "Talk (query)" {talk $gt.ppnick}
  401.   //menuitem popother "Chat (dcc chat query)" {chat $gt.ppnick}
  402.   //menuitem popother separator
  403.   //menuitem popother "Ping" {ping $gt.ppnick}
  404.   //menuitem popother "Time" {/ctcp $gt.ppnick TIME}
  405.   //menuitem popother "UserInfo" {/ctcp $gt.ppnick userinfo}
  406.   //menuitem popother "Finger" {/ctcp $gt.ppnick finger}
  407.   //menuitem popother "Version" {ver $gt.ppnick}
  408.  //menuitem popup separator
  409.  //submenu popup kicks "Kicks"
  410.   //menuitem kicks -d "Random Kick" {k $gt.ppnick}
  411.   //menuitem kicks "McKick" {mck $gt.ppnick}
  412.   //menuitem kicks "McKick (break)" {mcdk $gt.ppnick}
  413.   //menuitem kicks "TacobellKick" {tbk $gt.ppnick}
  414.   //menuitem kicks "BurgerKing Kick" {bkk $gt.ppnick}
  415.   //menuitem kicks "KentuckyFried" {kfck $gt.ppnick}
  416.   //menuitem kicks "CarlsJr Kick" {cjk $gt.ppnick}
  417.   //menuitem kicks "TaeKwonLeap Kick" {tkl $gt.ppnick}
  418.   //menuitem kicks "GreetKick" {gk $gt.ppnick}
  419.   if (gz.extras) //menuitem kicks -b "PimpKick" {pimpkick $gt.ppnick}
  420.   if (gz.extras) //menuitem kicks "PimpSlap" {pimpslap $gt.ppnick}
  421.   if (gz.extras) //menuitem kicks "GerbilKick" {gerbilkick $gt.ppnick}
  422.   if (gz.extras) //menuitem kicks "GimpKick" {gimpkick $gt.ppnick}
  423.   if (gz.extras) //menuitem kicks "Stinkkick" {stinkkick $gt.ppnick}
  424.   if (gz.extras) //menuitem kicks "LamahKick" {lamahkick $gt.ppnick}
  425.   if (gz.extras) //menuitem kicks "Soup Kick" {soupkick $gt.ppnick}
  426.  //submenu popup popban "Bans"
  427.   //menuitem popban "Ban" {ban $gt.ppnick}
  428.   //menuitem popban -d "Ban/Kick" {bk $gt.ppnick}
  429.   //menuitem popban "Kick/Ban/Ignore" {kbi $gt.ppnick}
  430.   //menuitem popban separator
  431.   //menuitem popban "Screw Ban" {sban $gt.ppnick}
  432.   //menuitem popban "Screw Ban/Kick" {sban $gt.ppnick;k $gt.ppnick}
  433.   //menuitem popban "Screw Ban/Kick/Ignore" {sban $gt.ppnick;k $gt.ppnick;ig $gt.ppnick}
  434.  //menuitem popup separator
  435.  //submenu popup popnotify "Notify..."
  436.   //menuitem popnotify "Add to Notify list" {/addnotify $gt.ppnick}
  437.   //menuitem Popnotify "Remove from Notify List" {/unnotify $gt.ppnick}
  438.   //menuitem popnotify "Show Notify List" {/shownotify}
  439.  //submenu popup poppaste "Clipboard"
  440.   //menuitem poppaste -d "Paste" {redir $gt.ppnick pmpaste}
  441.   //menuitem poppaste "SmartPaste" {redir $gt.ppnick pmpaste -smart}
  442.  //menuitem popup separator
  443.  //submenu popup actions "Actions"
  444.   //submenu actions cluebats "ClueBats"
  445.    //menuitem cluebats "Clue Bludgeon" {/me bludgeons $gt.ppnick with the cluebat}
  446.    //menuitem cluebats "Lead ClueBat" {/me pulls out a lead cluebat, engraves $gt.ppnick's name on it, and swings wildly}
  447.    //menuitem cluebats "Piñata" {/me strings $gt.ppnick up, puts on a blindfold, and declares a cluebat piñata party!!!}
  448.    //menuitem cluebats "SuperMomoCluebat" {/me purchases a sUpErMoMo (tm) cluebat and pummels $gt.ppnick to the ground}
  449.    //menuitem cluebats "Windows Cluebat" {/me finds the Windows edition Cluebat, taps it over $gt.ppnick's head, and watches it break}
  450.   //menuitem actions separator
  451.   //menuitem actions "Awake?" {/me pokes $gt.ppnick in the ribs ... you awake?}
  452.   //menuitem actions "Backside" {/me calls attention to $gt.ppnick's backside}
  453.   //menuitem actions "Booger" {/me flicks a booger at $gt.ppnick}
  454.   //menuitem actions "Cookie Toss" {/me tosses $gt.ppnick a cookie... good boy}
  455.   //menuitem actions "Curse" {/me wishes the fleas of a thousand camels upon $gt.ppnick's underwear drawer.}
  456.   //menuitem actions "Fart" {/me farts in $gt.ppnick's general direction, clearing $gt.ppchan as well.}
  457.   //menuitem actions "Finger" {/me gives $gt.ppnick the finger.  nInn}
  458.   //menuitem actions  "Glare" {/me glares at $gt.ppnick}
  459.   //submenu actions ctacts -b "Cute Actions"
  460.    //menuitem ctacts "Hug" {/me hugs $gt.ppnick ....}
  461.    //menuitem ctacts "Pass Kiss" {/me Passionately Kisses $gt.ppnick}
  462.    //menuitem ctacts "Hug/Kiss" {/me Hugs and Kisses $gt.ppnick}
  463.    //menuitem ctacts "Dance" {/me takes $gt.ppnick in hand and Dances $rgenderex() around the channel}
  464.    //menuitem ctacts "OZ-Hug" {/me gives $gt.ppnick a Big Ole Ozzie hug....}
  465.    //menuitem ctacts "Rose" {/me drops to $gender knees and hands $gt.ppnick a long stemed rose @>->-`-,-->---}
  466.    //menuitem ctacts "Snuggle" {/me snuggles up to $gt.ppnick ....}
  467.   //menuitem actions separator
  468.   //menuitem actions "HerringSlap" {/me slaps $gt.ppnick around a bit with an official sized #os/2 herring...}
  469.   //menuitem actions "Noogie" {/me noogies $gt.ppnick}
  470.   //menuitem actions "Nosepicker" {/me watches in disgust, as $gt.ppnick picks their nose}
  471.   //menuitem actions "Slap" {/me slaps $gt.ppnick around a bit with a substantially large Brown Cow...}
  472.   //menuitem actions "Moon" {/me drops $gender drawers and moons $gt.ppnick ( | )}
  473.   //menuitem actions "PoopFace" {say Hey $gt.ppnick does the expression "Up your Bum PoopFace" Mean anything to you ??? :P}
  474.   //menuitem actions "Rose" {/me tosses $gt.ppnick a rose @>--`-}
  475.   //menuitem actions "Smurf" {/me points at $gt.ppnick and calls him a 09SMURF07}
  476.   //submenu actions deaths -b "Deaths"
  477.    //menuitem deaths "AK47" {/me pulls out $gender trusty AK47... nestles the sites squarely on $gt.ppnick's head... eases back on the trigger and empties a 30 round clip....BANG You're Dead}
  478.   //menuitem actions separator
  479.   //menuitem actions "Sneeze" {/me sneezes violently and a blob of snot lands on $gt.ppnick}
  480.   //menuitem actions "Thwap" {/me thwaps $gt.ppnick upside the head...   \"Get with the program.\"}
  481.   //menuitem actions "Tickle" {/me sneaks up behind $gt.ppnick ... tickle tickle tickle...}
  482.   //menuitem actions "Wet Noodle" {/me pummels $gt.ppnick with a wet noodle}
  483.   //menuitem actions "Whistle" {/me whistles with an innocent look on $gender face...}
  484.   //menuitem actions "Win95 Torture" {/me handcuffs $gt.ppnick to a desk with Windows95 - "Multitask, bitch."}
  485.   //menuitem actions "Vomit upon" {/me vomits repeatedly upon $gt.ppnick}
  486.   //menuitem actions "Yucko" {/me slids over close to $gt.ppnick and gives them a nice slimey YUCKO !!!!}
  487.   //submenu popup greets "Greets"
  488.    //menuitem greets "moo" {say moo $gt.ppnick}
  489.    //menuitem greets "\'lo" {say 'lo $gt.ppnick}
  490.    //menuitem greets "heya" {say heya $gt.ppnick}
  491.    //menuitem greets "what's up" {say what's up $gt.ppnick}
  492.    //menuitem greets "re" {say re $gt.ppnick}
  493.    //menuitem greets "hi" {say hi $gt.ppnick}
  494.    //menuitem greets "Yo" {say Yo!! $gt.ppnick\!}
  495.    //menuitem greets "hello" {say hello $gt.ppnick}
  496.    //menuitem greets "Howdy" {say Howdy $gt.ppnick}
  497.    //menuitem greets "\'sup?" {say \'sup $gt.ppnick\?}
  498.    //menuitem greets "!!!!!" {say $gt.ppnick!!!!!}
  499.    //menuitem greets "!@#\$\%\^" {say $gt.ppnick\!@#\$\%\^}
  500.  //submenu popup byes "Byes"
  501.   //menuitem byes "bye" {say bye $gt.ppnick}
  502.   //menuitem byes "hastalapasta" {say hastalapasta $gt.ppnick}
  503.   //menuitem byes "hastalabyebye" {say Hastalabyebye $gt.ppnick}
  504.   //menuitem byes "wave" {/me waves bye to $gt.ppnick\.  \"Don't let the door hit you in the arse\"}
  505.   //menuitem byes "See ya" {say See ya $gt.ppnick}
  506.  if ([$loadacts]==[YES]) {
  507.    /loadplug $actionsfile
  508.  }
  509. ^popupmenu popup
  510. }
  511.  
  512. alias rccheck {
  513.  if (onchannel($lastclickline(4) $C)==1) {makepopup $C $lastclickline(4)} else {/popupmenu popupmenu}
  514.  }
  515.  
  516. #OS2-Mike's idea and code stub.
  517. alias dialogsound {
  518.  @ gt.sndnick = [$0]
  519.  if (ischannel($gt.sndnick)) {
  520.   filedialog OA $sounddir/*.* "Send Sound Files" "Send/Exit" "Send" {
  521.    if ([$0]==[OK]) {/csound $gt.sndnick $decode($1);^assign -gt.sndnick}
  522.    if ([$0]==[APPLY]) {/csound $gt.sndnick $decode($1)}
  523.    if ([$0]==[CANCEL]) {^assign -gt.sndnick}
  524.   }
  525.  } elseif {
  526.   filedialog OA $sounddir/*.* "Send Sound Files" "Send/Exit" "Send" {
  527.    if ([$0]==[OK]) {
  528.     if (ctcpsnd.localfile($decode($1))) {
  529.      /mmpm.playfile $ctcpsnd.fname
  530.      //ctcp $gt.sndnick SOUND $decode($1)
  531.      ^assign -gt.sndnick
  532.     }
  533.    }
  534.    if ([$0]==[APPLY]) {
  535.     if (ctcpsnd.localfile($decode($1))) {
  536.      /mmpm.playfile $ctcpsnd.fname
  537.      //ctcp $gt.sndnick SOUND $decode($1)
  538.     }
  539.    }
  540.    if ([$0]==[CANCEL) {
  541.     ^assign -gt.sndnick
  542.    }
  543.   }
  544.  }
  545. }
  546.  
  547. alias senddialog {//filedialog OM $gx.uploaddir\* "Select Files to send" sendproc send $0 $$*}
  548. alias resenddialog {//filedialog OM $gx.uploaddir\* "Select Files to send" sendproc resend $0 $$*}
  549.  
  550. alias sendproc {
  551.  if ([$2] == [OK]) {
  552.   @ _sp.f = 0
  553.   fe ($3-) _sp.t {
  554.    if (fexist("$decode($_sp.t)") == 1) {
  555.     //dcc $0 $1 "$decode($_sp.t)"
  556.     @ _sp.f = 1
  557.    }
  558.   }
  559.   if (_sp.f) {gecho File Request sent to $1}
  560.   purge _sp
  561.  }
  562. }
  563.  
  564. alias mansenddialog {//filedialog OM $gx.uploaddir\* "Select Files to send" mansendproc send $$*}
  565. alias manresenddialog {//filedialog OM $gx.uploaddir\* "Select Files to send" mansendproc resend $$*}
  566.  
  567. alias mansendproc {
  568.  if ([$1] == [OK]) {
  569.   @ _sp.n = [$"[gxDCC] Nick to send to : "]
  570.   if (_sp.n) {
  571.    @ _sp.f = 0
  572.    fe ($2-) _sp.t {
  573.     if (fexist($decode($_sp.t)) == 1) {
  574.      //dcc $0 $_sp.n $decode($_sp.t)
  575.      @ _sp.f = 1
  576.     }
  577.    }
  578.   }
  579.   if (_sp.f) {gecho File Request sent to $_sp.n}
  580.   purge _sp
  581.  }
  582. }
  583.  
  584. ##action plugin module support for GemZ 2.5
  585. ##Format for the plugin file must be one line per //menuitem using
  586. ## the following keyword format
  587. ##"TITLE" TYPE TEXT GOES HERE
  588. ##   Type Keywords are: %ACT, %PUB, %KICK or %CMD
  589. ##   Other Keywords are %nk (nick) %pnk (possesive nick)
  590. ##     and %ch (current channel)
  591. ##   Comment lines must begin with a pound (#)
  592. ##To create a new column in the //submenu, put %new as the second word
  593. ##  followed by a Command keyword
  594. ##%kick must have %nk following it immediately.
  595. ##%cmd must be followed by a valid command... like /gimpkick
  596.  
  597. alias loadplug {
  598.  @ pluginsloaded = 1
  599.  if ([$0] && [$fexist($0)]==[1]) {
  600. #  makepopup
  601.   //menuitem popup separator
  602.   //submenu popup custact "Custom Actions"
  603.   //submenu popup custkick "Custom Kicks"
  604.   //submenu popup custcmd "Custom Command"
  605.   @ _plugfile = open($0 R)
  606.   while (!eof($_plugfile)) {
  607.    @ ____bob++
  608.    @ _tmp.p = [$strip(; $read($_plugfile))]
  609.    if ([$left(1 $_tmp.p)]==["] && [$word(1 $_tmp.p)] != [%new]) {
  610.     if ([$word(1 $_tmp.p)]==[%kick]) {
  611.      //menuitem custkick \"$strip(\" $word(0 $_tmp.p))\" custout $_tmp.p
  612.    } else if ([$word(1 $_tmp.p)]==[%cmd]) {
  613.      //menuitem custcmd \"$strip(\" $word(0 $_tmp.p))\" custout $_tmp.p
  614.    } else //menuitem custact \" $strip(\" $word(0 $_tmp.p))\" custout $_tmp.p
  615.   } else if ([$left(1 $_tmp.p)]==[\"] && [$word(1 $_tmp.p)]==[%new] ) {
  616.     @ _clen = [$#_tmp.p]
  617.     @ _tmp.p = [$word(0 $_tmp.p) $ref(3-$_clen $_tmp.p)]
  618.     if ([$word(1 $_tmp.p)]==[%cmd]) {
  619.      //menuitem custcmd -b \"$strip(\" $word(0 $_tmp.p))\" custout $_tmp.p
  620.    } else if ([$word(1 $_tmp.p)]==[%kick]) {
  621.      //menuitem custkick -b \"$strip(\" $word(0 $_tmp.p))\" custout $_tmp.p
  622.    } else //menuitem custact -b \"$strip(\" $word(0 $_tmp.p))\" custout $_tmp.p
  623.     ^assign -_clen
  624.    }
  625.   }
  626. #  ^set nick_menu popup %s
  627.   @ close($_plugfile)
  628.   ^assign -_tmp.p;^assign -_plugfile
  629.  } else if {gecho No module specifed, or file does not exist}
  630. }
  631.  
  632. ^bind rclick parse_command rccheck
  633.