auto join dialog

mIRC Code

+ 1 likes

Please Register to submit score.

Average Score	8.1
Scores Submitted	9
Date Added	Feb 05, 2008
Last Updated	Feb 27, 2008
Tags	auto autojoin dialog join

Introduction

UPDATED. Ok well i got bored so i made an auto join dialog, and yes i know that mIRC has a built in auto join but eh.. copy/paste into a new remote and click in a channel Or on ur menubar to open..turn on to enable the dialog. enter channel as #channel click add.. to delete you can type it in the edit box or highlite the channel in the list box and click delete. it will auto join the channels on connect...so Enjoy...And heres to boredom...=P

1. added some error checking

2. made it so you can either type the channel you want to delete in the edit box, or highlite the channel in the list box to delete.

3. changed the way it looks.

4. again heres to boredom.

Grab the Code

dialog aj {
  title "Auto/Join"
  size -1 -1 131 82
  option dbu
  box "Add/Del Room's To Auto Join", 1, 2 1 126 27
  button "Add", 2, 5 12 20 9, flat
  button "Delete", 3, 28 12 20 9, flat
  edit "", 4, 51 12 74 9, autohs
  box "Auto Join Room List", 5, 2 30 63 50
  list 6, 5 39 57 37, size vsbar
  box "On/Off", 7, 67 30 62 23
  radio "on", 8, 72 39 17 9, flat
  radio "off", 9, 103 39 18 9, flat
  box "Date/Time", 10, 67 54 62 26
  text "", 11, 71 65 55 8
}
on *:load: { 
  echo 12 -a You Have Just Loaded Napa182's Auto Join 
  echo 12 -a A Script0rs Inc. Production 
  echo -a 14,1(14,1�15,1�0,1�0,1� ��X�Ǯ��t0��X׻ �0,1�15,1�14,1�)�
}
alias aj { dialog $iif($dialog(aj),-v,-md) aj aj }
alias ajtime { did -ra aj 11 $time(mm.dd.yy h:nn:ss tt) }
menu menubar,channel {
  .Auto Join List { aj }  
}
on *:DIALOG:aj:close:0:{ .timerajtime off  }
on *:DIALOG:aj:init:0:{
  did -a aj 11 $time(mm.dd.yy h:nn:ss tt)
  .timerajtime 0 1 ajtime
  var %x = 1
  while ( %x <= $lines(ajoin.txt)) {
    did -a aj 6 $read(ajoin.txt,%x)
    inc %x
  }  
  if (!%ajoin) { did -c aj 9 | did -b aj 2-4,6 }
  if (%ajoin) { did -c aj 8 | did -e aj 2-4,6 }
}
on *:DIALOG:aj:sclick:*:{
  if ($did == 8) { set %ajoin on | did -u aj 9 | did -e aj 2-4,6 } 
  if ($did == 9) { unset %ajoin | did -u aj 8 | did -b aj 2-4,6 }
  if ($did == 2) { 
    if (!$did(4).text) {
      noop $input(No Channel Was Entered,uwo,Error!)
    }
    elseif ($left($did(4).text,1) != $chr(35)) { 
      noop $input(Please Enter Channel As Syntax: #channel,uwo,Syntax Error!)
      did -r aj 4
    }
    elseif ($did(4).text) {
      var %najoin $read(ajoin.txt,w,$did(4).text)
      if (%najoin == $did(4).text) { 
        noop $input(Channel Already Exists,uwo,Error!)
        did -r aj 4 
      }
      else {
        .write ajoin.txt $did(4).text 
        did -r aj 4,6
        var %x = 1
        while ( %x <= $lines(ajoin.txt)) {
          did -a aj 6 $read(ajoin.txt,%x)
          inc %x
        }
      }
    }
  }
  if ($did == 3) { 
    if (!$did(4).text) && (!$did(6).seltext) {
      noop $input(No Channel Was Entered Or Selected,uwo,Error!) 
    }
    elseif ($left($did(4).text,1) != $chr(35)) && (!$did(6).seltext) { 
      noop $input(Please Enter Channel As Syntax: #channel,uwo,Syntax Error!)
      did -r aj 4
    }
    elseif ($did(4).text) && (!$did(6).seltext) {
      var %dajoin $read(ajoin.txt,w,$did(4).text) 
      if (%dajoin != $did(4).text) {
        $input(Channel Does Not Exists,uwo,Error!)
        did -r aj 4
      }
      elseif ($did(4).text) && (!$did(6).seltext) {
        var %dajoin $read(ajoin.txt,w,$did(4).text) 
        if (%dajoin == $did(4).text) {
          write -dl [ $+ [ $readn ] ] ajoin.txt  
          did -r aj 4,6 
          var %x = 1
          while ( %x <= $lines(ajoin.txt)) {
            did -a aj 6 $read(ajoin.txt,%x)
            inc %x
          }
        }
      }
    }
    elseif ($did(6).seltext) && (!$did(4).text) {
      var %dajoin $read(ajoin.txt,w,$did(6).seltext) 
      if (%dajoin == $did(6).seltext) {
        write -dl [ $+ [ $readn ] ] ajoin.txt  
        did -r aj 6 
        var %x = 1
        while ( %x <= $lines(ajoin.txt)) {
          did -a aj 6 $read(ajoin.txt,%x)
          inc %x
        }
      }
    }
  }
}
on *:connect:{
  if (%ajoin == on) {
    var %x = 1
    while ( %x <= $lines(ajoin.txt)) {
      join $read(ajoin.txt,%x)
      inc %x
    }
  }
}

Comments

(12) RSS

Go to Bottom

Comments: 1,369

mIRC Snippet: auto join dialog
Posted on Feb 5, 2008 5:44 am

XD i rated it an didn't comment rotfl.Good work napa.`-.-�

jonesy44

Comments: 1,072

mIRC Snippet: auto join dialog
Posted on Feb 5, 2008 12:04 pm

Nice work napa, nice to see some dialogs on here

napa182

Comments: 1,133

mIRC Snippet: auto join dialog
Posted on Feb 24, 2008 6:58 pm

Updated.. enjoy... ;)

SnoooP

Comments: 320

mIRC Snippet: auto join dialog
Posted on Feb 24, 2008 8:01 pm

nice one =) it's good =]

napa182

Comments: 1,133

mIRC Snippet: auto join dialog
Posted on Feb 24, 2008 11:15 pm

thank you SnoooP

Comments: 1,369

mIRC Snippet: auto join dialog
Posted on Feb 25, 2008 1:36 am

Code:

title "Syntex Error!"

Its "Syntax"......With"a E sounds like latex.LOL.And nothing good comes from latex XD

napa182

Comments: 1,133

mIRC Snippet: auto join dialog
Posted on Feb 25, 2008 1:51 am

heh type O =P

Comments: 1,369

mIRC Snippet: auto join dialog
Posted on Feb 25, 2008 2:37 am

Lol.Yeah im not one to talk about typos >_>.Still nice job on this Napa.`-.-�

Korvin

Comments: 238

mIRC Snippet: auto join dialog
Posted on Feb 25, 2008 9:40 am

i came from broken latex =D

napa182

Comments: 1,133

mIRC Snippet: auto join dialog
Posted on Feb 25, 2008 10:59 am

LMAO Korvin I think Most of us came from that =P

Comments: 1,369

mIRC Snippet: auto join dialog
Posted on Feb 25, 2008 2:25 pm

Not jub369......

I can't say where he came from with out makin some of you gag..Lets just say somethin went the wrong way and he came out the rite way.LOL

napa182

Comments: 1,133

mIRC Snippet: auto join dialog
Posted on Feb 25, 2008 5:28 pm

rofl

auto join dialog

Introduction

Grab the Code

Comments

napa182

My Snippet Tags

Contact

Friends (40)

Sponsors

		/server irc.EzzyChat.com or /server irc.ChatScape.net California ÎÇ ×Ç ÑÎ KÅ
Last seen: Oct 07, 2008 Profile \| Website Likes (4) Friends (40) Snippets (44) Images (2) Comments Received (350) Comments Submitted (1133) Forum Posts (152)