Access Thanker

By Pri'sBaby on Dec 25, 2004

It Thanks People for giving you access, also it has a dialog switch to turn it on and off, it is simple to change the colours you use just by right clicking in a channel, then going down to colours then change colours, this script can show you how many Founders, SuperOps,Ops,Halfops and voices you have also it shows you who last gave you the access.
just Type alt+R and paste it into remotes!

#Thanks on
on *:voice:#: {
  if ($vnick == $me) && ($nick != $me) {
    //set %voicenick $nick
    /inc %voices
    //msg # %colour1 $+ T $+ %colour2 $+ hanks %colour1 $+ F $+ %colour2 $+ or %colour1 $+ T $+ %colour2 $+ he %colour1 $+ + $+ %colour2 $+ v $Upper( $+  $+ %colour1 $+ $left(%voicenick,1) $+ ) $+  $+ %colour2 $+ $mid(%voicenick,2) $+ , %colour1 $+ T $+ %colour2 $+ hats %colour1 $+ N $+ %colour2 $+ umber %colour1 $+  $+ $left(%voices,1) $+ %colour2 $+  $+ $mid(%voices,2) 
  }
}
on *:help:#: {
  if ($hnick == $me) && ($nick != $me) {
    /set %hopnick $nick
    /inc %hops
    //msg #  $+ %colour1 $+ T $+ %colour2 $+ hanks  $+ %colour1 $+ F $+  $+ %colour2 $+ or  $+ %colour1 $+ T $+ %colour2 $+ he  $+ %colour1 $+ + $+ %colour2 $+ h $Upper( $+  $+ %colour1 $+ $left(%hopnick,1) $+ ) $+  $+ %colour2 $+  $+ $mid(%hopnick,2) $+ ,  $+ %colour1 $+ T $+ %colour2 $+ hats  $+ %colour1 $+ N $+ %colour2 $+ umber %colour1 $+ $left(%hops,1) $+ %colour2 $+ $mid(%hops,2)
  }
}
on *:op:#: {
  if ($opnick == $me) && ($nick != $me) { 
    inc %ops 
    set %opnick $nick
    msg # %colour1 $+ T  $+ %colour2 $+ hanks %colour1 $+ F  $+ %colour2 $+ or %colour1 $+ T  $+ %colour2 $+ he %colour1 $+ +  $+ %colour2 $+ o $Upper( $+ %colour1 $+  $+ $left(%opnick,1) $+ ) $+   $+ %colour2 $+  $+ $mid(%opnick,2) $+ , %colour1 $+ T  $+ %colour2 $+ hats %colour1 $+ N  $+ %colour2 $+ umber %colour1 $+  $+ $left(%ops,1) $+ %colour2 $+  $+ $mid(%ops,2)   
  }
}
alias Stats {
  //say My Stats Are: %colour1 $+ | $+ %colour2 $+ | %colour1 $+ F  $+ %colour2 $+ ounders: %colour1 $+  $+ $left(%owners,1) $+ %colour2 $+  $+ $mid(%owners,2) %colour1 $+ | $+ %colour2 $+ | %colour1 $+ S  $+ %colour2 $+ uperOps: %colour1 $+  $+ $left(%sops,1) $+ %colour2 $+  $+ $mid(%sops,2) %colour1 $+ | $+ %colour2 $+ | %colour1 $+ O  $+ %colour2 $+ ps: %colour1 $+  $+ $left(%ops,1) $+ %colour2 $+  $+ $mid(%ops,2) %colour1 $+ | $+ %colour2 $+ | %colour1 $+ H  $+ %colour2 $+ alfOps: %colour1 $+  $+ $left(%hops,1) $+ %colour2 $+  $+ $mid(%hops,2) %colour1 $+ | $+ %colour2 $+ | %colour1 $+ V  $+ %colour2 $+ oices: %colour1 $+  $+ $left(%voices,1) $+ %colour2 $+  $+ $mid(%voices,2) %colour1 $+ | $+ %colour2 $+ | 
  //say Last Got Access Off: %colour1 $+ | $+ %colour2 $+ | %colour1 $+ F  $+ %colour2 $+ ounder: %colour1 $+  $+ $left(%ownernick,1) $+ %colour2 $+  $+ $mid(%ownernick,2) %colour1 $+ | $+ %colour2 $+ | %colour1 $+ S  $+ %colour2 $+ uperOp: %colour1 $+  $+ $left(%sopnick,1) $+ %colour2 $+  $+ $mid(%sops,2) %colour1 $+ | $+ %colour2 $+ | %colour1 $+ O  $+ %colour2 $+ p: %colour1 $+  $+ $left(%opnick,1) $+ %colour2 $+  $+ $mid(%opnick,2) %colour1 $+ | $+ %colour2 $+ | %colour1 $+ H  $+ %colour2 $+ alfOp: %colour1 $+  $+ $left(%hopnick,1) $+ %colour2 $+  $+ $mid(%hopnick,2) %colour1 $+ | $+ %colour2 $+ | %colour1 $+ V  $+ %colour2 $+ oice: %colour1 $+  $+ $left(%voicenick,1) $+ %colour2 $+  $+ $mid(%voicenick,2) %colour1 $+ | $+ %colour2 $+ | 
}
on *:Rawmode:*: {
  if (+ isin $1) && (q isin $1) && ($me == $2) {
    /inc %owners
    //set %Ownernick $nick
    msg $chan %colour1 $+ T  $+ %colour2 $+ hanks %colour1 $+ F  $+ %colour2 $+ or %colour1 $+ T  $+ %colour2 $+ he %colour1 $+ +  $+ %colour2 $+ q %colour1 $+ $Upper( $+ $left(%ownernick,1) $+ ) $+ %colour2 $+ $mid(%ownernick,2) $+ , %colour1 $+ T  $+ %colour2 $+ hats %colour1 $+ N  $+ %colour2 $+ umber %colour1 $+  $+ $left(%owners,1) $+ %colour2 $+  $+ $mid(%owners,2) 
  }
  if (+ isin $1) && (a isin $1) && ($me == $2) {
    /inc %sops
    /set %SOPNICK $nick
    msg $chan %colour1 $+ T  $+ %colour2 $+ hanks %colour1 $+ F  $+ %colour2 $+ or %colour1 $+ T  $+ %colour2 $+ he %colour1 $+ +  $+ %colour2 $+ a %colour1 $+ $Upper( $+ $left(%sopnick,1) $+ ) $+ %colour2 $+ $mid(%sopnick,2) $+ , %colour1 $+ T  $+ %colour2 $+ hats %colour1 $+ N  $+ %colour2 $+ umber %colour1 $+  $+ $left(%sops,1) $+ %colour2 $+  $+ $mid(%sops,2) 
  }
}
#Thanks end
Menu Channel,MenuBar {
  .Colours
  ..Current Colours://echo Current Colour 1 = %colour1 $+ || | //echo Current Colour 2 = %colour2 $+ || | //echo Example = %colour1 $+ T  $+ %colour2 $+ hanks %colour1 $+ F  $+ %colour2 $+ or %colour1 $+ T  $+ %colour2 $+ he %colour1 $+ +  $+ %colour2 $+ a %colour1 $+ $Upper( $+ $left(%sopnick,1) $+ ) $+ %colour2 $+ $mid(%sopnick,2) $+ , %colour1 $+ T  $+ %colour2 $+ hats %colour1 $+ N  $+ %colour2 $+ umber %colour1 $+  $+ $left(%sops,1) $+ %colour2 $+  $+ $mid(%sops,2)
  ..Change Colours://set %colour1  $+ $$?="Chose From 1-15" | //SET %colour2  $+ $$?="Chose From 1-15" | //echo Your New Colour 1 = %colour1 $+ || | //echo Your New Colour 2 = %colour2 $+ || | //echo Example = %colour1 $+ T  $+ %colour2 $+ hanks %colour1 $+ F  $+ %colour2 $+ or %colour1 $+ T  $+ %colour2 $+ he %colour1 $+ +  $+ %colour2 $+ a %colour1 $+ $Upper( $+ $left(%sopnick,1) $+ ) $+ %colour2 $+ $mid(%sopnick,2) $+ , %colour1 $+ T  $+ %colour2 $+ hats %colour1 $+ N  $+ %colour2 $+ umber %colour1 $+  $+ $left(%sops,1) $+ %colour2 $+  $+ $mid(%sops,2)
  ..Colours on/off:dialog -m Colours Colours
}
Dialog Colours {
  title "Colours!"
  size -1 -1 63 26
  option dbu
  button "On",1, 5 7 25 15
  button "Off",2, 35 7 25 15
}
on *:Dialog:Colours:Sclick:1: {
  .enable #thanks
  //echo -a You Have Just Turned The Access Thanker On!
}
on *:Dialog:Colours:Sclick:2: {
  .disable #thanks
  //echo -a You Have Just Turned The Access Thanker Off!
}

Comments

Sign in to comment.
Godzilla   -  Aug 16, 2007

Script is messy.

 Respond  
DarkFlaze   -  May 16, 2007

the op one doesnt work, i tried it, it doesnt thank for +o it doesnt count how many +o you have gotten

 Respond  
HassanAbbas   -  Nov 27, 2006

Nice work thanks

 Respond  
HassanAbbas   -  Nov 27, 2006

Thanks You

 Respond  
DarthReven   -  Dec 26, 2004

I like the idea but the dialog isn\'t needed and alias like for example alias colors { if ($group(#thanks) == on) { .disable #thanks | echo -a Access Thanker is (off) } | else { .enable #thanks | echo -a Access Thanker is (on) } } other then that nice execution

 Respond  
Pri'sBaby   -  Dec 26, 2004

Thank You lol

 Respond  
raYmad   -  Dec 26, 2004

Nice.

 Respond  
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.