0,]']±>Sï}WÿÍu§ðp8·d%qy)6o;]ÉÿLöú÷ôôô”°ÂVl†3r 030303030303030303030303033330303003300330300303030303030303030303030303PP<-- title: Ray -- author: OceanicDrop -- desc: Art -- site: -- license: MIT License (change this to your license of choice) -- version: 0.1 -- script: lua t=0 x=96 y=24 tx=0 ty=0 tc=15 function Text(s) for tl=1,60 do l=s:len()*(tl/60) print(s:sub(1,math.floor(l)),tx,ty,tc,true) coroutine.yield() end ty=ty+8 end function Wait(s) for tl=1,60*s do coroutine.yield() end end function WaitForKey() while not key() do coroutine.yield() end end function TriPause() Pause() Pause() Pause() end function Pause() Wait(0.1) print(".",tx,ty,tc,true) coroutine.yield() Wait(0.1) print("..",tx,ty,tc,true) coroutine.yield() Wait(0.1) print("...",tx,ty,tc,true) coroutine.yield() Wait(0.1) print("...",tx,ty,0,true) coroutine.yield() Wait(0.1) end function Starfield() local rays={} local t=0 local cx=198 local cy=11 while true do if t%2==0 and #rays<500 then local r={} r.x=cx r.y=cy r.a=math.random()*math.pi*2 r.s=math.random()*2+1 r.c=math.ceil(math.random()-0.5)+10 table.insert(rays, r) end for i,v in ipairs(rays) do local ox=v.x local oy=v.y v.x=v.x+math.cos(v.a)*v.s v.y=v.y+math.sin(v.a)*v.s line(ox,oy,v.x,v.y,v.c) if (ox<0 or ox>240) and (oy<0 or oy>136) then v.x=cx v.y=cy v.a=math.random()*math.pi*2 v.s=math.random()*2+1 end end print("LOVE",8*10,8*4,0,true) print("WILL",8*10,8*5,0,true) print("WIN!",8*10,8*6,0,true) coroutine.yield() t=t+1 end end function Greeting() cls(0) tx=8*20 tc=3 Text("-------------") Text(" Ray ") Text("-------------") tc=5 TriPause() Wait(1) Text("You continue.") Wait(1) Text("Endless going") Text("from source ") TriPause() Wait(0.5) Text("into the wild") Wait(1) Pause() Text("and whom you ") Text("will strike ") Wait(1) Pause() Text("will see your") TriPause() Text("godly origin.") Wait(2) Text("") Text("Let there be") Text(" light...") Text("") tc=15 Text("Press any key") WaitForKey() Text("...") Starfield() end co=coroutine.create(Greeting) function TIC() coroutine.resume(co) end