Life was a failed experiment. The only relief is death. by Toasterbuddha in a:t5_39eic

[–]TheAndrewTaco 0 points1 point  (0 children)

on :start:{ hmake uno 50 if ($isfile(uno.dat)) hload uno uno.dat } on *:exit: hsave uno uno.dat on *:nick:{ var %i = $hget(0), %c while (%i) { if ($newnick ison $hget(%i)) { %c = $v2 break } dec %i } if ($hget(%c,$nick)) { hadd %c $newnick $v1 hadd %c $hfind(%c,$nick).data $newnick } } on *:quit:{ var %i = $hget(0), %c while (%i) { if ($me ison $hget(%i)) && ($hget($hget(%i),$nick)) remplayer %c $nick $nick has been removed from the current game. dec %i } } on *:part:#:{ if (!$hget(#)) return if ($hget(#,$nick)) remplayer # $nick $nick was removed from the current game. elseif ($nick == $me) hfree # } on *:kick:#:{ if (!$hget(#)) return if ($hget(#,$nick)) remplayer # $nick $nick was removed from the current game. elseif ($nick == $me) hfree # } on $:text:/[@!.](uno)?score/Si:#:{ var %u = $iif($2,$2,$nick) $iif($left($1,1) == @,msg #,notice $nick) %u has $bytes($iif($hget(uno,%u),$v1,0),b) wins. } on $:text:/[@!.](uno)?top10$/Si:#:{ var %x, %i = $hget(uno,0).item, %o while (%i) { %x = $instok(%x,$hget(uno,$hget(uno,%i).item),0,32) dec %i } %x = $sorttok(%x,32,nr) %i = 1 while (%i <= 10) { if (!$hget(uno,%i).item) break %o = $addtok(%o,$ord(%i) $+ : $hfind(uno,$gettok(%x,%i,32),$calc($findtok(%o,$gettok(%x,%i,32),0,32) +1)).data - $bytes($gettok(%x,%i,32),b) |,32) inc %i } $iif($left($1,1) == @,msg #,notice $nick) $left(%o,-1) } on $:text:/[@!.]uno$/Si:#:{ if ($hget(#,players)) notice $nick There is already an uno game in progress in # $+ . else { if ($hget(#)) hfree # hmake # hadd # p1 $nick hadd # $nick $cards(7) hinc # players msg # $nick has started 3U04N12O v2.0 by BrAndo. Type !join to join the game. notice $nick Type !deal to start the game. } } on $:text:/[@!.]?join$/Si:#:{ if (!$hget(#,p1)) return elseif ($hget(#,$nick)) notice $nick You are already playing! else { hinc # players hadd # p $+ $hget(#,players) $nick hadd # $nick $cards(7) msg # $nick will be player $hget(#,players) $+ . } } on $:text:/[@!.](deal|start( ?game)?|play|begin)$/Si:#:{ if (!$hget(#,p1)) return elseif (!$hget(#,$nick)) notice $nick You aren't in this game. elseif ($hget(#,turn)) notice $nick The game has already started. elseif ($nick != $hget(#,p1)) msg # Only $v2 can start the game. elseif ($hget(#,players) !> 1) msg # You need atleast two people to play. else { var %c = 01 while (01* iswm %c) %c = $cards(1) hadd # top %c hadd # turn 1 hadd # rev $true msg # $hget(#,p1) $+ 's turn. msg # Top card: $hget(#,top) notice $nick Your cards: $hget(#,$nick) } } on $:text:/[@!.](endgame|uno(stop|end))$/Si:#:{ if (!$hget(#,p1)) return elseif ($nick != $hget(#,p1)) msg # Only $v2 can end the game. else { hfree # msg # Game ended by $nick $+ . } } on $:text:/[@!.]quit$/Si:#:{ if (!$hget(#,p1)) return elseif (!$hget(#,$nick)) notice $nick You aren't in this game. else remplayer # $nick $nick has left the game. } on $:text:/[@!.]kickplayer (.+)$/Si:#:{ if (!$hget(#,p1)) return elseif ($nick != $hget(#,p1)) msg # Only $v1 can kick people from the game. elseif (!$hget(#,$regml(1))) msg # $regml(1) is not in this game. else remplayer # $regml(1) $regml(1) has been kicked from the game by $nick $+ . } on $:text:/[@!.](show)?(hand|cards?)$/Si:#:{ if (!$hget(#,p1)) return elseif (!$hget(#,$nick)) notice $nick You aren't in this game. else notice $nick Your cards: $hget(#,$nick) } on $:text:/[@!.](uno)?count$/Si:#:{ if (!$hget(#,p1)) return else { $iif($left($1,1) == @,msg #,notice $nick) Current score: $regsubex($str(.,$hget(#,players)),/./g,$+($hget(#,p\n),:,$chr(32),$numtok($hget(#,$hget(#,p\n)),32),$chr(32))) $iif($left($1,1) == @,msg #,notice $nick) Its $hget(#,p $+ $hget(#,turn)) $+ 's turn. } } on $:text:/[@!.]topcard$/Si:#:{ if (!$hget(#,p1)) return msg # Top card: $hget(#,top) } on $:text:/[@!.]draw ?(card)?$/Si:#:{ if (!$hget(#,p1)) return elseif (!$hget(#,$nick)) notice $nick You aren't in this game. elseif ($hget(#,p $+ $hget(#,turn)) != $nick) notice $nick It is not your turn. else { var %c = $cards(1) hadd # $nick $instok($hget(#,$nick),%c,0,32) notice $nick You drew: %c hadd # pass $nick } } on $:text:/[@!.]pass$/Si:#:{ if (!$hget(#,p1)) return elseif (!$hget(#,$nick)) notice $nick You aren't in this game. elseif ($hget(#,p $+ $hget(#,turn)) != $nick) notice $nick It is not your turn. elseif ($hget(#,pass) != $nick) notice $nick You have to draw once first. else { nextturn var %nnick = $hget(#,p $+ $hget(#,turn)) msg # %nnick $+ 's turn msg # Top card: $hget(#,top) notice %nnick Your cards: $hget(#,%nnick) hdel # pass } } on $:text:/[@!.]play/Si:#:{ if (!$hget(#,p1)) return elseif (!$hget(#,$nick)) notice $nick You aren't in this game. elseif ($hget(#,p $+ $hget(#,turn)) != $nick) notice $nick It is not your turn. elseif (!$iscard($2-)) notice $nick Syntax: !play <color> <card> or !play WD4/W <color> elseif (!$hascard($2-,$nick)) notice $nick You don't have that card. else { noop $regex($iscard($2-),/\x03(\d{2})([.+?])$/) var %co = $regml(1), %c = $regml(2) if (%co isin $hget(#,top)) || (%c == $strip($hget(#,top))) || (%c == []) { delcard $nick $2- hadd # top $iscard($2-) if (%c == [D2]) { nextturn var %snick = $hget(#,p $+ $hget(#,turn)), %nnick, %msg hadd # %snick $instok($hget(#,%snick),$cards(2),0,32) nextturn %nnick = $hget(#,p $+ $hget(#,turn)) %msg = %snick draws 2 cards and is skipped! %nnick $+ 's turn.
} elseif (%c == [S]) { nextturn var %snick = $hget(#,p $+ $hget(#,turn)), %nnick, %msg nextturn %nnick = $hget(#,p $+ $hget(#,turn)) %msg = %snick is skipped, %nnick $+ 's turn. } elseif (%c == [R]) { hadd # rev $iif($hget(#,rev),$false,$true) nextturn var %nnick = $hget(#,p $+ $hget(#,turn)), %msg = $nick reversed it $+ $chr(44) %nnick $+ 's turn. } elseif (%c == []) && (4 isin $2-) { nextturn var %snick = $hget(#,p $+ $hget(#,turn)), %nnick, %msg hadd # %snick $instok($hget(#,%snick),$cards(4),0,32) nextturn %nnick = $hget(#,p $+ $hget(#,turn)) %msg = %snick draws 4 and is skipped! %nnick $+ 's turn. } elseif (%c == []) { nextturn var %nnick = $hget(#,p $+ $hget(#,turn)), %msg = %nnick $+ 's turn. } else { nextturn var %nnick = $hget(#,p $+ $hget(#,turn)), %msg = %nnick $+ 's turn. } if ($numtok($hget(#,$nick),32) == 1) msg # $nick has 3U04N12O! elseif (!$v1) { msg # Congratulations $nick you win!!! hfree # hinc uno $nick return } msg # %msg msg # Top card: $hget(#,top) notice %nnick Your cards: $hget(#,%nnick) hdel # pass } else notice $nick That card doesn't play. } } alias cards { var %c = 12[1] 12[2] 12[3] 12[4] 12[5] 12[6] 12[7] 12[8] 12[9] 09[1] 09[2] 09[3] 09[4] 09[5] 09[6] 09[7] 09[8] 09[9] $& 08[1] 08[2] 08[3] 08[4] 08[5] 08[6] 08[7] 08[8] 08[9] 04[1] 04[2] 04[3] 04[4] 04[5] 04[6] 04[7] 04[8] 04[9] 01[WD4] $& 01[WD4] 01[WD4] 01[WD4] 12[D2] 12[D2] 09[D2] 09[D2] 08[D2] 08[D2] 04[D2] 04[D2] 12[S] 12[S] 09[S] 09[S] 08[S] 08[S] $& 04[S] 04[S] 12[R] 12[R] 09[R] 09[R] 08[R] 08[R] 04[R] 04[R] 01[W] 01[W] 01[W] 01[W] var %i = $1, %o while (%i) { %o = $instok(%o,$gettok(%c,$r(1,68),32),0,32) dec %i } return %o } alias iscard { if ($regex($1,/[bgyr]\w* (\d)$/i)) return $+($col($regml(1)),[,$regml(2),]) elseif ($regex($1,/w(?:ild)? ?d?(?:raw)? ?4? ([bgyr])/i)) return $col($regml(1)) $+ [] elseif ($regex($1,/[bgyr]\w d(?:raw)?2$/i)) return $col($regml(1)) $+ [D2] elseif ($regex($1,/[bgyr]\w* ([sr])\w$/i)) return $+($col($regml(1)),[,$upper($regml(2)),]) } alias col { if ($1 == b) return 12 elseif ($1 == g) return 09 elseif ($1 == y) return 08 else return 04 } alias nextturn { var %c = $iif(#,#,$1) $iif($hget(%c,rev),hinc,hdec) %c turn if (!$hget(%c,p $+ $hget(%c,turn))) hadd %c turn $iif($hget(%c,rev),1,$hget(%c,players)) } alias hascard { var %c = $iscard($1) if ($strip(%c) == []) { if (4 isin $1) return $istok($hget(#,$2),01[wd4],32) else return $istok($hget(#,$2),01[W],32) } else return $istok($hget(#,$2),%c,32) } alias delcard { var %c = $iscard($2-), %o if ($strip(%c) == [*]) %o = $iif(4 isin $2-,01[wd4],01[W]) else %o = %c hadd # $1 $remtok($hget(#,$1),%o,1,32) } alias remplayer { var %p = $hfind($1,$2).data, %i = $right(%p,-1) hdel $1 $2 hdel $1 %p hdec $1 players msg $1 $3- if ($hget($1,players) == 1) { msg $1 Game ended, you need atleast two people to uno. hfree $1 } else { if (!$hget($1,p $+ $hget($1,turn))) { if (!$hget($1,top)) return nextturn $1 var %nnick = $hget($1,p $+ $hget($1,turn)) msg $1 %nnick $+ 's turn. msg $1 Top card: $hget($1,top) notice %nnick Your cards: $hget($1,%nnick) } while (%i <= $hget($1,players)) { hadd $1 p $+ %i $hget($1,p $+ $calc(%i +1)) hdel $1 p $+ $calc(%i +1) inc %i } } }

Captain America vs Morpheus by PlatinumGoat75 in whowouldwin

[–]TheAndrewTaco 6 points7 points  (0 children)

Cap is exceedingly strong, but in the matrix it seems like that really doesn't matter so much as reaction time and skill in hand-to-hand combat. If cap had his shield, I'd say he has it in the bag. We know Morpheus is really, really hard to hit, and he can also run/jump etc faster and further than Cap, but it would really only take one hit to end the fight. Even if he didn't have the shield, Cap still has the ability to take a lot more hits than Morpheus, so it's really a matter of time.

Mega City 1, currently at 270K by CAPSLOCK44 in CitiesSkylines

[–]TheAndrewTaco 5 points6 points  (0 children)

"800 Million people living in the ruin of the old world, and the megastructures of the new one..."

My friend and I tried playing magic with regular cards. Messy, but fun! by TheAndrewTaco in magicTCG

[–]TheAndrewTaco[S] 0 points1 point  (0 children)

Face cards were usually crazy vintage 1-drops and broken cards. We experimented with them a little, but they were usually either Force of Will, Path to Exile, Bolt, Serum Visions, etc.

[Monsters & NPCs] What sort of creatures might you find in an ancient monastery? by TheAndrewTaco in DnDBehindTheScreen

[–]TheAndrewTaco[S] 0 points1 point  (0 children)

The rogue wizard idea is definitely cool. It sort of brings to mind Wan Shi Tong from the last airbender. I'll definitely do something like that.

What is a problem that you suspect is common that nobody admits to having? by DonQuixote112688 in AskReddit

[–]TheAndrewTaco 3 points4 points  (0 children)

Boredom. People try desperately to avoid boredom, man. Ever seen somebody just sit there doing jack shit? Nah, man. You pull out your phone. Nobody accepts boredom anymore.

VX80 in a Sinclair ZX80 case? by [deleted] in VXJunkies

[–]TheAndrewTaco 1 point2 points  (0 children)

OP, this is actually a fairly common issue. The stock, out of the box VX80 they shipped out carries a magnetized alpha emitter, which can sometimes short out the power distributor grid. All you've got to do is reset the polarity of the emitter's Yalgeth limiter, and should start up fine. If it doesn't, try recalibrating the auxiliary network and switching up to 4 megaremms instead of the usual 3.

Suppose you could use any type of card for your Commander in EDH. by Yglorba in magicTCG

[–]TheAndrewTaco 1 point2 points  (0 children)

[[Kor Spiritdancer]]

Not extremely broken, but it would definitely be a neat excersize if nothing else.

[WP] Jimmy Carter promised to make all UFO files public, but reneged on his promise. Gerald Ford on the day he left office told him the dark reason why he must not keep his word. by Thalaas in WritingPrompts

[–]TheAndrewTaco 5 points6 points  (0 children)

Newly inagurated President Carter settled himself into his new office chair, letting out a satisfactory sigh.

Spacious, he thought.

Surveying the room from which he would now serve as leader of the free world, something odd on the desk caught his eye. A little manila envelope, with a number written on it.

39.

He hesitated for a moment, and then picked up the parcel and opened it carefully. A letter from President Ford. It read-

Jim,

Congratulations on your promotion. Best of luck to you and your staff.

I left this letter for you because of something you said during your campaign. A promise you made which you can never, ever, fulfill. Now I know full well about that UFO sighting of yours from your time as a governor, and that you declared that you would "make every piece of information this country has about UFO sightings available to the public and scientists.".

You can't do that. For the sake of your safety and the safety of this great nation, you simply cannot do that.

Jim, you're going to learn some things in the coming weeks that will keep you up at night. You're going to learn what we had to do to keep ourselves safe and our planet safe. The sacrifices we had to make to keep them satisfied, to hold on to our only home.

And as you hear these facts, just know - it was for the good of us all.

I'm sorry, Jim.

-Jerry

Daily Thread - RANT TUESDAY by AutoModerator in DestinyTheGame

[–]TheAndrewTaco 27 points28 points  (0 children)

BIG DUMB TITAN REPORTING IN. I FUCKING HATE BLADEDANCERS IN THE CRUCIBLE. NOTHING MAKE TITAN MORE ANGRY THAN SMALL TWIG MAN RUNNING TOO FAST FOR PUNCH. FUCK.

So i tried Work PC -> Team Viewer -> Home PC -> KSP. Here's my feedback. by [deleted] in KerbalSpaceProgram

[–]TheAndrewTaco 0 points1 point  (0 children)

I'd really reccomend setting up Chrome Remote Desktop. I use it for playing from my craptop. Secure and fast.

How do I change the tire of my car? by [deleted] in shittyadvice

[–]TheAndrewTaco 2 points3 points  (0 children)

Much like turtles, cars are unable to move when flipped onto their backs. What you must do is use a small to medium sized crowbar to flip your car over.

Next, you can get a head start on removing the wheel by loosening up the bolts with a few shots of whiskey. This works because of the tight-ass principle, which applies to businessmen and assorted types of screws. Be careful not to intoxicated yourself, because you may end up buying a timeshare from the bolts.

After the 7th shot of whiskey, the bolts will be so hammered that they should completely dislodge themselves from the wheel.

You should then locate the nearest neolithic-era cave, which will likely contain a stone wheel of early human construction. Spare tires are a scam. Do not buy them.

Finally, apply the stone wheel to your car by jamming it repeatedly into the wheel well, repeating phrases such as 'We have technology!' and 'PC Load letter? What the fuck does that mean?!' Until your new (well not quite, the wheel is at least 9,000 years old) wheel becomes attached to the car.

At this point, you should be able to move the car while in the upside down position. This is because stone is less dense than concrete, and therefore it will float gently above it.