o o o o fo o o wwwww33w733s733s733sw33w733s3333w33w733s733s733s3333w33w733s3333 affff ffffff` aiffffffffafffafffafffa ff ff ff ff ff `ff f `f fff fff fff fff fff ffff `ff ff ` ff ff ff fff ffffff @ @ @ @D DD @D afffffffffiffafffaf `a a wff ff ffffffffffffffffffff`ffff `f `ffffffffffffffffffffffffffffffffffffffffff `f f w`@ @ @ @ @D D @D D w wD D ADDDDDDD DDDDDDDD w w @D D @ DDDDDDDD P PU P U U PU PU U [ [ U U P PU PU UUU U[UUUUUUUUUUUUUUUUUUUUUUUU[ U[UU[U U [ @ @ P PP PP PPP PPP P @ @DD@DD@DD @ @ @ @ D D@DD@D@ @D 3w 0sw3sww3www PU PUU PUU PUU PUUPUUUUUUU UUUUUUUUUUUUUUU[UUUUUUUUUUU @DUU[UUUUUUUUUUUD [ [U [ [ [[ U UUUU ww pww ww3 w73 w73 ww3 w7 ww sw7 3w7 3w7 sw7 P PP PPP PPP D@@DD D @D DD @D @D DD@D D @DD@ D l DfD dFD @Df Df DfDDf f `F @dFDDfdDDDf D @I @I DD DDADD D D D DD DD www w33 www w33 www www03333333ww7 3s7 ww7 3s7 ww7 ww7 3333333 ` `f f` f ` @DD D@f @` 3 0 0 0 334 @O @ @ @333@ G p p w 7 p7 p7 7 7p 77 3 3 0 3 33 03 w 0 ww pww p w p w wpw p pw pw wp p p wwwwp p p p p w @DDD D D D D DDD D D D D @ DD@DD@DNND @p`@ www D DD DDDIDp Nwww p p p p w 3""53333S 333S 30 3S"""u#rrw3wP pwwpWuw wu p p7 73 73 w 3 70 7 w0 0333 0 303 330 0 33 00333 p w p wpww p pw ww w w wpw w w w ww w p p p p ppw wpw +""""/"/"/"/"""""""""/""""/""""+""""/"/"/"/""""""/""""/" "" "" "" "" "" "" """""" "" "" "" "" "" "" "" ` f f ` `f `` `f ` f f ` `f `` `f ""+""+"+"""""""""""""" """""""""""""""""""""""+""+"+""""""""""" "" """""""""""""""""""""""""""" """""""""""" +""""/"/"/"/""""""""" """"/""""+""""/"/"/"/"""""" """"/" "" "" "" "" "" "" """""" "" "" "" "" "" "" "" ` f f ` `` `f `f ""+""+"+"""""""""""""" """""""""""""""""""""""+""+"+""""""""""" "" """""""""""""""""""""""""""" """""""""""" +""""/"/"/"/"""""""""/"""" """"+""""/"/"/"/""""""/"""" " ` f f ` `f `f `` ""+""+"+"""""""""""""" """""""""""""""""""""""+""+"+""""""""""" "" """""""""""""""" +""""/"/"/"/"""""""""/""""/""""+""""/"/"/"/""""""/""""/" ` f ` f ` `f f `f ""+""+"+"""""""""""""" """""""""""""""""""""""+""+"+""""""""""" "" """""""""""""""" +""""/"/" " """""""""/""""/""""+""""/"/" " """"""/""""/" ` f f f ` `f ` `f ""+""+"+"""""""""""""" """""""""""""""""""""""+""+"+""""""""""" "" """""""""""""""" +""""/"/"/"/"""""""""/""""/""""+""""/"/"/"/""ۻ""""/""""/" f f ` ` f `` `f ""+""+"+"""""""""""""" """""""""""""""""""""""+""+"+""""""""""" "" """""""""""""""" ԡ ҡ Ƹ ʡ ޢ ı ǡ ʡġ ġ ı ı ı ı ԱԱ Աԡ Ѣ ġ Ա ı ӷӷԷԷԷԷӷԷԷԷԷӷԷӷӷԷԷԷԷӷӷӷԷԷԷӷԷӷԷԷԷӷԷӷӷ srsrsrsrsrsrsrsrsrsrsrsrsrsrsrsrsrsrsrsrsrsrsrsrsrsrsrsrsrsrsrsrsrsrsrsrsrsrsrsrsrsrsrsrsrsrsrsrsrsrsrsrsrsrsrsrsrsrsrsrsrsrsrsrsrsrsrsrsrsrsrsrsrsrsrsrsrsrsrsrsrsrsrsrs rsr ututututututututututututututututututututututututututututututututututututututututututututututututututututututututututututututututututututututututututututututututututututuġ ԅԱ ѣ fghi z{vwxy ı ġ Ա ҡ ԡ ӡ ѡ ġ Ա ġ Ԥ ԡ ġ Ա ġ Ա ȱ ԡ ġ Ա ġ Ա ԡ ġ Ա ġ Ա ԡ ġ Ա ġ Ա ԡ ġ Ա ġ Ա ԡ ġ Ա ġ Ա ԡ ġ Ա ġ Ա ԡ ġ Ա ġ Ա ԡ ġ Ա ġ Ա ԡ ġ Ա ġ Ա ԡ ġ Ա ġ Ա ԡ ԡ ġ Ա ġ Ա ԡ ġ Ա ġ Ա ԡ ġ Ա ġ Ա ԡ ġ Ա ġ Ա ԡ ġ Ա ġ Ա ӡ ԡ ġ ı Ա ġ Ա ȡ ԡ ġ Ա ġ ġ Ա Աԡ ġ Ա ġ ӡ Ա ԡ ġ Ա ġ ԡ ġ Ա Ա ԡ ı ġ ԡ Ա ġ Ա ԡ ԡ ġ Ա ġ Ա ԡ ġ Ա ġ Ա ԡ ġ Ա ġ Ա ԡ Է ԡ ġ Ա ġ ӡ Ա ԡ ԡ ġ ԡ ԡ ġ Ա Ա ԡ ġ Ա <% -- title: Darkwood Forest: Remastered -- author: Joshua Arnold -- desc: Can you survive the night? -- script: lua t=0 t2=0 t3=600 t4=0 tendless=0 savet=0 tendless=pmem(savet) ticks=1 et=0 energy=100 panic=50 energycolor=5 paniccolor=15 is_able_to_move=true function solid(x,y) return solids[mget((x)//8,(y)//8)] end function init() solids={[103]=true,[104]=true,[105]=true,[118]=true,[119]=true,[120]=true,[121]=true,[134]=true,[135]=true,[136]=true,[137]=true,[162]=true,[163]=true,[177]=true,[178]=true,[179]=true,[193]=true,[194]=true,[195]=true,[196]=true,[210]=true,[211]=true,[197]=true,[198]=true,[213]=true,[214]=true} p={ x=330, y=170, vx=0, vy=0, vxspeed=1, vyspeed=1, sprite=260, t=0 } e={ --enemy x=500, y=500, sprite=268 } cam={ x=0, y=0 } end mode="opening" init() function TIC() if mode=="opening" then cls() print("Press 'Z' to skip",154,130) spr(34,80,20,-1,5,0,0,2,2) t=t+.1 if (t>30) then cls() spr(36,80,20,-1,5,0,0,2,2) sfx(1,45,9,1,9) end if(t>60) then mode="menu" music(1,0,0,true) end if btnp(4) then mode="menu" music(1,0,0,true) end elseif mode=="menu" then cls() print("V:2.0",216,0) print("Darkwood Forest:",75,0,15,false,1) print("REMASTERED",60,10,9,false,2) print("Choose:",0,45) print("[Z] Start",10,55) print("[X] Endless Mode",10,70) print("best: "..pmem(savet),15,77) print("sec.",66,77) print("[A] Credits",10,100) line(100,52,100,110,15) print("2019-2020",190,120) print("Joshua Arnold",165,127) spr(268+et%60//30*2,130,40,11,5,0,0,2,2) et=et+1 if btnp(4) then mode="newspaper1" sfx(1,42,10,1,9) music(5,0,0,false) end if btnp(5) then mode="endless" sfx(1,42,10,1,9) music(0,0,0,true) end if btnp(6) then mode="credits" sfx(1,42,10,1,9) music(5,0,0,true) end elseif mode=="credits" then cls() print("credits:",84,120-t4) print("timer code by Alfonso Saavedra 'Son Link'",0,150-t4) print("collision code by trelemar",0,180-t4) print("menu & enemy code by BearThorne",0,210-t4) print("camera code by farvardin",0,240-t4) print("created by Joshua Arnold",0,270-t4) print("thanks for playing!",0,300-t4) print("(Z)",229,131) t4=t4+.4 if btnp(4) then sfx(1,42,10,1,9) reset() end elseif mode=="newspaper1" then cls(15) print("Famed Doctor reported Missing",35,10,0) print("21 June 1985",80,25,0) line(10,35,220,35,3) spr(55,5,50,0,5) print("Bennett Randall,45,has fled after",50,50,0) print("being witnessed attacking a minor",50,56,0) print("and has been presumed dead by the",50,62,0) print("police.",50,68,0) print("Witnesses report that Randall ",50,80,0) print("accused 17 year-old Sam Cooper",50,86,0) print("of being responsible for the death ",50,92,0) print("of his daughter,then attacked him",6,98,0) print("before he was discovered by Sam's father",6,104,0) print("and ran.Sam was then taken to the hospital.",6,110,0) print("Randall was last seen near Darkwood",6,122,0) print("Forest.",6,128,0) print("(Z)",225,128,0) if btnp(4) then mode="game" music(0,0,0,true) end elseif mode=="game" then moveplayer() moveenemy() playercollision() updategame() updatecolor() timer() cam.x=p.x-112 cam.y=p.y-66 cls() map(0,0,200,220,-cam.x,-cam.y) spr(p.sprite+p.t%60//30*2,p.x-cam.x,p.y-cam.y,0,1,0,0,1,2) spr(e.sprite,e.x-cam.x,e.y-cam.y,11,2,0,0,2,2) print("Time:",195,0,6) print(t3,220,0) print("Energy:"..energy,0,123,energycolor) print("Panic:"..panic,0,130,paniccolor) p.t=p.t+1 if panic==100 then print("Can't move!",55,130,6) end if energy==0 then print("You need rest!",55,123,6) end if t3==0 then mode="win" music(2,0,-1,false) end elseif mode=="win" then t=t+1 cls() print("You Survived!",18,58,6,false,3) if t>250 then mode="newspaper2" end elseif mode=="newspaper2" then cls(15) print("One Teen killed, another injured",30,10,0) print("5 June 1985",80,25,0) line(10,35,220,35,3) spr(56,5,50,0,5) print("Emma Randall,16,and Sam Cooper,17,",50,50,0) print("were both involved in a horrible",50,56,0) print("car accident yesterday.Both were",50,62,0) print("rushed to the hospital;Emma passed",50,68,0) print("away later that night,but Sam made",50,74,0) print("a full recovery.",50,80,0) print("A funeral will be held for Emma on",50,92,0) print("June 7, followed by a graveyard service",6,98,0) print("on June 8. The public is welcome to attend.",6,104,0) print("Emma is survived by her father,the renowed",6,116,0) print("Benett Randall.",6,122,0) print("(Z)",225,128,0) if btnp(4) then sfx(1,42,10,1,9) mode="credits" end elseif mode=="endless" then moveplayer() moveenemy() playercollision() updategame() updatecolor() timer2() cam.x=p.x-112 cam.y=p.y-66 cls() map(0,0,200,200,-cam.x,-cam.y) spr(p.sprite+p.t%60//30*2,p.x-cam.x,p.y-cam.y,0,1,0,0,1,2) spr(e.sprite,e.x-cam.x,e.y-cam.y,11,2,0,0,2,2) print("Time:",195,0,6) print(t2,220,0) print("Best:",194,7,6) print(pmem(savet),223,7) print("Energy:"..energy,0,123,energycolor) print("Panic:"..panic,0,130,paniccolor) p.t=p.t+1 if panic==100 then print("Can't move!",55,130,6) end if energy==0 then print("You need rest!",55,123,6) end elseif mode=="gameoverscreen" then cls() music(5,0,0,false) spr(428,50,20,11,9,0,0,2,2) sfx(1,10,5,1,15) t=t+1 if t>100 then exit() cls() trace("We'll be together forever...",6) trace("Ctrl+r to try again",15) end elseif mode=="gameoverscreen2" then cls() music(5,0,0,false) spr(428,50,20,11,9,0,0,2,2) sfx(1,10,5,1,15) t=t+1 if t>100 then exit() cls() trace("My daughter...I miss her...",6) trace("Ctrl+r to try again",15) end end end --TIC function moveplayer() if is_able_to_move==true then if btn(0) then --up p.vy=-p.vyspeed cam.y=cam.y-1 elseif btn(1) then --down p.vy=p.vyspeed cam.y=cam.y+1 else p.vy=0 end if btn(2) then --left p.vx=-p.vxspeed cam.x=cam.x-1 elseif btn(3) then --right p.vx=p.vxspeed cam.x=cam.x+1 else p.vx=0 end end end --moveplayer function moveenemy() if e.x>p.x then e.x=e.x-1 -- left e.sprite=364 elseif e.x