i would like to make a sprite a botton how can i?

Author

Message

kirtn14

12

Years of Service

User Offline

Joined: 8th Sep 2011

Location:

Posted: 25th Oct 2011 21:05

Link

i was trying to make a sprite a button so when it is pressed A spesific action takes place but could not do this it just made the whole screen the button can anyone please help
many thanks

kirtnicholls

Back to top

Profile PM Email Website

Rich Dersheimer

AGK Developer

14

Years of Service

User Offline

Joined: 1st Jul 2009

Location: Inside the box

Posted: 25th Oct 2011 21:35 Edited at: 25th Oct 2011 21:36

Link

This might not be the best way, but here's what I'm doing...

+ Code Snippet

    if GetPointerState()
        x# = GetPointerX()
        y# = GetPointerY()

        if GetSpriteHit(x#, y#) = randomizeSpr
            SetSpriteImage(randomizeSpr, longbuttondownImg)
        else
            SetSpriteImage(randomizeSpr, longbuttonupImg)
        endif
    endif

I have a sprite with it's ID in randomizeSpr, and two images for it, one with a "button up" graphic, one with a "button down" graphic. Then I do a check for GetPointerReleased()...

+ Code Snippet

    if GetPointerReleased()
        x# = GetPointerX()
        y# = GetPointerY()

        if GetSpriteHit(x#, y#) = randomizeSpr
            SetSpriteImage(randomizeSpr, longbuttonupImg)
            PlaySound(clickSnd)
            Gosub randomizeAll
        endif
    endif

Back to top

Profile PM Email

Reactor

15

Years of Service

User Offline

Joined: 6th Apr 2009

Location:

Posted: 21st Dec 2011 17:18

Link

Have you tried using the AddVirtualButton button function, it will do the work for you...

You can customise the button with functions like:

SetVirtualButtonSize
SetVirtualButtonPosition
SetVirtualButtonImageUp
SetVirtualButtonImageDown

You can get the state of the button with functions like:

GetVirtualButtonState
GetVirtualButtonPressed
GetVirtualButtonReleased

There are examples in the examples/input/virtualbuttons folder

Hope this helps

==================================================
you gotta live to survive to be a hundred and five
==================================================

Back to top

Profile PM

westalke

12

Years of Service

User Offline

Joined: 8th Dec 2011

Location:

Posted: 22nd Dec 2011 13:02

Link

The frustrating weakness with Virtual buttons is the lack of tristate support for Enabled / Disabled buttons.

The addition of SetVirtualButtonEnabled and GetVirtualButtonEnabled plus a way too set a disabled image using SetVirtualButtonImageDisabled would make it a very useful too.

Westa

Back to top

Profile PM

LeeBamber

TGC Lead Developer

24

Years of Service

User Offline

Joined: 21st Jan 2000

Location: England

Posted: 6th Jan 2012 11:20

Link

I've added SetVirtualButtonImageDisabled to the suggestions list for 107.

I drink tea, and in my spare time I write software.

Back to top

Profile PM Email Website

kirtn14

12

Years of Service

User Offline

Joined: 8th Sep 2011

Location:

Posted: 28th Jan 2012 17:39

Link

thank you Rich Dersheimer ive used your code with some of my own changes it now works

thanks

kirtnicholls

Back to top

Profile PM Email Website

The Slayer

Forum Vice President

14

Years of Service

User Offline

Joined: 9th Nov 2009

Playing: (Hide and) Seek and Destroy on my guitar!

Posted: 28th Jan 2012 21:53

Link

@LeeBamber:
It would be nice if you could add a command that sets the width/height of the virtualbutton aswell. Thanks.

Back to top

Profile PM Email

blueFire

13

Years of Service

User Offline

Joined: 23rd Jan 2011

Location: North Carolina

Posted: 29th Jan 2012 01:01

Link

Also being able to set the size of the text (both width (X) and height (Y) independently) inside the button would be great.

I also agree that being able to set the width (X) and height (Y) independently of each other (instead of using one size setting) would be great.

Jason

Back to top

Profile PM Website

kirtn14

12

Years of Service

User Offline

Joined: 8th Sep 2011

Location:

Posted: 29th Jan 2012 13:52

Link

ive added it and it ALL WORKS APPART FOR THE WHITE SQUARE AND THE FACT I CANT GET THE IMAGE TO COME BACK... IS THAT MEANT TO HAPPEN OR HAVE I MESSED IT UP SOMWHERE :L

kirtnicholls

Back to top

Profile PM Email Website

kirtn14

12

Years of Service

User Offline

Joined: 8th Sep 2011

Location:

Posted: 4th Feb 2012 21:57

Link

is this meant to happen?

kirtnicholls

Back to top

Profile PM Email Website

kirtn14

12

Years of Service

User Offline

Joined: 8th Sep 2011

Location:

Posted: 4th Feb 2012 21:58

Link

the picture disapears and a white square replaces it but it still works

kirtnicholls

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: 4th Feb 2012 22:12

Link

Why don't you post some code and maybe we can help?

Back to top

Profile PM Email

kirtn14

12

Years of Service

User Offline

Joined: 8th Sep 2011

Location:

Posted: 5th Feb 2012 15:11

Link

setdisplayaspect  (0.66)

SetDisplayAspect ( 4.0 / 3.0 )

lives=5

setclearcolor (250,250,250)

happysanta = loadimage ("happysanta.png")
sprite = createsprite (happysanta)
setspritesize (happysanta,20,25)

trees = loadimage ("trees.png")
sprite = createsprite (trees)
setspritesize (trees,50,30)

pausea = loadimage ("pause.png")
sprite = createsprite (pausea)
setspritesize (pausea,10,10)

presenta = loadimage ("present4.png")
sprite = createsprite(presenta)
setspritesize(presenta,100,2)

presentb = loadimage ("present4.png")
sprite = createsprite(presentb)
setspritesize(presentb,100,2)

presentc = loadimage ("present4.png")
sprite = createsprite(presentc)
setspritesize(presentc,100,2)

treesa = loadimage ("trees.png")
sprite = createsprite (treesa)
setspritesize (treesa,50,30)

treesb = loadimage ("trees.png")
sprite = createsprite (treesb)
setspritesize (treesb,50,30)

treesc = loadimage ("trees.png")
sprite = createsprite (treesc)
setspritesize (treesc,50,30)

boxa = loadimage ("box.png")
sprite = createsprite (boxa)
setspritesize (boxa,100,30)

gameover = loadimage ("gameover.png")
sprite = createsprite (gameover)
setspritesize (gameover,0,0)

northpole = loadimage ("northpole.png")
sprite = createsprite (northpole)
setspritesize (northpole,4,15)

helppage = loadimage ("helppagea.png")
sprite = createsprite (helppage)
setspritesize (helppage,0,0)

back = loadimage ("back.png")
sprite = createsprite (back)
setspritesize (back,10,10)

present = loadImage("present1.png")
present2 = loadImage("present2.png")
present3 = loadImage("present3.png")
present4 = loadImage("present4.png")
coal=loadimage ("coal.png")
naughtychild = loadimage ("naughtychild.png")
snow = loadimage ("snow.png")

setspriteangle (presentc,90)
setspriteangle (presentb,90)

setspriteposition (happysanta,10,74)
setspriteposition (presenta,0,99)
setspriteposition (presentb,50,50)
setspriteposition (presentc,-50,50)
setspriteposition (trees,60,60)
setspriteposition (treesa,30,60)
setspriteposition (treesb,0,50)
setspriteposition (treesc,40,40)
setspriteposition (boxa,0,0)
setspriteposition (pausea,90,3)
setspriteposition (northpole,20,40)
setspriteposition (back,130,213)

setspritephysicson (happysanta,3)
setspritephysicson (presenta,3)

setspritedepth (happysanta,1)
setspritedepth (pausea,1)
setspritedepth (helppage,1)

setphysicsgravity (0,24)

setspritecolor (boxa,0,200,250,200)

AddVirtualJoystick ( 1, 86, 84, 15 )

do

print (score)
setprintsize (7)

time = timer()

if time>spawnTime
        spawnTime=time+random(3,7)
        spr = createSprite(present)
        setspritesize (spr,5,5)
        setspritedepth (spr,1)
        setspritephysicson (spr,2)
        setSpritePosition(spr,random(0,100),5)
    endif

if time>spawnTime2
        spawnTime2=time+random(1,4)
        spr2 = createSprite(present2)
        setspritesize (spr2,5,5)
        setspritedepth (spr2,1)
        setspritephysicson (spr2,2)
        setSpritePosition(spr2,random(0,100),5)
    endif

if time>spawnTime3
        spawnTime3=time+random(40,50)
        spr3 = createSprite(present3)
        setspritesize (spr3,5,5)
        setspritedepth (spr3,1)
        setspritephysicson (spr3,2)
        setSpritePosition(spr3,random(0,100),5)
    endif

if time>spawnTime4
        spawnTime4=time+random(5,15)
        spr4 = createSprite(present4)
        setspritesize (spr4,5,5)
        setspritedepth (spr4,1)
        setspritephysicson (spr4,2)
        setSpritePosition(spr4,random(0,100),5)
    endif

if time>spawnTime5
        spawnTime5=time+random(15,20)
        spr5 = createSprite(coal)
        setspritesize (spr5,5,5)
        setspritedepth (spr5,1)
        setspritephysicson (spr5,2)
        setSpritePosition(spr5,random(0,100),5)
    endif

if time>spawnTime6
        spawnTime6=time+random(20,40)
        spr6 = createSprite(naughtychild)
        setspritesize (spr6,7,15)
        setspritedepth (spr6,1)
        setspritephysicson (spr6,2)
        setSpritePosition(spr6,random(0,100),5)
    endif

if time>spawnTime
        spawnTime=time+random(1,3)
        spr7 = createSprite(snow)
        setspritesize (spr7,3,3)
        setspritedepth (spr7,1)
        setspritephysicson (snow,1)
        setSpritePosition(spr7,random(0,100),5)
    endif

if lives=0
 setspritesize (gameover,100,100)
   setspritedepth (gameover,1)
   setvirtualjoystickposition (1,120,120)
   pause=1
   spawntime = 10000
   spawntime2 = 10000
   spawntime3 = 10000
   spawntime4 = 10000
   spawntime5 = 10000
   spawntime6 = 10000

endif

if getspritecollision (presenta,spr)
   lives = lives -1
   setspriteposition (spr,120,120)
   setspritedepth (spr,0)
endif

if getspritecollision (spr,happysanta)
    setspritesize (spr,0,0)
   setspriteposition (spr,120,120)
   score = score + 10
endif

if getspritecollision (presenta,spr2)
   lives = lives -1
   setspriteposition (spr2,-120,120)
   setspritedepth (spr2,0)
  setspritesize (spr2,0,0)
endif

if getspritecollision (spr2,happysanta)
    setspritesize (spr2,0,0)
   setspriteposition (spr2,120,120)
   score = score + 10
endif

if getspritecollision (presenta,spr3)
   lives = lives -1
   setspriteposition (spr3,120,120)
   setspritedepth (spr3,0)
endif

if getspritecollision (spr3,happysanta)
    setspritesize (spr3,0,0)
   setspriteposition (spr3,120,120)
   score = score + 30
endif

if getspritecollision (presenta,spr4)
   lives = lives -1
   setspriteposition (spr4,120,120)
   setspritedepth (spr4,0)
endif

if getspritecollision (spr4,happysanta)
    setspritesize (spr4,0,0)
   setspriteposition (spr4,120,120)
   score = score + 10
endif

if getspritecollision (spr5,happysanta)
    setspritesize (spr5,0,0)
   setspriteposition (spr5,120,120)
   score = score - 30
endif

if getspritecollision (presenta,spr5)
   setspriteposition (spr5,120,120)
   setspritedepth (spr5,0)
endif

if getspritecollision (spr6,happysanta)
    setspritesize (spr6,0,0)
   setspriteposition (spr6,120,120)
   score = score - 50
endif

if getspritecollision (presenta,spr6)
   setspriteposition (spr6,120,120)
   setspritedepth (spr6,0)
endif

if score = 300
    lives = lives+1
endif

if score = 700
    lives = lives+1
endif

if score = 1000
    lives = lives+1
endif

if score = 1500
    lives = lives+1
endif

if getspritecollision (presentc,happysanta)
    setspriteposition (happysanta,2,74)
endif

if GetSpriteCollision(presentb, happysanta)
   setspriteposition (happysanta,80,74)
endif

joystickX# = GetVirtualJoystickX ( 1 )

SetSpritePosition ( happysanta, GetSpriteX ( happysanta ) + ( joystickX# / 1), GetSpriteY ( happysanta ) + ( joystickY# / 1) )

if GetPointerState()
        x# = GetPointerX()
        y# = GetPointerY()

if GetSpriteHit(x#, y#) = pausea
            SetSpriteImage(pausea, pauseImg)

else
            SetSpriteImage(pausea, pauseImg)
        endif
    endif

if GetPointerReleased()
        x# = GetPointerX()
        y# = GetPointerY()

if GetSpriteHit(x#, y#) = pausea
           SetSpriteImage(pausea, pauseImg)
           pause=1
           setspritedepth (helppage,1)
           setspritedepth (back,1)
           setspritesize (helppage,100,100)
           setspriteposition (pausea,0,120)
           setvirtualjoystickposition (1,120,100)
           setspriteposition (back,3,3)
           spawntime = 10000
           spawntime2 = 10000
           spawntime3 = 10000
           spawntime4 = 10000
           spawntime5 = 10000
           spawntime6 = 10000

endif
    endif

if GetPointerState()
        x# = GetPointerX()
        y# = GetPointerY()

if GetSpriteHit(x#, y#) = back
           SetSpriteImage(back, backImg)
        endif
    endif

if GetPointerReleased()
        x# = GetPointerX()
        y# = GetPointerY()

if GetSpriteHit(x#, y#) = back
          SetSpriteImage(back, backImg)
          pause=0
          setspritedepth (pausea,1)
          setspriteposition (pausea,90,3)
          setspritecolor (back,0,0,0,0)
          setspritesize (helppage,0,0)
          setvirtualjoystickposition (1,90, 88)
        endif
    endif

if pause =1
    stepPhysics(0)
endif

Sync()
loop

+ Code Snippet

setdisplayaspect  (0.66)

SetDisplayAspect ( 4.0 / 3.0 )

lives=5

setclearcolor (250,250,250)

happysanta = loadimage ("happysanta.png")
sprite = createsprite (happysanta)
setspritesize (happysanta,20,25)

trees = loadimage ("trees.png")
sprite = createsprite (trees)
setspritesize (trees,50,30)

pausea = loadimage ("pause.png")
sprite = createsprite (pausea)
setspritesize (pausea,10,10)

presenta = loadimage ("present4.png")
sprite = createsprite(presenta)
setspritesize(presenta,100,2)

presentb = loadimage ("present4.png")
sprite = createsprite(presentb)
setspritesize(presentb,100,2)

presentc = loadimage ("present4.png")
sprite = createsprite(presentc)
setspritesize(presentc,100,2)

treesa = loadimage ("trees.png")
sprite = createsprite (treesa)
setspritesize (treesa,50,30)

treesb = loadimage ("trees.png")
sprite = createsprite (treesb)
setspritesize (treesb,50,30)

treesc = loadimage ("trees.png")
sprite = createsprite (treesc)
setspritesize (treesc,50,30)

boxa = loadimage ("box.png")
sprite = createsprite (boxa)
setspritesize (boxa,100,30)

gameover = loadimage ("gameover.png")
sprite = createsprite (gameover)
setspritesize (gameover,0,0)

northpole = loadimage ("northpole.png")
sprite = createsprite (northpole)
setspritesize (northpole,4,15)

helppage = loadimage ("helppagea.png")
sprite = createsprite (helppage)
setspritesize (helppage,0,0)

back = loadimage ("back.png")
sprite = createsprite (back)
setspritesize (back,10,10)

present = loadImage("present1.png")
present2 = loadImage("present2.png")
present3 = loadImage("present3.png")
present4 = loadImage("present4.png")
coal=loadimage ("coal.png")
naughtychild = loadimage ("naughtychild.png")
snow = loadimage ("snow.png")


setspriteangle (presentc,90)
setspriteangle (presentb,90)

setspriteposition (happysanta,10,74)
setspriteposition (presenta,0,99)
setspriteposition (presentb,50,50)
setspriteposition (presentc,-50,50)
setspriteposition (trees,60,60)
setspriteposition (treesa,30,60)
setspriteposition (treesb,0,50)
setspriteposition (treesc,40,40)
setspriteposition (boxa,0,0)
setspriteposition (pausea,90,3)
setspriteposition (northpole,20,40)
setspriteposition (back,130,213)


setspritephysicson (happysanta,3)
setspritephysicson (presenta,3)

setspritedepth (happysanta,1)
setspritedepth (pausea,1)
setspritedepth (helppage,1)

setphysicsgravity (0,24)

setspritecolor (boxa,0,200,250,200)

AddVirtualJoystick ( 1, 86, 84, 15 )




do





print (score)
setprintsize (7)



 time = timer()




    if time>spawnTime
        spawnTime=time+random(3,7)
        spr = createSprite(present)
        setspritesize (spr,5,5)
        setspritedepth (spr,1)
        setspritephysicson (spr,2)
        setSpritePosition(spr,random(0,100),5)
    endif


if time>spawnTime2
        spawnTime2=time+random(1,4)
        spr2 = createSprite(present2)
        setspritesize (spr2,5,5)
        setspritedepth (spr2,1)
        setspritephysicson (spr2,2)
        setSpritePosition(spr2,random(0,100),5)
    endif


if time>spawnTime3
        spawnTime3=time+random(40,50)
        spr3 = createSprite(present3)
        setspritesize (spr3,5,5)
        setspritedepth (spr3,1)
        setspritephysicson (spr3,2)
        setSpritePosition(spr3,random(0,100),5)
    endif

if time>spawnTime4
        spawnTime4=time+random(5,15)
        spr4 = createSprite(present4)
        setspritesize (spr4,5,5)
        setspritedepth (spr4,1)
        setspritephysicson (spr4,2)
        setSpritePosition(spr4,random(0,100),5)
    endif

if time>spawnTime5
        spawnTime5=time+random(15,20)
        spr5 = createSprite(coal)
        setspritesize (spr5,5,5)
        setspritedepth (spr5,1)
        setspritephysicson (spr5,2)
        setSpritePosition(spr5,random(0,100),5)
    endif

  if time>spawnTime6
        spawnTime6=time+random(20,40)
        spr6 = createSprite(naughtychild)
        setspritesize (spr6,7,15)
        setspritedepth (spr6,1)
        setspritephysicson (spr6,2)
        setSpritePosition(spr6,random(0,100),5)
    endif

  if time>spawnTime
        spawnTime=time+random(1,3)
        spr7 = createSprite(snow)
        setspritesize (spr7,3,3)
        setspritedepth (spr7,1)
        setspritephysicson (snow,1)
        setSpritePosition(spr7,random(0,100),5)
    endif

if lives=0
 setspritesize (gameover,100,100)
   setspritedepth (gameover,1)
   setvirtualjoystickposition (1,120,120)
   pause=1
   spawntime = 10000
   spawntime2 = 10000
   spawntime3 = 10000
   spawntime4 = 10000
   spawntime5 = 10000
   spawntime6 = 10000

endif

if getspritecollision (presenta,spr)
   lives = lives -1
   setspriteposition (spr,120,120)
   setspritedepth (spr,0)
endif

if getspritecollision (spr,happysanta)
    setspritesize (spr,0,0)
   setspriteposition (spr,120,120)
   score = score + 10
endif

if getspritecollision (presenta,spr2)
   lives = lives -1
   setspriteposition (spr2,-120,120)
   setspritedepth (spr2,0)
  setspritesize (spr2,0,0)
endif

if getspritecollision (spr2,happysanta)
    setspritesize (spr2,0,0)
   setspriteposition (spr2,120,120)
   score = score + 10
endif

if getspritecollision (presenta,spr3)
   lives = lives -1
   setspriteposition (spr3,120,120)
   setspritedepth (spr3,0)
endif

if getspritecollision (spr3,happysanta)
    setspritesize (spr3,0,0)
   setspriteposition (spr3,120,120)
   score = score + 30
endif

if getspritecollision (presenta,spr4)
   lives = lives -1
   setspriteposition (spr4,120,120)
   setspritedepth (spr4,0)
endif

if getspritecollision (spr4,happysanta)
    setspritesize (spr4,0,0)
   setspriteposition (spr4,120,120)
   score = score + 10
endif


if getspritecollision (spr5,happysanta)
    setspritesize (spr5,0,0)
   setspriteposition (spr5,120,120)
   score = score - 30
endif

if getspritecollision (presenta,spr5)
   setspriteposition (spr5,120,120)
   setspritedepth (spr5,0)
endif

if getspritecollision (spr6,happysanta)
    setspritesize (spr6,0,0)
   setspriteposition (spr6,120,120)
   score = score - 50
endif

if getspritecollision (presenta,spr6)
   setspriteposition (spr6,120,120)
   setspritedepth (spr6,0)
endif

if score = 300
    lives = lives+1
endif

if score = 700
    lives = lives+1
endif

if score = 1000
    lives = lives+1
endif

if score = 1500
    lives = lives+1
endif

if getspritecollision (presentc,happysanta)
    setspriteposition (happysanta,2,74)
endif


if GetSpriteCollision(presentb, happysanta)
   setspriteposition (happysanta,80,74)
endif





joystickX# = GetVirtualJoystickX ( 1 )

    SetSpritePosition ( happysanta, GetSpriteX ( happysanta ) + ( joystickX# / 1), GetSpriteY ( happysanta ) + ( joystickY# / 1) )

if GetPointerState()
        x# = GetPointerX()
        y# = GetPointerY()

        if GetSpriteHit(x#, y#) = pausea
            SetSpriteImage(pausea, pauseImg)

        else
            SetSpriteImage(pausea, pauseImg)
        endif
    endif

if GetPointerReleased()
        x# = GetPointerX()
        y# = GetPointerY()

        if GetSpriteHit(x#, y#) = pausea
           SetSpriteImage(pausea, pauseImg)
           pause=1
           setspritedepth (helppage,1)
           setspritedepth (back,1)
           setspritesize (helppage,100,100)
           setspriteposition (pausea,0,120)
           setvirtualjoystickposition (1,120,100)
           setspriteposition (back,3,3)
           spawntime = 10000
           spawntime2 = 10000
           spawntime3 = 10000
           spawntime4 = 10000
           spawntime5 = 10000
           spawntime6 = 10000

        endif
    endif



  if GetPointerState()
        x# = GetPointerX()
        y# = GetPointerY()

        if GetSpriteHit(x#, y#) = back
           SetSpriteImage(back, backImg)
        endif
    endif

   if GetPointerReleased()
        x# = GetPointerX()
        y# = GetPointerY()

        if GetSpriteHit(x#, y#) = back
          SetSpriteImage(back, backImg)
          pause=0
          setspritedepth (pausea,1)
          setspriteposition (pausea,90,3)
          setspritecolor (back,0,0,0,0)
          setspritesize (helppage,0,0)
          setvirtualjoystickposition (1,90, 88)
        endif
    endif

if pause =1
    stepPhysics(0)
endif


    Sync()
loop

kirtnicholls

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: 5th Feb 2012 16:56

Link

Phew! Ok I'll take a look when I get a chance...

Back to top

Profile PM Email

kirtn14

12

Years of Service

User Offline

Joined: 8th Sep 2011

Location:

Posted: 5th Feb 2012 17:20

Link

the end bit is the button, thank

, im guessing you didnt expect that amount of coding

kirtnicholls

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: 6th Feb 2012 09:53

Link

I think it's this part:

+ Code Snippet

back = loadimage ("back.png")
sprite = createsprite (back)
setspritesize (back,10,10)

You are loading an image called "back" and assigning the image to a sprite called "sprite". Then in the loop you are trying to affect a sprite called "back" (which doesn't exist).

Try changing it to this:

+ Code Snippet

image = loadimage ("back.png")
back = createsprite (image)
setspritesize (back,10,10)

I hope that helps!

Back to top

Profile PM Email

kirtn14

12

Years of Service

User Offline

Joined: 8th Sep 2011

Location:

Posted: 6th Feb 2012 10:49

Link

it doesnt work... a white box takes its place :S

kirtnicholls

Back to top

Profile PM Email Website

kirtn14

12

Years of Service

User Offline

Joined: 8th Sep 2011

Location:

Posted: 6th Feb 2012 10:49

Link

for both buttons

kirtnicholls

Back to top

Profile PM Email Website

kirtn14

12

Years of Service

User Offline

Joined: 8th Sep 2011

Location:

Posted: 6th Feb 2012 11:45

Link

ive fixed it

setdisplayaspect (0.66)
SetDisplayAspect ( 4.0 / 3.0 )
setclearcolor (250,250,250)

cardback =loadimage ("cardback.png")
sprite = createsprite (cardback)
setspritesize (cardback,12,21)

do
if GetPointerState()
x# = GetPointerX()
y# = GetPointerY()

if GetSpriteHit(x#, y#) = cardback
SetSpritesize (cardback,12,21)
endif
endif

if GetPointerReleased()
x# = GetPointerX()
y# = GetPointerY()

if GetSpriteHit(x#, y#) = cardback

endif
endif
sync()
loop

kirtnicholls

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: 6th Feb 2012 12:01

Link

No you haven't...

You are referring to a sprite called "cardback" which does not exist. You have loaded an image called "cardback" not a sprite called "cardback". It is fundamental that you understand this.

It is likely that the image and sprite have the same ID value because you are creating them automatically but if you happen to create more sprites before loading this image your code will stop working and you won't know why.

+ Code Snippet

cardback =loadimage ("cardback.png") `image loaded and it's ID is assigned to a variable called "cardback"
sprite = createsprite (cardback) `sprite created using the correct image ID and assigned the sprite ID to the variable "sprite"
setspritesize (cardback,12,21) `editing a sprite with a SPRITE ID of "cardback"

Back to top

Profile PM Email

kirtn14

12

Years of Service

User Offline

Joined: 8th Sep 2011

Location:

Posted: 6th Feb 2012 12:28

Link

yeah i have cause it works, ive run the code and its fixed

kirtnicholls

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: 6th Feb 2012 12:28

Link

OK then, you know best.

Back to top

Profile PM Email

kirtn14

12

Years of Service

User Offline

Joined: 8th Sep 2011

Location:

Posted: 6th Feb 2012 12:42

Link

ill show you, i know youve been coding for ages but it does work. im not trying to be rude an dif i have offended you im sorry i didnt mean to i just dont see why you say its wrong.

kirtnicholls

Attachments

Login to view attachments

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: 6th Feb 2012 12:54

Link

I'm not offended I just didn't see the point in trying to help if you didn't want to listen. No offence back, honestly

Wow, powerpoint presentation really?

There were two problems in the original code:
First is you were looking for a sprite called "cardback" which doesn't exist. It is pure coincidence that the sprite and image have the same ID. Your code may work without getting this right but if you don't understand that it is wrong you will continue coding incorrectly in the future and cause yourself more grief than you can imagine.

Second you were changing the image for the sprite to "cardbackImg" which has not been loaded anywhere in the code (hence the white sprite).

The important thing is that you understand what I wrote.

1-Load an image and assign it to an "imageID"
2-Create a sprite using the "imageID" and assign it to a "spriteID"
3-Use the spriteID when affecting the sprite in any way

Example:
imageID = loadImage(imageName$)
spriteID = createSprite(imageID)
setSpritePosition(spriteID,x#,y#)

Back to top

Profile PM Email

kirtn14

12

Years of Service

User Offline

Joined: 8th Sep 2011

Location:

Posted: 6th Feb 2012 12:57

Link

so you mean ive been making sprite but not using them in a way? ive been using images and not the sprites?

kirtnicholls

Back to top

Profile PM Email Website

kirtn14

12

Years of Service

User Offline

Joined: 8th Sep 2011

Location:

Posted: 6th Feb 2012 13:01

Link

dont worry i dont take offence, it would be stupid if i did because i would never learn anything

kirtnicholls

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: 6th Feb 2012 13:05

Link

Not quite.

What happens when you load an image and let AppGameKit decide what imageID to give it is it starts at 10,000 and increments that number for each auto-generated imageID after that. It does the same for spriteID's (starting at 10,000) so since you currently only created one image and one sprite they both have an ID of 10000. If you print the value of "sprite" and "cardback" you'll see they are both "10000".

If you continue this way you will find errors creeping in, hard to trace errors.

Back to top

Profile PM Email

kirtn14

12

Years of Service

User Offline

Joined: 8th Sep 2011

Location:

Posted: 6th Feb 2012 13:11

Link

so theres conflict between them meaning if i try make a piece of coding it may not work because it doesnt know which one to choose?

kirtnicholls

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: 6th Feb 2012 13:16

Link

When you make a larger game it is good practice to load your media before you start using it so what will happen is you will load 30 images (for example) and later create sprites using those images. What will happen if you don't use the image number by mistake is you'll either call for a sprite that doesn't exist or you'll call the wrong sprite.

Just follow my guidelines and this will never happen:
imageID = loadImage(imageName$)
spriteID = createSprite(imageID)
setSpritePosition(spriteID,x#,y#)
...do anything at all to a sprite using spriteID.

Back to top

Profile PM Email

baxslash

Valued Member

Bronze Codemaster

17

Years of Service

User Offline

Joined: 26th Dec 2006

Location: Duffield

Posted: 6th Feb 2012 13:27

Link

Sorry for the double post:
Can I suggest you take a look at the first two "AGK Bitesize" tutorials that I have recently started writing for the TGC newsletter? They will soon have their own home on the AppGameKit website but for now you can see them on the App Developers Group website here:
AGK Bitesize 1
AGK Bitesize 2
I'm trying to build up a simple-ish introduction to AppGameKit for users of all abilities and I'd value your opinion on how useful they are. Hopefully they will help you to understand some of the concepts behind AppGameKit a little better

Back to top

Profile PM Email

kirtn14

12

Years of Service

User Offline

Joined: 8th Sep 2011

Location:

Posted: 6th Feb 2012 13:28

Link

so is this right

circle1= loadimage ("circle1.png")
sprite1=createsprite (circle1)
setspritesize (sprite1,12,21)

circle2= loadimage ("circle2.png")
sprite2=createsprite (circle2)
setspritesize (sprite2,12,21)

kirtnicholls

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: 6th Feb 2012 13:30

Link

Yes! You have it now

Back to top

Profile PM Email

kirtn14

12

Years of Service

User Offline

Joined: 8th Sep 2011

Location:

Posted: 6th Feb 2012 13:34

Link

i have 75 sprite and id like to make a rondom sprite appear in a set place how can i do thayt please

kirtnicholls

Back to top

Profile PM Email Website

kamac

13

Years of Service

User Offline

Joined: 30th Nov 2010

Location: Poland

Posted: 6th Feb 2012 13:57 Edited at: 6th Feb 2012 14:13

Link

This'd make all your 75 sprites be set in randomized positions, across the whole screen.

BASIC code:

+ Code Snippet

i as integer
for i = 1 to 75
    SetSpritePosition(i,Random(0,GetVirtualWidth()),Random(0,GetVirtualHeight())))
next i

C++ code:

+ Code Snippet

for(int i = 1; i < 72; i++)
{
    agk::SetSpritePosition(i,agk::Random(0,agk::GetVirtualWidth()),agk::Random(0,agk::GetVirtualHeight())));
}

Back to top

Profile PM Email

baxslash

Valued Member

Bronze Codemaster

17

Years of Service

User Offline

Joined: 26th Dec 2006

Location: Duffield

Posted: 6th Feb 2012 14:06

Link

I haven't seen that version of the random command in Tier 1 kamac, is that right?

I would normally do it like this:

+ Code Snippet

i as integer
for i = 1 to 75
    SetSpritePosition(i,Random(0,GetVirtualWidth()),Random(0,GetVirtualHeight()))
next i

Also you would have to set the spriteID's to match by creating your sprites like this:

+ Code Snippet

for i = 1 to 75
    createSprite(i,imageID)
next

Back to top

Profile PM Email

kamac

13

Years of Service

User Offline

Joined: 30th Nov 2010

Location: Poland

Posted: 6th Feb 2012 14:12 Edited at: 6th Feb 2012 14:14

Link

baxslash, Woops.

@EDIT.

Fixed.

Back to top

Profile PM Email

kirtn14

12

Years of Service

User Offline

Joined: 8th Sep 2011

Location:

Posted: 6th Feb 2012 14:19

Link

all 75 are different pictures, but if its not possible to do it dont worry thanks anyway

kirtnicholls

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: 6th Feb 2012 14:31

Link

I just re-read your post, you want to set a random sprite in a set place right?

Just put all your sprite ID's in a simple array like this:

+ Code Snippet

dim sprites[75] as integer
sprites[1] = createSprite(image1)
sprites[2] = createSprite(image2)
sprites[3] = createSprite(image3)
`...etc.

Then to select a random sprite to put into position do this:

+ Code Snippet

selectSprite = random(1,75)
setSpritePosition(sprites[selectSprite],x#,y#)

Back to top

Profile PM Email

kirtn14

12

Years of Service

User Offline

Joined: 8th Sep 2011

Location:

Posted: 6th Feb 2012 14:53

Link

could i use that code in a way to set all thier sizes the same but with 1 line of coding?

kirtnicholls

Back to top

Profile PM Email Website

kirtn14

12

Years of Service

User Offline

Joined: 8th Sep 2011

Location:

Posted: 6th Feb 2012 14:54

Link

would it be

+ Code Snippet

selectSprite = (1,75)
setSpritesize(sprites[selectSprite],x#,y#)

?

kirtnicholls

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: 6th Feb 2012 14:55 Edited at: 6th Feb 2012 14:57

Link

Yes:

+ Code Snippet

for i = 1 to 75
    SetSpriteSize(sprites[i],width#,height#)
next i

In answer to the post you just beat me with, no. use something like above.

Another thing, edit your previous post using the "Edit Post" link below it unless someone has posted since your last message. "Double posting" occasionally is OK but the moderators will not like it if you do it a lot like you are doing.

Back to top

Profile PM Email

Sorry your browser is not supported!

AppGameKit Classic Chat / i would like to make a sprite a botton how can i?

Attachments