Greet Manager

By xdesoto on 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.