Don't like ads? PRO users don't see any ads ;-)
Guest

Untitled

By: a guest on Jul 10th, 2012  |  syntax: None  |  size: 1.05 KB  |  hits: 15  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. alias addgreet {
  2.   if ($hget(greets) != greets) { hmake greets }
  3.   hadd greets $1 $2-
  4.   echo -a Greet Added for $1
  5. }
  6.  
  7. alias delgreet {
  8.   var %i = 1
  9.   while (%i <= $hget(greets,0).item) {
  10.     if ($hget(greets,%i).item == $1) {
  11.       hdel greets $1
  12.       echo -a Greet Deleted for $1
  13.     }
  14.     inc %i
  15.   }
  16. }
  17.  
  18. alias greets {
  19.   var %i = 1
  20.   if ($hget(greets)) {
  21.     while (%i <= $hget(greets,0).item) {
  22.       echo -a 4,1[0 $+ $hget(greets,%i).item $+ 4,1] 4,1(7 $+ $hget(greets,$hget(greets,%i).item) $+ 4)
  23.       inc %i
  24.     }
  25.   }
  26. }
  27.  
  28. on *:EXIT:{ hsave greets greetsystem.txt }
  29. on *:START:{ hmake greets | hload greets greetsystem.txt }
  30.  
  31. on *:JOIN:#:{
  32.   var %i = 1
  33.   while (%i <= $hget(greets,0).item) {
  34.     if ($nick == $hget(greets,%i).item) {
  35.       msg $chan 4,1[0 $+ $nick $+ 4,1] 4,1(7 $+ $hget(greets,$nick) $+ 4)
  36.     }
  37.     inc %i
  38.   }
  39.   on $*:text:*:#:{
  40.     tokenize 32 $strip($1-)
  41.     if ($network == PeerCommons) && ($istok(#main #support #abuse #appeals #staff #staff-scripts #RoomMonitor #NickMonitor #Recruits,32)) return
  42.   }  
  43. }