Compare commits

..

2 commits

Author SHA1 Message Date
Fabien Freling 0ba85c04db wolf: move script to dedicated file 2024-09-23 14:02:06 +02:00
Fabien Freling 4a2a2c17e7 add picotron cartridge 2024-09-20 13:59:02 +02:00
3 changed files with 76 additions and 0 deletions

2
justfile Normal file
View file

@ -0,0 +1,2 @@
picotron:
picotron&

47
picotron/wolfenstein.p64 Normal file
View file

@ -0,0 +1,47 @@
picotron cartridge // www.picotron.net
version 2
:: gfx/
:: gfx/0.gfx
b64$LS1bW3BvZCxjcmVhdGVkPSIyMDI0LTAzLTIwIDExOjU3OjQyIixtb2RpZmllZD0iMjAyNC0w
OS0yMyAxMTozMzoyNyIscmV2aXNpb249NjJdXWx6NACnAAAALDEAAPMUe1swXT17Ym1wPXB4dQBD
IBAQBPDwLGZsYWdzPTAscGFuX3gIAMp5PTAsem9vbT04fSwxAB-2MQAdH-cxAB0v-xkyAB4fEDIA
HdbwFGiAeHAYMChgGEAYBACRMBhwaIBYkBjQAgAv8ApWAB0f8DEA------------------------
---------------------------------------hUG09OH19
:: gfx/.info.pod
b64$LS1bW3BvZCxjcmVhdGVkPSIyMDI0LTAzLTIwIDExOjU3OjQxIixtb2RpZmllZD0iMjAyNC0w
OS0yMyAxMTozMzoyNyIsc3RvcmVkPSIyMDI0LTAzLTIwIDExOjU3OjQxIl1d
:: map/
:: map/0.map
b64$LS1bW3BvZCxjcmVhdGVkPSIyMDI0LTAzLTIwIDExOjU3OjQyIixtb2RpZmllZD0iMjAyNC0w
OS0yMyAxMTozMzoyNyIscmV2aXNpb249NjddXWx6NAC2AAAAXBAAAPAIe3tibXA9dXNlcmRhdGEo
ImkxNiIsMzIDAJ8iMDAwMTAwMDIIAA4PAQBHD1wAES8xMAEARw9cAA4PAAFULzMwAAF3EzQEAA8A
AVkOgAAPAAFnDAEADwABXQwBAA8AAVEvNTAAAecfMggADg8BAP-------------O8QkiKSxoaWRk
ZW49ZmFsc2UscGFuX3g9MjAJAOJ5PS04LHRpbGVfaD0xNgoAEHcKAKB6b29tPTAuNX19
:: map/.info.pod
b64$LS1bW3BvZCxjcmVhdGVkPSIyMDI0LTAzLTIwIDExOjU3OjQxIixtb2RpZmllZD0iMjAyNC0w
OS0yMyAxMTozMzoyNyIsc3RvcmVkPSIyMDI0LTAzLTIwIDExOjU3OjQxIl1d
:: sfx/
:: sfx/0.sfx
b64$LS1bW3BvZCxjcmVhdGVkPSIyMDI0LTAzLTIwIDExOjU3OjQyIixtb2RpZmllZD0iMjAyNC0w
OS0yMyAxMTozMzoyNyIscmV2aXNpb249NTBdXWx6NAARAQAAUggAAPAncHh1AAMoAAAEAAQPQBAC
DgABoAEgAqAOAA8QAA3wygECAwQFBgcAD-_QCAkKCw8MDw0PDg8PEADwAA0PEQ8SDxMPFA8VDxYP
FxMA8QEPGA8ZDxoPGw8cDx0PHg8fFADxACAPIQ8iDyMPJA8lDyYPJxQA8QAoDykPKg8rDywPLQ8u
Dy8UAPEAMA8xDzIPMw80DzUPNg83FAD-BTgPOQ86DzsPPA89Dz4PPwAP--D-AQDr-ydaARAGDyAQ
ASABIAHwAAIQAgwQASAPISABMA9A8MMPKA--8MYP_AoP-w_AD-cPDQHwCQEQBgwwAP85H-8BANy-
_A9AAA1A--_w8HAKAP--ZB--AQD-mVD-----IA==
:: sfx/.info.pod
b64$LS1bW3BvZCxjcmVhdGVkPSIyMDI0LTAzLTIwIDExOjU3OjQxIixtb2RpZmllZD0iMjAyNC0w
OS0yMyAxMTozMzoyNyIsc3RvcmVkPSIyMDI0LTAzLTIwIDExOjU3OjQxIl1d
:: main.lua
--[[pod_format="raw",created="2024-03-20 11:57:42",modified="2024-09-23 11:33:27",revision=74]]
include("/cartridges/wolfenstein_src/main.lua")
:: .info.pod
b64$LS1bW3BvZCxjcmVhdGVkPSIyMDI0LTA4LTEyIDExOjQ2OjM4Iixtb2RpZmllZD0iMjAyNC0w
OS0yMyAxMTozMzoyNyIscnVudGltZT0xMSxzdG9yZWQ9IjIwMjQtMDMtMjUgMTI6NTc6NDAiLHdv
cmtzcGFjZXM9e3tsb2NhdGlvbj0ibWFpbi5sdWEjMiIsd29ya3NwYWNlX2luZGV4PTF9LHtsb2Nh
dGlvbj0iZ2Z4LzAuZ2Z4Iix3b3Jrc3BhY2VfaW5kZXg9Mn0se2xvY2F0aW9uPSJtYXAvMC5tYXAi
LHdvcmtzcGFjZV9pbmRleD0zfSx7bG9jYXRpb249InNmeC8wLnNmeCIsd29ya3NwYWNlX2luZGV4
PTR9fV1d
:: [eoc]

View file

@ -0,0 +1,27 @@
player = {
x = nil,
y = nil
}
col_bg = 1
col_ground = 6
function _init()
for i=0,31 do
for j=0,31 do
if mget(i,j) == 5 then -- player id
player.x = i
player.y = j
break
end
end
if (player.x) break
end
print("player: ("..player.x..", "..player.y..")")
end
function _draw()
cls(col_bg)
rectfill(0, 135, 480, 270, col_ground)
-- map()
end