Master-Of-Death

Joined:

Aug 06, 2009

Occupation:

Student

Location:

Hartlepool, North East, England

Website:

http://bloggersrus-linuxuser.blogspot.com/

Interests

mirc, scripting, gaming, football and girls

Activity Stream

All Threads Projects Code Snippets

Master-Of-Death commented on a Snippet, iKnown>> Tease Op - Jan 20, 2010

firstly you do not need:

Quote

if ($chan)

secondly if it is for op's only you should really have it like this:

Quote

on @*:TEXT:!tease*:#:{
raw -q MODE # +o-o $2 $2
}

Much shorter and easier to process.

Respond

Master-Of-Death commented on a Snippet, Useful aliases - Jan 20, 2010

Sorry Jethro_ I was in a rush and didn't have time to check it, next time I will.

Respond

Master-Of-Death commented on a Snippet, Useful aliases - Jan 20, 2010

You can combine the top two into on on INPUT event by using regex and $iff

Syntax = < +/- qaohv > < $2 >
[code] on $*:INPUT:/((\+|-)(\S+))/:#:{ raw -q MODE # $regml(1) $iif(!$2, $me, $2) } [/code} or if you want to keep it in an alias you could use: [code] alias amode { raw -q MODE # $1- $iif(!$2, $me, $2) } [/code]

Respond

Master-Of-Death posted a Snippet - Jan 14, 2010

Dictionary definition search

1 Thread mIRC

Master-Of-Death posted a Snippet - Jan 14, 2010

!hawkee Search script.

1 Thread mIRC

Master-Of-Death posted a Snippet - Jan 14, 2010

!google search

13 Threads mIRC

Master-Of-Death commented on a Snippet, Assistance Snippet - Jan 12, 2010

go for hash > .txt as hash saves the disk heads and is more efficient.

Respond

Master-Of-Death commented on a Snippet, Kick Counter - Jan 11, 2010

lol what's an un-friendly code opposed to a friendly one?

Respond

Master-Of-Death commented on a Snippet, Kick Counter - Jan 09, 2010

oh yea lol thx gooshie

Respond

Master-Of-Death commented on a Snippet, Twitter Bot - Jan 09, 2010

brilliant script! 8/10

Respond

Master-Of-Death commented on a Snippet, Kick Counter - Jan 09, 2010

This is not a script all you have done virtually is take the mirc basic alias command and added inc %counter to the end.
Not to mention you have to add a channel name.

		Code 			
alias ck {
inc %counter 1
.raw -q kick # $2- %counter
}
	

Syntax: /ck <nick> <reason>

Respond

Master-Of-Death commented on a Snippet, Anti-Spambot - Jan 09, 2010

This was as much as I could simplify and correct for efficiency.

		Code 			
on *:LOAD:{
install
echo -a Script installed enjoy.
}
on $*:TEXT:/ $+ %regex $+ %swear $+ ) $+ /S:#:{
if ($ulevel == add) {
if (!$1) {
msg # Type: !commands for correct syntax.
}
elseif (!$2) {
msg # Type: !commands for correct syntax.
}
elseif ($regml(2) == add) {
.auser -a add $2
msg # Added User: $2 $+ .
}
elseif ($regml(2) == commands) {
msg $nick The Command Syntax list:
msg $nick !add <nick>
msg $nick !addword <word>
msg $nick !del <nick>
msg $nick !delword <word>
msg $nick End of Syntax list.
}
elseif ($regml(2) == del) {
.ruser $2
msg # Deleted User: $2 $+ .
}
}
elseif ($regml(2) == addword) {
set %regex %regex $+ | $+ $2
msg # Added $2 $+ .
}
elseif ($regml(2) == delword) {
set %regex $remove(%regex,| $+ $2)
msg # Deleted $2 $+ .
}
elseif ($regex($1-,%swear) {
inc %kickcount. [ $+ [ $nick ] ]
ban -ku $+ %ban $nick 2 (%ban Seconds Ban) (Badword: $regml(3)) Kickcount: %kickcount. [ $+ [ $nick ] ]
}
}
alias -l install {
set %regex (!)(|add|del|delword|addword|commands)
set %swear (fark|shoot|@#$|nigg(0|3|e|a)r?|hurensohn|bitch|wh(0|o)r(3|e
auser -a add $input(Enter the Admin Username,e,admin)
var %ban $input(Enter desired ban time,e,ban)
}
	

Sorry about the filtered words i'm sure you can figure out what they were.

DAMN YOU HAWKEE FILTERS!!!

Respond

Master-Of-Death commented on a Snippet, Assistance Snippet - Jan 09, 2010

same Jethro_

Respond

Master-Of-Death commented on a Snippet, Long Ping Reply FLOOD - Jan 07, 2010

		Code 			
ctcp 1:PING:{ var %i == 0
  if (!%anti [ $+ [ $nick ] ]) {
    set -u20 %anti [ $+ [ $nick ] ] 1
    .ctcpreply $nick Grr  OMG, Did you just CTCP ping me?
    .ctcpreply $nick Grr  Why did you do it?
    .ctcpreply $nick Grr  Why?!?
    .ctcpreply $nick Grr  Now I will have to torture you
    .ctcpreply $nick Grr by counting to 100
    .ctcpreply $nick Grr by using ctcp ping reply
    .timer 100 2 .ctcpreply $nick Grr $calc(%i + 1)
    .timer 1 113 ctcpreply $nick Grr Had enough yet or want some more?
    .timer 1 114 ctcpreply $nick Grr I hope you learnt your lesson
    .timer 1 115 ctcpreply $nick Grr Now go play
    .timer 1 116 ctcpreply $nick Grr And don't CTCP Ping me ever  again
    .timer 1 118 ctcpreply $nick Grr or else, you'll get another torture, I'm not joking. 
.halt
}
}
	

Respond

Master-Of-Death commented on a Snippet, Assistance Snippet - Jan 07, 2010

Neither, use hash tables, can hold as much as .txt files, but are almost as quick as variables.

Respond

Master-Of-Death commented on a Snippet, Votekick script - Jan 05, 2010

		Code 			


alias -l firetimer {
  if (%up > %down) {
    msg %kickchan Vote passed! Yes: %up - No: %down
    kick %kickchan %nick
  }
  else {
    msg %kickchan Vote Failed! Yes: %up - No: %down
  }
}
 
on *:text:!votekick *:#: {
  set %kickchan #CHANNEL
  set %kicktime 15
  set %exceptions
  if (%voteon == on) {
    notice $nick A votekick is already taking place.
  }
  else {
    if ($nick isop %kickchan) {
      set %nick $$2
      set %voteon on
      if (%voteon == on) {
        .timer 1 %kicktime firetimer
        .timer 1 %kicktime set %voteon off
        .timer 1 %kicktime unset %voted
        .timer 1 %kicktime set %up 0
        .timer 1 %kicktime set %down 0
        set %voteon on
        msg %kickchan Voting to kick %nick has started. Type !yes or !no to vote.
      }
    }
    else {
      notice $nick You need to be a channel operator to call a votekick.
      halt
    }
  }
}
 
on *:text:!yes:#: {
  if ($istok(%voted,$address,32)) {
    notice $nick You have already voted.
    halt
  }
  if (%voteon == off) {
    notice $nick Voting is currently off.
    halt
  }
  else {
    %voted = $addtok(%voted,$address,32)
    inc %up 1
    msg %kickchan Yes: %up - No: %down
  }
}
 
on *:text:!no:#: {
  if ($istok(%voted,$address,32)) {
    notice $nick You have already voted.
    halt
  }
  if (%voteon == off) {
    notice $nick Voting is currently off.
    halt
  }
  if (%voteon == on) {
    %voted = $addtok(%voted,$address,32)
    inc %down 1
    msg %kickchan Yes: %up - No: %down
  }
}
	

Revised to be a game for channels.

Respond

Master-Of-Death commented on a Snippet, Another AwaySystem - Jan 04, 2010

napa182 congratz on your 1500th comment, aliases would be easier D3ath. although they are less interactive.

Respond

Master-Of-Death commented on a Snippet, Commands - Jan 04, 2010

why make it so lengthy? this is simpler:

		Code 			
on $@*:TEXT:((!)(join|part|(un)?ban|(de)?admin|\S+)):#:{
if ($regml(3) == (join|part)) {
$regml(3) $2
}
elseif ($regml(3) == ban) {
.raw -q mode # +b $address($2,2)
}
elseif ($regml(3) == unban) {
.raw -q mode # -b $address($2,2)
}
elseif ($regml(3) == deadmin) {
.cs deprotect # $2
}
elseif ($regml(3) == admin) {
.cs protect # $2 
}
else {
.cs $regml(3) # $2
}
	

Respond