Forums Scripts & Popups identical events

[color:red]
#HG on
alias HGon {
  if ($group(#greet) == off) {
    enable #greet
    echo 5 -a Hash greet has been turned on.
  }
  else {
    echo 5 -a Hash greet is already on.
  }
}
alias HGoff {
  if ($group(#greet) == on) {
    disable #greet
    echo 5 -a Hash greet has been turned off.
  }
  else {
    acho 5 -a Hash greet is already off.
  }
}
alias HGadd {
  if ($hget(greet)) {
    hadd greet $$1 $$?="Enter the  greeting you want for $1 $+ ."
    echo 5 -a Entry created for $1 $+ .
    hsave greet " $+ $scriptdirgreet.hsh"
  }
  else {
    hmake greet 100
    hadd greet $$1 $$?="Enter the greeting for $1."
    echo 5 -a Entry added for $1 $+ .
    hsave greet " $+ $scriptdirgreet.hsh"
  }
}
alias HGdel {
  if ($hget(greet)) {
    hdel greet $$1
    echo 5 -a Entry for $1 deleted.
  }
  else {
    echo 5 -a Table greet not found.
    echo 5 -a Entry cannot be present.
  }
}
alias HGclear {
  if ($hget(greet)) { hfree greet
    echo 5 -a Table cleared.
  }
}
menu nicklist {
  Hash Greet
  .On Off
  ..HG on:HGon
  ..HG off:HGoff
  .Table  
  ..Add:HGadd $$1
  ..Delete:HGdel $$1
  ..Clear:HGclear
}
#HG end

#greet on
on *:start: {    
  if ($isfile(greet.hsh)) {      
    hmake greet 100    
    hload -o greet greet.hsh  
  }  
  else { 
    hmake greet 100
  }
}
on *:exit: { 
  hsave -o greet " $+ $scriptdirgreet.hsh"  
  hfree greet 
}
on !@*:join:#: {
  if (($hfind(greet, $nick)) && (%bb != on)) {
    msg $chan $nick $+ : $hget(greet, $nick) 
    set -su10 %bb on  
  }
  else { 
    if (%bb != on)    
    msg $chan Type !greet <your greeting here> and i will greet you with that every time you join.
    set -su10 %bb on  
  }
}
on @*:text:!greet *:#: { 
  if (((%aa != on) && ($hget(greet)) && ($len($2-) <= 100))) {  
    hadd greet $nick $$2-
    echo 5 -a Entry created for $nick $+ .    
    hsave -o greet " $+ $scriptdirgreet.hsh" 
    msg $chan $nick $+ 's greeting was set to: $hget(greet, $nick)
    set -su10 %aa on
  }
  else if ((%aa != on) && ($len($2-) <= 100)) { 
    hmake greet 100
    hadd greet $nick $$2- 
    echo 5 -a Entry created for $nick $+ .
    msg $chan $nick $+ 's greeting was set to: $hget(greet, $nick)
    set -su10 %aa on
  }
}
#greet end
[/color]

[color:red] 
#aliases on
alias HGon {
  if ($group(#greet) == off) {
    enable #greet
    echo 5 -a Hash greet has been turned on.
  }
  else {
    echo 5 -a Hash greet is already on.
  }
}
alias HGoff {
  if ($group(#greet) == on) {
    disable #greet
    echo 5 -a Hash greet has been turned off.
  }
  else {
    acho 5 -a Hash greet is already off.
  }
}
alias HGadd {
  if ($hget(greet)) {
    hadd greet $$1 $$?="Enter the  greeting you want for $1 $+ ."
    echo 5 -a Entry created for $1 $+ .
    hsave greet " $+ $scriptdirgreet.hsh"
  }
  else {
    hmake greet 100
    hadd greet $$1 $$?="Enter the greeting for $1."
    echo 5 -a Entry added for $1 $+ .
    hsave greet " $+ $scriptdirgreet.hsh"
  }
}
alias HGdel {
  if ($hget(greet)) {
    hdel greet $$1
    echo 5 -a Entry for $1 deleted.
  }
  else {
    echo 5 -a Table greet not found.
    echo 5 -a Entry cannot be present.
  }
}
alias HGclear {
  if ($hget(greet)) { 
    hfree greet
    echo 5 -a Table cleared.
  }
}[/color]
alias flooda {
  set -su 5 %i on
}
alias floodb {
  set -su5 %j on
}
[color:red]#aliases end
[/color][color:red]
#HG on
menu nicklist {
  Hash Greet
  .On Off
  ..HG on:HGon
  ..HG off:HGoff
  .Table  
  ..Add:HGadd $$1
  ..Delete:HGdel $$1
  ..Clear:HGclear
}
#HG end
[/color]
[color:red]#greet on
on *:start:{ 
  [/color]//.timer 0 1800 msg #sensei $$!read(babble.txt,n)  
  [color:red]if ($isfile(greet.hsh)) {      
    hmake greet 100    
    hload -o greet greet.hsh  
  }  
  else { 
    hmake greet 100
    hsave -o greet " $+ $scriptdirgreet.hsh" 
  }
}
on *:exit: { 
  hsave -o greet " $+ $scriptdirgreet.hsh" 
  hfree greet 
}
on @*:join:#: {  
  [/color]timer 1 10 mode $chan +l $calc($nick($chan,0) + 1)  
  if ($ulevel >= 3) { mode # +q $nick  
    if ($ulevel == 2) { mode # +o $nick
    }
  }  
  [color:red]if (($hfind(greet, $nick)) && (%bb != on)) {
    msg $chan $nick $+ : $hget(greet, $nick) 
    set -su10 %bb on  
  }
  else { 
    if (%bb != on) {    
      msg $chan Welcome to $chan $+ , $nick $+ . Type !greet <your greeting here> and i will greet you with that every time you join.
      set -su10 %bb on   
    }
  }
}
on @*:text:!greet *:#: { 
  if (((%aa != on) && ($hget(greet)) && ($len($2-) <= 100))) {  
    hadd greet $nick $$2-
    echo 5 -a Entry created for $nick $+ .    
    hsave -o greet " $+ $scriptdirgreet.hsh" 
    msg $chan $nick $+ 's greeting was set to: $hget(greet, $nick)
    set -su10 %aa on
  }
  else if ((%aa != on) && ($len($2-) <= 100)) { 
    hmake greet 100
    hadd greet $nick $$2- 
    echo 5 -a Entry created for $nick $+ .
    msg $chan $nick $+ 's greeting was set to: $hget(greet, $nick)
    set -su10 %aa on
  }
}
#greet end
[/color]