napa182

Joined:

Jun 12, 2007

Location:

Interests

EzzyChat Is Back connect to EzzyChat by typing /server -m irc.EzzyChat.com 6669

Activity Stream

All Threads Projects Code Snippets

napa182 commented on a Snippet, Repeat Kick: Version 1 - Mar 03, 2013

you would be better off using hash instead of vars, but to each their own.

1 Response

napa182 commented on a Snippet, Ultimate Bot Auto Voice Script - Jan 13, 2013

kinda a global var nightmare

3 Responses

napa182 commented on a Snippet, Avoid a slap :p - Nov 15, 2012

you should add some sort of flood protection to this or you can be flooded out.
Also you have an extra closing bracket.

Respond

napa182 commented on a Snippet, Daffy IRC bot (mSL) - Nov 15, 2012

Plornt they are not really identifiers the are more like triggers.
Lego the snippet is kind of redundant. You should cut out the redundancy an make it more efficient. Keep at it...

Respond

napa182 commented on a Snippet, Xbox Live Gamer-Tag Look-Up Socket - Nov 06, 2012

The last xbox live update had screwed a lot of things up besides the dashboard. seems it screwed the site to look-up as well so here is a fast fix using a different site.

copy/paste into a new remote of your bot. trigger is @xbox <gamertag>
Example:

Quote

<napa182> @xbox markmywords ns
<&Sick0> Last seen 4 hours ago playing Trials Evolution
<&Sick0> Online Status: Offline || Xbox Membership: Gold || Zone: Recreation || Country: United States

<napa182> @xbox rising son 13
<&Sick0> Last seen 10/31/2012 playing Modern Warfare® 3
<&Sick0> Online Status: Offline || Xbox Membership: Gold || Zone: Underground || Country: United States

<napa182> @xbox llxNYXxll
<&Sick0> Last seen 15 hours ago playing Modern Warfare® 3
<&Sick0> Online Status: Offline || Xbox Membership: Gold || Zone: Recreation || Country: Australia

<napa182> @xbox StealthyPeer
<&Sick0> Online Status: Offline || Xbox Membership: Silver/Free || Zone: Underground || Country: United Kingdom

		Code 			
on $*:text:/^@xbox\s(.+)/iS:#: {
  if (!%f) { inc -u3 %f
    if ($sock(xbox)) sockclose xbox
    sockopen xbox www.xboxgamertag.com 80
    sockmark xbox $+(/search/,$replace($regml(1),$chr(32),$+($chr(45)))/) $&
      msg #
  }
}
on *:sockopen:xbox: {
  sockwrite -nt xbox GET $gettok($sock(xbox).mark,1,32) HTTP/1.1
  sockwrite -nt xbox Host: $+($sock(xbox).addr,$str($crlf,2))
}
on *:load: {
  echo 12 -a You Have Just Loaded Napa182's Xbox Live Look-up Socket
  echo 07 -a A irc.EzzyChat.com Production
}
on *:sockread:xbox: {
  var %xbox | sockread %xbox
  if ($regex(%xbox,/<p class="topc">(.+)<\/p>/)) {
    $gettok($sock(xbox).mark,2-,32) $regml(1)
  }
  if ($regex(%xbox,/<p>(Online Status:.+)<\/p>/)) {
    $gettok($sock(xbox).mark,2-,32) $regsubex($regml(1),/<[^>]*>/g,$chr(32))
  }
}	

1 Response

napa182 commented on a Snippet, Powerlevel Script(Updated) - Sep 10, 2012

maybe add apond the set var to use it as a flood pro as well as using maybe the $iff
You should have added to this before you posted it tbh...

		Code 			
on *$:TEXT:/^!powerlevel$/iS:#:{
  if (!%powerlevel) { set -u5 %powerlevel $r(0,10000)
    msg # $iif(%powerlevel > 9000,12it's... It's... It's Over 9000!!!,$nick 12has a powerlevel of 4 %powerlevel 12!!)
  }
}	

Respond

napa182 commented on a Snippet, On join entrymsg PM - Sep 10, 2012

Respond

napa182 commented on a Snippet, Fun Tweets - Sep 10, 2012

No eggdrop. you can either copy an paste this in ur own mirc or a bot's remote.

Respond

napa182 commented on a Snippet, Random Riddle an Solution - Aug 18, 2012

This socket still works fine on my end. I don't know why it is doing what you are saying it is doing on yours.

Quote

<~napa182> @riddle
<&Sick0> :[Riddle]: What travels the world but stays in a corner? :[Solution in 10 seconds]:
<&Sick0> :[Solution]: 'A stamp.'

<~napa182> @riddle
<&Sick0> :[Riddle]: Is it legal to bury a man living in Mexico across the border in the United States? :[Solution in 10 seconds]:
<&Sick0> :[Solution]: 'The last time we checked, it was not legal to bury a living man under any circumstances!'

<~napa182> @riddle
<&Sick0> :[Riddle]: A man has 9 children. Half of them are boys. How is this possible? :[Solution in 10 seconds]:
<&Sick0> :[Solution]: 'They are all boys.'

Respond

napa182 commented on a Snippet, Facts script - Aug 16, 2012

here is a fast socket using the facts you have posted. I used pastebin.com to socket to as it does not go down all that often.
anyways this is just a fast mock up of a working example nothing more..
I hope this can help you in learning sockets or get a better idea about them at the lest.
as always keep coding in msl ;x

		Code 			
on $*:text:/^@facts$/iS:#: {
  if (!$hget(f,f)) {
    if ($sock(fac)) sockclose fac
    sockopen fac pastebin.com 80
    sockmark fac $r(1,100) msg # 11,1WTFact $chr(35)
  }
}
on *:sockopen:fac: {
  sockwrite -nt fac GET /RecUZJge HTTP/1.1
  sockwrite -nt fac Host: $+($sock(fac).addr,$str($crlf,2))
}
on *:sockread:fac: {
  var %fac | sockread %fac
  if ($regex(%fac,/<div class="de\d">(.+)<\/div>/)) {  
    hinc -mu5 f f 1 
    if ($hget(f,f) = $gettok($sock(fac).mark,1,32)) { 
      $+($gettok($sock(fac).mark,2-,32),$hget(f,f),15,$chr(44),1) $+(",$remove($regml(1),&nbsp;,&quot;),") 
      sockclose fac
    } 
  }
}	

example:

Quote

<~napa182> @facts
<~Sick0> WTFact #18 "Human thighbones are stronger than concrete. "
<~napa182> @facts
<~Sick0> WTFact #34 "The human brain cannot create faces. Therefore when you dream, if you see someone you do not know, you have seen their face before. "

Respond

napa182 commented on a Snippet, Facts script - Aug 15, 2012

would have been better if it was a socket tbh, but to each their own I guess.....

Respond

napa182 commented on a Snippet, Hopefully Hawkee's First and Formost What The F*** Facts!!! - Jul 13, 2012

What do you mean by first? This is more like them old add/remove/say quote snippets from years back. Anyways nice work an keep at it and you will get sockets down so you can use them in anyway you want..

Respond

napa182 commented on a Snippet, Script Help System By JeSTeR - May 24, 2012

why do you have two on sockopen events? an ur last else line is all edited out, you may as well remove it or put it as an on load event.

Respond

napa182 commented on a Snippet, Greetings Script - May 19, 2012

Quote

It let's you greet people easily.

um not really when you have to scroll looking for a greet. =/

Respond

napa182 commented on a Snippet, Epic Slap Script Part 2 - May 19, 2012

heres a fun one I made long ago just a slap with a random item socket. idk maybe someone can take away a diff way to do these rather then using a txt ini or hash file. anyways keep at it..
example:

Quote

* ~napa182 slaps Death around a bit with some Brickhouse Soaps
* ~napa182 slaps Sick0 around a bit with some Leco Butter + Margarine
* ~napa182 slaps Death around a bit with some Ecolab Multipurpose Cleaner Kit

		Code 			
menu nicklist {
  - 
  Slap $+([,$$1,]) {
    if ($sock(item2)) sockclose item2
    sockopen item2 www.globalpackagegallery.com 80
    sockmark item2 describe # slaps $1 around a bit with some
  }
  -
}
on *:load:{
  echo 07 -a You Have Just Loaded Napa182's Slap With A Random Item
  echo 04 -a An Irc.EzzyChat.com Production
}
on *:sockopen:item2: {
  sockwrite -nt item2 GET /main.php/random?g2_albumId= HTTP/1.1
  sockwrite -nt item2 Host: $+($sock(item2).addr,$str($crlf,2))
}
on *:sockread:item2: {
  var %item2 | sockread %item2
  if ($regex(%item2,/^Album:(.+?)\50/)) {
    $sock(item2).mark $replace($regml(1),&amp;,&,&quot;,")
    sockclose item2
  }
}	

Respond

napa182 is now following sKIRc - May 19, 2012

napa182 is now following H0LLYWOOD - May 19, 2012

napa182 is now following Wader - May 19, 2012

napa182 is now following gamewar - May 19, 2012

napa182 is now following worldwide7477 - May 19, 2012

napa182 is now following FreakServ - May 19, 2012

napa182 commented on a Snippet, Curse Word Dialog - May 19, 2012

tbh I really don't know how justin.tv is set up as i never been there. So you may have to edit it to ur needs.
Good luck.

Respond

napa182 commented on a Snippet, Movie setnow and setnext - May 16, 2012

um a small/fast edit to include a timer an i took out that you can't do that message as it is annoying, an i made it say if nothing is set for !now or !next it will now say Nothing set.
As for the timer you will have to put in the amount of seconds for it to change example !swap 30 for 30 seconds an !swap 3600 for an hour

		Code 			
on $*:TEXT:/^!(setn(ow|ext)|swap)\s(.+)$|^!(now|next)$/iS:#:{ 
  if ($nick = $remove(#,$chr(35))) { 
    if ($regml(1) = swap && $regml(2) isnum) { 
      .timermovie1 1 $regml(2) set $+(%,now.,#) $($+(%,next.,#),2) 
      .timermovie2 1 $calc($regml(2) + 1) unset $+(%,next.,#)
      msg # movie in next will swap to now in $regml(2) seconds
    }
    if ($regml(3)) {
      set $+(%,$iif($regml(1) = setnow,now,next),.,#) $regml(3) 
      msg # $iif($regml(1) = setnow,now,next) playing set to: $regml(3) 
    }
  }
  if ($istok(now|next,$regml(1),124) && !%f) { inc -u5 %f
    msg # $iif($($+(%,$regml(1),.,#),2),$v1,Nothing set)
  } 
}	

Respond

napa182 commented on a Snippet, Movie setnow and setnext - May 16, 2012

Maybe make it all under one text event, and add a flood pro to the !now an !next trigger so others don't flood the room with it.
Been awhile in coding msl but maybe something like this..
Example:

		Code 			
on $*:TEXT:/^!(setn(ow|ext))\s(.+)|^!(now|next)/iS:#:{ 
  if ($regml(3)) {
    if ($nick = $remove(#,$chr(35))) {
      set $+(%,$iif($regml(1) = setnow,now,next),.,#) $regml(3) 
      msg # $iif($regml(1) = setnow,now,next) playing set to: $regml(3) 
    }
    else { msg # You can't do that. You aren't allowed. }
  }
  if ($istok(now|next,$regml(1),124) && !%f) { inc -u5 %f
    msg # $($+(%,$regml(1),.,#),2)
  } 
}	

Respond

napa182 commented on a Snippet, Some Bot Commands - May 12, 2012

Most people that post msl snippets have either a irc channel or a irc server of their own. No need to spam it like that. You can always post the link to it in ur profile.

Respond

napa182 commented on a Snippet, Xbox Live Gamer-Tag Look-Up Socket - May 12, 2012

no problem hope it works well for ya...

Respond

napa182 commented on a Snippet, Some Bot Commands - May 12, 2012

that scanbug is a tad bit floody an useless

Respond

napa182 commented on a Snippet, Xbox Live Gamer-Tag Look-Up Socket - Apr 28, 2012

RobNuts, you did load this onto u bot right? if not it wont work unless you change it to an on input event. an no one meant any sarcasm at all. just trying to figure out why it is not working for you.

Also xbox live's site sometimes seems like it is on crack, but the info it pulls is what the site has.

Respond

napa182 commented on a Snippet, Xbox Live Gamer-Tag Look-Up Socket - Apr 27, 2012

yeah I was thinking maybe he is using an older version of mirc, but who knows. I can't help them if they don't tell me whats wrong.

Respond

napa182 commented on a Snippet, Xbox Live Gamer-Tag Look-Up Socket - Apr 27, 2012

Hey napalm` long time no talk to. How have you been?

Also RobNuts can you give a reason it is not outputting anything for you?
As it works fine

Quote

<~napa182> @xbox rising son 13
<~Sick0> rising son 13, Last seen 4 minutes ago playing Xbox Dashboard - Gamerscore 6020

<~napa182> @xbox llxNYXxll
<~Sick0> llxNYXxll, Last seen 20 hours ago playing Call of Duty Black Ops - Gamerscore 140

<~napa182> @xbox Th3GrimRipp3r
<~Sick0> Th3GrimRipp3r, Last seen 2 hours ago playing Xbox Dashboard - Gamerscore 925

<~napa182> @xbox Rustyshack760sr
<~Sick0> Rustyshack760sr, Last seen 22 hours ago playing Call of Duty Black Ops - Gamerscore 155

<~napa182> @xbox mendojuggler 17
<~Sick0> mendojuggler 17, Online playing GTA IV - In a Party - Gamerscore 725

<~napa182> @xbox you are calling a moron
<~Sick0> Ooops! I don't know who "you are calling a moron" is. Looks like you may have misspelled the Gamer-tag you are looking for.

Respond