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
Example:
@xbox markmywords ns <&Sick0> Last seen 4 hours ago playing Trials Evolution <&Sick0> Online Status: Offline || Xbox Membership: Gold || Zone: Recreation || Country: United States@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 @xbox llxNYXxll <&Sick0> Last seen 15 hours ago playing Modern Warfare® 3 <&Sick0> Online Status: Offline || Xbox Membership: Gold || Zone: Recreation || Country: Australia @xbox StealthyPeer <&Sick0> Online Status: Offline || Xbox Membership: Silver/Free || Zone: Underground || Country: United Kingdom ``` 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>/)) { $gettok($sock(xbox).mark,2-,32) $regml(1) } if ($regex(%xbox,/
(Online Status:.+)<\/p>/)) { $gettok($sock(xbox).mark,2-,32) $regsubex($regml(1),/<[^>]*>/g,$chr(32)) } } ```
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...
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!!)
}
}
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.
<~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.'
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
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), ,"),")
sockclose fac
}
}
}
example:
<~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. "
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..
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:
- ~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
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),&,&,",")
sockclose item2
}
}
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
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)
}
}
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:
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)
}
}
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.
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
<~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.
kiri, if I understand you right... yes you can just use one alias to do this.
as an example:
alias AFK {
if (!$away) {
ame is Away $iif(!$1,Gone,$1-)
.away $iif(!$1,Gone,$1-)
}
else {
ame is back from being Away - $awaymsg
.away
}
}
I personally find no real use for an away snippet to be honest, but a-lot of people like to use them so to each their own.
anyways it's just one more way of learning msl.
So keep trying an never stop learning.....
you should have posted this as a snippet
an on ur !up an !down command no need for all them mode floods um in keeping in the way you have ur trigger you could do something like this keep in mind this is only one way in a few to go about it...
on 1600:TEXT:!up*:#: { mode # +qaohv $str($iif(!$2,$nick,$2) $chr(32),5) }
on 1600:TEXT:!down*:#: { mode # -qaohv $str($iif(!$2,$nick,$2) $chr(32),5) }
or you can place it into one on text event.
same goes on ur other text events...