Blue Sun Room FICTION - GENERAL

Enemies

Tuesday, August 24, 2004

Everyone has them. The crew of the Veangeance learns some are deadlier than others.

CATEGORY: FICTION    TIMES READ: 2743    RATING: 7.0 (PG13)    SERIES: FIREFLY

Tweet

Enemies

Written by R. T. Byers

No infringement of copyright is intended. All recognizable items are the property of Joss Whedon and Mutant Enemy. However, the story and all original characters are mine.

Captain Tim “Dual” Raynor fell face first to the floor. He gasped in pain as he slammed hard against the steel, breaking open newly healed wounds. The floor was bowl shaped and had a drain in the middle, to which all of his blood was currently flowing. He thought back on the recent events that had led him here and smiled wryly.

A pair of heavy boots stamped to in front of his face. Dual looked up to his tormenter, who had a malicious gleam in his eye, and spat. Rage contorted the man’s features, and he kicked Dual in the face, sending him reeling into darkness.

* * *

Two days earlier...

The clack of wooden swords connecting echoed through the Vengeance’s cargo bay. Dual stared into Phoenix’s eyes, trying to ignore how uneasy they made him. He had asked Phoenix to come down and demonstrate some sword techniques for the morning’s self defense training. He had learned Phoenix carried a pair of wooden katanas with him, and challenged him to a fight. He had not fathomed the man was this good. He used moves Dual did not even know existed.

Dual blocked the pilot’s slash just in time. Phoenix grabbed Dual’s throat, then hit him on the head with the hilt of his sword. Phoenix kicked Dual to the ground, then spun his sword around and jammed it downward, stopping the wooden blade just before it touched Dual. Phoenix bent down and helped the captain to his feet, Dual clutching his chest.

“Are you alright Captain?” asked Phoenix.

“Shiny,” said Dual, “ ’Cept for all those times you tried to run me through with your sword.”

Dual looked over to Hank “Tech” Lee, his mechanic, an

Comments
Wednesday, 25 August 2004 08:00
Nice work! Good story and plotting. The characters developing even more from the previous story. Interesting events. I kinda dug the sword stuff--nifty.

If you don't mind a suggestion, you might even let a lot of your scenes go longer, as long as they're flowing smoothly. Some of the scenes felt a touch hasty, as though you were pushing the info out fast and terse rather than letting it flow out of the characters as they themselves experience it. Your key charaters are Dual and Phoenix and I'd like to see and feel more through their senses, thoughts, and emotions. They're an interesting pair you've created.
ANONYMOUS
Wednesday, 01 September 2004 21:04
You've got a knack for dialogue. I wanted just a little more development of the characters. It would be great if you could "show" a little more and "tell" a little less. Let the characters actions and words speak for them instead of just telling us exactly how they feel. Just a thought. I could be wrong- I'm more of a reader than a writer. Keep writing. I dig this shite.
ANONYMOUS
Saturday, 16 October 2004 10:04
~COMMENTS~
ANONYMOUS
Saturday, 16 October 2004 10:14
<table border="0" cellpadding="3" cellspacing="0" style="border-collapse: collapse" id="AutoNumber1">
<tr>
<td align="right"> </td>
<td> </td>
</tr>
<tr>
<td align="right">
NAME:
</td>
<td>Anonymous</td>
</tr>
<tr>
<td align="right"><br></td>
<td></td>
</tr>
<tr>
<td align="right">
ITEM RATING:
</td>
<td>
(WORST)
<input type="radio" value="1" name="Rating">1
<input type="radio" value="2" name="Rating">2
<input type="radio" value="3" name="Rating">3
<input type="radio" value="4" name="Rating">4
<input type="radio" value="5" name="Rating">5
<input type="radio" value="6" name="Rating">6
<input type="radio" value="7" name="Rating">7
<input type="radio" value="8" name="Rating">8
<input type="radio" value="9" name="Rating">9
<input type="radio" value="10" name="Rating">10

(BEST)</td>
</tr>
<tr>
<td align="right"> </td>
<td> </td>
</tr>
<tr>
<td align="right">COMMENT:</td>
<td><textarea rows="10" name="Comment" cols="40"></textarea></td>
</tr>
<tr><td>
<input type ="hidden" name="ContentID" value="1869"></td></tr>
<tr>
<td align="right">
<input type="hidden" name="ContentOwner" value="RTByers">
<input type="hidden" name="Username" value="Anonymous">
<input type="hidden" name="ContentCategory" value="Fiction">
<input type="hidden" name="ContentItem" value="Enemies">
</td>
<td>
<input type="submit" value="Submit My Comment" name="SubmitComment"></td>
</tr>
</table>
ANONYMOUS
Saturday, 16 October 2004 10:18
<%
'--------------------------------------------------------------
' ASPBlackJack v1.0
' (x) Ugh!! 2000 - 15/10/2000
'
' Converted to ASP from JScript obtained at
' http://www.javascriptsearch.com/scripts/Games/blackjack.html
' Original author: Unknown
'
' Written for http://www.only-network.com/games Any comments,
' flames, requests, postcards etc to owen@cutajar.net
'--------------------------------------------------------------

Option Explicit


'------------------------------------------------
' History Routines
'------------------------------------------------
sub ClearHistory

Dim q
For q = 1 to 10
Session("DHistory" & q) = ""
Session("UHistory" & q) = ""
next

end sub

sub WriteHistory(Entity,Message)

Dim q

q = 1
While Session( Left(Entity,1) & "History" & q) <> ""
q = q + 1
Wend
Session( Left(Entity,1) & "History" & q) = Message

end sub

Function ReadHistory(Entity)

Dim returnValue,q,currentmessage

returnvalue = ""
for q = 1 to 10
currentmessage = Session( Left(Entity,1) & "History" & q)

If currentmessage <> "" Then
returnvalue = returnvalue & "- " & currentmessage & "<br>"
end if
next

ReadHistory = returnValue

end Function

'------------------------------------------------
' Select a random card
'------------------------------------------------
function pickCard()

Dim iRandom

Randomize()
iRandom = Int(13 * Rnd + 1)
pickCard = iRandom

end function


'------------------------------------------------
' Select a random suit
'------------------------------------------------
function pickSuit()

Dim iRandom

Randomize()
iRandom = Int(4 * Rnd + 1)

if iRandom = 1 then
pickSuit = "Spades"
elseif iRandom = 2 then
pickSuit = "Clubs"
elseif iRandom = 3 then
pickSuit = "Diamonds"
else
pickSuit = "Hearts"
end if

end function


'------------------------------------------------
' Translate card number to words
'------------------------------------------------
function cardName(card)

if card = 1 then
cardName = "Ace"
elseif card = 11 then
cardName = "Jack"
elseif card = 12 then
cardName = "Queen"
elseif card = 13 then
cardName = "King"
else
cardName = card
end if

end function


'------------------------------------------------
' Work out value of card
'------------------------------------------------
function cardValue(card)

if card = 1 then
cardValue = 11
elseif card > 10 Then
cardValue = 10
else
cardValue = card
end if

end function


'------------------------------------------------
' Work out value of card
'------------------------------------------------
function selectCard(strWho)

Dim iCardNum,theCard
iCardNum = pickCard

theCard = CardName(iCardNum) & " of " & pickSuit

Response.Write strWho & " picked a " & theCard & "<br>"
selectCard = CardValue(iCardNum)

WriteHistory strWho , theCard

end function

'------------------------------------------------
' Show current status on screen
'------------------------------------------------
sub ReportStatus

Response.Write "<p>"
Response.Write "<table border=3><tr><td>Player</td><td>Hand</td><td>Score</td></tr>"
Response.Write "<tr><td>You</td><td>" & ReadHistory("User") & "</td>"
Response.Write "<td>" & Session("User") & "</td></tr>"
Response.Write "<tr><td>Dealer</td><td>" & ReadHistory("Dealer") & "</td>"
Response.Write "<td>" & Session("Dealer") & "</td></tr></table>"

end sub

'------------------------------------------------
' Work out value of card
'------------------------------------------------
sub NewHand

ClearHistory
Session("Dealer") = 0
Session("User") = 0

Session("Dealer") = Session("Dealer") + SelectCard("Dealer")
Session("User") = Session("User") + SelectCard("User")
Session("GameOver") = False

ReportStatus

end Sub

'------------------------------------------------
' Dealer Move
'--------------------------------------------
ANONYMOUS
Saturday, 16 October 2004 10:20

Option Explicit

sub ClearHistory

Dim q
For q = 1 to 10
Session("DHistory" & q) = ""
Session("UHistory" & q) = ""
next

end sub

sub WriteHistory(Entity,Message)

Dim q

q = 1
While Session( Left(Entity,1) & "History" & q) <> ""
q = q + 1
Wend
Session( Left(Entity,1) & "History" & q) = Message

end sub

Function ReadHistory(Entity)

Dim returnValue,q,currentmessage

returnvalue = ""
for q = 1 to 10
currentmessage = Session( Left(Entity,1) & "History" & q)

If currentmessage <> "" Then
returnvalue = returnvalue & "- " & currentmessage & "<br>"
end if
next

ReadHistory = returnValue

end Function

function pickCard()

Dim iRandom

Randomize()
iRandom = Int(13 * Rnd + 1)
pickCard = iRandom

end function


function pickSuit()

Dim iRandom

Randomize()
iRandom = Int(4 * Rnd + 1)

if iRandom = 1 then
pickSuit = "Spades"
elseif iRandom = 2 then
pickSuit = "Clubs"
elseif iRandom = 3 then
pickSuit = "Diamonds"
else
pickSuit = "Hearts"
end if

end function



function cardName(card)

if card = 1 then
cardName = "Ace"
elseif card = 11 then
cardName = "Jack"
elseif card = 12 then
cardName = "Queen"
elseif card = 13 then
cardName = "King"
else
cardName = card
end if

end function

function cardValue(card)

if card = 1 then
cardValue = 11
elseif card > 10 Then
cardValue = 10
else
cardValue = card
end if

end function


function selectCard(strWho)

Dim iCardNum,theCard
iCardNum = pickCard

theCard = CardName(iCardNum) & " of " & pickSuit

Response.Write strWho & " picked a " & theCard & "<br>"
selectCard = CardValue(iCardNum)

WriteHistory strWho , theCard

end function

sub ReportStatus

Response.Write "<p>"
Response.Write "<table border=3><tr><td>Player</td><td>Hand</td><td>Score</td></tr>"
Response.Write "<tr><td>You</td><td>" & ReadHistory("User") & "</td>"
Response.Write "<td>" & Session("User") & "</td></tr>"
Response.Write "<tr><td>Dealer</td><td>" & ReadHistory("Dealer") & "</td>"
Response.Write "<td>" & Session("Dealer") & "</td></tr></table>"

end sub
sub NewHand

ClearHistory
Session("Dealer") = 0
Session("User") = 0

Session("Dealer") = Session("Dealer") + SelectCard("Dealer")
Session("User") = Session("User") + SelectCard("User")
Session("GameOver") = False

ReportStatus

end Sub

sub DealerMove

while Session("Dealer") < 17
Session("Dealer") = Session("Dealer") + SelectCard("Dealer")
wend

ReportStatus

end sub


sub UserMove

Session("User") = Session("User") + SelectCard("User")
if Session("User") > 21 Then
Response.Write "<h2>You busted!</h2>"
Session("GameOver") = True
end if

ReportStatus

end sub


Sub LookAtHands

if Session("Dealer") > 21 Then
Response.Write "<h2>House busts! You win!</H2>"
elseif Session("User") > Session("Dealer") Then
Response.Write "<h2>You win</H2>"
elseif Session("User") = Session("Dealer") Then
Response.Write "<h2>Push!</H2>"
else
Response.Write "<h2>House wins!</H2>"
end if
Session("GameOver") = True

End Sub


' Maincode starts here
Dim action

Response.Write "<center>"

action = Request("action") & ""
If action = "Hit Me" Then
UserMove
Elseif action = "Stand" Then
DealerMove
LookAtHands
Else
NewHand
End If

Response.Write "<form action=blacksource.asp>"
If Session("GameOver") <> True Then
Response.Write "<INPUT TYPE=SUBMIT NAME=action VALUE='Hit Me'>"
Response.Write "<INPUT TYPE=SUBMIT NAME=action VALUE='Stand'>"
End if
Response.Write "<INPUT TYPE=SUBMIT NAME=action VALUE='New Hand'>"
Response.Write "</FORM>"

Response.Write "</center>"
ANONYMOUS
Saturday, 16 October 2004 10:23
<META HTTP-EQUIV="Refresh" CONTENT="4; URL=
>
ANONYMOUS
Tuesday, 29 November 2005 03:54
It is, indeed, a great fortune site - and can be seen at fortune http://www.beat-blackjack.com fortune. Experience fortune like you never experienced <a href="http://www.beat-blackjack.com"fortune</a> before. No, check fortune http://www.beat-blackjack.com fortune for much more.
ANONYMOUS
Wednesday, 30 November 2005 14:48
ANONYMOUS
Wednesday, 14 December 2005 04:02
ANONYMOUS
Monday, 19 December 2005 00:58
ANONYMOUS
Wednesday, 28 December 2005 15:55

Post Your Comments

You must log in to post comments.