Advanced Standard Menu

+ 0 likes

Please Register to submit score.

Average Score	0.0
Scores Submitted	0
Date Added	Feb 22, 2008
Last Updated	Feb 22, 2008
Tags	menu standard

Introduction

As it is still looks as the standard menu of mIRC. It has a coding system behind it. Counter and names of the person you used the command on it are implented. Maybe I will expand it in the future. But for now you can have it.

Extra commands:
Cookie! (steals cookie's of the person you select.) (added on request)
Ban (why) (gives a message in the channel why the user is banned)

The rest are the normal commands.

Grab the Code

menu * {
  Info: {
    writeini storage.mrc info info.count $calc($readini(storage.mrc, info, info.count) + 1)
    var %info.names $readini(storage.mrc, info, info.names)

write -dsinfo.names storage.mrc
    writeini storage.mrc info info.names %info.names $+ , $$1
    /uwho $1
    halt
  }
  Whois: {
    writeini storage.mrc whois whois.count $calc($readini(storage.mrc, whois, info.count) + 1)
    var %info.names $readini(storage.mrc, whois, whois.names)

write -dswhois.names storage.mrc
    writeini storage.mrc whois whois.names %info.names $+ , $$1
    /whois $$1
    halt
  }
  Query: {
    writeini storage.mrc query query.count $calc($readini(storage.mrc, query, info.count) + 1)
    var %info.names $readini(storage.mrc, query, query.names)

write -dsquery.names storage.mrc
    writeini storage.mrc query query.names %info.names $+ , $$1
    /query $$1
    halt
  }
  -
  Control
  .Ignore:/ignore $$1 1
  .Unignore:/ignore -r $$1 1
  .Op:/mode # +ooo $$1 $2 $3
  .Deop:/mode # -ooo $$1 $2 $3
  .Voice:/mode # +vvv $$1 $2 $3
  .Devoice:/mode # -vvv $$1 $2 $3
  .Kick: {
    if ($$1 == $me) { var %stupid $input(You wouldnt want to kick Yourself...right?,o, Kick yourself...) | halt }
    writeini storage.mrc kicks kick.count $calc($readini(storage.mrc, kicks, kick.count) + 1)
    var %kick.names $readini(storage.mrc, kicks, kick.names)
    write -dskick.names storage.mrc
    writeini storage.mrc kicks kick.names %kick.names $+ , $$1

msg $chan Cya $$1 $+ , Total kick count: $readini(storage.mrc, kicks, kick.count) 
    /kick $chan $$1
    halt
  }
  .Kick (why): {
    if ($$1 == $me) { var %stupid $input(You wouldnt want to kick Yourself...right?,o, Kick yourself...) | halt }
    writeini storage.mrc kicks kick.count $calc($readini(storage.mrc, kicks, kick.count) + 1)  
    var %kick.names $readini(storage.mrc, kicks, kick.names)
    write -dskick.names storage.mrc
    writeini storage.mrc kicks kick.names %kick.names $+ , $$1

var %reason $input(Why do you kick him / her?,eo,Kick reason)
    if (%reason == $null) { kick $chan $$1 No Reason given... | goto end }
    if (%reason != $null) { kick $chan $$1 %reason | goto end }

:end
    msg $chan Cya $$1 $+ , Total kick count: $readini(storage.mrc, kicks, kick.count) 
   halt
  }
  .Ban: {
    if ($$1 == $me) { var %stupid $input(You wouldnt want to ban Yourself...right?,o, ban yourself...) | halt }
    writeini storage.mrc ban ban.count $calc($readini(storage.mrc, ban, ban.count) + 1) 
    var %ban.names $readini(storage.mrc, ban, ban.names)
    write -dsban.names storage.mrc
    writeini storage.mrc ban ban.names %ban.names $+ , $$1

mode $chan +b $address($$1,2)
    msg $chan (No ban reason given) Total ban count: $readini(storage.mrc, ban, ban.count)
    halt
  }
  .ban (why): {
    if ($$1 == $me) { var %stupid $input(You wouldnt want to ban Yourself...right?,o, ban yourself...) | halt }
    writeini storage.mrc ban ban.count $calc($readini(storage.mrc, ban, ban.count) + 1) 
    var %ban.names $readini(storage.mrc, ban, ban.names)
    write -dsban.names storage.mrc
    writeini storage.mrc ban ban.names %ban.names $+ , $$1

var %reason $input(Why do you ban him / her?,eo,Ban reason)
    if (%reason == $null) { mode $chan +b $address($$1,2) | msg $chan (No ban reason given) Total ban count: $readini(storage.mrc, ban, ban.count) | halt }
    if (%reason != $null) { mode $chan +b $address($$1,2) | msg $chan (Ban reason: %reason $+ ) Total ban count: $readini(storage.mrc, ban, ban.count) | halt }  
    halt
  }
  .Ban, Kick: {
    if ($$1 == $me) { var %stupid $input(You wouldnt want to ban Yourself...right?,o, ban yourself...) | halt }
    writeini storage.mrc ban ban.count $calc($readini(storage.mrc, ban, ban.count) + 1) 
    writeini storage.mrc kicks kick.count $calc($readini(storage.mrc, kicks, kick.count) + 1)  
    var %ban.names $readini(storage.mrc, ban, ban.names)
    write -dsban.names storage.mrc
    writeini storage.mrc ban ban.names %ban.names $+ , $$1

mode $chan +b $address($$1,2)
    timer 1 3 kick $chan $$1
    msg $chan Cya $$1 $+ , total ban count: $readini(storage.mrc, ban, ban.count) , Total kick count: $readini(storage.mrc, kick, kick.count) 
    halt
  }
  .Ban, Kick (why): {
    if ($$1 == $me) { var %stupid $input(You wouldnt want to ban Yourself...right?,o, ban yourself...) | halt }
    writeini storage.mrc ban ban.count $calc($readini(storage.mrc, ban, ban.count) + 1) 
    writeini storage.mrc kicks kick.count $calc($readini(storage.mrc, kicks, kick.count) + 1)  
    var %ban.names $readini(storage.mrc, ban, ban.names)
    write -dsban.names storage.mrc
    writeini storage.mrc ban ban.names %ban.names $+ , $$1

var %reason $input(Why do you kick & ban him / her?,eo,Ban reason)
    if (%reason == $null) { mode $chan +b $address($$1,2) | msg $chan (No ban reason given) Total ban count: $readini(storage.mrc, ban, ban.count) }
    if (%reason != $null) { mode $chan +b $address($$1,2) | msg $chan (Ban & kick reason: %reason $+ ) Total ban count: $readini(storage.mrc, ban, ban.count) }
    timer 1 3 kick $chan $$1   
    halt
  }
  CTCP
  .Ping:/ctcp $$1 ping
  .Time:/ctcp $$1 time
  .Version:/ctcp $$1 version
  DCC
  .Send:/dcc send $$1
  .Chat:/dcc chat $$1
  -
  Slap!: {
    if ($$1 == $me) { msg $chan I so stupid, I just the slap command on myself... | halt }
    writeini storage.mrc general slap.count $calc($readini(storage.mrc, general, slap.count) + 1)
    me slaps $$1 around a bit with a large trout. (Total Slaps: $readini(storage.mrc, general, slap.count) $+ )
    halt
  }
  Cookie!: {
    var %random $rand(0,200)
    if ($$1 == $me) { msg $chan I am that stupid to steal my own cookies.... ( $+ %random cookies stolen) | halt }
    writeini storage.mrc general cookie.count $calc($readini(storage.mrc, general, cookie.count) + %random)  
    if (%random == 1) {  
      me steals %random cookie from $$1 $+ . (total cookies stolen: $readini(storage.mrc, general, cookie.count) $+ )

if ($$1 isin $readini(storage.mrc, general, cookie.stolen)) { halt }
      var %stolen.cookie $readini(storage.mrc, general, cookie.stolen)
      write -dscookie.stolen storage.mrc
      writeini  storage.mrc general cookie.stolen %stolen.cookie $+ , $$1
      halt
    }
    me steals %random cookies from $$1 $+ . (total cookies stolen: $readini(storage.mrc, general, cookie.count) $+ )

Comments

(0) RSS

Go to Bottom

Advanced Standard Menu

Introduction

Grab the Code

Comments

Patrick91

My Snippet Tags

Contact

Sponsors


Last seen: Feb 22, 2008 Profile Snippets (2) Forum Posts (1)