-- title: game title
-- author: game developer, email, etc.
-- desc: short description
-- site: website link
-- license: MIT License (change this to your license of choice)
-- version: 0.1
-- script: lua
t=0
x=96
y=24
sprite=256
grassx=0
grassy=-100
grasstimer=0
grasstimerMax=1000
grass=265
mushx=0
mushy=-100
mushtimer=0
mushtimerMax=1000
mush=284
dandx=0
dandy=-100
dandtimer=0
dandtimerMax=1000
dand=300
dandelions={}
newguy={}
bushx=0
bushy=-100
bushtimer=0
bushtimerMax=1000
bush=312
fire=262
firex=0
firey=-100
dir=0
shotspeed=3
shotspeedmin=2
smoke=310
FIRE=326
FIREx=0
FIREy=-100
-- Bullet
bx=-100; by=-100; bVelX=0; bVelY=0
--Map
rand=math.random(0,1)
if rand==0 then mapx=0
elseif rand==1 then mapx=30
end
rand1=math.random(0,2)
if rand1==0 then mapy=0
elseif rand1==1 then mapy=17
elseif rand1==2 then mapy=34
end
function getDistance( x1, y1, x2, y2 )
return math.sqrt( ( x2 - x1 )^2 + ( y2 - y1 )^2 )
end
function SpawnDande()
newguy = {}
newguy.x = math.random(20,210)
newguy.y = math.random(20,100)
newguy.sprite = 316
table.insert( dandelions, newguy )
end
function UpdateDande()
for id, obj in pairs( dandelions ) do
-- obj.x, obj.y whatever
end
end
function DrawDande()
for id, obj in pairs( dandelions ) do
spr(obj.sprite, obj.x, obj.y, 0 )
end
end
function TIC()
cls(13)
map(mapx,mapy)
spr(bush,bushx-1,bushy+1,0)
spr(bush+1,bushx+1,bushy+1,0)
spr(dand,dandx,dandy, 0)
spr(mush,mushx,mushy, 0)
spr(grass,grassx,grassy, 0)
spr(sprite, x-4,y-4, 0)
spr(sprite+1, x+4,y-4, 0)
spr(sprite+16,x-4,y+4, 0)
spr(sprite+17,x+4,y+4, 0)
spr(smoke,smokex,smokey,0)
spr(fire,firex,firey, 0)
spr(FIRE, FIREx-4,FIREy-4,0)
spr(FIRE+1, FIREx+4,FIREy-4,0)
spr(FIRE+16,FIREx-4,FIREy+4,0)
spr(FIRE+17,FIREx+4,FIREy+4,0)
smog=math.random(-5,5)
if dir==0 or 1 then
smoke=311
elseif dir==2 or 3 then
smoke=310
end
smokex=firex+smog
smokey=firey
if btn(0) then y=y-1;sprite=256;dir=0;pVelX=0;pVelY=-1
elseif btn(1) then y=y+1;sprite=288;dir=1;pVelX=0;pVelY=1
elseif btn(2) then x=x-1;sprite=320;dir=2;pVelX=-1;pVelY=0
elseif btn(3) then x=x+1;sprite=352;dir=3;pVelX=1;pVelY=0
end
if dir==0then fire=278
elseif dir==1then fire=262
elseif dir==2then fire=263
elseif dir==3then fire=279
end
if btn(5)and firex==-100 then
-- Put bullet "on" us
firex=x; firey=y
-- Set bullet direction
bVelX=pVelX*shotspeed; bVelY = pVelY*shotspeed
end
-- Move bullet
if firex ~= -100 then
firex=firex+bVelX
firey=firey+bVelY
end
-- If it goes off screen, disable bullet
if firex < -20 or firex > 240 or firey < -20 or firey > 136 then
firex = -100
end
if (btn(4)) and dir==0 then
sprite=258;FIRE=326;FIREx=x;FIREy=y-12
elseif (btn(4)) and dir==1 then
sprite=290;FIRE=328;FIREx=x;FIREy=y+12
elseif (btn(4)) and dir==2 then
sprite=322;FIRE=330;FIREx=x-12;FIREy=y
elseif (btn(4)) and dir==3 then
sprite=354;FIRE=332;FIREx=x+12;FIREy=y
elseif (btn(4))==false then
FIREy=-100
end
if (btn(4)) then
sfx( 1, "a-2", 30, 0, 2, 5 )
end
if (btn(5)) then
sfx( 2, "b-2", 15, 0, 4, 5 )
end
raa=math.random(1,3)
if (btn(5)) and dir==0 then
sprite=260
elseif (btn(5)) and dir==1 then
sprite=292
elseif (btn(5)) and dir==2 then
sprite=324
elseif (btn(5)) and dir==3 then
sprite=356
end
if (btn(6)) then
shotspeed=shotspeed+.01
elseif (btn(6))==false then
shotspeed=3
end
if x<16 then x=16 end
if y<16 then y=16 end
if y>110 then y=110 end
if x>215 then x=215 end
Randy=math.random(0,50)
if Randy==0 then
grass=265
grassx=math.random(20,210)
grassy=math.random(20,100)
end
dist = getDistance(firex,firey,grassx,grassy)
if dist <= 8 then
grass=267
end
dist = getDistance(FIREx,FIREy,grassx,grassy)
if dist <= 8 then
grass=267
end
Randy1=math.random(0,50)
if Randy1==0 then
mush=284
mushx=math.random(20,210)
mushy=math.random(20,100)
end
dist = getDistance(firex,firey,mushx,mushy)
if dist <= 8 then
mush=286
end
dist = getDistance(FIREx,FIREy,mushx,mushy)
if dist <= 8 then
mush=286
end
Randy2=math.random(0,50)
if Randy2==0 then
dand=300
dandx=math.random(20,210)
dandy=math.random(20,100)
end
dist = getDistance(firex,firey,dandx,dandy)
if dist <= 8 then
dand=301
SpawnDande()
UpdateDande()
DrawDande()
end
dist = getDistance(FIREx,FIREy,dandx,dandy)
if dist <= 8 then
dand=301
SpawnDande()
UpdateDande()
DrawDande()
end
Randy3=math.random(0,50)
if Randy3==0 then
bush=312
spr(bush,bushx-1,bushy+1,0)
spr(bush+1,bushx+1,bushy+1,0)
bushx=math.random(20,210)
bushy=math.random(20,100)
end
dist = getDistance(firex,firey,bushx,bushy)
if dist <= 8 then
bush=314
spr(bush,bushx-1,bushy+1,0)
spr(bush+1,bushx+1,bushy+1,0)
end
dist = getDistance(FIREx,FIREy,bushx,bushy)
if dist <= 8 then
bush=314
spr(bush,bushx-1,bushy+1,0)
spr(bush+1,bushx+1,bushy+1,0)
end
end
--
-- 000:66655666665555666555555655655655666ee66666eee6666eee66666ee66666
-- 001:6666666666666666666666666665666666655666662555666555555655555525
-- 005:6666666666666666666666666666666666666666666666666666666666666666
-- 006:66666666666666666666666666666666cc6cc6cccccccccccc6cc6cccc6cc6cc
-- 007:c6666666c6666666c6666666c6666666c6666666c6666666c6666666c6666666
-- 008:04c4444004444c40044444400444444004444c400c44c44004444440044c4440
-- 009:00000000044c444404444444044444c40444444404c44444044c444404444c40
-- 010:04c444404444c44044444c40444444404c444440444444404444c44000000000
-- 012:4444444444444444444444444444444444444444444444444444444444444444
-- 013:4444444444444444444444444444444344444434444443434444343344434333
-- 014:4444444444444444444444443444444443444444343444443343444433343444
-- 015:4555445555445545445444544544444444444545445444455544445444554554
-- 016:0000000000000000000000000000000000666600026662600666666666626666
-- 021:6666666666666666666666666666666666666666666666666666666666666666
-- 022:cc6cc6cccccccccccc6cc6cccc6cc6cc66666666666666666666666666666666
-- 023:6666666c6666666c6666666c6666666c6666666c6666666c6666666c6666666c
-- 024:0000000044c444444444444cc444444444c44444444c44c44444444400000000
-- 025:000000004444444044c444404c4444c044444440c44444404444c44004444440
-- 026:04444440044c44440444444c044444440c4444c404444c440444444400000000
-- 028:4544445555444445445444444444444444444444444444444544445444554544
-- 029:4443433344443433444443434444443444444443444444444444444444444444
-- 030:3334344433434444343444444344444434444444444444444444444444444444
-- 031:5544445454444445455444444444444444444444444444444554445445454544
-- 053:66666666666666666666666666666666c66666ccc666cccccc6cc6cccc6cc6cc
-- 055:6666666c6666666c6666666c6666666c6665556c6652556c6555552c5255555c
-- 059:feeeeee4e3eeeeefefeeeffeee4eeeeeeeeeeeeee3eeeefeefeee3eeeeeeef4e
-- 060:eefeeeeeeeefeeeee3efeeeeeeee4eeeeeeeeeeeeeeeeeefeeeeeefef4eeee3e
-- 061:eeeeeeeee2e2eee23eee3e3e43e33e3344e4ce34c3cccec3ceecceeccceececc
-- 062:ceeeeeee3eeeeeee2eeeeeeeceeeeeeeeeeeeeeeceeeeeee2eeeeeee3eeeeeee
-- 063:eeeeeeee3eeeeeee2eeeeeeeceeeeeeeeeeeeeeeceeeeeee2eeeeeeeceeeeeee
-- 069:66666666666666666666666666666666cc66666ccccc666ccc6cc6cccc6cc6cc
-- 071:c6666666c6666666c6666666c6666666c6655666c6552566c5555556c5255525
-- 072:c6666666c6666666c6666666c6666666c6655666c6555566c5255556c5555525
-- 075:eeef3ef44eefeeefeefeeeeefeeeeeeeeeeeeeffeeeefeeee3efeeeefeefe4ee
-- 076:eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee
-- 077:ceeccecccceceeec3cecec3c43ec4e4433e33e34e3e3eee32eee2e2eeeeeeeee
-- 078:eeeeeee2eeeeeeeeeeeeeeeeeeeeeeeceeeeeeeceeeeeeeceeeeeee3eeeeeee2
-- 079:eeeeeeeceeeeeeeeeeeeeeeeeeeeeeeceeeeeeeceeeeeee2eeeeeee3eeeeeeec
-- 091:efeeeeeeeefeeeeeeefeeeeeeeeeeeeeeeeeeeeeeeeeeefeeeeeefeeeeeeefee
-- 092:eeeeefeeeeeeefeefeeefeeeefeeeeeeeeeeeeefeeeefeeeeeefeeeefeeefeee
-- 101:cc6cc6cccc6cc6cccc66ccc6c66cc66666666666666666666666666666666666
-- 102:66666666666666666666666666666666c66cc666cc66ccc6cc6cc6cccc6cc6cc
-- 104:c6666666c666666666666666c6666666c6666666c6666666c666666666666666
-- 106:6666666c6666666c666666666666666c6666666c6666666c6666666c66666666
-- 109:6556666666556666666666666666656666666666665666666656656556665665
-- 110:6556666666656666666556666666666666666666666666666655566666666556
-- 117:cc6cc6cccc6cc6cc6ccc66cc666cc66c66666666666666666666666666666666
-- 118:66666666666666666666666666666666666cc66c6ccc66cccc6cc6cccc6cc6cc
-- 120:c6666666c6666666c6666666c666666666666666c6666666c6666666c6666666
-- 122:6666666c6666666c6666666c6666666c666666666666666c6666666c6666666c
-- 125:6655666666655666656655666666655666666666655566666665556666666556
-- 126:5665665665666656656665666666666666666666666566566556666565666565
--
--
-- 000:0000000000000fff0000ffff000effed000dfffd000efffd0000ffed0000ffef
-- 001:00000000fff00000ffff0000deffe000dfffd000dfffe000deff0000feff0000
-- 002:0000000000000fff0000ffff000effef000dfffd000efffd0000ffed0000ffed
-- 003:00000000fff00000ffff0000feffe000dfffd000dfffe000deff0000deff0000
-- 004:00000304000002340000ff34000effe3000dfffd000efffd0000ffed0000ffed
-- 005:302000004430000043ff00002effe000dfffd000dfffe000deff0000deff0000
-- 006:0000000000030000300230303033334303434343234344433344434203444430
-- 007:0320330033330000444430004433323044443300434330003444430002333000
-- 008:5000000505000050050000500000005000000000050050000505000050000050
-- 009:0050000005000050050005000000050000500000000500000005005050000000
-- 010:e030000e030000e00e0000e0000000e0000000000e00e300030e0000e0000030
-- 011:00e00000030000e00e000e000000030000e00030000e0000000300e0e0000000
-- 012:0000000000212000001410000021200000050000000050000005000000050000
-- 013:030000000020300000343000000e0000000e30000000e000000e0000000e0000
-- 014:000000000000000000000000000000000000000000e00000000e000000ee0e00
-- 016:000fffff000fffff00080000000e0000000e0000000dd000000c0ddd0000cccc
-- 017:fffff000fffff000000080000000e0000000e000000dd000ddd0c000cccc0000
-- 018:000fffff000fffff00080000000e0000000e0000000dd000000c0ddd0000cccc
-- 019:fffff000fffff000000080000000e0000000e000000dd000ddd0c000cccc0000
-- 020:000fffff000fffff00080000000e0000000e0000000dd000000c0ddd0000cccc
-- 021:fffff000fffff000000080000000e0000000e000000dd000ddd0c000cccc0000
-- 022:0344443024344433344434323434343034333303030320030000300000000000
-- 023:0003332000344443000334340033444403233344000344440000333300330230
-- 024:0050000005000005050000050000000000000000000050000000050000000500
-- 025:0000005050505005050005050000050000000500000000000500505005000500
-- 026:00e000000300000e0e00000e00000030003000000000e0000000030000000e00
-- 027:000000e030e0e0030e00030e00000e0000000e00000000000300e0e00e000300
-- 028:00000000000000000002c0000022cc000cc222c0000440000004400000444400
-- 029:00000000200300303423443003443c200ccdd3c0000ee000000ee00000eeee00
-- 030:0000000000000000000000e00000000000e000000000e000000e000000eee000
-- 032:0000cccc000c0ddd000dd000000e0000000e000000080000000fffff000fffff
-- 033:cccc0000ddd0c000000dd0000000e0000000e00000008000fffff000fffff000
-- 034:0000cccc000c0ddd000dd000000e0000000e000000080000000fffff000fffff
-- 035:cccc0000ddd0c000000dd0000000e0000000e00000008000fffff000fffff000
-- 036:0000cccc000c0ddd000dd000000e0000000e000000080000000fffff000fffff
-- 037:cccc0000ddd0c000000dd0000000e0000000e00000008000fffff000fffff000
-- 038:0000000000030000300230303033334303434343234344433344434203444430
-- 044:0000000000ccc00000ccc00000ccc00000050000000050000005000000050000
-- 045:00c00c00000000c00c32300000040000c00e30c00000e000000e0000000e0000
-- 048:0000ffef0000ffed000efffd000dfffd000effed0000ffff00000fff00000000
-- 049:feff0000deff0000dfffe000dfffd000deffe000ffff0000fff0000000000000
-- 050:0000ffed0000ffed000efffd000dfffd000effef0000ffff00000fff00000000
-- 051:deff0000deff0000dfffe000dfffd000feffe000ffff0000fff0000000000000
-- 052:0000ffed0000ffed000efffd000dfffd000effe20000ff340000034400000203
-- 053:deff0000deff0000dfffe000dfffd0003effe00043ff00004320000040300000
-- 054:00d00d00000000000d0000d000000000000dd000000000000d0000d000000000
-- 055:000000000d000d0000000000000d0000000d0000000000000d000d0000000000
-- 057:0000000000055500005255000055555005555255052555555555555555555255
-- 059:300300304303032334343343034444430244443303eff4f3fffffff3fffffeff
-- 060:000000000000000000000000000c000000000000000000000000000000000000
-- 061:0000000000000000000c000000ccc000000c0000000050000005000000050000
-- 064:000000000000000000000000000ede0000ffffff0fffffff0ffeffee0ffddddf
-- 065:000000000000000000000000ff8eedc0ff000d0cff0000dcff0000dcff0000dc
-- 066:000000000000000000000000000ede0000ffffff0fffffff0ffeffee0fffdddd
-- 067:000000000000000000000000ff8eedc0ff000d0cff0000dcff0000dcff0000dc
-- 068:000000000000000000000000000ede0000ffffff23ffffff043effee3442dddd
-- 069:000000000000000000000000ff8eedc0ff000d0cff0000dcff0000dcff0000dc
-- 070:0200020202202323023333330333333400343334003434440003444400034444
-- 071:2020002032320220333323304333333043334300444343004444300044443000
-- 072:000000030000003c0000034c000003c400003c4c000034440003444c00034444
-- 073:30000000c3000000c4300000cc30000044c30000c44300004444300044443000
-- 074:0000000022330000023333000023443302333344233334440233344423344444
-- 075:0000000000000000000000003300000044330000444c33004444c4304c4c4cc3
-- 076:00000000000000000000000000000033000033440033c444034c44443ccc4c44
-- 077:0000000000003222003333203344330044333320444333324443332044444332
-- 080:0ffddddf0ffeffee0fffffff00ffffff000ede00000000000000000000000000
-- 081:ff0000dcff0000dcff0000dcff000d0cff8eedc0000000000000000000000000
-- 082:0fffdddd0ffeffee0fffffff00ffffff000ede00000000000000000000000000
-- 083:ff0000dcff0000dcff0000dcff000d0cff8eedc0000000000000000000000000
-- 084:4443dddd033effee32ffffff00ffffff000ede00000000000000000000000000
-- 085:ff0000dcff0000dcff0000dcff000d0cff8eedc0000000000000000000000000
-- 086:00034444000344440000344c00003c44000003cc0000034c0000003c00000003
-- 087:44443000c444300044430000c4c300004c300000c4300000c300000030000000
-- 088:0003444400034444003434440034333403333334033233330220232302000202
-- 089:4444300044443000444343004333430043333330333333203232022020200020
-- 090:2334444402333444233334440233334400334433023333002223000000000000
-- 091:44c4ccc34444c430444c33004433000033000000000000000000000000000000
-- 092:3cc4c4c4034c44440033c4440000334400000033000000000000000000000000
-- 093:4444433244433320444333324433332033443200003333200000332200000000
-- 096:0000000000000000000000000cdee8ffc0d000ffcd0000ffcd0000ffcd0000ff
-- 097:00000000000000000000000000ede000ffffff00fffffff0eeffeff0fddddff0
-- 098:0000000000000000000000000cdee8ffc0d000ffcd0000ffcd0000ffcd0000ff
-- 099:00000000000000000000000000ede000ffffff00fffffff0eeffeff0ddddfff0
-- 100:0000000000000000000000000cdee8ffc0d000ffcd0000ffcd0000ffcd0000ff
-- 101:00000000000000000000000000ede000ffffff00ffffff23eeffe330dddd3444
-- 112:cd0000ffcd0000ffcd0000ffc0d000ff0cdee8ff000000000000000000000000
-- 113:fddddff0eeffeff0fffffff0ffffff0000ede000000000000000000000000000
-- 114:cd0000ffcd0000ffcd0000ffc0d000ff0cdee8ff000000000000000000000000
-- 115:ddddfff0eeffeff0fffffff0ffffff0000ede000000000000000000000000000
-- 116:cd0000ffcd0000ffcd0000ffc0d000ff0cdee8ff000000000000000000000000
-- 117:dddd2443eeffe340ffffff32ffffff0000ede000000000000000000000000000
--
--
--
-- 000:00000000ffffffff00000000ffffffff
-- 001:0123456789abcdeffedcba9876543210
-- 002:0123456789abcdef0123456789abcdef
--
--
-- 000:0010203030504064407450806090709070ae50a040a020a020a02090209020863070407050605060505d5050405030502064206020701070107e1080304000000000
-- 001:0300030103010311031103120312031103110311031103110301030103010302030303040314031503250324032303230322031103110302030303041090000000ff
-- 002:e300e300e300d300d301d302d303c303b304a305a3069327830073007300a300c300d300f300f300f300f300f300f300f300f300f300f300f300f30010b0003f002c
--
--
-- 000:400006500006600006800006700006600006700006600006500006400006400006000000400006500006600006a00006b00006a00006900006700006600006600006e00006e00006d00006000000000000400006600006900006800006700006000000700006900006b00006d00006c00006d00006b00006900006700006500006400006400004000000000000400004000000500004800004700004000000600004000000800004400006500006700006600006000000500006000000400006
--
--
-- 000:100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000ab0000
--
--
-- 000:1a1c2c5d275db13e53ff9155ffcd75a7f07038b76425717929366f3b5dc941a6f673eff7f4f4f494b0c2566c86333c57
--