_Dean_ commented on mIRC Snippet: Channel count - Sep 08, 2011

Jethro if you test your code, it will do the same thing... and it will not return the right number of channels that $2 is sharing with bot, give a solid food for thought

now the explanation for $calc...
since you inc %x 1, after the while loop, now %x will return $comchan($2,0) + 1

using $left(%x,1) will fail, if the nick is in 16 channels, it will only return 1.. the right way to do it, is using $gettok

		Code 			
$gettok(%y,1,44)
	

_Dean_ commented on mIRC Snippet: Channel count - Sep 08, 2011

all right, so remember kids, that will only work for version 6.17+

another way
where you dont need to use $replace or $numtok

		Code 			
on *:text:!count *:#:{
  var %x = 1, %y 
  while (%x <= $comchan($2,0)) { %y = %y $comchan($2,%x) $+ $chr(44) | inc %x  }
  msg # $2 is in $calc(%x - 1) of the same channel(s) I am in, and $2 is on: $mid(%y,2,-1)
}
	

_Dean_ commented on mIRC Snippet: Channel count - Sep 08, 2011

its just food for thought...

_Dean_ commented on mIRC Snippet: Channel count - Sep 08, 2011

another way

		Code 			
on *:text:!count *:#:{ 
  var %x = $2
  msg # %x is in $comchan(%x,0) of the same channel(s) I am in, and %x is on: $regsubex($str($chr(44),$calc($comchan(%x,0) - 1)),//g,$comchan(%x,\n))
}
	

_Dean_ commented on mIRC Snippet: IRCspy (Beta) - Sep 03, 2011

1

as ever Mr. Jethro_ acting like the Lord of MSL universe... notice, that i didnt bring any off-topic in here, and just making this comment, he will call his friends to start a troll war in this script, i suggest Aha2Y, start to delete some off-topics in here... starting from Jethr_ the Lord of MSL universe

_Dean_ commented on mIRC Snippet: IRCspy (Beta) - Sep 03, 2011

2

There is always a discussion, when someone post a script that highlights their nicknames....

i didnt understand this

		Code 			
  if ((%chanspy.highlightmention == on) && if ($regex($1-, $+(/(?<![a-z\d])\Q, $replacecs($me, \E, \E\\E\Q), \E(?![a-z\d])/Si))  && ($chan != $active)) {
	

where you use && and another if condition on the same line...
i think that a on kick/ban/join event would be a good idea, since its a spy script

_Dean_ commented on mIRC Snippet: Name of chan in the background [Edited] - Sep 01, 2011

1

7.14

_Dean_ commented on mIRC Snippet: Name of chan in the background [Edited] - Aug 31, 2011

1

mines return an error

Quote

* /drawsave: error saving

at this line

		Code 			
/.drawsave @ $+ $1 images\ $+ $replace($1,$chr(124),$chr(44)) $+ .bmp
	

_Dean_ commented on mIRC Snippet: NickServ Identify helper - Aug 23, 2011

1

Quote

jaytea: if he is using the encode to keep it safe, then anybody with mirc can decode itm

if he is the only person with the access to that, no one else on the entire world can decode that
cause, the /getpass will only return it to user

by the way, i really dont see a need for an encode option

_Dean_ commented on mIRC Snippet: NickServ Identify helper - Aug 23, 2011

Quote

The $md5 identifer only returns md5 hash.
I searched the help file, but there is no identifer for creating a md5 hash.

what exactly do you want?

you can use

		Code 			
//echo -a $md5(texthere) 
	

but encrypting it with $md5 wil not help in nothing
since if the person use the /getpass command, all it will return is the md5 hash... which you cant decrypt

_Dean_ commented on mIRC Snippet: NickServ Identify helper - Aug 22, 2011

Quote

You should experiment with $md5() instead.

how would he then get the password?

i just wondered the same thing... if he saves it into a INI file, how could he can get the pass again, without a cracker? (if the pass exist on the cracker database)

_Dean_ commented on mIRC Snippet: Simple Notice Join/Part - Aug 11, 2011

i will take it

Quote

Dean's version:

		Code 			
$read(file.txt,$rand(1,$lines(file.txt)))
	

Jethro's version:

		Code 			
$read(file.txt)
	

as a joke... cause it not even ilustrate the example

Quote

Technically it's the same as passing [two] identifiers when [one] will get the job done right.

no, its not the same

_Dean_ commented on mIRC Snippet: Simple Notice Join/Part - Aug 10, 2011

for those who dont know regex, they will think that you made a "great" modification on it... all you did was insert the "join" on reference... in fact when you say "should have been", is in fact modificate the $regml result, so it can be called all togheter, without the "join" command
inserting "join" on reference to modificate the $regml, is not "should have been" or extra mile, when it wont affect the final result, you will probably say that is "repetitive" or go an "extra mile", but no great modification were made, and the final result is the same

_Dean_ commented on mIRC Snippet: Simple Notice Join/Part - Aug 10, 2011

preventing people to join in ####channel_name is the same as forbidding ppl to choose a name for the channel
since ppl can choose chanel names like that, this script won't work

some server dont allow the use of extra # on channel's name, but there is a lot of server which allow it
so in fact, using a condition to prevent an extra # is not needed, where server by itself, can forbid it

_Dean_ commented on mIRC Snippet: Simple Notice Join/Part - Aug 10, 2011

the fact is, it will not strip ctrl commands... since, the person use
!join #roomname with colors
all it will return is
"Illegal channel name"

a simple solution would be

		Code 			
on $*:text:/^!join\s(\43\S+)$/iS:#: .join $regml(1)
	

if you want, you can improve regex to not accept special characters on match

_Dean_ commented on mIRC Snippet: Nick Alert - Aug 10, 2011

i still dont know why ppl use "alternative nick" since $me will always return your nickname...
there is no reason to use an alternative nick on the text match

if you change your nick, $me will assume the new value, so alternative nick its not needed

_Dean_ commented on mIRC Snippet: Blacklist Upgraded - Aug 08, 2011

yes, im aware of that, i just forgot that each server has their own limit

_Dean_ commented on mIRC Snippet: Blacklist Upgraded - Aug 08, 2011

closing Bracket missed, by the way, i dont see a real reason to use 10 kind of bans...

another way to use the entire bans you can use

		Code 			
mode $chan $+(+,$str(b,$modespl)) $regsubex($str($chr(32),7),//g,$address($nick,\n))
	

$modespl using this method will only return 6 kind of bans, which i think its enough

_Dean_ commented on mIRC Snippet: Server Flag for mIRC - Aug 06, 2011

Aha2Y i noticed that, check the last update Thanks

_Dean_ commented on mIRC Snippet: Server Flag for mIRC - Aug 05, 2011

Code updated

_Dean_ commented on mIRC Snippet: Server Flag for mIRC - Aug 05, 2011

Thanks Aha2Y

_Dean_ commented on mIRC Snippet: The Matrix - Jul 27, 2011

you dont need to use [quote"=nickname] just use [quote]

_Dean_ commented on mIRC Snippet: Simple away dialog by Hermes [Edited] - Jul 18, 2011

i agree that away messages really annoy, but we cant discourage ppl who are starting, by the way Hermes you need to practice some socket scripts, if you have something in mind, or any doubt tell me
i will give you a 7/10

_Dean_ commented on mIRC Snippet: SweetShop Script - Jul 17, 2011

		Code 			
On *:JOIN:#sweetshop: {
  if ($nick isop $chan || $nick ishop $chan) { halt }
	

it will not work, since all nicks on join is regular

		Code 			
on $*:TEXT:*:*: {
	

Quote

The $ prefix

Indicates that the matchtext section of a definition contains a regular expression.

alias $chanhalt $nickhalt $c3 $c1 and $c2 is missed

_Dean_ commented on mIRC Snippet: Nick Alert - Jul 16, 2011

i dont think its necessary to make a on text event like this:

		Code 			
on *:TEXT:*your nick here*:#:{
	

you can set the use of identifier $me which will return the nickname of the person who is running

an example is use $istok like

		Code 			
if ($istok($strip($1-),$me,32)) 
	

which is simple, but if you want to use $regex

		Code 			
if $regex($1-,/( |^)\Q $+ $me $+ \E( |$)/iS) 
	

the alias alerts could be shorter than that

		Code 			
alias alerts {
  echo -a 3Dialog boxes for nick alerts are now turned $iif($$1 == on, on.,off)
  set %alert $iif($$1 == on,on,off)
}
	

_Dean_ commented on mIRC Snippet: Slaps - Jul 13, 2011

whats the purpose of this line?

		Code 			
if ($me = $me) {
	

and this?

		Code 			
 if $($+(%,sent,.,$chan),2) { return }
	

tip

		Code 			
alias slapall {
  $iif($active == Status Window, echo -ag you need to be in a channel)
  var %x = $regsubex($str($chr(32),$nick(#,0)),//g,$iif($nick(#,\n) != $me,$nick(#,\n)))
  tokenize 32 %x
  describe # 12,1--->0,1 Slaps the crap out of $* with a larger than ordinary12,1,0,1 non12,1-0,1standard12,1,0,1 frames compatible12,1,0,1 Microsoft trout12,112.
}
	

_Dean_ commented on mIRC Snippet: Feels Like (Weather) - Jul 05, 2011

i remember you called me troll once, after i gave help to you

Quote

The $ prefix

Indicates that the matchtext section of a definition contains a regular expression.

and im not seeing any regex match here

		Code 			
On $*:TEXT:!fl*:#:{ 
	

using regex

		Code 			
On $*:TEXT:/^!fl(\s\S+)?$/:#:{ 
	

by the way, what it will return:

		Code 			
 %flchan $sock(feelslike).wserr | halt
	

since, there is no value specified for var "%flchan"?
you can use the tokenize to get the results like

		Code 			
 tokenize 32 $sock($sockname).mark
    $1 $2 $sock(feelslike).wserr | halt
	

i dont see a real reason to use $round, when you can get the same result using $floor

		Code 			
$floor($calc((%flt - 32) * (5/9))) $+ ° C
	

i dont see a real reason to use set, instead var
into the sockread event

		Code 			
set %flt $remove($7,&deg;</a>)
	

when you can use just "var"

a simple tip

		Code 			
On $*:TEXT:/^!fl(\s\S+)?$/:#:{ 
  if ($sock(feelslike)) sockclose feelslike
  sockopen feelslike www.intellicast.com 80
  sockmark feelslike msg # Feels Like: 
  set %userloc $iif($regml(1),$remove($regml(1),$chr(32)),$hget(feelslike,$nick))
;; if you really wants to use set instead using the sockmark
}

on *:SOCKOPEN:feelslike: {
  sockwrite -nt $sockname GET /Local/Weather.aspx?location= $+ %userloc HTTP/1.1
  sockwrite -nt $sockname Host: www.intellicast.com
  sockwrite -nt $sockname $crlf
}

on *:SOCKREAD:feelslike: {
  if ($sockerr) {
    tokenize 32 $sock($sockname).mark
    $1 $2 $sock(feelslike).wserr | halt
  }
  else { 
    var %sockreader 
    sockread %sockreader 
    if (*Feels Like:* iswm %sockreader) { 
      tokenize 32 %sockreader
      var %flt $remove($7,&deg;</a>)
      $sock(feelslike).mark %flt $+ ° F $+ , $floor($calc((%flt - 32) * (5/9))) $+ ° C
      sockclose feelslike | unset %userloc
    } 
  } 
}
	

of course, you can improve more

_Dean_ commented on mIRC Snippet: DNS + SiteStatus. - Jun 05, 2011

if you used $sock(sitecheck).mark why did u use %site.target instead use $sock(sitecheck).mark?

a tip

		Code 			
alias check {
  $iif($sock(sitecheck),sockclose sitecheck)
  sockopen sitecheck www.downforeveryoneorjustme.com 80
  sockmark sitecheck $$1
  dns $$1-
}

on *:sockopen:sitecheck: {
  var %x = sockwrite -n $sockname 
  %x GET $+(/,$sock(sitecheck).mark) HTTP/1.1
  %x Host: www.downforeveryoneorjustme.com
  %x Connection: close
  %x
}
on *:sockread:sitecheck: {
  var %x | sockread %x
  if $regex(%x,/(.+)[\.!]\s+<.+>(.+)<\/a>(.+)\./) {
    echo 3 -at $regml(1) $regml(2) $iif(is up isin $remove($regml(3),</span>), Online, 4Offline)
  }
}

on *:DNS:{ 
  var %y echo 3 -at 
  %y * Host: $naddress
  %y * IP: $iaddress
  %y * Resolved: $raddress
  %y ***** End of /check *****
  %y --------------------------------------------------------------
}
	

_Dean_ commented on mIRC Snippet: Google Weather Toolbar - May 31, 2011

nice Job 10/10 + like

_Dean_ commented on Image: Auto Join & Autor Identify for Multi NetWorks - May 22, 2011

nice job, by the way its not spanish, its portuguese

Comments

Code

Code

Code

Code

Quote

Code

Quote

Quote

Code

Quote

Quote

Quote

Code

Code

Quote

Code

Code

Code

Code

Quote

Code

Code

Code

Code

Code

Code

Code

Quote

Code

Code

Code

Code

Code

Code

Code

Code

_Dean_