AGK Intro screen - GameCreators Forum

Author

Message

baxslash

Valued Member

Bronze Codemaster

17

Years of Service

User Offline

Joined: 26th Dec 2006

Location: Duffield

Posted: 2nd Sep 2011 18:55

Link

Hi all, just made this intro scene for AppGameKit games and thought I'd share it with anyone who wants to use it... media attached. Just call the function before the rest of your code, it tidies up after itself and does the dishes:

+ Code Snippet

// AGK Intro
function AGK_intro()
    for i=1 to 31
        is$ = str(i)
        if i < 10
            is$ = "0"+is$
        endif
        loadImage(i,"Anim\intro00"+is$+".png")
    next
    createSprite(1,1)
    for i = 1 to 31
        AddSpriteAnimationFrame(1, i)
    next
    setSpriteOffset(1, getImageWidth(1)/2, getImageHeight(1)/2)
    setSpritePositionByOffset(1, getVirtualWidth()/2, getVirtualHeight()/2)
    f = 1
    SetSpriteFrame(1,f)
    sync()
    
    done=0
    while done<>1
        time# = timer()
        
        if time# > animtime#
            f = f + 1
            if f > 31
                f = 1
                done=1
            endif
            SetSpriteFrame(1,f)
            animtime# = time# + 0.03
        endif
        
        sync()
        
        if f = 16 then sleep(1500)
    endwhile
    
    deleteSprite(1)
    for i=1 to 31
        deleteImage(i)
    next
endfunction

If you like it buy me a beer

I like beer

Attachments

Login to view attachments

Back to top

Profile PM Email

JHA

20

Years of Service

User Offline

Joined: 30th Dec 2003

Location: Massachusetts, USA

Posted: 2nd Sep 2011 19:08 Edited at: 2nd Sep 2011 19:09

Link

Very simple but effective.

Added this, to the main.agc file, to see the effect:

+ Code Snippet

SetVirtualResolution(480, 340)

AGK_intro()

do
    sync()
loop

Thanks,
JHA

Back to top

Profile PM Email Website

baxslash

Valued Member

Bronze Codemaster

17

Years of Service

User Offline

Joined: 26th Dec 2006

Location: Duffield

Posted: 2nd Sep 2011 19:19 Edited at: 2nd Sep 2011 19:20

Link

I've just uploaded the latest "ADG Arcade" files so you can see how it looks in action here:
https://forumfiles.thegamecreators.com/download/2253408

... it's an animated version of the AppGameKit logo something like this:

Attachments

Login to view attachments

Back to top

Profile PM Email

Impetus73

13

Years of Service

User Offline

Joined: 28th Aug 2011

Location: Volda, Norway

Posted: 3rd Sep 2011 15:51

Link

Briliant

I think I will use this in my games. How do you want me to credit you in my games, baxslash ?

----------------
AGK user - novice
Did Amiga / AMOS programming in the 90's, just started programming again with AGK.

Back to top

Profile PM Email

baxslash

Valued Member

Bronze Codemaster

17

Years of Service

User Offline

Joined: 26th Dec 2006

Location: Duffield

Posted: 3rd Sep 2011 16:50

Link

No need to but if you want you could say:
"AGK intro by Steven Holding"

Back to top

Profile PM Email

Sorry your browser is not supported!

AppGameKit Classic Chat / AGK Intro screen

Attachments

Attachments