TheGameCreators - CodeBase - sprite player 3

Return to the CodeBase listing

Category: Complete Applications

Version: 1.0

Information

Uploaded: 12th Jul 2009 14:06

Modified: 12th Jul 2009 15:03

Author: andrew pap

Summary

helps you develop smooth animaterd sprite you need blueGUI

Full Description

all tho this is must better than my frist sprite player, there are bugs with it. the bugs are in the FX part the reset fx butten is not working same with the fade:in/out how ever ghost works fine i did not get round it doing drop,FX ,help,about,credits so this way thay do not work i got bord trying to work out the bugs but if you just use sprite set up the program will run grate

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

`Sprite Player 3

`By Andrew Papworth

` Please enter you blue gui ID and Key

startblue "---","------"

main_setup()

`make Global Variables for gui

Global_Variables()

`Create User Interface

`---------------------

window_setup()

sp=3 :` sprite to be played

alpha=200

update():`butten

fade():`butten

ghost():`butten

cls

reset():`butten

if sprite exist(3)=1

play sprite 3,1,6,sprite_sleep_time

endif

sync

loop

end

function main_setup()

`set up the screen

sync on :sync rate 60

set display mode 640,480,32

color backdrop rgb(0,0,0)

sync

endfunction

function Global_Variables()

global Gadget1

global Gadget2

global Gadget3

global path

global Gadget5

global name

global Gadget7

global typ

global Gadget9

global across

global Gadget11

global down

global update

global Gadget22

global sst

global Gadget16

global Gadget17

global help

global reset

global about

global credits

global Gadget28

global Gadget20

global fade

global Gadget25

global ghost

global Gadget29

global drop

global Gadget32

global fx

global totle

global sprite_sleep_time

global alpha

sync

endfunction

function window_setup()

set window on

set window title "Sprite Player 3"

set window size 498,264

set window layout 1,1,1

Gadget1=createFrame(190,0,300,135,"",0)

Gadget2=createLabel(99,4,65,15,"Sprite Set-Up",Gadget1)

`sprite 10,0,0,10

`size sprite 10,270,285

Gadget3=createLabel(4,29,55,20,"Load Path:",Gadget1)

path$ = get dir$()

path=createEdit(69,24,185,20,0,Gadget1)

setgadgettext path,path$

Gadget5=createLabel(4,54,65,15,"Sprite Name:",Gadget1)

name=createEdit(69,49,90,20,0,Gadget1)

Gadget7=createLabel(164,54,50,20,"File Type:",Gadget1)

typ=createComboBox(219,49,70,100,Gadget1)

additem typ,"bmp":selectitem typ,0

Gadget9=createLabel(4,79,80,15,"Frames Across:",Gadget1)

across=createEdit(84,74,50,20,0,Gadget1)

Gadget11=createLabel(149,79,70,20,"Frames Down:",Gadget1)

down=createEdit(224,74,60,20,0,Gadget1)

update=createButton(179,99,75,25,"Up Date",0,Gadget1)

Gadget22=createLabel(4,104,95,15,"Sprite Sleep Time:",Gadget1)

sst=createEdit(99,104,45,20,0,Gadget1)`:sprite sleep time (sst)

Gadget16=createPanel(0,135,490,95,0)

setPanelBorderStyle Gadget16,2

Gadget17=createPanel(2,2,480,30,Gadget16)

setPanelBorderStyle Gadget17,2

help=createButton(332,2,60,20,"Help",0,Gadget17)

reset=createButton(7,2,75,20,"Reset FX",0,Gadget17)

about=createButton(252,2,75,20,"About",0,Gadget17)

credits=createButton(397,2,75,20,"Credits",0,Gadget17)

Gadget28=createLabel(112,7,115,20,"Sprite FX Engen V1.0",Gadget17)

Gadget20=createLabel(2,52,30,15,"Fade:",Gadget16)

fade=createComboBox(37,52,75,100,Gadget16)

additem fade,"OFF" : selectitem fade,0

additem fade,"IN" : additem fade,"OUT"

Gadget25=createLabel(137,52,35,20,"Ghost:",Gadget16)

ghost=createComboBox(177,52,50,100,Gadget16)

additem ghost,"OFF" : selectitem ghost,0

additem ghost,"ON"

Gadget29=createLabel(247,52,30,20,"Drop:",Gadget16)

drop=createComboBox(282,52,50,100,Gadget16)

additem drop,"Locked" : selectitem drop,0

Gadget32=createLabel(352,52,20,20,"FX:",Gadget16)

fx=createComboBox(377,52,75,100,Gadget16)

additem fx,"Locked" : selectitem fx,0

resetmainwindow

sync

endfunction

function update()

sp=3

if gadgetclicked()=update

path$ = getgadgettext(path)

`___________________________

if path exist(path$)=0

print "Where is that"

else

cd path$

endif

name$ = getgadgettext(name)

if name$=""

print "please enter a name"

endif

if sprite exist(3)

delete sprite 3

delete image 3

endif

if file exist(name$+".bmp")=1

load image name$+".bmp",sp

across$ = getgadgettext(across)

x=val(across$)

down$ = getgadgettext(down)

y=val(down$)

totle= x*y

sst$ = getgadgettext(sst)

sprite_sleep_time =val(sst$)

create animated sprite 3,name$+".bmp",x,y,sp

sprite 3,0,0,sp

endif

endfunction

function ghost()

if selecteditem(ghost)= 0

if sprite exist(3)

set sprite alpha 3,200

endif

if selecteditem(ghost)= 1

if sprite exist(3)

set sprite alpha 3,100

endif

endfunction

function fade()

if selecteditem(fade)= 0

if sprite exist(3)

set sprite alpha 3,200

endif

if selecteditem(fade)= 1

alpha=alpha+1

if alpha =>199

alpha =1

endif

if sprite exist(3)

set sprite alpha 3,alpha

endif

if selecteditem(fade)= 2

alpha=alpha-1

if alpha =<1

alpha =199

endif

if sprite exist(3)

set sprite alpha 3,alpha

endif

endfunction

function reset()

if gadgetclicked()= reset

selectitem fade,0

selectitem ghost,0

endif

endfunction

Download

Please login to download

Comments

No comments yet.

Author Name:	andrew pap
CodeBase Entries:	6

CodeBase - sprite player 3

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments