irchainscriptz

irchainscriptz

Joined
Jul 15, 2008
Occupation
Renovations
Location
Montreal Quebec
Website
Interests
Scripting ..Hockey..Roller Blading...Mountain Climbing & More

Comments

irchainscriptz commented on N3M3S1S's Thread  -  Apr 23, 2013
irchainscriptz commented on blackvenomm666's Thread  -  Apr 23, 2013
irchainscriptz commented on a Page, IRC network crawler  -  Aug 10, 2012

have to agree there with sunny!

 Respond  
irchainscriptz commented on a mIRC Script,   NeCRoNoMiCoN³ Eng powered HAWKEE  -  Jun 08, 2012

nice when will it be released?

 Respond  
irchainscriptz commented on a Page, IMDb search for eggdrop  -  May 29, 2012

Nice FordLawnmower

 Respond  
irchainscriptz commented on a Page, IRCop connect/exit windows  -  May 22, 2012

nice but I prefer this one instead all info in a window.

on *:BAN:# {
  if (!$window(@Network-Logs)) window -n @Network-Logs
  echo -t @Network-Logs 4 $server  5? BAN4 : ( $+ $chan $+ )( $+ $nick $+ ) BANNED ( $+ $bnick $+ ): $1-
}

on *:KICK:# {
  if (!$window(@Network-Logs)) window -n @Network-Logs
  echo -t @Network-Logs 4 $server  5? KICK4 : ( $+ $chan $+ )( $+ $nick $+ ) KICKED ( $+ $knick $+ ): $1-
} 

on *:NICK: {
  if (!$window(@Network-Logs)) window -n @Network-Logs
  echo -t @Network-Logs 4 $server  5? NICK CHANGE4 :( $+ $nick $+ ) CHANGED TO ( $+ $newnick $+ ) ( $+ $time $+ )
}

on *:RAWMODE:# {
  if (!$window(@Network-Logs)) window -n @Network-Logs
  echo -t @Network-Logs 4 $server  5? RAWMODE4 : ( $+ $chan $+ )( $+ $nick $+ ) $1-
}

on *:MODE:# {
  if (!$window(@Network-Logs)) window -n @Network-Logs
  echo -t @Network-Logs 4 $server  5? MODE4 : ( $+ $chan $+ )( $+ $nick $+ ) $1-
}

on *:QUIT: {
  if (!$window(@Network-Logs)) window -n @Network-Logs
  echo -t @Network-Logs 4 $server  5? QUIT4 : ( $+ $nick $+ )( $+ $time $+ )
}

on *:notice:*:*: {
  if ($nick == $me) { return }
  if (!$window(@Network-Logs)) window -n @Network-Logs
  echo -t @Network-Logs 4 $server  5? NOTICE4 :( $+ $nick $+ ): $1-
}

on *:snotice:*: {
  if (!$window(@Network-Logs)) window -n @Network-Logs
  echo -t @Network-Logs 4 $server  5? SERVERNOTICE4 : $1-
}

menu @Network-Logs {
  Clear: clear $active
  Close: close -@ $active
}
 Respond  
irchainscriptz commented on a Page, Now playing Radio Station (shoutcast based)  -  May 17, 2012

Nice likes!!

 Respond  
irchainscriptz commented on a Page, Keyboard - Disco & Chain v7.0 (Pre-released)  -  Apr 27, 2012

your going to have to give credit for using my name hahahahahaha

 Respond  

No it was meant to show you how to get urls and that RSS feeds are not limited on IRC. I'll have a gander at it and see what I come up with.

 Respond  

Here's a look at what I mean

 Respond  

They work great on any chat server, depending how the code is done, for instance a good friend of mine uses tinyurl to get the feeds. here's an example

on *:Join:*: { 
  if ($nick == $me) { 
    .timer.hawkee 0 15 hawkee 
 } 
}

; Menu =====================================================================================
menu channel {
  Feeder
    .$iif(%Feed.hknews. [ $+ [ $active ] ] == on,$style(1)) Hawkee: $iif(%Feed.hknews. [ $+ [ $active ] ] == on,unset %Feed.hknews. [ $+ [ $active ] ],set %Feed.hknews. [ $+ [ $active ] ] on)
    .-
  .Add All $chan : {
    set %Feed.hknews. [ $+ [ $active ] ] on
  }
  .Remove All $chan : unset %Feed.*. [ $+ [ $active ] ]
  .-
  .Clear Saved Topics: unset %Topic.*
}  

; Aliases ==================================================================================
alias striphtml {
  if (!$isid) || (!$1) return
  var %H = $1 , %T = $regsub(%H,/(<[^>]+>)/g,,%H)
  if ($chr(38) isin %H) {
    set %H $replacecs(%H,&#x26;,&,&quot;," ,&lt;,< ,&gt;,> ,&amp;,& ,&nbsp;,$iif($prop,$chr($prop),$chr(32)) ,&pound;,£ ,&sect;,$chr(36) ,&uml;,¨ ,&laquo;,« ,&raquo;,» ,&szlig;,ß, &Ntilde;,Ñ ,&ntilde;,ñ,&#39;,')
    set %H $replacecs(%H,&Agrave;,À ,&Aacute;,Á ,&Acirc;, ,&Atilde;,à ,&Auml;,Ä ,&Aring;,Å ,&AElig;,Æ ,&agrave;,à ,&aacute;,á ,&acirc;,â ,&atilde;,ã ,&auml;,ä ,&aring;,å ,&aelig;,æ)
    set %H $replacecs(%H,&Egrave;,È,&Eacute;,É,&Ecirc;,Ê,&Euml;,Ë,&egrave;,è,&eacute;,é,&ecirc;,ê,&euml;,ë,&Igrave;,Ì,&Iacute;,Í,&Icirc;,Î,&Iuml;,Ï,&igrave;,ì,&iacute;,í,&icirc;,î)
    set %H $replacecs(%H,&iuml;,ï,&Ograve;,Ò,&Oacute;,Ó,&Ocirc;,Ô,&Otilde;,Õ,&Ouml;,Ö,&Oslash;,Ø,&ograve;,ò,&oacute;,ó,&ocirc;,ô,&otilde;,õ,&ouml;,ö,&oslash;,ø,&Ugrave;,Ù,&Uacute;,Ú,&Ucirc;,Û,&Uuml;,Ü,&Yacute;,Ý,&ugrave;,ù,&uacute;,ú,&ucirc;,û,&uuml;,ü,&yacute;,ý,&yuml;,ÿ)
  }
  return %H
}
alias turl {
  var %s tinyURL. $+ $ticks
  sockopen %s tinyurl.com 80
  sockmark %s $1 $2 $4 $5 $3
}
on *:sockopen:TinyURL.*: { sockwrite -tn $sockname $+(GET /api-create.php?url= $+ $gettok($sock($sockname).mark,3,32) HTTP/1.1,$crlf,Host: tinyurl.com,$crlf,$str($crlf,2)) }
on *:sockread:TinyURL.*:{
  var %r | sockread %r
  if ($left(%r,7) == HTTP://) {
    var %f 1
    while ($chan(%f)) { 
      var %g $gettok($sock($sockname).mark,2,32) $+ . $+ $chan(%f)
      if (%FEED. [ $+ [ %g ] ] == on) && (($me isop $chan(%f)) || ($me ishop $chan(%f))) { 
        msg $chan(%f) $gettok($sock($sockname).mark,1,32) Topic Update: $striphtml($gettok($sock($sockname).mark,5-,32)) - %r $iif($gettok($sock($sockname).mark,4,32) != n/a,- by $striphtml($gettok($sock($sockname).mark,4,32))) 
      }
      inc %f
    }
  }
}
; Hawkee ======================================================================================
alias hawkee {
  if ($status != connected) { halt }
  sockclose hawkeeforum
  sockopen hawkeeforum hawkee.com 80
  if (%Topic.HAWKEE == $null) { set %Topic.HAWKEE on }
  set %hawkee.check 1
}
on *:sockopen:hawkeeforum: { 
  if ($sockerr) { sockclose $sockname | halt }
  sockwrite -n $sockname GET /comment.rss.php HTTP/1.1
  sockwrite -n $sockname Host: www.hawkee.com
  sockwrite -n $sockname $crlf
}
on *:sockread:hawkeeforum: {
  if ($sockerr > 0) return
  var %hawkee
  sockread %hawkee
  if (%hawkee == 0) || (%hawkee.check > 3) { 
    sockclose $sockname 
    if (%hawkee.linktemp != $null) && (%hawkee.linktemp != on) && (%hawkee.linktemp != %Topic.HAWKEE) {
      set %Topic.HAWKEE %hawkee.linktemp
      $turl(Hawkee,hknews,$striphtml(%hawkee.title),$replace(%hawkee.linktemp,&amp;,&),n/a)
    }
    unset %hawkee.* 
  }
  else {
    if (%hawkee.check == 1) var %hawkeer = /<item>/ig
    if (%hawkee.check == 2) var %hawkeer = /<title>(.*)<\/title>/ig
    if (%hawkee.check == 3) var %hawkeer = /<link>(.*)<\/link>/ig
    if ($regex(hawkeeforum, %hawkee, %hawkeer) > 0) {
      if (%hawkee.check == 2) set %hawkee.title $regml(hawkeeforum,1)
      if (%hawkee.check == 3) set %hawkee.linktemp $regml(hawkeeforum,1)
      inc %hawkee.check
    }
  }
}

The creator of this is err0r from TG007.net

 Respond  
irchainscriptz commented on Hawkee's Thread  -  Apr 14, 2012
irchainscriptz commented on Hawkee's Thread  -  Apr 12, 2012
irchainscriptz commented on Hawkee's Thread  -  Apr 12, 2012
irchainscriptz commented on Hawkee's Thread  -  Apr 11, 2012
irchainscriptz commented on Hawkee's Thread  -  Apr 11, 2012
irchainscriptz commented on a Page, Hawkee User Profile Lookup (Search by Nicknames)  -  Mar 28, 2012

Great Job Jethro!!

 Respond  
irchainscriptz commented on a mIRC Script, DCX & MDX StatusBar  -  Mar 28, 2012

Yup very nice ..used it and like it 10/10 Very useful!!

 Respond  
irchainscriptz commented on a mIRC Script, mIRC DeluXe II - The Lost Version  -  Mar 13, 2012

Nice job N3M3S1S

 Respond  
irchainscriptz commented on a Page, Give Of The Day  -  Feb 23, 2012

Hey had a friend do one err0r from TG007 with also the time remaining!! only thing you have to add your room name!!

1.
alias giveaway {

 2.
  sockclose give | sockopen give www.giveawayoftheday.com 80

 3.
}

 4.
on *:sockopen:give: {

 5.
  if ($sockerr) { echo -s $sockname error | sockclose give }

 6.
  else {

 7.
    sockwrite -n $sockname GET / HTTP/1.1

 8.
    sockwrite -n $sockname Host: giveawayoftheday.com

 9.
    sockwrite -n $sockname $crlf

 10.
  }

 11.
}

 12.
on *:sockread:give: {

 13.
  var %give.temp

 14.
  sockread %give.temp

 15.
  if ($regex(%give.temp,/<title>(.*)<\/title>/)) { set %giveaway.title $regml(1) }

 16.
  if ($regex(%give.temp,/<a href=\"http:\/\/www.giveawayoftheday.com\/(.*?)\/\">/)) { set %giveaway.link $regml(1) }

 17.
  if ($regex(%give.temp,/(.*)<!--\/mfunc-->(.*)<\/p>/)) { set %giveaway.time $regml(1) | msg $+($chr(37),$chr(35),Room Name Here) Free Giveaway of the Day: $htmlfree($remove(%giveaway.title,Giveaway of the Day - free licensed software daily.)) | msg $+($chr(37),$chr(35),Room Name Here) http://www.giveawayoftheday.com/ $+ %giveaway.link $+ / | msg $+($chr(37),$chr(35),ROOM Name Here) Time remaining : %giveaway.time | sockclose $sockname  }

 18.
}

 19.
alias -l htmlfree {

 20.
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;n&deg;,&quot;&#8217;)

 21.
  return %x

 22.
}
 Respond  
irchainscriptz commented on a Page, Clone killer  -  Dec 07, 2011

Nice snippet there xdesoto

 Respond  
irchainscriptz commented on a Page, Wraith mp3  -  Nov 16, 2011

Should Add a screenshot so people could see it.

 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.