trill

trill

Joined
May 11, 2008

Activity Stream

trill commented on a Page, Kick/Ban Counter For Bot(Modification)  -  May 25, 2011

you could make it so it ill say the right count on the channel if you use this in more then 1 channel that is..

on $*:text:/^!k(counter restart|status)$/iS:#: { 
  if ($nick isop # && !$($+(%,f,#),2)) { inc -u4 $+(%,f,#)
    if ($regml(1) = counter restart) {
      unset $+(%,blitzz,#) $+(%,blitzzb,#) 
      msg # Kick/Ban Counter is restarted now totalstats is zero.
    }
    if ($regml(1) = status) { 
      msg # 4Total kick/ban status on channel  #  $+ : $iif($($+(%,blitzz,#),2),$v1,0)$&
        Kick(s). - $iif($($+(%,blitzzb,#),2),$v1,0) Ban(s). 
    }
  }
}
on *:kick:#:inc $+(%,blitzz,#) 1
on *:BAN:#:inc $+(%,blitzzb,#) 1
 Respond  
trill commented on a Page, Rude Slap  -  Aug 03, 2010

lmao.... short an sweet just the way I like sockets to be. I also love the warning echos they cracked me up. 8/10 +like

 Respond  
trill commented on a Page, Services Windows  -  Apr 20, 2010

edited the rewrite to take out the whois as Cados said.

 Respond  
trill commented on a Page, Services Windows  -  Apr 19, 2010

you can turn this

on 1:INPUT:@ChanServ*:{
  .msg chanserv $1-
  halt
}
on 1:INPUT:@BotServ*:{
  .msg botserv $1-
  halt
}
on 1:INPUT:@HostServ*:{
  .msg hostserv $1-
  halt
}
on 1:INPUT:@NickServ*:{
  .msg nickserv $1-
  halt
}
on 1:INPUT:@MemoServ*:{
  .msg memoserv $1-
  halt
}
on 1:INPUT:@Operserv*:{
  .msg operserv $1-
  halt
}

into this to make it alil smaller just to give you an idea.

on *:INPUT:*:{ 
  if ($regex($1,/^@((Chan|Bot|Nick|Memo|Host|Oper)Serv?\b)/iS)) { 
    .msg $regml(1) $2- 
    haltdef
  }
}

you can also do much more to shorten the on notices. maybe somthing like this.

on ^*:NOTICE:*:?:{
  if ($regex($nick,/((Chan|Bot|Nick|Memo|Host|Oper)Serv?\b)/i)) {
    if (!$window($+(@,$nick,.,$network))) { window -e0 $+(@,$nick,.,$network) }
    aline -p $+(@,$nick,.,$network) $nick : $1-
    haltdef
  }
}

so the whole code would be

on *:INPUT:*:{ 
  if ($regex($1,/^@((Chan|Bot|Nick|Memo|Host|Oper)Serv?\b)/iS)) { 
    .msg $regml(1) $2- 
    haltdef
  }
}
on ^*:NOTICE:*:?:{
  if ($regex($nick,/((Chan|Bot|Nick|Memo|Host|Oper)Serv?\b)/i)) {
    if (!$window($+(@,$nick,.,$network))) { window -e0 $+(@,$nick,.,$network) }
    aline -p $+(@,$nick,.,$network) $nick : $1-
    haltdef
  }
}

thanks to napa for helping me make this smaller

 Respond  
trill commented on a Page, Countdown Script  -  Apr 11, 2010

jethro i was trying to keep it as close to the authors take on it as i can by using a timer as they did.

 Respond  
trill commented on a Page, Countdown Script  -  Apr 11, 2010

can also do it like this as well

on $*:TEXT:/^\?time?\s?/iS:#:{ 
  if (!$($+(%,timer,$nick),2)) {
    set -u3 $+(%,timer,$nick) 1
    if ($timer(countdown)) { .notice $nick 5Timer is in use try back in 3 $timer(countdown).secs 5Seconds! }
    elseif (!$2 || $2 !isnum) { .notice $nick 4Failed14 to time the required request because you didn't provide the duration! ex: ?time 5 }
    else { 
      .notice $nick 5Timer has started with3 $2 5Seconds!
    .timercountdown 1 $2 .notice $nick Timer has reached zero after counting down from $2 seconds! }
  }
}
 Respond  
trill commented on a Page, Seen nick script  -  Mar 11, 2010

haha thanks napa and thanks again for the help.

 Respond  
trill commented on a Page, Seen nick script  -  Mar 11, 2010

hi i hope you don't mind me changing it a little.

#seen_nick on
on !*:JOIN:#: {
  hadd -m seen_nick $wildsite $+($remtok($hget(seen_nick,$wildsite),$nick,32),$chr(32),$nick)
  if ($numtok($hget(seen_nick,$wildsite),32) > 1) {
    echo $chan $timestamp -- $nick used these nicks earlier: $remtok($hget(seen_nick,$wildsite),$nick,32)
  }
}
on !*:NICK: { hadd -m seen_nick $wildsite $+($remtok($hget(seen_nick,$wildsite),$newnick,32),$chr(32),$newnick) }
alias -l saveseen_nick { .hsave seen_nick $qt($scriptdirseen_nick.hsh) }
alias -l loadseen_nick { 
  if (!$hget(seen_nick)) { .hmake seen_nick 10000 }
  elseif ($exists($scriptdirseen_nick.hsh)) { .hload seen_nick $qt($scriptdirseen_nick.hsh) } 
}
on *:disconnect:{ $saveseen_nick } 
on *:exit:{ $saveseen_nick }
on *:start:{ $loadseen_nick }
on *:connect:{ $loadseen_nick }
#seen_nick end
menu nicklist {
  -
  .Turn Seen Nick $iif($group(#seen_nick) = On,Off,On): $iif($group(#seen_nick) = On,.disable,.enable) #seen_nick | echo -a $timestamp -- Seen Nick is $group(#seen_nick)
  . $iif($numtok($hget(seen_nick,$address($$1,2)),32) <= 1,$style(2)) Check $$1's Previous Nicks: echo -a $timestamp -- $$1 used these nicks: $remtok($hget(seen_nick,$address($$1,2)),$1,32)
  . $iif($numtok($hget(seen_nick,$address($$1,2)),32) <= 1,$style(2)) Delete $$1's Previous Nicks: echo -a $timestamp -- $$1's Previous Nicks Are Now Deleted. | hdel seen_nick $address($$1,2)
  -
}

Edit: added the nick event.

 Respond  
trill commented on a Page, Simple Fun Future Script  -  Apr 30, 2009

you can chage things like this

on 1:TEXT:!future:#: {
  if (%future == on) {
    halt
  }
  else {
    if (future !== on) {
      set %future on
      msg $chan Well well, hello there, $nick $+ . Would you like for me to tell your future??
      timer 1 2 msg $chan !Yes or !No.
      set %choice on
    }
  }
}

into this

on 1:TEXT:!future:#: {
  if (!%future) {
    set %future on
    msg $chan Well well, hello there, $nick $+ . Would you like for me to tell your future??
    .timer.future 1 2 msg $chan !Yes or !No.
    set %choice on
  }
}

instead of seting the vars to off just unset them
also you sould name ur timers

 Respond  
trill commented on a Page, aol.mrc  -  Apr 14, 2009

kinda funny and annoying at the same time

 Respond  
trill commented on a Page, Twitter Status Update + Direct Message  -  Apr 01, 2009

the on sockopen event looks like HM2K's. Did you use there code to make this? Like did you use it to get ideas to make this? Im not saying you ripped it by any means im just asking if you used his to base this from.

 Respond  
trill commented on a Page, Simple Owner/Deowner Script  -  Nov 04, 2008

nice

 Respond  
trill commented on a Page, Fkey Ban  -  Aug 26, 2008

you can also do it like this as well so all you have to do is highlite a nick in the nick list then push the F4 key. this should put all the modes on one line so you dont get a bit of mode flood in the room. also it will only work if you are an op in the room.

alias F4 { if ($$1 && $me isop #) { mode # +bbb-qaohv $+(~q:,$address($$1,2)) $+(~n:,$address($$1,2)) $address($$1,2) $str($$1 $chr(32),5) | kick # $$1 Cya } }
 Respond  
trill commented on a Page, slap blocker and kicker  -  Aug 25, 2008

Dj_801 who showed you how to make that? Cause i know you didnt make this urself.

 Respond  
trill commented on a Page, World Time Bot  -  Aug 25, 2008

well i dont think he will being that he was Last seen on: May 02, 2006

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.