Useful Stuff

mIRC Code

+ 0 likes

Please Register to submit score.

Average Score	0.0
Scores Submitted	0
Date Added	Nov 03, 2007
Last Updated	Nov 03, 2007
Tags	alot popups talker useful

Introduction

Hey it took some time but i finally made a usefull script :) please comment. ^_^

Grab the Code

menu nicklist {
  -
  -=][Acronym Talker][=-
  .On:{ set %ctext on | unset %ctextchan | /echo -a 4,1[Notice:] 9Acronym Talker Switched On ! }
  .-
  .Off:{ set %ctext off | /echo -a 4,1Notice: 9Acronym Talker Switched Off ! }
  .-
  -
  --=-=][Idle Time][=-=--
  .Check Time:  echo -a 1,1.4[10Idle Time4]15 $duration($int($calc($idle) / 1000)) $+ 1.
  .Set Idle Time: resetidle $$?="Enter 'Seconds' to be Idle for:"
  .-
  .Idle 5minz: reset idle 300
  .Idle 10minz: resetidle 600
  .Idle 15minz: resetidle 900
  .Idle 20minz: resetidle 1200
  .Idle 30minz: resetidle 1800
  .Idle 45minz: resetidle 2700
  .Idle 1hour: resetidle 3600
  .-
  .Reset to Zero: resetidle
  -
  -=-=-=][DCC][=-=-=-
  .Send:/dcc send $$1
  .Set MaxCpz:/dcc maxcps $$?="Enter that Maximum CPS you wish to transfer at:"
  .-
  .FSend:/fsend on
  .Fsend Off:/fsend off  
  .-
  .DCC Pump:/Pdcc 2469999999999
  .Pump Off:/Pdcc 246999999 Away !
  .-
  .DCC Chat:/dcc chat $$1
  .DCC Port:/echo -a 1,1.9 $+ $me 15the DCC Port being used is 4���15 $port $+ 1. 
  -=-=][Ignorez $ignore(0) $+ ][=-=-
  .-
  .Add Selected: ignore $$1
  .Enter Nick: ignore $$?="Enter Nickname to Ignore:" $+ ! $+ *@*
  .Ignore All Selected: ignore $$*
  .Timed Ignorez
  ..Manual: ignore -u $+ $$?="Enter Amount of Seconds to Ignore for:" $$?="Enter Nickname to Ignore:" 
  ..Add Selected: ignore -u $+ $$?="Enter Amount of Seconds to Ignore for:" $$1
  ..All Selected: ignore -u $+ $$?="Enter Amount of Seconds to Ignore for:" $$*
  ..-
  ..Selected 5minz: ignore -u300 $$1
  ..Selected 10minz: ignore -u600 $$1
  ..Selected 20minz: ignore -u1200 $$1
  ..Selected 30minz: ignore -u1800 $$1
  ..Selected 1Hour: ignore -u3600 $$1
  ..-
  ..All Selected 5minz: ignore -u300 $$*
  ..All Selected 10minz: ignore -u600 $$*
  ..All Selected 20minz: ignore -u1200 $$*
  ..All Selected 30minz: ignore -u1800 $$*
  ..All Selected 1Hour: ignore -u3600 $$*
  .-
  .List Namez: ignore -l
  .List Total: echo 1,1.4Notice: 15 Ban List Total =4 $ignore(0) $+ 15..!1.
  .-
  .Remove Nick: ignore -r $$?="Enter Nickname to Un-Ignore:"
  .Clear ignore List: { ignore -r | window -c @Ignore }
  -
  --=][InFoRMaTioN][=--
  .Their Info
  ..Whois:/whois $$1
  ..Whois Highlighted:/whois $$*
  ..UCentral:/uwho $$1
  ..WhoWas:/whowas $$?="Enter Nickname to WhoWas:"
  ..Ping:/ctcp $$1 ping | /splay $mircdir\sounds\ping.wav
  ..Version:/ctcp $$1 version
  ..Time:/ctcp $$1 time
  ..Nick iNFo:/msg nickserv info $$?="Enter Nick to get iNFo on:" all
  ..iP/Host: dns $$1 | set %dns $$1
  ..Resolve iP/Host: dns $$?="Enter iP , Host or Nickname to Resolve:" | set %dns $!
  .-
  .Server Info
  ..Network: echo -a 4,1][Notice0:4][15You are currently connected to the4 $network 15network.!4][
  ..Server: echo -a 4,1][Notice0:4][15You are currently connected to the server4 $server $+ 15.!4][
  ..Port: echo -a 4,1][Notice0:4][15You are currently connected to port4 $port $+ 15.!4][
  ..iRCd Version:/version $server
  ..Linkz:/links
  ..Userz:/lusers
  ..Motd:/motd
  ..RoomSearch:/msg chanserv list $$?="Enter RoomName you are Searching for:"
  .-
  .Your iNFo: dialog -mdbie info info 0 0 0 0 | if (%evsz == on) && (%srtsnd != $null) { /splay $mircdir\sounds\dialog.wav }
  -
  =-=][Notice User][=-=: notice $$1 $$?="Enter Your Message:"
}

dialog info {
  title "iNFo"
  size 476 100 80 110
  option dbu
  icon images\skull.ico, 0
  tab "PC",2000,5 5 70 100
  tab "Net",2001
  link "Information",1,5 1 55 12,center
  button "&Kloze",2,5 180 50 10,ok
  button "OS",6,15 20 50 10,tab 2000
  button "CPU Info",3,15 30 50 10,tab 2000
  button "RAM Usage",4,15 40 50 10,tab 2000
  button "Hard Drive",5,15 50 50 10,tab 2000
  button "Net Interface",17,15 60 50 10,tab 2000
  button "Uptime",7,15 70 50 10,tab 2000
  button "Time-Date",9,15 80 50 10,tab 2000
  button "All Statz",13,15 90 50 10,tab 2000
  button "mIRC Version",21,15 20 50 10,tab 2001
  button "iRC Connection",11,15 30 50 10,tab 2001
  button "iRC Time",10,15 40 50 10,tab 2001
  button "Idle Time",19,15 80 50 10,tab 2001
  button "Your Usermodez",12,15 50 50 10,tab 2001
  button "Net Connection",8,15 60 50 10,tab 2001
  button "Net Surfing",18,15 70 50 10,tab 2001
}
on *:dialog:info:sclick:1:{ .run http://www.lattitud3.net }
on *:dialog:info:sclick:3:{ if ($server != $null) { /msg $active 1,1.4[10Cpu Info0:4]0 $remove($dll($mircdir\moo.dll,cpuinfo,_),1-,~) $+ 1. }
  else { /echo -a 1,1.4[10Cpu Info0:4]0 $remove($dll($mircdir\moo.dll,cpuinfo,_),1-,~) $+ 1. }
}
on *:dialog:info:sclick:4:{ if ($server != $null) { /msg $active 1,1.4[10RaM Usage0:4]0 $remove($remove($dll($mircdir\moo.dll,meminfo,_),Usage:),[,],|) }
  else { /echo -a 1,1.4[10RaM Usage0:4]0 $remove($remove($dll($mircdir\moo.dll,meminfo,_),Usage:),[,],|) }
}
on *:dialog:info:sclick:5:{ if ($server != $null) {
    /msg $active 1,1.4]0|4[  $+ $rand(3,15) $+ Hard Drive Info 0:4]0|4[1,1.
    /msg $active 1,1.4]0|4[ 10Partition 10:4 ][ 0Total0:4 $round($calc(($disk(c).size)/1048576), 0) $+ MB 4]0|4[ 10Free Space0:4 ][ $round($calc(($disk(c).free)/1048576), 0) $+ MB4]0|4[
    /msg $active 1,1.4]0|4[ 11Partition 20:4 ][ 0Total0:4 $round($calc(($disk(f).size)/1048576), 0) $+ MB 4]0|4[ 11Free Space0:4 ][ $round($calc(($disk(f).free)/1048576), 0) $+ MB4]0|4[
    /msg $active 1,1.4]0|4[ 9Partition 30:4 ][ 0Total0:4 $round($calc(($disk(g).size)/1048576), 0) $+ MB 4]0|4[ 9Free Space0:4 ][ $round($calc(($disk(g).free)/1048576), 0) $+ MB4]0|4[
  }
  else {
    /echo -a 1,1.4]0|4[  $+ $rand(3,15) $+ Hard Drive Info 0:4]0|4[1,1.
    /echo -a 1,1.4]0|4[ 10Partition 10:4 ][ 0Total0:4 $round($calc(($disk(%partition1).size)/1048576), 0) $+ MB 4]0|4[10Free Space0:4 ][ $round($calc(($disk(%partition1).free)/1048576), 0) $+ MB4]0|4[
    /echo -a 1,1.4]0|4[ 11Partition 20:4 ][ 0Total0:4 $round($calc(($disk(%partition2).size)/1048576), 0) $+ MB 4]0|4[11Free Space0:4 ][ $round($calc(($disk(%partition2).free)/1048576), 0) $+ MB4]0|4[
    /echo -a 1,1.4]0|4[ 9Partition 30:4 ][ 0Total0:4 $round($calc(($disk(%partition3).size)/1048576), 0) $+ MB 4]0|4[9Free Space0:4 ][ $round($calc(($disk(%partition3).free)/1048576), 0) $+ MB4]0|4[
  }
}
on *:dialog:info:sclick:6:{ if ($server != $null) { /msg $active 1,1.4[10Operating System0:4]0 $dll($mircdir\moo.dll,osinfo,_) 1. }
  else { /echo -a 1,1.4[10Operating System0:4]0 $dll($mircdir\moo.dll,osinfo,_) 1. }
}
on *:dialog:info:sclick:7:{ if ($server != $null) { /msg $active 1,1.4[10Pc Uptime0:4]0  $duration($calc($ticks / 1000.1)) 1. }
  else { /echo -a 1,1.4[10Pc Uptime0:4]0  $duration($calc($ticks / 1000.1)) 1. }
}
on *:dialog:info:sclick:8:{ if ($server != $null) { /msg $active 1,1.4[10Net Connection0:4]0 $dll($mircdir\moo2.dll,connection,_) }
  else { /echo -a 1,1.4[10Net Connection0:4]0 $dll($mircdir\moo2.dll,connection,_) }
}
on *:dialog:info:sclick:9:{ if ($server != $null) { /msg $active 1,1.4[10Time-Date0:4]0 $time(h:nn:sstt) - $date(dddd - d - mmmm - yyyy) 1. }
  else { /echo -a 1,1.4[10Time-Date0:4]0 $time(h:nn:sstt) - $date(dddd - d - mmmm - yyyy) 1. }
}
on *:dialog:info:sclick:10:{ if ($network = $null) /msg $active 1,1.4[10Time on iRC $+ 0:4]0 $duration($int($calc($online))) 1. | else /msg $active 1,1.4[10Time on $network $+ 0:4]0 $duration($int($calc($online))) 1. }
on *:dialog:info:sclick:11:/msg $active 1,1.4[10Connection Stats0:4] 0Connected to $network via $server at %conservtime 1.
on *:dialog:info:sclick:12:/msg $active 1,1.4[10Usermodes0:4]0 $usermode 1. | if ($usermode = $null) .echo 4*** 12You Are not connected to a Server
on *:dialog:info:sclick:17:{ if ($server != $null) { /msg $active 1,1.4[10NetWork Interface0:4]0 $dll(moo.dll,interfaceinfo,_) 1. }
  else { /echo -a 1,1.4[10NetWork Interface0:4]0 $dll(moo.dll,interfaceinfo,_) 1. }
}
on *:dialog:info:sclick:18:{ if ( $url == $null ) /msg $active 1,1.4[10Net Surfing0:4]0 Im to lazy to surf the web right now1. | else /msg $active 1,1.4[10Net Surfing0:4]0 I'm currently viewing $url 1. }
on *:dialog:info:sclick:13:{ if ($server != $null) {
    /msg $active 1,1.......4,1-=[15 $me $+ 's Info 4]=-1.......
    /msg $active 1,1.4[10Operating System0:4] 0 $dll($mircdir\moo.dll,osinfo,_) 1.
    /msg $active 1,1.4[10Time-Date0:4]0 $time(h:nntt) - $date(dddd - d - mmmm - yyyy) 1.
    /msg $active 1,1.4[10Pc Uptime0:4]0  $duration($calc($ticks / 1000.1)) 1. | { if ($network = $null) /msg $active iRC | else .msg $active.4[10Time on $network $+ 0:4]0 $duration($int($calc($online))) 1. }
    /msg $active 1,1.4[10Connection Stats0:4] 0Connected to $network via $server at %conservtime 1.
    /msg $active 1,1.4[10Net Connection0:4]0 $dll($mircdir\moo2.dll,connection,_)
    /msg $active 1,1.4[10Cpu Info0:4]0 $remove($dll($mircdir\moo.dll,cpuinfo,_),1-,~) $+ 1.
  }
  else {
    /echo -a 1,1.......4,1-=[15 $me $+ 's Info 4]=-1.......
    /echo -a 1,1.4[10Operating System0:4] 0 $dll($mircdir\moo.dll,osinfo,_) 1.
    /echo -a 1,1.4[10Time-Date0:4]0 $time(h:nntt) - $date(dddd - d - mmmm - yyyy) 1.
    /echo -a 1,1.4[10Connection Stats0:4] 0Connected to $network via $server at %conservtime 1.
    /echo -a 1,1.4[10Net Connection0:4]0 $dll($mircdir\moo2.dll,connection,_)
    /echo -a 1,1.4[10Cpu Info0:4]0 $remove($dll($mircdir\moo.dll,cpuinfo,_),1-,~) $+ 1.
  }
}
on *:dialog:info:sclick:19:{  echo -a 1,1.4[10Idle Time4]15 $duration($int($calc($idle) / 1000)) $+ 1. }
on *:dialog:info:sclick:21:{ if ($server != $null) { msg $active 1,1.4[10mIRC Version0:4]0 $version $+ 1. }
  else { echo -a 1,1.4[10mIRC Version0:4]0 $version $+ 1. }
}

alias info.mem {
  var %info.rb.used,%info.rb.unused,%info.rb.usedstr,%info.rb.unusedstr
  set %info.rb.used $round($calc($dll(moo.dll,rambar,_) / 100 * 10),0) | set %info.rb.unused $round($calc(10 - %info.rb.used),0)
  set %info.rb.usedstr $str( $+ %info.colour $+ %pipe,%info.rb.used) | set %info.rb.unusedstr $str( $+ %info.colour1 $+ -,%info.rb.unused)
  set %check $round($dll($scriptdir $+ moo.dll,rambar,_),0)
  if ( %check <= 40 ) {
    set %pipe 9,1|
    goto end
  }
  if ( %check <= 80 ) {
    set %pipe 8,1|
    goto end
  }
  if ( %check > 81 ) {
    set %pipe 4,1|
    goto end
  }
  :end
  return  $+  $+ %info.colour2 $+ ,1 $+ < $+ %info.rb.usedstr $+ %info.rb.unusedstr $+  $+  $+ %info.colour2 $+ >
}

dialog away {
  size 355 100 150 113
  title "Away System by sidewinder"
  option dbu
  icon images\skull.ico, 0
  box "Public Away",500,5 5 140 45
  text "Select or Enter Away Reason Here:",100,5 15 100 8,center
  combo 69,10 23 130 100,drop,edit
  button "Set Away.!",1,42 36 30 10,ok
  button "Return.!",2,77 36 30 10,ok
  box "Private Away",501,5 52 140 45
  text "Select or Enter Away Reason Here:",101,5 62 100 8,center
  combo 70,10 70 130 100,drop,edit
  button "Set Away.!",3,42 83 30 10,ok
  button "Return.!",4,77 83 30 10,ok
  button "Status.?",5,60 100 30 10,ok
  button "Fuck",2500,30 250 30 15,cancel
}
on *:dialog:away:init:*:{
  did -a $dname 69 Away.!
  did -a $dname 69 Be Back Later.!
  did -a $dname 69 Be Back Soon.!
  did -a $dname 69 Be Right Back.!
  did -a $dname 69 Bottle Shop.!
  did -a $dname 69 Brekkie Time.!
  did -a $dname 69 Coffee Time.!
  did -a $dname 69 Cooking Dinner.!
  did -a $dname 69 Dinner Time.!
  did -a $dname 69 Down the Shops.!
  did -a $dname 69 E-Mailing.!
  did -a $dname 69 Feeding Time.!
  did -a $dname 69 Fone.!
  did -a $dname 69 Gaming.!
  did -a $dname 69 Gone Fishin'.!
  did -a $dname 69 Gone Shootin'.!
  did -a $dname 69 Lunch Time.!
  did -a $dname 69 Munchies.!
  did -a $dname 69 Nature Calls.!
  did -a $dname 69 Seeing a man about a dog.!
  did -a $dname 69 Shower Time.!
  did -a $dname 69 Smoke Time.!
  did -a $dname 69 Someones at the door.!
  did -a $dname 69 Surfing the Net.!
  did -a $dname 69 Watching a Movie.!
  did -a $dname 70 Away.!
  did -a $dname 70 Be Back Later.!
  did -a $dname 70 Be Back Soon.!
  did -a $dname 70 Be Right Back.!
  did -a $dname 70 Bottle Shop.!
  did -a $dname 70 Brekkie Time.!
  did -a $dname 70 Coffee Time.!
  did -a $dname 70 Cooking Dinner.!
  did -a $dname 70 Dinner Time.!
  did -a $dname 70 Down the Shops.!
  did -a $dname 70 E-Mailing.!
  did -a $dname 70 Feeding Time.!
  did -a $dname 70 Fone.!
  did -a $dname 70 Gaming.!
  did -a $dname 70 Gone Fishin'.!
  did -a $dname 70 Gone Shootin'.!
  did -a $dname 70 Lunch Time.!
  did -a $dname 70 Munchies.!
  did -a $dname 70 Nature Calls.!
  did -a $dname 70 Seeing a man about a dog.!
  did -a $dname 70 Shower Time.!
  did -a $dname 70 Smoke Time.!
  did -a $dname 70 Someones at the door.!
  did -a $dname 70 Surfing the Net.!
  did -a $dname 70 Watching a Movie.!
}
on *:dialog:away:sclick:1:{ if ($away) { /scon -at1 echo $active 4,1Notice: 15You Are Already Marked as being Away..! | halt }
  else {
    set %RtnNick $me
    set %awyrsn $did(69)
    set %AwayReply y
    set %away.time $ctime
    /scon -at1 ame 1,1.0has gone away 4][15Reason:9 %awyrsn $+ 4][0-4][15Time Now:9 $time(h:nntt) $+ 4][ 14L4`15a0T14T0i15T14u0D143 v1.71 by 4sidewinder1,1. | timeraway 0 1800 /scon -at1 ame 1,1.0is still Away 4][15Reason:9 %awyrsn $+ 4][15-4][15Gone Since: 9 %Awytime $+ 4][1,1.
    away $me
    unset %Awytime
    set %Awytime $time(h:nntt)
    nick $me $+ _Away
  }
}
on *:dialog:away:sclick:2:{ if (!$away) { echo -a 4,1Notice: 15You Were Not Marked as being Away..! | halt }
  else {
    nick %RtnNick
    /scon -at1 ame 1,1.0has returned 4][15From:9 %awyrsn $+ 4][0-4][15Time Gone:9 $duration($calc($ctime - %away.time)) $+ 4][ 14L4`15a0T14T0i15T14u0D143 v1.71 by 4sidewinder1,1.
    away
    timeraway off
    msg nickserv identify %np
    set %AwayReply n
  }
}
on *:dialog:away:sclick:3:{ if ($away) { echo -a 4,1Notice: 15You Are Already Marked as being Away..! | halt }
  else {
    nick $me $+ _Away
    set %awyrsn $did(70)
    set %RtnNick $me
    away %awyrsn
  }
}
on *:dialog:away:sclick:4:{ if (!$away) { echo -a 4,1Notice: 15You Were Not Marked as being Away..! | halt }
  else {
    away
    nick %RtnNick
    msg nickserv identify %np
    timeraway off
  }
}
.-
on *:dialog:away:sclick:5:{ if ($away) echo -a 4,1Notice: 14You are currently marked as Away ! | halt }
else { echo -a 4,1Notice: 14You are not marked as being Away ! | halt }
}

Comments

(3) RSS

Go to Bottom

SpotRedDog

Comments: 81

mIRC Snippet: Useful Stuff
Posted on May 10, 2008 5:55 am

the moo.dll thought that was a hack tool or something when used in mIRC?

BlueThen

Comments: 320

mIRC Snippet: Useful Stuff
Posted on May 10, 2008 9:50 am

Maybe because it uses DCC?

SpotRedDog

Comments: 81

mIRC Snippet: Useful Stuff
Posted on May 10, 2008 6:24 pm

no Google the moo.dll there are all sorts of warnings about the moo.dll they say to stay away from it!!!! My Security software blocked the download of the moo.dll no matter what you say I am not gonna ignore my security center PERIOD last time I did that I had a hacked PC that took me a month to fix and I am not going through that again and the DCC Transfer isn't a good idea either thats the hackers Front Door in mIRC so anyway I woin't be trying this dialog or even testing it most everything it does is covered by mIRC anyway and I don't wanna double upon stuff like that.

Code looks good just those two things are why I am staying away.

Useful Stuff

Introduction

Grab the Code

Comments

Noa Destiny

My Snippet Tags

Contact

Friends (8)

Sponsors


Last seen: May 22, 2008 Profile Friends (8) Snippets (29) Images (2) Comments Received (114) Comments Submitted (29)