Max's Channel Admin Dialog v1

mIRC Code

+ 0 likes

Please Register to submit score.

Average Score	5.0 (of 1 scores)
Date Added	Apr 26, 2009
Last Updated	May 04, 2009
Tags	access channel dialog founder identify login

Introduction

This is an idea I had to make an easier way to login to founder level access to channels. Basically, you can store two channels and channel passwords, and on each channel you can type /login and it'll identify with the channel you're in. And if you want to identify with one channel from another channel just type /login #ChannelName. It also has auto ID on join checkboxes, which basically auto identifies with the channel as soon as you join it.

This is a first version, I may make changes. But this is pretty much the basic idea of this dialog.

Screenshot:

Grab the Code

;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~;
; Max's Channel Admin Dialog v1 ;
;         By: Max Evans         ;
;       irc.wyldryde.org        ;
;      #Max-chat & #Chris       ;
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~;
 
 
dialog CAD {
  title "Max's Channel Admin Dialog v1"
  size -1 -1 196 99
  option dbu
  box Channel 1 - %cadchan1, 1, 4 1 89 84
  edit /login %cadchan1, 2, 35 18 50 10, read autohs
  edit %cadchan1, 3, 35 30 50 10, autohs
  edit %cadpass1, 4, 35 42 50 10, pass autohs
  button "Set", 5, 18 72 27 10
  button "Unset", 6, 51 72 27 10
  check "Auto ID On Join", 7, 23 58 52 7
  text "Command:", 8, 9 19 26 7, center
  text "Channel:", 9, 13 31 22 7, center
  text "Password:", 10, 9 43 26 7, center
  box Channel 2 - %cadchan2, 11, 100 1 89 84
  button "Set", 12, 114 72 27 10
  button "Unset", 13, 147 72 27 10
  check "Auto ID On Join", 14, 119 58 52 7
  edit /login %cadchan2, 15, 131 18 50 10, read autohs
  edit %cadchan2, 16, 131 30 50 10, autohs
  edit %cadpass2, 17, 131 42 50 10, pass autohs
  text "Command:", 18, 105 19 26 7, center
  text "Channel:", 19, 109 31 22 7, center
  text "Password:", 20, 105 43 26 7, center
  button "Okay", 21, 82 86 27 10, ok
}
 
on *:Dialog:CAD:init:*: {
  did $iif(%cadchan1,-m,-n) $dname 3
  did $iif(%cadpass1,-m,-n) $dname 4
  did $iif(%cadchan2,-m,-n) $dname 16
  did $iif(%cadpass2,-m,-n) $dname 17
  if (%cadaid1 = ON) { did -c $dname  7 }
  if (%cadaid2 = ON) { did -c $dname 14 }
}
 
on *:Dialog:CAD:sclick:*: {
  if ($did == 5) { %cadchan1 = $did(CAD,3) | %cadpass1 = $did(CAD,4) | did -m CAD 3,4 }
  if ($did == 6) { unset %cadalias1 %cadchan1 %cadpass1 | did -n CAD 3,4 }
  if ($did == 12) { %cadchan2 = $did(CAD,16) | %cadpass2 = $did(CAD,17) | did -m CAD 16,17 }
  if ($did == 13) { unset %cadalias2 %cadchan2 %cadpass2 | did -n CAD 16,17 }
  if ($did == 21) {
    if ($did(CAD,7).state = 1) { %cadaid1 = on } | else { %cadaid1 = off }
    if ($did(CAD,14).state = 1) { %cadaid2 = on } | else { %cadaid2 = off }
  }
}
 
alias login { 
  if ($chan == %cadchan1) { /chanserv identify %cadchan1 %cadpass1 }
  elseif ($chan == %cadchan2) { /chanserv identify %cadchan2 %cadpass2 }
  elseif ($$1 == %cadchan1) { /chanserv identify %cadchan1 %cadpass1 }
  elseif ($$1 == %cadchan2) { /chanserv identify %cadchan2 %cadpass2 }
}
 
 
on me:*:Join:%cadchan1: {
  if (%cadaid1 = on) { /login %cadchan1 }
}
on me:*:Join:%cadchan2: {
  if (%cadaid2 = on) { /login %cadchan2 }
}
 
menu * {
  .Max's Channel Admin Dialog v1: { dialog -m CAD CAD }
}

Comments

(4) RSS

Go to Bottom

Kirby

Comments: 475

mIRC Snippet: Max's Channel Admin Dialog v1
Posted on Apr 27, 2009 12:26 am

Cool Max.

The only thing I might recommend is to use perhaps only a single variable for each %cadchan(N) and %cadpass(N).
Since channel names and passwords can't have the 'comma' character (character #44) in them, you can perhaps use a few $gettok's to save yourself a few variables, though it may be more work than it is.
So never mind that. =/

The one thing that I'm confused about is:

Code:

on me:*:Join:%cadchan1: {

On 'me'? Never heard of that before. :O

Script looks good though.

MaxEvans

Comments: 89

mIRC Snippet: Max's Channel Admin Dialog v1
Posted on Apr 27, 2009 6:00 am

The on me:*:join tells it to only work when you join the channel. I'm still learning about tokens, so once I figure out more about how to use them I'll be able to fix the variables using them.

And thanks. =]

Aucun50

Comments: 548

mIRC Snippet: Max's Channel Admin Dialog v1
Posted on Apr 27, 2009 7:51 pm

Great dialogs max your really good at them. The script is good i like the option to have it auto id or not, also the "Command" not the standard /ns or /msg nickserv.

PATX

Comments: 389

mIRC Snippet: Max's Channel Admin Dialog v1
Posted on Apr 29, 2009 6:02 pm

rating: 5
reason: nice dialog ur a great at them! keep up da good work!. i also like the point + the code is pretty good.

Max's Channel Admin Dialog v1

Introduction

Grab the Code

Comments

Commenting Options

MaxEvans

My Snippet Tags

Contact

Friends (8)

Sponsors

		Canton, MI
Last seen: Nov 11, 2009 Profile \| Website Likes (13) Friends (8) Snippets (14) Images (11) Comments (89) Forum Posts (60)