AutoJoin Dialog

Please Register to submit score.

Average Score	7.5
Scores Submitted	2
Date Added	May 09, 2008
Last Updated	May 09, 2008
Tags	autojoin dialog network snippet

Introduction

Nice mutli-network AutoJoin Dialog

AutoJoins channels that you set in the dialog

If you are having trouble finding what network you are on, in any window when you are connected

type //echo $network

Grab the Code

dialog AutoJoin {
  title "AutoJoin Control - By PePSiMaN"
  size -1 -1 164 116
  option dbu
  button "Add", 1, 110 28 37 12
  button "Remove", 2, 110 41 37 12
  button "Join", 3, 110 63 37 12
  button "Part", 4, 110 77 37 12
  edit "#Channel", 5, 99 6 60 10
  edit "Network ($Network)", 6, 99 17 60 10
  combo 7, 5 6 92 92, size
  text "", 8, 6 104 154 9, center
  box "AutoJoin List", 9, 3 0 159 99
  box "Commands", 10, 98 53 62 42
  box "Status:", 11, 3 98 159 17
}

Menu Channel,Status {
  AutoJoin: dialog -m AutoJoin AutoJoin
}

on *:START: {
  if (!$hget(AutoJoin)) { hmake AutoJoin 100 }
  if ($exists(AutoJoin.hsh)) { hload AutoJoin AutoJoin.hsh }
}

on *:CONNECT: {
  var %auto.join $hget(AutoJoin,0).item
  :Auto.Join
  if (%auto.join > 0) {
    if ($network = $hget(AutoJoin,%auto.join).data) {
      join $hget(AutoJoin,%auto.join).item
    }
    dec %auto.join
    goto Auto.Join
  }
}

on *:DIALOG:AutoJoin:init:*: {
  var %ajoin.count $hget(AutoJoin,0).item
  :AutoJoin
  if (%ajoin.count > 0) {
    did -a AutoJoin 7 $hget(AutoJoin,%ajoin.count).item $hget(AutoJoin,%ajoin.count).data
    dec %ajoin.count
    goto AutoJoin
  }
}

on *:DIALOG:AutoJoin:sclick:*: {
  if ($did == 1) {
    if (!$did(5)) { did -a AutoJoin 8 Enter a Channel }
    elseif ($chr(35) !isin $did(5)) { did -a AutoJoin 8 Enter a valid Channel }
    elseif (!$did(6)) { did -a AutoJoin 8 Specify a Network ($network) }
    else {
      hadd -m AutoJoin $did(5) $did(6)
      did -a AutoJoin 8 Successfully added $did(5)
      did -a AutoJoin 7 $did(5) $did(6)
      if ($me !ison $did(5)) && ($network = $did(6)) { join $did(5) }
    }
  }
  if ($did == 2) {
    if (!$did(7)) { did -a AutoJoin 8 Select a Channel from the list }
    else {
      hdel AutoJoin $did(7)
      did -d AutoJoin 7 $did(7).sel
      did -a AutoJoin 8 Successfully Deleted $did(7)
    }
  }
  if ($did == 3) {
    tokenize 32 $did(7)
    if ($me ison $1) { did -a AutoJoin 8 You are already on $1 }
    elseif ($2 != $network) { did -a AutoJoin 8 Wrong Network }
    elseif ($2 = $network) { join $1 }
  }
  if ($did == 4) {
    tokenize 32 $did(7)
    if ($me !ison $1) { did -a AutoJoin 8 You are not on $1 }
    elseif ($2 != $network) { did -a AutoJoin 8 Wrong Network }
    elseif ($2 = $network) { part $1 }
  }
  if ($did = 7) {
    tokenize 32 $did(7)
    did -r AutoJoin 5
    did -r AutoJoin 6
    did -a AutoJoin 5 $1
    did -a AutoJoin 6 $2
  }
}

Comments

(2) RSS

Go to Bottom

jlowery354

Comments: 1

mIRC Snippet: AutoJoin Dialog
Posted on May 30, 2008 3:21 pm

crapy

Pepsi_Man0077

Comments: 30

mIRC Snippet: AutoJoin Dialog
Posted on Jun 10, 2008 8:25 pm

Thanks

AutoJoin Dialog

Introduction

Grab the Code

Comments

Pepsi_Man0077

My Snippet Tags

Contact

Friends (3)

Sponsors


Last seen: Jun 10, 2008 Profile Friends (3) Snippets (12) Images (1) Comments Received (85) Comments Submitted (30)