Henry Report post Posted March 4, 2012 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 Quote Share this post Link to post Share on other sites
engines Report post Posted March 4, 2012 Maybe easier to just use Tools, options, perform in Mirc? Quote Share this post Link to post Share on other sites
Henry Report post Posted March 4, 2012 It paste in remote--file--new,and paste it Quote Share this post Link to post Share on other sites