Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

In this Discussion

starter game 21

dave1707dave1707 Mod
edited March 28 in Code Sharing Posts: 6,397

I haven't done this for awhile, but anyways here's another starter game for anyone who wants to add to it. To play, hold your finger on the screen about 1/4 from the bottom. A ship will appear in the middle of the screen. Move that finger around the screen to move the ship. As long as your finger remains on the screen, the ship will show. If you loose the ship off the screen, lift your finger and then touch the screen again for the ship to show in the middle. As long as the ship shows, you can shoot by tapping the screen with another finger. That will start the enemy coming from the top of the screen. Shoot the enemy, avoid the purple clouds and the flames. As long as you keep shooting, the enemy will keep coming. The farther away the enemy is when you hit it, the higher the value for the hit. Those values will show as they scroll down the screen. It you get hit by the enemy, the cloud, or a flame, the ship will disappear. To restart, just lift your finger and put it back on the screen. There is no end game, the score doesn't get saved, so you can just keep going. You can add whatever you want to this to make it your own. The game plays in portrait mode.

EDIT: Corrected an error, changed endRound to shipHit.

displayMode(FULLSCREEN)
supportedOrientations(PORTRAIT_ANY)

function setup()
    cx=WIDTH/2
    cy=HEIGHT/2
    jsX,jsY=0,0
    mis={}
    enemy={}
    val={}
    cTab={}
    eMis={}
    score=0
    cnt=0
    ecnt=0
end

function draw()
    background(170, 223, 214, 255)    
    drawOurShip()
    drawMissle()
    drawEnemy()
    checkMissleHit()
    drawCloud()
    drawHitValues()
    drawScore()
    drawEnemyMissle()
    checkEnemyMissleHit()
end

function drawOurShip()
    cx=cx+jsX
    cy=cy+jsY
    if jsId~=nil then
        sprite("Space Art:Red Ship",cx,cy,60)
    end
end

function drawMissle()
    for z=#mis,1,-1 do
        sprite("Tyrian Remastered:Firestroid",mis[z].x,mis[z].y,10)
        mis[z].y=mis[z].y+20
        if mis[z].y>HEIGHT+50 then
            table.remove(mis,z)
        end
    end
end

function checkMissleHit()
    for a,b in pairs(mis) do
        for c,d in pairs(enemy) do
            v1=b
            dis=v1:dist(d)
            if dis<40 then
                sc=(b.y-cy)//10
                score=score+sc
                table.insert(val,vec3(d.x,d.y,sc))
                table.remove(mis,a)
                table.remove(enemy,c)
                return
            end
        end
    end
end

function drawEnemy()
    for z=#enemy,1,-1 do
        sprite("Tyrian Remastered:Evil Head",enemy[z].x,enemy[z].y,60)
        enemy[z].y=enemy[z].y-5
        -- check if enemy hit our ship
        v1=enemy[z]
        dis=v1:dist(vec2(cx,cy))
        if dis<40 then
            sprite("Tyrian Remastered:Explosion Huge",cx,cy)
            shipHit()
            return
        end
        -- check if enemy is below the screen bottom
        if enemy[z].y<-50 then
            table.remove(enemy,z)
        end
    end
end

function drawCloud()
    for z=#cTab,1,-1 do
        sprite("Space Art:Cloudy Nebula",cTab[z].x,cTab[z].y)
        cTab[z].y=cTab[z].y-5
        -- check if cloud hit our ship
        v1=cTab[z]
        dis=v1:dist(vec2(cx,cy))
        if dis<100 then
            shipHit()
            return
        end
        -- check if cloud is below the screen bottom
        if cTab[z].y<-50 then
            table.remove(cTab,z)
        end
    end
end

function drawHitValues()
    fontSize(20)
    for z=#val,1,-1 do
        fill(255)
        ellipse(val[z].x,val[z].y,30)
        fill(0, 66, 255, 255)
        text(string.format("%d",val[z].z),val[z].x,val[z].y)
        val[z].y=val[z].y-5
        if val[z].y<-10 then
            table.remove(val,z)
        end
    end
end

function drawScore()
    fontSize(50)
    fill(255, 0, 0, 255)
    text(string.format("%d",score),WIDTH/2,HEIGHT-40)
end

function drawEnemyMissle()
    for z=#eMis,1,-1 do
        sprite("Tyrian Remastered:Flame 1",eMis[z].x,eMis[z].y,10)
        eMis[z].y=eMis[z].y-10
        if eMis[z].y<50 then
            table.remove(eMis,z)
        end
    end
end

function checkEnemyMissleHit()
    for a,b in pairs(eMis) do
        v1=b
        dis=v1:dist(vec2(cx,cy))
        if dis<20 then
            shipHit()
            return
        end
    end
end

function shipHit()
    cTab={}
    enemy={}
    mis={}
    eMis={}
    val={}
    jsX,jsY=0,0
    jsId=nil   
end

function touched(t)
    shoot(t)
    joyStick(t)
end

function shoot(t)
    if t.state==BEGAN and jsId~=nil then
        table.insert(mis,vec2(cx,cy+50))
        createEnemy()
        createEnemy()
        addCloud()
    end   
end

function createEnemy()
    if #enemy<8 then
        table.insert(enemy,vec2(math.random(50,WIDTH-50),HEIGHT+50))
        ecnt=ecnt+1
        if ecnt%3==0 then
            table.insert(eMis,vec2(math.random(50,WIDTH-50),HEIGHT+10))
        end
    end
end

function addCloud()
    cnt=cnt+1
    if cnt>10 then
        cnt=0
        table.insert(cTab,vec2(math.random(50,WIDTH-50),HEIGHT+50))
    end
end

function joyStick(t)
    if t.state==BEGAN and jsId==nil then
        cx,cy=WIDTH/2,HEIGHT/2
        jsId,sx,sy=t.id,t.x,t.y
    elseif t.state==MOVING and t.id==jsId then
        jsX,jsY=(t.x-sx)/8,(t.y-sy)/8
    elseif t.state==ENDED and t.id==jsId then
        jsId,jsX,jsY=nil,0,0
    end
end

Comments

  • Posts: 147

    @dave1707 Nice starter game! :)
    However, there doesn't seem to be a "endRound" function when it's attempted to be called at about line 93. Was this intentional?
    If not, maybe this cookie will fix everything :cookie:

  • dave1707dave1707 Mod
    Posts: 6,397

    @Kolosso Thanks for the find. endRound should have been shipHit. I changed it in the code above.

Sign In or Register to comment.