Auto join dialog

[Henry]

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

[engines]

Maybe easier to just use Tools, options, perform in Mirc?

[Henry]

It paste in remote--file--new,and paste it

[Bry]

Nice