BizHawkScripts/Columns 3.lua at master · Kyle873/BizHawkScripts · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
dofile("KLib/KLib.lua")

Address =
{
    Board = 0x1260,
    Items = 0x4000
}

Tiles =
{
    [0] = "Nothing",

    "Red Gem",
    "Purple Gem",
    "Blue Gem",
    "Green Gem",
    "Yellow Gem",
    "Orange Gem",
    "Rainbow Up",
    "Rainbow Middle",
    "Rainbow Down"
}

Items =
{
    [0] = "Nothing",

    "Hourglass",
    "Heavy Weight",
    "Magic Bell",
    "Barrier",
    "Magic Gem",
    "Antidote"
}

Board = {}

BoardEdit =
{
    Active = false,
    Width = 6,
    Height = 13,
    TileSize = 16,
    X = 0,
    Y = 0,
    Tile = 0
}

memory.usememorydomain("68K RAM")

for y = 0, 13 - 1 do
    Board[y] = {}

    for x = 0, 6 - 1 do
        Board[y][x] = Address.Board + 0x01 + (x * 0x02) + (y * 0x10)
    end
end

function BoardEdit.Update()
    local x = 14 + (BoardEdit.X * BoardEdit.TileSize)
    local y = 6 + (BoardEdit.Y * BoardEdit.TileSize)

    gui.drawRectangle(x + 2, y + 2, BoardEdit.TileSize - 1, BoardEdit.TileSize - 1, KLib.Color.Pulse(KLib.Color.Make(224, 224, 224), 31, 8))
end

function BoardEdit.Input()
    if KLib.Input.ButtonPressed("P1 Up") then
        BoardEdit.Y = BoardEdit.Y - 1

        if BoardEdit.Y < 0 then
            BoardEdit.Y = BoardEdit.Height - 1
        end
    end

    if KLib.Input.ButtonPressed("P1 Down") then
        BoardEdit.Y = BoardEdit.Y + 1

        if BoardEdit.Y >= BoardEdit.Height then
            BoardEdit.Y = 0
        end
    end

    if KLib.Input.ButtonPressed("P1 Left") then
        BoardEdit.X = BoardEdit.X - 1

        if BoardEdit.X < 0 then
            BoardEdit.X = BoardEdit.Width - 1
        end
    end

    if KLib.Input.ButtonPressed("P1 Right") then
        BoardEdit.X = BoardEdit.X + 1

        if BoardEdit.X >= BoardEdit.Width then
            BoardEdit.X = 0
        end
    end
end

while true do
    if BoardEdit.Active then
        BoardEdit.Update()
    end

    KLib.Update()

    if KLib.Input.ButtonPressed("P1 X") then
        BoardEdit.Active = not BoardEdit.Active
    end

    if BoardEdit.Active then
        BoardEdit.Input()
    end

    emu.frameadvance()

    KLib.PostUpdate()
end