Home Page Forums MAME MAME Playing with the Atari 2600 POP

gamelist = [[Adventure
Target Fun
Asteroids
Backgammon
Basketball
Bowling
Breakaway
Canyon Bomber
Poker Plus
Circus
Tank Plus
Dodger Cars
Football
Golf
Hangman
Baseball
Cannonman
Maze Mania
Missile Command
Night Driver
Othello
Gunslinger
Soccer
Darediver
Maze
Space Invaders
Speedway II
Superman
Tic-Tac-Toe
Checkers
Chess
Pong Sports
Pinball
Warlords
Berzerk
Haunted House
Math Grand Prix
Defender
Yar's Revenge
Pac-Man
Super Breakout
Demons To Diamonds
Submarine Commander
Stellar Track
Steeple Chase]]

linecount=0
for line in gamelist:gmatch("([^\n]*)\n?") do
  linecount=linecount+1
  print(line,linecount)
end


function opentag(t,i) return "<"..t.." "..i..">" end
function closetag(t) return "</"..t..">" end
function tag(t,i) return '<'..t.." "..i.."/>" end
function attr(a,v) return a.."="..'"'..v..'" ' end


function colorrgb(r,g,b) return tag("color",(attr("red",r)..attr("green",g)..attr("blue",b))) end

color = {}
color[2] = colorrgb(.839,.408,.275)
color[3] = colorrgb(.659,.384,.290)
color[0] = colorrgb(.875,.557,.315)
color[1] = colorrgb(.906,.510,.278)


print()
print([[<?xml version="1.0"?>
<!--
license:CC0-1.0
copyright-holders:
-->]])

print(opentag("mamelayout",attr("version",2)))

for i=0,3 do 
print (opentag("element",attr("name","rectcolor"..i)..attr("defstate","0")))
print (opentag("rect",attr("state","0"))..color[i]..closetag("rect"))
print (closetag("element"))
end

function textelement(n,s) return opentag("element",attr("name",n))..opentag("text",attr("string",s))..colorrgb(1.0,1.0,1.0)..closetag("text")..closetag("element") end

linecount=0
for line in gamelist:gmatch("([^\n]*)\n?") do
  linecount=linecount+1
--  print(line,linecount)
  game=line
  gamecount=linecount
  print(textelement("textgame"..gamecount,game.."  "..gamecount))
end

function elementxywh(r,x,y,w,h) return opentag("element",attr("ref",r))..tag("bounds",attr("x",x)..attr("y",y)..attr("width",w)..attr("height",h))..closetag("element") end

print(opentag("view",attr("name","Game List Panel")))

--<screen index="0"><bounds x="0" y="-500" width="625" height="500" /></screen>

print(opentag("screen",attr("index",0))..tag("bounds",attr("x",0)..attr("y",-500)..attr("width",625)..attr("height",500))..closetag("screen"))


x0 = 0
xwidth = 65
xgap = 5
y0 = 0
yheight=20
ygap = 2
ymax = (yheight+ygap) * (5-1)

x=x0
y=y0

for g=1,gamecount do
print((elementxywh("rectcolor"..g%4,x,y,xwidth,yheight)))
print((elementxywh("textgame"..g,x,y,xwidth,yheight)))
y=y+yheight+ygap
if y>ymax then
  y=y0
  x=x+xwidth+xgap
end
end

print(closetag("view"))
print(closetag("mamelayout"))

function mypointercb(type,id,devid,hpos,vpos,mask,clickcount) 
cvb=manager.machine.render.targets:at(1).current_view.bounds 
if clickcount > 0 then print(hpos,vpos,"COORDS "..(cvb.x1-cvb.x0) * hpos + cvb.x0..","..(cvb.y1-cvb.y0)*vpos+cvb.y0) end end

manager.machine.render.targets:at(1).current_view:set_pointer_updated_callback(mypointercb)

function drawframe() 
x=x or 0 y = y or 0 
manager.machine.render.ui_container:draw_box(0,0,.3,.1,0xffffffff,0x80ff0000)
manager.machine.render.ui_container:draw_text(0,0,"Coords = "..string.format("%3.2f",x)..","..string.format("%3.2f",y))
end

emu.register_frame_done(drawframe)



function mypointercb(type,id,devid,hpos,vpos,mask,clickcount)
 cvb=manager.machine.render.targets:at(1).current_view.bounds
 x,y=(cvb.x1-cvb.x0) * hpos + cvb.x0,(cvb.y1-cvb.y0)*vpos+cvb.y0 
end

manager.machine.render.targets:at(1).current_view:set_pointer_updated_callback(mypointercb)

/*
	10 -- Compumate [CM]

	there are 4 4K banks selectable at $1000 - $1FFFF
	bankswitching is done though the controller ports
	INPT0: D7 = CTRL key input (0 on startup / 1 = key pressed)
	INPT1: D7 = always HIGH input (tested at startup)
	INPT2: D7 = always HIGH input (tested at startup)
	INPT3: D7 = SHIFT key input (0 on startup / 1 = key pressed)
	INPT4: D7 = keyboard row 1 input (0 = key pressed)
	INPT5: D7 = keyboard row 3 input (0 = key pressed)
	SWCHA: D7 = tape recorder I/O ?
	       D6 = 1 -> increase key collumn (0 to 9)
	       D5 = 1 -> reset key collumn to 0 (if D4 = 0)
	       D5 = 0 -> enable RAM writing (if D4 = 1)
	       D4 = 1 -> map 2K of RAM at $1800 - $1fff
	       D3 = keyboard row 4 input (0 = key pressed)
	       D2 = keyboard row 2 input (0 = key pressed)
	       D1 = bank select high bit
	       D0 = bank select low bit
	
	keyboard collumn numbering:
	collumn 0 = 7 U J M
	collumn 1 = 6 Y H N
	collumn 2 = 8 I K ,
	collumn 3 = 2 W S X
	collumn 4 = 3 E D C
	collumn 5 = 0 P ENTER SPACE
	collumn 6 = 9 O L .
	collumn 7 = 5 T G B
	collumn 8 = 1 Q A Z
	collumn 9 = 4 R F V
*/

[MAME]> print(string.format("%x",emu.item(manager.machine.devices[":tia_video"].items["0/COLUPF"]):read()))
e
[MAME]> print(string.format("%x",emu.item(manager.machine.devices[":tia_video"].items["0/COLUPF"]):read()))
36
[MAME]> print(string.format("%x",emu.item(manager.machine.devices[":tia_video"].items["0/COLUPF"]):read()))
86
[MAME]> print(string.format("%x",emu.item(manager.machine.devices[":tia_video"].items["0/COLUPF"]):read()))
c8