XBOX360 ABGX Search Engine

+ 0 likes

Please Register to submit score.

Average Score	6.0
Scores Submitted	1
Date Added	Jul 02, 2008
Last Updated	Jul 02, 2008

Introduction

Hi All

Here is my first attempt working with Sockets.
First of all i need to Thanks QuickStep for his great Sockets Tutorial and mountaindew for help me with Regular Expressions (the one that retrive Filenames and Regions)

The snippets is simple: load it on the remote of your bot and write: !abgx [search criteria]

Enjoy it, hope this time i get at least 1 comment :)

Cheers
essebi

Grab the Code

on *:LOAD: {
  echo -s ABGX.org Search engine Succesfully Loaded | echo -s Trigger is !abgx [search criteria] }
on *:text:!abgx*:*: {
  if (%search == 1) { .msg $chan Sorry $nick but i'm handling another request, wait some seconds and try it again | halt }
  if ($2) {
    if ($sock(abgx)) sockclose abgx
    set %nick $nick
    set %search 1
    .write -c $mircdir $+ abgx.txt
    sockopen abgx www.abgx.net 80
    sockmark abgx $+($2-,|,$nick)
    .msg $nick Searching abgx.net for $qt($2-) $+ ...
    .timer 1 5 playtxt 
  }
  else .msg $nick Syntax: !abgx [search criteria]
}
on *:sockopen:abgx:{
  sockwrite -n $sockname GET /filename/?ch=6&bin_search_type=folder&bin_max_results=50&bin_search= $+ $urlencode($gsm($sockname,1)) $+ &bin_search_results=0 HTTP/1.1
  sockwrite -n $sockname Host: www.abgx.net
  sockwrite -n $sockname $crlf
}
on *:sockread:abgx:{
  var %abgx
  sockread %abgx
  if (*TARGET="_blank">*</A></font></div></div></td>* iswm %abgx) set %relname $htmlfree($remove($gettok(%abgx,7-,32),)) 
  if (*Gfx/nuke.png* iswm %abgx) var %nuke [NUKED] ~ 
  if ($regex(%abgx,/<td align="center" valign="middle" wrap width="1%">(.+)<div class="/i)) {
    noop $regex($regml(1),/^(.+)</td>.+width="1%">(.+)</td><td align="center" valign="middle" nowrap width="1%">.+</td>/i)
    .write $mircdir $+ abgx.txt %nuke Release name: %relname ~ Region: $regml(2) ~ File Name: $regml(1)
  }
}
alias urlencode {
  var %a = $regsubex($$1,/([^ws])/Sg,$+(%,$base($asc(t),10,16,2)))
  return $replace(%a,$chr(32),$chr(43))
}
alias -l htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&,$chr(9))
  return %x
}
alias gsm return $gettok($sock($1).mark,$2,124)
alias playtxt {
  sockclose abgx
  set %search 0
  if ($lines($mircdir $+ abgx.txt) == 0) {
    .msg %nick Sorry but nothing match your search criteria
    unset %nick %relname
    halt
  }
  if ($lines($mircdir $+ abgx.txt) > 10) {
    .clearlines
    .play -m1 %nick $mircdir $+ abgx.txt
    unset %nick %relname
    halt
  }
  else {
    .play -m1 %nick $mircdir $+ abgx.txt
    unset %nick %relname
  }
}
alias -l clearlines {
  var %i = $lines($mircdir $+ abgx.txt)
  while (%i > 5) {
    /write -dl %i $mircdir $+ abgx.txt
    dec %i
  }
  .write -il1 $mircdir $+ abgx.txt There are too many results that match your search criteria, here is the first 5 results. Please be more specific or go to http://www.abgx.net/filename/?ch=6
}

Comments

(4) RSS

Go to Bottom

Typo

Comments: 146

mIRC Snippet: XBOX360 ABGX Search Engine
Posted on Jul 2, 2008 3:36 am

Hey, well done man. A couple comments tho. One is, this should say .net ...

Code:

.msg $nick Searching abgx.org for $qt($2-) $+ ...

Also, why don't you include a link to the files it finds?

And then I wanted to ask if you plan on adding capabilities to look through the other systems like psp, ps2, ps3, or even nintendo.

Anyhow, good job.

6/10

essebi

Comments: 5

mIRC Snippet: XBOX360 ABGX Search Engine
Posted on Jul 2, 2008 3:51 am

Quote:

Hey, well done man. A couple comments tho. One is, this should say .net ...

Code:

.msg $nick Searching abgx.org for $qt($2-) $+ ...

LOL!! You're right, i've tested it for over 2 weeks and no one notice me, damn friends! *edited :)

Regarding your second questions, i'm related to xbox and i don't think to add other systems, but if you need it is really simple to do, you only need to make a variable for " ch=6 " on the url, is the only thing that will change on this code.

Cheers
essebi

Typo

Comments: 146

mIRC Snippet: XBOX360 ABGX Search Engine
Posted on Jul 2, 2008 4:35 am

Ahhh, didn't know you were in the xbox scene alone. Thanks for the tip on the page to edit it to but the idea was more for enhancing the script, not my own needs. I still say "wd".

essebi

Comments: 5

mIRC Snippet: XBOX360 ABGX Search Engine
Posted on Jul 2, 2008 4:51 am

Thanks mate :)

XBOX360 ABGX Search Engine

Introduction

Grab the Code

Comments

essebi

My Snippet Tags

Contact

Sponsors


Last seen: Jul 10, 2008 Profile Snippets (5) Comments Received (8) Comments Submitted (5) Forum Posts (21)