Files

99 lines
3.6 KiB
Plaintext

#define REWARD_DIVISOR 1000
// At the end of the game, the thing yields tetris_score/REWARD_DIVISOR prize tickets. Adjust accordingly.
/obj/machinery/computer/arcade/tetris
name = "T.E.T.R.I.S."
desc = "The pinnacle of human technology."
icon = 'icons/obj/computer.dmi'
icon_state = "arcade"
circuit = /obj/item/circuitboard/computer/arcade/tetris
light_color = LIGHT_COLOR_GREEN
/obj/machinery/computer/arcade/tetris/Topic(href, href_list)
if(..())
return 1
else
usr.set_machine(src)
if(href_list["tetrisScore"])
var/temp_score = text2num(href_list["tetrisScore"])
say("YOUR SCORE: [temp_score]!")
var/reward = round(temp_score/REWARD_DIVISOR)
prizevend(usr, reward)
return
/obj/machinery/computer/arcade/tetris/attack_ai(user as mob)
return src.attack_hand(user)
/obj/machinery/computer/arcade/tetris/attack_hand(mob/user as mob)
if(..())
return
add_fingerprint(user)
if(stat & (BROKEN|NOPOWER))
return
if(user.client)
var/datum/asset/simple/C = new/datum/asset/simple/tetris()
SSassets.transport.send_assets(user.client, C.assets)
var/dat = {"
<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.01 Transitional//EN'>
<html><head>
<META NAME='description' content='Tetris is a PC-Game, which is a part of the '7 by one stroke' package, written in HTML and JavaScript'>
<META NAME='author' content='Lutz Tautenhahn'>
<META NAME='keywords' content='Game, Tetris, Streich, Stroke, JavaScript'>
<META HTTP-EQUIV='Content-Type' CONTENT='text/html; charset=iso-8859-1'>
<title>Telemetry Enhanced Testing and Research Informatic Simulator</title>
<script language='JavaScript'>
function submitScore(s){
window.location.href = 'byond://?src=\ref[src];tetrisScore=' + s;
}
</script>
<script language='JavaScript1.2'>
if (navigator.appName != 'Microsoft Internet Explorer')
document.captureEvents(Event.KEYDOWN)
document.onkeydown = NetscapeKeyDown;
function NetscapeKeyDown(key)
{ KeyDown(key.which);
}
</script>
<script for=document event='onkeydown()' language='JScript'>
if (window.event) KeyDown(window.event.keyCode);
</script>
<script language='JavaScript' src='tetris.js'></script>
</head>
<BODY bgcolor=#E0A060>
<form name='ScoreForm'>
<DIV ALIGN=center>
<table noborder><tr><td>
<script language='JavaScript' src='tetris2.js'></script>
</td>
<td>&nbsp;&nbsp;&nbsp;</td>
<td valign=top>
<table border=4 cellpadding=4 cellspacing=6 bgcolor=#C0B0A0><tr><td>
<table noborder cellpadding=2 cellspacing=2>
<tr><td align=center><input type=button width='70' style='width:70;' value='Pause' onClick='Pause()'></td></tr>
<tr><td>&nbsp;</td></tr>
<tr><td align=center><input type=button width='70' style='width:70;' value='New' onClick='New()'></td></tr>
<tr><td>&nbsp;</td></tr>
<tr><td align=center>Score:</td></tr>
<tr><td align=center><input type=button width='70' style='width:70; background-color:#ffffff' name='Score'></td></tr>
<tr><td align=center>Level:</td></tr>
<tr><td align=center><input type=button width='70' style='width:70; background-color:#ffffff' name='Level' onClick='IncreaseDifficulty()'></td></tr>
<tr><td align=center>Lines:</td></tr>
<tr><td align=center><input type=button width='70' style='width:70; background-color:#ffffff' name='Lines''></td></tr>
<tr><td align=center><table border=2 cellpadding=0 cellspacing=3><tr><td><img src='tetrisp0.gif' border=0></td></tr></table></td></tr>
</table></td></tr></table>
</td></tr></table>
<script language='JavaScript'>
Init(true);
</script>
</DIV>
</form>
</BODY>
</HTML>
"}
user << browse(dat, "window=tetris;size=435x550")
user.set_machine(src)
onclose(user, "tetris")