Dialog/Misc.-mIRC Commands

By Warriorii on Aug 31, 2010

Screenshots

This is my first dialog, So I hope it is done correctly. It works I have tested it on Dalnet. There is probably 100's of these around but i wanted to try my hand at a dialog and this is what i came up with.
UPDATE:
I added a lot more commands to the dialog. mostly for the new mirc users and of course for me lol. I'm just to lazy to go and look them up and i'm to old to remember them looooool. any way. here it is and I hope it's satisfactory to everyone. Enjoy

NOTE:
This was scripted for Dalnet, I can't guarantee that it will work on other networks.

#######################
# Scripted on 8/31/10 #
# Author: Jon2       #
# UpDated 4-14-12     #
# Tested By Luvme4me  #
#######################
menu channel,status { 
  Mics.mIRC Commands/Dialog:dialog $iif($dialog(New),-v,-m New) New 
} 
dialog New { 
  title "Misc mIRC Commands By Jon2" 
  size -1 -1 154 170 
  option dbu 
  box "",1,5 0 144 152 10
  box "",2,59 148 35 19
  button "Kick",6,8 5 33 10 
  button "2 min K/B",7,43 5 33 10 
  button "24 hr K/B",8,78 5 33 10 
  button "Perm.K/B",9,113 5 33 10 
  button "Akick",10,8 18 33 10 
  button "Del Akick",11,43 18 33 10 
  button "Akick List",12,78 18 33 10 
  button "Verbose",13,113 18 33 10 
  button "Change Pass",14,8 31 33 10 
  button "Ch Fo/Pass",15,43 31 33 10 
  button "Op's Notice",16,78 31 33 10 
  button "Reg Notice",17,113 31 33 10 
  button "Add Sop",18,8 43 33 10 
  button "Add Aop",19,43 43 33 10 
  button "Del Sop",20,78 43 33 10 
  button "Del Aop",21,113 43 33 10
  button "Reg Nick",25,8 55 33 10
  button "Release Nick",26,43 55 33 10
  button "Topicclock",27,78 55 33 10
  button "User Access",28,113 55 33 10
  button "Add Manger",29,8 67 33 10
  button "Del Manager",30,43 67 33 10
  button "+Successor",31,78 67 33 10
  button "-Successor",32,113 67 33 10
  button "Send Pass",33,8 79 33 10
  button "Mode Lock",34,43 79 33 10
  button "Ghost",35,78 79 33 10
  button "ShowEmail",36,113 79 33 10
  button "OpGuard",37,8 91 33 10
  button "User Idents",38,43 91 33 10
  button "Ck AOP List",39,78 91 33 10
  button "Ck SOP List",40,113 91 33 10
  button "Chan Info",41,8 103 33 10
  button "Op's Memo",42,43 103 33 10
  button "Set Email",43,78 103 33 10
  button "List Email",44,113 103 33 10
  button "Ban",45,8 115 33 10
  button "Unban",46,43 115 33 10
  button "RegChannel",47,78 115 33 10
  button "Drop Chan",48,113 115 33 10
  button "List Managers",49,8 127 45 10
  button "Set New Founder",50,55 127 44 10
  button "Add Web URL",51,101 127 45 10
  button "Info",52,8 139 45 10
  button "Networks",53,101 139 45 10
  button "Close",24,62 154 29 11, cancel flat
} 
on *:DIALOG:new:sclick:*:{ 
  if $did == 6 { /kick $active $?"Enter Nick To Kick" }
  if $did == 7 { /ban -ku120 $active $$?"Enter Nick To Kick" 2 minute ban } 
  if $did == 8 { /ban -ku1440 $active $$?"Enter Nick For 24 hour Ban And Kick" 24 hour ban } 
  if $did == 9 { /ban -k $active $$?"Enter Nick To Ban" Permenant Ban } 
  if $did == 10 { /cs akick $active add $$?"Enter Nick To Akick" } 
  if $did == 11 { /cs akick $active del $$?"Enter Number From Akick List" } 
  if $did == 12 { /cs akick $active list } 
  if $did == 13 { /cs set $active verbose $$?"[<ON|OFF>] $crlf $+ If on shows (some) commands issued by AOPs and above" } 
  if $did == 14 { /msg NickServ@services.dal.net SET PASSWD $$?"To Change Nick Password $crlf $+ Type Current Password & New Password" } 
  if $did == 15 { /cs SET $active PASSWD $$?"To Change Channel Password $crlf Enter Current Channel Password and New Password" }
  if $did == 16 { /onotice $active $$?"Enter Your Message Here $crlf $+ This will send a message to all op's in the form of a notice" } 
  if $did == 17 { /notice $$?"Enter Nick and Message" } 
  if $did == 18 { /cs sop $active add $$?"(Enter User's Nick or Mask $crlf Ex. *!*@11.111.11.* Choose Them Wisely" } 
  if $did == 19 { /cs aop $active add $$?"(Enter User's Nick or Mask $crlf Ex. *!*@11.111.11.*" } 
  if $did == 20 { /cs sop $active del $$?"(Enter Users Nick or Mask)" } 
  if $did == 21 { /cs aop $active del $$?"(Enter Users Nick or Mask)" } 
  if $did == 25 { /ns register $$?"Enter password and email address" }
  if $did == 26 { /ns RELEASE $$?"Enter Nick and Password" }
  if $did == 27 { /cs SET $active TOPICLOCK $$?="Enter [FOUNDER|MANAGER|SOP|OFF] $crlf $+ When On, only founder or SuperOps are able to change" }
  if $did == 28 { /cs ACCESS $active $$?"Enter User's Nick" } 
  if $did == 29 { /cs MANAGER $active ADD $$?"Dalnet Only $crlf $+ Enter Nick To Add As Manager $crlf $+ Remember Managers have full Access To All $crlf $+ Channel Commands With The Exception Of $crlf $+ Set Founder, Set Successor, Set Mailblock And Drop $crlf $+ So Choose Your Managers Wisely" }
  if $did == 30 { /cs MANAGER $active Del $$?"Dalnet Only $crlf $+ Enter Nick Or Number To Remove As Manager" }
  if $did == 31 { /cs SET $active SUCCESSOR $$?"Enter Nick For Successor $crlf $+ With A Successor If Your Nick Expires Then Your Successor Will Become Founder Until You Register Your Nick Again $crlf $+ So Choose Your Successor Wisely" }
  if $did == 32 { /cs SET $active SUCCESSOR - $$?"Enter Nick For Successor" }
  if $did == 33 { /ns SENDPASS $$?"Enter Nick and email Address $crlf $+ This will have dalnet send your password to your email address" }
  if $did == 34 { /cs set $active mlock $?"Enter +/- and The Modes" }
  if $did == 35 { /ns ghost $$?"Enter Nick Here" /ns identify kelsey22 | /nick Jon2 }
  if $did == 36 { /ns set showemail $$?"Enter On/Off To Turn Show Email On Or Off $crlf $+ If ON Your Email Address Will Accessable To Other Users" }
  if $did == 37 { /cs set $active opguard $$?"OpGuard On/Off $crlf $+ When on only SOPs,AOPs And Founder Can Have Ops" }
  if $did == 38 { /cs set $active IDENT $?"Set On/Off $crlf $+ When on all Op's must Identify with nickserv before chanserv will op them" }
  if $did == 39 { /cs aop $active list }
  if $did == 40 { /cs sop $active list }
  if $did == 41 { /cs info $active all }
  if $did == 42 { /ms SEND $active $$?"Enter OP's Message Here $crlf $+ This will send a memo to all channel Ops" }
  if $did == 43 { /msg NickServ@services.dal.net SET EMAIL $$?"Dalnet Only $crlf $+ Enter your Nick Password And New Email Address $crlf $+ Upon entering a valid email address, you will be sent a single verification email which will provide you information on how to finalize the setting of your address. You must follow the instructions given in that email for this command to take effect." } 
  if $did == 44 { /msg NickServ@services.dal.net SET EMAIL }
  if $did == 45 { /mode $active +b $$?"Enter Nick To Be Banned" }
  if $did == 46 { /cs unban #$$?"Enter Channel Without The #, Then Enter Nick" }
  if $did == 47 { /cs register $$?"Enter Channel Name, Password and description" }
  if $did == 48 { /cs drop #$$?"Enter Channel Without The #, To Drop" }
  if $did == 49 { /cs manager $active list } 
  if $did == 50 { /cs SET #$$?"Enter The Channel Name without the #, $crlf $+ This command will change Founders on this channel $crlf $+ You must identify before using this command, Using the Founders Password" FOUNDER }
  if $did == 51 { /cs SET #$$?"Enter Your Channel Name, Without the #" URL $$?"Enter Your Websites URL $crlf Or Enter Just URL To Clear Any Former URL" } 
  if $did == 52 { /dialog -m mirccommands mirccommands }
  if $did == 53 { /dialog -m networks networks }
}
dialog mirccommands {
  title " About Mirc Commands "
  option dbu
  size -1 -1 165 103
  box "", 11,9 3 146 90
  button "Close",52,67 94 25 8, cancel
  text "This script was written By Jon2 and tested by Luvme4me. I would however like to thank Whobear and",4,15 10 135 17
  text "Foghat from broadbandvideo for their suggestions and Luvme4me for testing my files. If you find any bugs in it",5,15 23 135 17
  text "you can find me on Dalnet in my channel #Warlock, if i'm not there leave me a msg.",6,15 36 135 17
}
dialog Networks {
  title "irc.broadbandvideo.us"
  option dbu
  size -1 -1 166 148
  box "",11,10 3 146 130
  button "Close",53,67 136 34 10, cancel
  text "I am also on another network called irc.broadbanvideo.us, If you would like to vist us I do",4,15 10 135 17
  text "believe you will like it there. It's very family oriented, perfect for young people and adults alike. We DO NOT",5,15 23 135 17
  text "allow bad language and/or sexual innuendos in the channels or in private.Our Network Administators are:",6,15 36 135 17
  text "Network Owner - Foghat",7,15 49 135 17
  text "Administrators   - Dawg^Fan",8,15 56 135 17
  text "                          - Jon2",9,15 63 135 17
  text "                          - Luvme4me",10,15 70 135 17
  text "                          - Whobear",12,15 77 135 17
  text "To join us type, /server -m irc.broadbandvideo.us in your text box at the bottom of your channel window",13,15 84 135 17
  text "and press enter, that way u can stay on your server and still join us. Then type /join #AllNight-cafe and press",14,15 97 135 17
  text "enter.  Hope to see you there.",15,15 110 135 17
}                         

Comments

Sign in to comment.
Warriorii   -  Sep 01, 2010

I just saw that and I think we all know 60sec=1 minute. I just used 60 seconds to try it out and forgot to change it lol, thanks and it's fixed. I know u can do it faster manually but like i said it's my first dialog and thats what come out lol. I just wanted to see if i could do it. I guess it would help someone new on irc. anyway i didnt expect anyone to use it just wanted to try and make it. Thanks again WorldDMT

 Respond  
WorldDMT   -  Sep 01, 2010

about if $did == 6 { /kick $active $?"Enter Nick To Kick" }
time to open the dialog, press kick, and put the Nick, you can do it manually it's faster
and about
if $did == 7 { /ban -ku60 $active $?"Enter Nick To Kick" 2 minute ban }

replace -ku60 by -ku120 or replace 2 minute bye 1 minute

60sec = 1 min.

 Respond  
Warriorii   -  Aug 31, 2010

I added that line napa182 and thx for the help on that. I'll remember that if i ever make another one.

 Respond  
napa182   -  Aug 31, 2010

also to get rid of the " * /dialog: 'New' name in use " error
you can change this

menu channel {
  Dialog mIRC Commands:/dialog -m New New
}

to this

menu channel {
  Dialog mIRC Commands:dialog $iif($dialog(New),-v,-m New) New
}
 Respond  
Warriorii   -  Aug 31, 2010

Hi napa182, not sure about using the edit/list boxes. never tried that. but it's something to learn.

 Respond  
Warriorii   -  Aug 31, 2010

Thanks Burrito, I'll see wha i can do about the $input. I've never use it but i'll give it a shot.

I tried the $input with the verbose button and the only thing i got was each time i clicked the button it told me in status that verbose was on. i'll have to look it up and see what i done wrong

 Respond  
napa182   -  Aug 31, 2010

maybe try the edit/list boxes along with the buttons instead of the $?" , but since you have gone that route then it would prob be best to use $$?"what ever" making sure ur input is added so it wont error out.

 Respond  
Burrito   -  Aug 31, 2010

Its good, although i recommend $input instead of $?

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.