Lawn Mower Script V6

--Here is my old WIP: http://dehacked.2y.net/microstorage.php/info/1990383037/Lawn_Mower%20Stage%203%203273.fm2
--This script is setup for FCEUX

--Copy into file and save as LawnMowerScript.lua (Notepad++ can do this)
--Please disregard the fact that this is coded like trash.
--Source code also exists for the game.  Rainbowism was messing around with it quite a bit.  I have it somewhere.

local Base1= 0x0000
local Base2 = 0x0001 --Per pixel in bar
local CurrFuelAd2 = 0x00CB  --Continuous
local GrassesLeftAd = 0x00CC  --Continuous

local XAd = 0x00EA  --Also 0x00D8
local XSubAd = 0x00E9
local YAd = 0x00E8  --Also 0x00D2, 0x00D7
local YSubAd = 0x00E7

local VelocityAd = 0x00D4
local DoubleSubPxAd = 0x00D9

local Percentage = 0x00B2
local Percentage2 = 0x00D1
local NextFuelYAd = 0x00B7
local NextFuelXAd = 0x00B8
local FuelCounterAd = 0x00BC

local WHERETOGETAD = 0x00B5  -- Locking all two of these locks the fuel spawn, it sometimes goes invis as a side effect.
local WHERETOGETAD2 = 0x00B6

local WHERETOGETAD3 = 0x00E3

local CurrFuelYAd = 0x00C0
local CurrFuelXAd = 0x00C1

local GAME_CAM_X = 0x00D5

local CuttingGrassAnimAd = 0x00FD
local Counter1 = 0x00FE  -- This causes you to stop every 5th frame.
local Counter2 = 0x00FF  -- This is related to draining fuel. Locking it locks fuel.

local RandSeedAd = 0x00FD

local FuelHackThing = 0x00BE  --Invisible Fuel Hack?  Bad

local Grass1Ad = 0x40A  --These are grass sprites, i think there are two types
local Grass2Ad = 0x40B
local Grass3Ad = 0x40C
local Grass4Ad = 0x40D

local GAME_MAP_WDT = 0x00C9

local XX
local YY

local x = {}
local y = {}

local i

x[1]=8
y[1]=8
x[2]=9
y[2]=7
x[3]=6
y[3]=9
x[4]=6
y[4]=8
x[5]=9
y[5]=3
x[6]=13
y[6]=3
x[7]=3
y[7]=3
x[8]=7
y[8]=6
x[9]=1
y[9]=4
x[10]=1
y[10]=7
x[11]=9
y[11]=4
x[12]=1
y[12]=11
x[13]=14
y[13]=8
x[14]=11
y[14]=7
x[15]=7
y[15]=4
x[16]=10
y[16]=5
x[17]=3
y[17]=7
x[18]=5
y[18]=11
x[19]=3
y[19]=4
x[20]=1
y[20]=10
x[21]=1
y[21]=3
x[22]=10
y[22]=6
x[23]=4
y[23]=4
x[24]=4
y[24]=5
x[25]=10
y[25]=4
x[26]=2
y[26]=13
x[27]=8
y[27]=13
x[28]=1
y[28]=6
x[29]=6
y[29]=13
x[30]=14
y[30]=12
x[31]=9
y[31]=6
x[32]=8
y[32]=6
x[33]=6
y[33]=12
x[34]=1
y[34]=10
x[35]=2
y[35]=8
x[36]=12
y[36]=5
x[37]=13
y[37]=10
x[38]=13
y[38]=7
x[39]=2
y[39]=6
x[40]=4
y[40]=9
x[41]=3
y[41]=6
x[42]=5
y[42]=10
x[43]=11
y[43]=3
x[44]=2
y[44]=5
local N=44


local RNGArray = {}

RNGArray[1] = 246
RNGArray[2] = 35
RNGArray[3] = 70
RNGArray[4] = 140
RNGArray[5] = 215
RNGArray[6] = 97
RNGArray[7] = 194
RNGArray[8] = 75
RNGArray[9] = 150
RNGArray[10] = 227
RNGArray[11] = 9
RNGArray[12] = 18
RNGArray[13] = 36
RNGArray[14] = 72
RNGArray[15] = 144
RNGArray[16] = 239
RNGArray[17] = 17
RNGArray[18] = 34
RNGArray[19] = 68
RNGArray[20] = 136
RNGArray[21] = 223
RNGArray[22] = 113
RNGArray[23] = 226
RNGArray[24] = 11
RNGArray[25] = 22
RNGArray[26] = 44
RNGArray[27] = 88
RNGArray[28] = 176
RNGArray[29] = 175
RNGArray[30] = 145
RNGArray[31] = 237
RNGArray[32] = 21
RNGArray[33] = 42
RNGArray[34] = 84
RNGArray[35] = 168
RNGArray[36] = 159
RNGArray[37] = 241
RNGArray[38] = 45
RNGArray[39] = 90
RNGArray[40] = 180
RNGArray[41] = 167
RNGArray[42] = 129
RNGArray[43] = 205
RNGArray[44] = 85
RNGArray[45] = 170
RNGArray[46] = 155
RNGArray[47] = 249
RNGArray[48] = 61
RNGArray[49] = 122
RNGArray[50] = 244
RNGArray[51] = 39
RNGArray[52] = 78
RNGArray[53] = 156
RNGArray[54] = 247
RNGArray[55] = 33
RNGArray[56] = 66
RNGArray[57] = 132
RNGArray[58] = 199
RNGArray[59] = 65
RNGArray[60] = 130
RNGArray[61] = 203
RNGArray[62] = 89
RNGArray[63] = 178
RNGArray[64] = 171
RNGArray[65] = 153
RNGArray[66] = 253
RNGArray[67] = 53
RNGArray[68] = 106
RNGArray[69] = 212
RNGArray[70] = 103
RNGArray[71] = 206
RNGArray[72] = 83
RNGArray[73] = 166
RNGArray[74] = 131
RNGArray[75] = 201
RNGArray[76] = 93
RNGArray[77] = 186
RNGArray[78] = 187
RNGArray[79] = 185
RNGArray[80] = 189
RNGArray[81] = 181
RNGArray[82] = 165
RNGArray[83] = 133
RNGArray[84] = 197
RNGArray[85] = 69
RNGArray[86] = 138
RNGArray[87] = 219
RNGArray[88] = 121
RNGArray[89] = 242
RNGArray[90] = 43
RNGArray[91] = 86
RNGArray[92] = 172
RNGArray[93] = 151
RNGArray[94] = 225
RNGArray[95] = 13
RNGArray[96] = 26
RNGArray[97] = 52
RNGArray[98] = 104
RNGArray[99] = 208
RNGArray[100] = 111
RNGArray[101] = 222
RNGArray[102] = 115
RNGArray[103] = 230
RNGArray[104] = 3
RNGArray[105] = 6
RNGArray[106] = 12
RNGArray[107] = 24
RNGArray[108] = 48
RNGArray[109] = 96
RNGArray[110] = 192
RNGArray[111] = 79
RNGArray[112] = 158
RNGArray[113] = 243
RNGArray[114] = 41
RNGArray[115] = 82
RNGArray[116] = 164
RNGArray[117] = 135
RNGArray[118] = 193
RNGArray[119] = 77
RNGArray[120] = 154
RNGArray[121] = 251
RNGArray[122] = 57
RNGArray[123] = 114
RNGArray[124] = 228
RNGArray[125] = 7
RNGArray[126] = 14
RNGArray[127] = 28
RNGArray[128] = 56
RNGArray[129] = 112
RNGArray[130] = 224
RNGArray[131] = 15
RNGArray[132] = 30
RNGArray[133] = 60
RNGArray[134] = 120
RNGArray[135] = 240
RNGArray[136] = 47
RNGArray[137] = 94
RNGArray[138] = 188
RNGArray[139] = 183
RNGArray[140] = 161
RNGArray[141] = 141
RNGArray[142] = 213
RNGArray[143] = 101
RNGArray[144] = 202
RNGArray[145] = 91
RNGArray[146] = 182
RNGArray[147] = 163
RNGArray[148] = 137
RNGArray[149] = 221
RNGArray[150] = 117
RNGArray[151] = 234
RNGArray[152] = 27
RNGArray[153] = 54
RNGArray[154] = 108
RNGArray[155] = 216
RNGArray[156] = 127
RNGArray[157] = 254
RNGArray[158] = 51
RNGArray[159] = 102
RNGArray[160] = 204
RNGArray[161] = 87
RNGArray[162] = 174
RNGArray[163] = 147
RNGArray[164] = 233
RNGArray[165] = 29
RNGArray[166] = 58
RNGArray[167] = 116
RNGArray[168] = 232
RNGArray[169] = 31
RNGArray[170] = 62
RNGArray[171] = 124
RNGArray[172] = 248
RNGArray[173] = 63
RNGArray[174] = 126
RNGArray[175] = 252
RNGArray[176] = 55
RNGArray[177] = 110
RNGArray[178] = 220
RNGArray[179] = 119
RNGArray[180] = 238
RNGArray[181] = 19
RNGArray[182] = 38
RNGArray[183] = 76
RNGArray[184] = 152
RNGArray[185] = 255
RNGArray[186] = 49
RNGArray[187] = 98
RNGArray[188] = 196
RNGArray[189] = 71
RNGArray[190] = 142
RNGArray[191] = 211
RNGArray[192] = 105
RNGArray[193] = 210
RNGArray[194] = 107
RNGArray[195] = 214
RNGArray[196] = 99
RNGArray[197] = 198
RNGArray[198] = 67
RNGArray[199] = 134
RNGArray[200] = 195
RNGArray[201] = 73
RNGArray[202] = 146
RNGArray[203] = 235
RNGArray[204] = 25
RNGArray[205] = 50
RNGArray[206] = 100
RNGArray[207] = 200
RNGArray[208] = 95
RNGArray[209] = 190
RNGArray[210] = 179
RNGArray[211] = 169
RNGArray[212] = 157
RNGArray[213] = 245
RNGArray[214] = 37
RNGArray[215] = 74
RNGArray[216] = 148
RNGArray[217] = 231
RNGArray[218] = 1
RNGArray[219] = 2
RNGArray[220] = 4
RNGArray[221] = 8
RNGArray[222] = 16
RNGArray[223] = 32
RNGArray[224] = 64
RNGArray[225] = 128
RNGArray[226] = 207
RNGArray[227] = 81
RNGArray[228] = 162
RNGArray[229] = 139
RNGArray[230] = 217
RNGArray[231] = 125
RNGArray[232] = 250
RNGArray[233] = 59
RNGArray[234] = 118
RNGArray[235] = 236
RNGArray[236] = 23
RNGArray[237] = 46
RNGArray[238] = 92
RNGArray[239] = 184
RNGArray[240] = 191
RNGArray[241] = 177
RNGArray[242] = 173
RNGArray[243] = 149
RNGArray[244] = 229
RNGArray[245] = 5
RNGArray[246] = 10
RNGArray[247] = 20
RNGArray[248] = 40
RNGArray[249] = 80
RNGArray[250] = 160
RNGArray[251] = 143
RNGArray[252] = 209
RNGArray[253] = 109
RNGArray[254] = 218
RNGArray[255] = 123
RNGArray[256] = 246

local XArray = {}
local YArray = {}
local XSeed = 0
local YSeed = 0

local XMax = 0
local XMaxPrev = 0
local YMax

YMax = 11

--maybe 13 on the grass means fuelable?

while true do

XMaxPrev = XMax
XMax = memory.readbyte(GAME_MAP_WDT)   -- Script must be reset each level currently.

if(XMax<14) then
XMax = 14
end
if(XMax ~= XMaxPrev) then
for i = 1, 255 do

XSeed = RNGArray[i]
YSeed = RNGArray[i+1]

while XSeed >= 32 do
XSeed = XSeed - 32
end
while YSeed >= 16 do
YSeed = YSeed - 16
end
while XSeed >= XMax do  -- outputs 0 to max-1
XSeed = XSeed - XMax
end
while YSeed >= YMax do  -- outputs 0 to max-1
YSeed = YSeed - YMax
end

x[i]=XSeed + 1
y[i]=YSeed + 3

N=i

end
end


FuelX = memory.readbyte(NextFuelXAd)
FuelY = memory.readbyte(NextFuelYAd)

RandSeed = memory.readbyte(RandSeedAd)

XVal = memory.readbyte(XAd)
YVal =  memory.readbyte(YAd)
XSub = memory.readbyte(XSubAd)
YSub = memory.readbyte(YSubAd)
RealSub = memory.readbyte(DoubleSubPxAd)

WHERETOGET = memory.readbyte(WHERETOGETAD)
WHERETOGET2 = memory.readbyte(WHERETOGETAD2)
WHERETOGET3 = memory.readbyte(WHERETOGETAD3)

Velocity = memory.readbyte(VelocityAd)

CurrFuel = memory.readbyte(CurrFuelAd2)
FuelCounter = memory.readbyte(FuelCounterAd)
GrassesLeft = memory.readbyte(GrassesLeftAd)

gui.text(45,0,"X: " .. XVal .. " " .. XSub)
gui.text(100,0,RealSub)
gui.text(45,10,"Y: " .. YVal .. " " .. YSub)
gui.text(45,20,"Fuel X: " .. FuelX)
gui.text(45,30,"Fuel Y: " .. FuelY)
gui.text(45,40,"Fuel in " .. FuelCounter)
gui.text(45,50,"Speed " .. Velocity)
gui.text(55,60,"Seed " .. RandSeed)
gui.text(108,20,CurrFuel)
gui.text(185,22,"Remaining: " .. GrassesLeft)
--gui.text(170,42,"B5: " .. WHERETOGET)
--gui.text(170,52,"B6: " .. WHERETOGET2)
--gui.text(170,62,"E3: " .. WHERETOGET3)
--gui.text(170,72,"31: " .. memory.readbyte(0x00C9))
--gui.text(170,82,"XCAM:" .. memory.readbyte(GAME_CAM_X))

--------------------------memory.writebyte(WHERETOGETAD3,233)
--memory.writebyte(WHERETOGETAD2,3)
--memory.writebyte(WHERETOGETAD,235)
--memory.writebyte(Grass2Ad,12)
--memory.writebyte(Grass3Ad,13)
--memory.writebyte(Grass4Ad,13)
--memory.writebyte(Base2,1)
--memory.writebyte(Counter2,1)

BoxArray = {}

-- Encode the counted data into an array for reference.
for i=1,N do
if BoxArray[x[i]*100+y[i]] == nil then
   BoxArray[x[i]*100+y[i]] = 1
else
   BoxArray[x[i]*100+y[i]] = BoxArray[x[i]*100+y[i]]+1
end
end


for i=1,N do
XX=16*(x[i]-1)+24 - memory.readbyte(GAME_CAM_X)
YY=16*(y[i]-3)+48
BACount = BoxArray[x[i]*100+y[i]]
gui.drawbox(XX-3, YY-3, XX+3, YY+3, "red")
gui.text(XX-2,YY-2,BACount)
end

FCEU.frameadvance()

end