Jump to content
Countdown To Christmas!



Henry

Auto join dialog

Recommended Posts

Auto join dialog

 

menu * {

Autoid/join : dialog -m idjoin idjoin

}

 

dialog idjoin {

title "Auto-id/join by Hermes v2"

size -1 -1 210 173

option dbu

box "Auto identify", 2, 10 11 190 50

check "Enable auto-id", 3, 75 1 47 10 push

check "Enable the Script", 69, 10 1 60 10 push

text "Enter your nick:", 4, 73 18 42 8

edit "", 5, 73 26 54 10, disable

text "Adress of server:", 6, 73 38 51 8

edit "", 7, 73 46 54 10, disable

text "Name of network:", 21, 16 38 51 8

edit "", 22, 16 46 54 10, disable

text "Enter your pass:", 8, 132 18 54 8

edit "", 9, 132 26 54 10, disable pass

text "Confirm your pass:", 10, 132 38 54 8

edit "", 11, 132 46 54 10, disable pass

button "Apply", 12, 21 23 37 14, disable

box "Auto-join", 13, 10 63 190 86

text "Your channels", 14, 32 72 37 8

list 15, 32 80 59 61, size disable

button "Add", 16, 92 89 27 12

button "Delete", 17, 92 113 27 12

text "Auto-join channels", 18, 120 72 46 8

list 19, 120 80 62 61, size disable

button "OK", 20, 84 154 40 15, ok

}

 

on *:dialog:idjoin:*:*:{

if ($devent == init) {

var %x = 1, %y = 1

if (%EnableAutoId == on) { did -c idjoin 3 | did -e idjoin 5,7,9,11,12,15,19,22 }

if (%start == on) { did -c idjoin 69 }

did -r idjoin 15 | while (%x <= $chan(0)) { did -a idjoin 15 $chan(%x) | inc %x }

did -r idjoin 19 | while (%y <= $lines(AutojoinChannels.txt)) { did -a idjoin 19 $read(AutojoinChannels.txt,%y) | inc %y }

did -a idjoin 5 %Nick | did -a idjoin 7 %Network | did -a idjoin 9 %Pass | did -a idjoin 11 %VerifPass | did -a idjoin 22 %NetworkName

}

if ($devent == sclick) {

if ($did == 16) {

var %y = 1

write AutojoinChannels.txt $did(15,0).seltext

did -r idjoin 19 | while (%y <= $lines(AutojoinChannels.txt)) { did -a idjoin 19 $read(AutojoinChannels.txt,%y) | inc %y }

}

if ($did == 17) {

var %y = 1

write -ds $+ $did(19,0).seltext AutojoinChannels.txt

did -r idjoin 19 | while (%y <= $lines(AutojoinChannels.txt)) { did -a idjoin 19 $read(AutojoinChannels.txt,%y) | inc %y }

}

if ($did == 3) {

if ( $did(idjoin,3).state == 1 ) { did -e idjoin 5,7,9,11,12,15,19,22 | set %EnableAutoId on }

if ( $did(idjoin,3).state == 0 ) { did -b idjoin 5,7,9,11,12,15,19,22 | set %EnableAutoId off }

}

if ($did == 12) { echo -a 4Changes made

}

if ($did == 20) { echo -a 4,1Thanks for using 0Hermes script!

}

if ($did == 69) {

if ($did(idjoin,69).state == 1) { set %start on }

if ($did(idjoin,69).state == 0) { set %start off }

}

}

if ($devent == edit) {

if ($did == 5) { set %Nick $did(5) }

if ($did == 7) { set %Network $did(7) }

if ($did == 9) { set %Pass $did(9) }

if ($did == 11) { set %VerifPass $did(11) }

if ($did == 22) { set %NetworkName $did(22) }

}

}

 

on *:start:{

if (%start == on) { server %Network | echo -a 9,1Auto-identify and auto-join by Hermes

Share this post


Link to post
Share on other sites
 
 
 
 

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...

×
  • Create New...