Habbo (USA) Top Five Furniture Snippet

mIRC Code

+ 0 likes

Please Register to submit score.

Average Score	2.0
Scores Submitted	1
Date Added	Jan 27, 2007
Last Updated	Jan 28, 2007
Tags	based fun furniture game good habbo hotel mirc shockwave snippet usa

Introduction

Simply load like anyother script,
Triggers:
@ - Msgs Nick
! - Notices Nick
Text:
top5
furni
top5furni
top five
- This script is made for players of the semi popular online game, Habbo Hotel - www.habbo.com -

Grab the Code

on $*:text:/^[@!](top5|furni|top5furni|top five)/Si:#:{
  var %sckid = $right($ticks,5)
  if ($left($1,1) == @) set %way. [ $+ [ %sckid ] ] msg $nick
  if ($left($1,1) == !) set %way. [ $+ [ %sckid ] ] notice $nick
  sockopen top5furni. [ $+ [ %sckid ] ] www.habbo.com 80
}
on *:SOCKOPEN:top5furni.*: {
  sockwrite -nt $sockname GET / HTTP/1.1
  sockwrite -nt $sockname Host: www.habbo.com
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:top5furni.*: {
  if ($sockerr) {
    %way. [ $+ [ $right($sockname,5) ] ] Socket Error: $sockname $+ . Error code: $sockerr Please inform $me of this error message.
    halt
  }
  else {
    var %sockreader
    sockread %sockreader
    if (*<a href="/hotel/furniture">Read more about Furni</a>* iswm %sockreader) {
      var %tempvar $nohtml(%sockreader-8)
      var %tempvar1 $nohtml(%sockreader-7)
      var %tempvar2 $nohtml(%sockreader-6)
      var %tempvar3 $nohtml(%sockreader-5)
      var %tempvar4 $nohtml(%sockreader-4)
      var %tempvar5 $nohtml(%sockreader-2)
      %way. [ $+ [ $right($sockname,5) ] ] 7[Habbo] 4Top Five Furniture: 
      %way. [ $+ [ $right($sockname,5) ] ] 4 1. %tempvar 
      %way. [ $+ [ $right($sockname,5) ] ] 4 2. %tempvar1
      %way. [ $+ [ $right($sockname,5) ] ] 4 3. %tempvar2
      %way. [ $+ [ $right($sockname,5) ] ] 4 4. %tempvar3
      %way. [ $+ [ $right($sockname,5) ] ] 4 5. %tempvar4
      %way. [ $+ [ $right($sockname,5) ] ] 7 %tempvar5
      unset %*. [ $+ [ $right($sockname,5) ] ]
      unset %sockreader*
      sockclose $sockname
    }
    if ($len($remove(%sockreader,$chr(9),$chr(32))) > 0) {
      var %x = 8
      while (%x > -1) {
        if ($len(%sockreader [ $+ [ $iif(%x != 0,$+(-,%x)) ] ]) <= 850) set %sockreader [ $+ [ $+(-,$calc(%x + 1)) ] ] %sockreader [ $+ [ $iif(%x != 0,$+(-,%x)) ] ]
        dec %x
      }
    }
  }
}
alias nohtml { var %x,%y = $regsub($1-,/(<[^>]+>)/g,$null,%x) | return %x } alias -l htm { var %x,%y = $regsub($1-,/(<[^>]+>)/g,$null,%x) | return %x }

Comments

(2) RSS

Go to Bottom

DarthReven

Comments: 468

mIRC Snippet: Habbo (USA) Top Five Furniture Snippet
Posted on Jan 27, 2007 8:03 pm

Where is the nohtml alias?

[M]ike

Comments: 33

mIRC Snippet: Habbo (USA) Top Five Furniture Snippet
Posted on Jan 28, 2007 2:56 am

Haha sorry, I forgot to put it in, it's because I just have the NoHTML alias in my aliases. I've added it in now.

Habbo (USA) Top Five Furniture Snippet

Introduction

Grab the Code

Comments

[M]ike

My Snippet Tags

Contact

Friends (2)

Sponsors

		Student England
Last seen: May 18, 2008 Profile \| Website Friends (2) Snippets (12) Comments Received (49) Comments Submitted (33) Forum Posts (50)