Greet Manager

Platform:  mIRC
Published  Dec 14, 2011
Updated  Dec 14, 2011
I found this in one of my first scripts, pretty much a notifier/greeter. When someone on your notify list joins a channel you're in. It will greet them.
I.e.



--->°Notify Alert: slack[photon] is online.
° Join: slack[photon] / *!*JSaprvd@XXX.XXX.XXX.XXX / #souless
|4:41a|            |(@) morbid | WB slack[photon] Heyyy

I do know I could have set it into a text file, instead of variables. But what did I know ;/ Alias gm {
dialog -mdie gm gm
did -z gm 16
}
dialog GM {
title "Greet Manager"
size -1 -1 158 118
option dbu
text "Nick", 1, 1 1 11 8
edit "", 2, 0 9 50 10, autohs
text "Message", 3, 54 1 22 8
edit "", 4, 53 9 103 10, autohs
button "&Add", 7, 33 19 37 12
text "Greeter", 13, 117 19 18 8
button "On", 14, 106 27 20 8
button "Off", 15, 127 27 20 8
list 16, 0 45 159 50, size
text "Current Notify List", 17, 55 36 42 8
button "Refresh", 18, 5 95 37 12
button "Remove", 19, 42 95 37 12
button "Clear All", 20, 79 95 37 12
button "OK", 21, 116 95 37 12, ok cancel
button "Set Up", 22, 60 107 37 10
}
on *:dialog:gm:sclick:22: {
gmsu
}

on *:dialog:gm:sclick:7: {
notify $did(2) $did(4)
}

on *:Dialog:gm:sclick:14: {
notify on
did -b gm 14
did -e gm 15
echo $active Greeter is now on !!!!!
}

on *:Dialog:gm:sclick:15: {
notify off
did -b gm 15
did -e gm 14
echo $active Greeter is now off !!!!!
}

on *:dialog:gm:sclick:18: {
set %gmnw 1
did -r gm 16
if ($notify(0) == 0) { did -a gm 16 Currently no one in your Greeter List | halt }
else if ($notify(0) != 0) {
while ($notify(0) >= %gmnw) {
did -a gm 16 $notify(%gmnw) $notify(%gmnw).note
set %gmnw $calc(%gmnw + 1)
}
}
}
on *:dialog:gm:sclick:19: {
notify -r $did(16).seltext
did -d gm 16 $did(16).sel
}

on *:dialog:gm:sclick:20: {
did -r gm 16
set %gmnk 1
while ($notify(0) >= %gmnk) {
notify -r $notify(%gmnk)
set %gmnk $calc(%gmnk + 1)
}
}

on *:JOIN:#: {
if ($notify($nick).ison == $true) { msg $chan  $+ %gmca %gmsa  $+ %gmcb WB $nick  $+ %gmca %gmsb  $notify($nick).note }
}
on *:notify: { splay sounds\notify.wav }


alias gmsu {
dialog -m gmsu gmsu
did -a gmsu 12 Custom Color #1
did -a gmsu 12 White
did -a gmsu 12 Black
did -a gmsu 12 Dark Blue
did -a gmsu 12 Green
did -a gmsu 12 Red
did -a gmsu 12 Marroon
did -a gmsu 12 Purple
did -a gmsu 12 Orange
did -a gmsu 12 Yellow
did -a gmsu 12 Light Green
did -a gmsu 12 Sky Blue
did -a gmsu 12 Blue
did -a gmsu 12 Pink
did -a gmsu 12 Dark Gray
did -a gmsu 12 Light Gray
did -z gmsu 12
did -a gmsu 13 Custom Color #1
did -a gmsu 13 White
did -a gmsu 13 Black
did -a gmsu 13 Dark Blue
did -a gmsu 13 Green
did -a gmsu 13 Red
did -a gmsu 13 Marroon
did -a gmsu 13 Purple
did -a gmsu 13 Orange
did -a gmsu 13 Yellow
did -a gmsu 13 Light Green
did -a gmsu 13 Sky Blue
did -a gmsu 13 Blue
did -a gmsu 13 Pink
did -a gmsu 13 Dark Gray
did -a gmsu 13 Light Gray
did -z gmsu 13
did -c gmsu 13 1
did -c gmsu 12 1
}

dialog gmsu {
title "Greet Manager Set Up"
size -1 -1 125 39
option dbu
edit "", 1, 16 1 17 10, autohs
text "WB", 2, 33 2 9 8
edit "", 3, 42 1 20 10, autohs
text "Greet message.....", 4, 65 2 43 9
combo 12, 1 14 60 50, size drop
combo 13, 63 14 60 50, size drop
button "Save", 14, 44 26 37 12, ok cancel
}
on *:dialog:gmsu:edit:1: {
set %gmsa $did(1)
}
on *:dialog:gmsu:edit:3: {
set %gmsb $did(3)
}
on *:dialog:gmsu:sclick:12: {
set %gmcustom $did(12).seltext
if (%gmcustom == white) { set %gmca 0 }
else if (%gmcustom == black) { set %gmca 1 }
else if (%gmcustom == dark blue) { set %gmca 2 }
else if (%gmcustom == green) { set %gmca 3 }
else if (%gmcustom == red) { set %gmca 4 }
else if (%gmcustom == marr§hear T®iggern) { set %gmca 5 }
else if (%gmcustom == purple) { set %gmca 6 }
else if (%gmcustom == orange) { set %gmca 7 }
else if (%gmcustom == yellow) { set %gmca 8 }
else if (%gmcustom == light green) { set %gmca 9 }
else if (%gmcustom == sky blue) { set %gmca 11 }
else if (%gmcustom == blue) { set %gmca 12 }
else if (%gmcustom == pink) { set %gmca 13 }
else if (%gmcustom == dark gray) { set %gmca 14 }
else if (%gmcustom == light gray) { set %gmca 15 }
}

on *:dialog:gmsu:sclick:13: {
set %gmcustom $did(13).seltext
if (%gmcustom == white) { set %gmcb 0 }
else if (%gmcustom == black) { set %gmcb 1 }
else if (%gmcustom == dark blue) { set %gmcb 2 }
else if (%gmcustom == green) { set %gmcb 3 }
else if (%gmcustom == red) { set %gmcb 4 }
else if (%gmcustom == marr§hear T®iggern) { set %gmcb 5 }
else if (%gmcustom == purple) { set %gmcb 6 }
else if (%gmcustom == orange) { set %gmcb 7 }
else if (%gmcustom == yellow) { set %gmcb 8 }
else if (%gmcustom == light green) { set %gmcb 9 }
else if (%gmcustom == sky blue) { set %gmcb 11 }
else if (%gmcustom == blue) { set %gmcb 12 }
else if (%gmcustom == pink) { set %gmcb 13 }
else if (%gmcustom == dark gray) { set %gmcb 14 }
else if (%gmcustom == light gray) { set %gmcb 15 }
}

menu nicklist {
Add to Greet : {
if ($dialog(gm) == gm) {
did -r gm 2
did -a gm 2 $1
did -r gm 4
did -f gm 2
}
else {
gm
did -a gm 2 $1
did -f gm 2
}
}
}

Comments

Sign in to comment.
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.