Simple Auto Greet System w/ dialog

mIRC Code

+ 0 likes

Please Register to submit score.

Average Score	5.0
Scores Submitted	2
Date Added	May 18, 2008
Last Updated	May 21, 2008
Tags	auto dialog greet simple system

Introduction

Auto greet system i made for a friend, i rushed through it lol, so excuse any errors you find, and let me know i'll correct them. it has settings so that you may either notice the person on join
or message them, has a channels list so if you don't want it to message the person on every channel they join, it'll only greet them if they join a channel in the list, and the settin isn't set to all channels, Enjoy.

Grab the Code

alias ags { 
  dialog -m Auto_Greets Auto_Greets
}
alias setchan { 
  dialog -m Set_Chan Set_Chan
}
menu * { 
  Auto Greet System:ags
}
dialog Set_Chan {
  title "Channels List"
  size -1 -1 82 122
  option dbu
  edit "", 1, 1 1 81 12
  button "Add", 3, 0 111 30 11, default
  button "Delete", 4, 52 111 30 11, 
  list 5, 2 13 79 97, size
  menu "Menu", 6
  item "Ok", 9, 6, ok
  item "Exit", 8, 6, cancel
}
dialog Auto_Greets {
  title "35k's Auto Greet System Coded by S35k"
  size -1 -1 195 138
  option dbu
  box "Greets", 1, 5 8 144 126
  box "Settings", 2, 152 8 39 65
  edit "", 3, 7 32 137 10, result
  list 4, 7 43 138 88, sort size hsbar vsbar
  button "Ok", 5, 153 106 38 12, ok
  button "Cancel", 6, 153 121 38 12, cancel
  button "Add", 7, 8 19 27 12, default
  button "Delete", 8, 36 19 27 12
  box "On/Off", 9, 152 77 39 28
  radio "On", 10, 156 83 30 10
  radio "Off", 11, 156 93 29 10
  link "http://35kchat.com", 12, 83 21 48 10
  button "Set Channels", 13, 155 19 35 12
  button "All Channels", 14, 155 35 35 12
  check "Notice", 15, 156 51 32 10
  check "Message", 16, 156 62 33 10
}
on *:DIALOG:Set_Chan:init:*:{ 
  loadbuf -o $dname 5 Chans.txt 
  did -f $dname 1
}
on *:DIALOG:Set_Chan:sclick:*:{ 
  If ($did == 3) { 
    If (!$did(1).text) {
      noop $input(You Didn't Enter A Channel,uwo,Entry Error!)
    }
    Elseif ($did(1).text) && ($left($did(1),1) != $chr(35)) { 
      noop $input(Channel Entry Must Being With The '#' Symbol,uwo,Entry Error!) 
      did -r $dname 1
    } 
    Elseif ($did(1).text) {
      var %cc $read(Chans.txt,w,$did(1).text) 
      If (%cc == $did(1).text) { 
        noop $input($did(1).text Is Already In The Channels List,uwo,Entry Error!)
        did -r $dname 1 
      }
      Else {   
        write Chans.txt $did(1).text 
        did -r $dname 1,5
        var %c = 1
        while (%c <= $lines(Chans.txt)) {
          did -a $dname 5 $read(Chans.txt,%c)
          inc %c
        }
      }
    }
  }
  Elseif ($did == 4) { 
    If (!$did(5).seltext) { 
      noop $input(No Channel Was Selected,uwo,Entry Error!) 
    }
    ElseIf ($did(5).sel) && (!$did(1).text) {
      write -ds $+ $did(5).seltext Chans.txt
      did -d $dname 5 $did(5).sel 
    }
  }
}
on *:DIALOG:Auto_Greets:init:*:{ 
  loadbuf -o $dname 4 Greets.txt 
  did -f $dname 3
  did -c $dname $iif(%Greet_sys == ON,10,11)
  did -c $dname $iif(%mn == NOTICE,15,16)
  did $iif(%sets == OFF,-b,-e) $dname 15,16
  did $iif(%sets != OFF,-e,-b) $dname 15,16
}
on *:DIALOG:Auto_Greets:sclick:*:{ 
  If ($did == 12) { run http://35kchat.com }
  ElseIf ($did == 10) { 
    If (%Greet_sys == ON) {
      noop $input(Auto Greet System Is Already On,uwo,Settings Error!)
    }
    Else {
      set %Greet_sys ON
      did -u $dname 11 
      did -e $dname 15,16
      unset %sets
      noop $input(Auto Greet System Is Now On,uo,Greet System Enabled!) 
    }
  }
  Elseif ($did == 11) {
    If (%Greet_sys != ON) { 
      noop $input(Auto Greets Are Already Off,uwo,Settings Error!)
    } 
    Else {
      unset %Greet_sys 
      did -u $dname 10
      did -b $dname 15,16 
      set %sets OFF
      noop $input(Auto Greet System Is Now Off,uo,Greet System Disabled!) 
    }
  }
  Elseif ($did == 15) { 
    If (%mn == NOTICE) { 
      noop $input(Auto Greets Are Already Set To Notice,uwo,Settings ERror!) 
      unset %m.n
      did -c $dname 15
      did -u $dname 16
    }
    Else {
      set %mn NOTICE 
      did -u $dname 16 
      noop $input(Auto Greets Are Now Set To Notice,uo,Ags Settings Changed!) 
    }
  }
  Elseif ($did == 16) { 
    If (%m.n == ON) { 
      noop $input(Auto Greets Are Already Set To Message,uwo,Settings ERror!) 
      did -c $dname 16
      did -u $dname 15
    }
    Else {
      unset %mn 
      did -u $dname 15 
      noop $input(Auto Greets Are Now Set To Message,uo,Ags Settings Changed!) 
      set %m.n ON
    }
  }
  ElseIf ($did == 13) { 
    setchan
    unset %msg.greets
    set %setchan ON  
  }
  Elseif ($did == 14) {
    If (%msg.greets == ON) {
      noop $input(Auto Greets Is Already Set To Message All Channels,uwo,Settings Error!)
    } 
    Else { 
      noop $input(Auto Greets Is Now Set To Message All Channels,uo,Settings) 
      unset %setchan 
      set %msg.greets ON
    }
  }
  ElseIf ($did == 7) { 
    If (!$did(3).text) {
      noop $input(You Didn't Enter A Greet,uwo,Entry Error!)
    }
    Elseif ($did(3).text) { 
      var %gg $read(Chans.txt,w,$did(3).text) 
      If (%gg == $did(3).text) { 
        noop $input($did(3).text Is Already In The Greets List,uwo,Error!)
        did -r $dname 3 
      }
      Else {   
        write Greets.txt $did(3).text 
        did -r $dname 3,4
        var %g = 1
        while (%g <= $lines(Greets.txt)) {
          did -a $dname 4 $read(Greets.txt,%g)
          inc %g
        }
      }
    }
  }
  Elseif ($did == 8) { 
    If (!$did(3).text) && (!$did(4).seltext) { 
      noop $input(No Greet Was Selected,uwo,Error!) 
    }
    ElseIf ($did(4).sel) && (!$did(3).text) {
      write -ds $+ $did(4).seltext Greets.txt
      did -d $dname 4 $did(4).sel 
    }
  }
}
on *:JOIN:#:{ 
  var %chan = $chan 
  If (%Greet_sys == ON) { 
    If (%setchan == ON) {
      If (%chan isin $read(Chans.txt,w,%chan)) && (%mn == Notice) { notice $nick $read(Greets.txt) }
      Elseif (%chan isin $read(Chans.txt,w,%chan)) && (%mn != Notice) { msg $nick $read(Greets.txt) }
    }
    ElseIf (%setchan != ON) { 
      If (%mn == Notice) { .notice $nick $read(Greets.txt) }
      Elseif (%mn != Notice) { msg $nick $read(Greets.txt) }
    }
  }
}

Comments

(9) RSS

Go to Bottom

Israfel

Comments: 13

mIRC Snippet: Simple Auto Greet System w/ dialog
Posted on May 20, 2008 11:26 am

So basically this thing greets people based on what channels you chose it to greet in? Thats perty nifty, but can't you get the same result when using

Code:

on *:JOIN:#: {
.notice $nick Hey there and welcome to $chan $nick enjoy your stay and have fun!
}

If i missed something don't kill me, but it just seems like the same line as i used, only its reading various greets from a Txt file instead of having one generic greeting.. and yours has a menu <<

SnoooP

Comments: 320

mIRC Snippet: Simple Auto Greet System w/ dialog
Posted on May 20, 2008 3:30 pm

Not too bad :)

~Sonny

Comments: 71

mIRC Snippet: Simple Auto Greet System w/ dialog
Posted on May 21, 2008 7:24 am

@israfel - Yah it pretty much is the same, but it's dialoged which makesthe code alot easier to handle, and doesn't cause of having 3034237490 lines of code in your script.
With your simple on join, it'd message all channels, not specified channels, which mine has both options. ;\ So pretty much you can do it either way... YOur's (the long hard code, with tons of lines in it, or a simple dialog, with error messages, and simplicity. w/e works best for you i say :]

Eugenio

Comments: 1,108

mIRC Snippet: Simple Auto Greet System w/ dialog
Posted on May 21, 2008 9:54 am

Sonny's > israfel's
rating a 5 is ridiculous and if it was israfel then thats out of jealousy.
/me rates 1 :p

~Sonny

Comments: 71

mIRC Snippet: Simple Auto Greet System w/ dialog
Posted on May 21, 2008 2:59 pm

Rofl Eugenius! =p

~Sonny

Comments: 71

mIRC Snippet: Simple Auto Greet System w/ dialog
Posted on May 21, 2008 3:29 pm

Found sume errors -.- but.. fixed them :D lol

SnoooP

Comments: 320

mIRC Snippet: Simple Auto Greet System w/ dialog
Posted on May 21, 2008 6:30 pm

ewwww. eugenius ?

~Sonny

Comments: 71

mIRC Snippet: Simple Auto Greet System w/ dialog
Posted on May 21, 2008 10:04 pm

Rofl, that's his little "hacker" name ;x

~Sonny

Comments: 71

mIRC Snippet: Simple Auto Greet System w/ dialog
Posted on May 21, 2008 10:05 pm

WHERE ARE ALL THE NUMBERS EUGENE??!?!?1?!

~Sonny

		Webmaster of http://35kchat.com /server -m irc.35kchat.com:6669
Last seen: Oct 15, 2008 Profile \| Website Likes (2) Friends (2) Snippets (8) Images (2) Comments Received (73) Comments Submitted (71)

My Snippet Tags

Contact

Add to Friends

Send Private Message

Yahoo YIM:

MSN: snt.sonny@hotmail.com

Friends (2)

Stapler

AdrianF

View All

Simple Auto Greet System w/ dialog

Introduction

Grab the Code

Comments

~Sonny

My Snippet Tags

Contact

Friends (2)

Sponsors