can you help with scrolling inventory

Author

Message

Levanthus

21

Years of Service

User Offline

Joined: 17th Apr 2003

Location: Cumbria, UK

Posted: 25th Apr 2010 14:16 Edited at: 25th Apr 2010 14:50

Link

Ok here's my thing, i have a setup wherein i can press a key to bring up an "inventory screen" now, on said screen there are 3 "slots" for item images, what i want to be able to do is put images (probably sprites) into those boxes but when you scroll to the first or last of the boxes the icons scroll left or right by one... does that make sense?
eg.

then you press right 3 times and it ends up like

*edit*
I just realised i posted this in the wrong place >.< sorry

Windows 7 64 bit, AMD Phenom II x4 Black edition, 4 GB Ram, Radeon HD 4650, 540 GB HDD

I can see from your smile, you're not here for the sunset.

Back to top

Profile PM Email

TDK

Retired Moderator

21

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 25th Apr 2010 15:18

Link

Quote: "I just realised i posted this in the wrong place"

Where did you mean it to go? I can move it if you like.

As for your problem, it's quite simple - I had to do the same in Dark Sprites on the organizer screen. It displays a grid of 7x5 sprite frames but if you have say 50 frames, transport buttons scroll left and right through them one at a time.

What you do is have an ItemOffset variable which at first is set to 0 (zero).

When you place your sprite items (say they are sprites 100-200) 100 goes into the first slot, 101 into the second and so on.

What you do is use Sprite Number + ItemOffset.

When you cursor right, on the last slot, instead of moving further, you increase the value of ItemOffset until ItemOffset+6 is greater than the number of items you have to display.

When you cursor left, on the first slot, instead of moving further left, you decrease the value of ItemOffset until it's back to zero.

So, your item display would look something like:

+ Code Snippet

For N = 0 To 5
  Sprite 100+N+ItemOffset,XPos,YPos,100+N+ItemOffset
  Rem Set next item X and Y Position
Next N

TDK

Back to top

Profile PM Email Website

Levanthus

21

Years of Service

User Offline

Joined: 17th Apr 2003

Location: Cumbria, UK

Posted: 25th Apr 2010 15:20

Link

I meant to put it into DBpro Newcomers corner, Thanks though i'll try what you suggested

Windows 7 64 bit, AMD Phenom II x4 Black edition, 4 GB Ram, Radeon HD 4650, 540 GB HDD

I can see from your smile, you're not here for the sunset.

Back to top

Profile PM Email

TDK

Retired Moderator

21

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 25th Apr 2010 15:21

Link

OK - moving it for you now.

TDK

Back to top

Profile PM Email Website

Levanthus

21

Years of Service

User Offline

Joined: 17th Apr 2003

Location: Cumbria, UK

Posted: 25th Apr 2010 16:19

Link

Right, OK maybe i'm not understanding how this thing works but i just can't get it to work for me properly, all my sprites just end up stacked on top of each other

Windows 7 64 bit, AMD Phenom II x4 Black edition, 4 GB Ram, Radeon HD 4650, 540 GB HDD

I can see from your smile, you're not here for the sunset.

Back to top

Profile PM Email

TDK

Retired Moderator

21

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 25th Apr 2010 19:40 Edited at: 25th Apr 2010 20:41

Link

OK, you have a piece of code which puts the sprites in the six slots right?

If your item sprites are 100, 101, 102 and so on the loop placing the sprites would start by putting Sprite 100 in the first box, 102 in the second and so on.

All I'm suggesting is that with an offset variable, you would paste sprite 100+Offset and increment the offset when you scroll.

What code are you using for placing the (up to) six item sprites?

In the meantime, I'll knock together an example for you...

[Edit] Just noticed you only have 3 slots - I saw the two images in your first post and got it in my head you had 6 item slots!

[Edit 2] OK, here's an example for you. I've used the image you pasted above and modified it (attached to this post below).

Rem Scrolling Inventory Example
Rem TDK 25.4.2010
Gosub Setup
Gosub DisplayItems
Do
  If LeftKey() = 1 Then Gosub ScrollLeft
  If RightKey() = 1 Then Gosub ScrollRight
  Sync
  Text 5,5,"Item Currently Selected: "+Str$(ItemSelected)+"  "
Loop
End

ScrollLeft:
  If Highlighter = 0
    If ItemOffset > 0 Then Dec ItemOffset
  Else
    Dec Highlighter
  Endif
  Gosub DisplayItems
  ItemSelected = ItemOffset+Highlighter+1
  Repeat
  Until LeftKey()=0
Return

ScrollRight:
  If Highlighter = 2
    If ItemOffset < NumItems-3 Then Inc ItemOffset
  Else
    Inc Highlighter
  Endif
  Gosub DisplayItems
  ItemSelected = ItemOffset+Highlighter+1
  Repeat
  Until RightKey()=0
Return

DisplayItems:
  Paste Image 1,ItemPanelX,ItemPanelY
  Paste Image 2,Highlighter*91+ItemPanelX+5,ItemPanelY+5,1
  For N = 0 To 2
    Paste Sprite 100+N+ItemOffset,N*91+ItemPanelX+6,ItemPanelY+6
  Next N
Return

Setup:
  Set Display Mode 800,600,32
  Sync On
  Sync Rate 0
  ItemPanelX = 262: ItemPanelY = 253: ItemOffset = 0: NumItems = 26: Highlighter = 0: ItemSelected = 1
  Rem Create Some Dummy Item Sprites
  Set Text Font "Verdana"
  Set Text Size 64
  For N = 0 To NumItems-1
    Ink RGB(Rnd(155)+100,Rnd(155)+100,Rnd(155)+100),0
    Box 0,0,82,82
    Ink 0,0: Text 22,10,Chr$(65+N)
    Get Image 100+N,0,0,82,82,1
    Sprite 100+N,-100,-100,100+N
    Set Sprite 100+N,1,0
    Hide Sprite 100+N
  Next N
  Set Text Size 16
  Set Text Opaque
  Rem Create Highlighter Box
  Ink RGB(255,255,255),0: Box 0,0,84,84
  Ink 0,0: Box 1,1,83,83: Box 10,0,74,84: Box 0,10,84,74
  Get Image 2,0,0,84,84,1
  CLS 0: Sync
  Load Image "ItemPanel.bmp",1,1
  Ink RGB(255,255,255),0
Return

+ Code Snippet

Rem Scrolling Inventory Example
Rem TDK 25.4.2010
Gosub Setup
Gosub DisplayItems
Do
  If LeftKey() = 1 Then Gosub ScrollLeft
  If RightKey() = 1 Then Gosub ScrollRight
  Sync
  Text 5,5,"Item Currently Selected: "+Str$(ItemSelected)+"  "
Loop
End

ScrollLeft:
  If Highlighter = 0
    If ItemOffset > 0 Then Dec ItemOffset
  Else
    Dec Highlighter
  Endif
  Gosub DisplayItems
  ItemSelected = ItemOffset+Highlighter+1
  Repeat
  Until LeftKey()=0
Return

ScrollRight:
  If Highlighter = 2
    If ItemOffset < NumItems-3 Then Inc ItemOffset
  Else
    Inc Highlighter
  Endif
  Gosub DisplayItems
  ItemSelected = ItemOffset+Highlighter+1
  Repeat
  Until RightKey()=0
Return

DisplayItems:
  Paste Image 1,ItemPanelX,ItemPanelY
  Paste Image 2,Highlighter*91+ItemPanelX+5,ItemPanelY+5,1
  For N = 0 To 2
    Paste Sprite 100+N+ItemOffset,N*91+ItemPanelX+6,ItemPanelY+6
  Next N
Return

Setup:
  Set Display Mode 800,600,32
  Sync On
  Sync Rate 0
  ItemPanelX = 262: ItemPanelY = 253: ItemOffset = 0: NumItems = 26: Highlighter = 0: ItemSelected = 1
  Rem Create Some Dummy Item Sprites
  Set Text Font "Verdana"
  Set Text Size 64
  For N = 0 To NumItems-1
    Ink RGB(Rnd(155)+100,Rnd(155)+100,Rnd(155)+100),0
    Box 0,0,82,82
    Ink 0,0: Text 22,10,Chr$(65+N)
    Get Image 100+N,0,0,82,82,1
    Sprite 100+N,-100,-100,100+N
    Set Sprite 100+N,1,0
    Hide Sprite 100+N
  Next N
  Set Text Size 16
  Set Text Opaque
  Rem Create Highlighter Box
  Ink RGB(255,255,255),0: Box 0,0,84,84
  Ink 0,0: Box 1,1,83,83: Box 10,0,74,84: Box 0,10,84,74
  Get Image 2,0,0,84,84,1
  CLS 0: Sync
  Load Image "ItemPanel.bmp",1,1
  Ink RGB(255,255,255),0
Return

It creates a number of dummy alphabet sprites as defined with NumItems = 26. Change this to a different number to match the number of items you have in the inventory.

ItemPanelX and ItemPanelY are the X and Y positions on the screen your item inventory panel needs to be positioned. Change these values to put the panel wherever you want on the screen.

Hope this points you in the right direction...

TDK

Attachments

Login to view attachments

Back to top

Profile PM Email Website

Levanthus

21

Years of Service

User Offline

Joined: 17th Apr 2003

Location: Cumbria, UK

Posted: 25th Apr 2010 21:45 Edited at: 25th Apr 2010 22:10

Link

this is the best i have managed so far but i hate the way it works, it's not as smooth as i'd like and one i get the cursor to the end of the 3 slots you have to HOLD right or left just to make it move to the next icon

Here is the code, and i'm hoping the other media is attached as a rar file... that is IF anyone wants to look at it

load bitmap "C:\Users\Desktop\New folder\red.png",1
get image 1,0,0,88,88 : delete bitmap 1
load bitmap "C:\Users\Desktop\New folder\Orange.png",2
get image 2,0,0,88,88 : delete bitmap 2
load bitmap "C:\Users\Desktop\New folder\Yellow.png",3
get image 3,0,0,88,88 : delete bitmap 3
load bitmap "C:\Users\Desktop\New folder\Green.png",4
get image 4,0,0,88,88 : delete bitmap 4
load bitmap "C:\Users\Desktop\New folder\Blue.png",5
get image 5,0,0,88,88 : delete bitmap 5
load bitmap "C:\Users\Desktop\New folder\Purple.png",6
get image 6,0,0,88,88 : delete bitmap 6
load bitmap "C:\Users\Desktop\New folder\White.png",7
get image 7,0,0,88,88 : delete bitmap 7
load bitmap "C:\Users\Desktop\New folder\Black.png",8
get image 8,0,0,88,88 : delete bitmap 8

load bitmap "C:\Users\Desktop\New folder\inv2.bmp",9
get image 9,0,0,828,94 : delete bitmap 9
sprite 9,-39,117,9
set sprite priority 9,2

set image colorkey 255,0,255
load bitmap "C:\Users\Desktop\New folder\Select.png",10
get image 10,0,0,88,88 : delete bitmap 10

Global rx=240
global rxs=240
Global ItemOffset=0
Sprites()
do
   if rightkey()=1 and ButtonTimer=0 then rx=rx+91 : ButtonTimer=200
   if leftkey()=1 and ButtonTimer=0 then rx=rx-91 : ButtonTimer=200
      If ButtonTimer > 0 then dec ButtonTimer
   if rx=>422 then rx=422
if rx=>422 and (rightkey()=1 and ButtonTimer=0) then rxs=rxs-91 : ButtonTimer=200
if rxs=<-215 then rxs=-215
   if rx=<240 then rx=240
if rx=<240 and (leftkey()=1 and ButtonTimer=0) then rxs=rxs+91 : ButtonTimer=200
if rxs=>240 then rxs=240

Sprites()
sprite 10,rx,120,10 : set sprite priority 10,3

set cursor 0,0
print "sprite x";rx
print "RXS ";rxs
print "Timer";ButtonTimer
   loop

function Sprites()
sprite 1,rxs,120,1
sprite 2,rxs+91,120,2
sprite 3,rxs+182,120,3
sprite 4,rxs+273,120,4
sprite 5,rxs+364,120,5
sprite 6,rxs+455,120,6
sprite 7,rxs+546,120,7
sprite 8,rxs+637,120,8
endfunction

+ Code Snippet

load bitmap "C:\Users\Desktop\New folder\red.png",1
get image 1,0,0,88,88 : delete bitmap 1
load bitmap "C:\Users\Desktop\New folder\Orange.png",2
get image 2,0,0,88,88 : delete bitmap 2
load bitmap "C:\Users\Desktop\New folder\Yellow.png",3
get image 3,0,0,88,88 : delete bitmap 3
load bitmap "C:\Users\Desktop\New folder\Green.png",4
get image 4,0,0,88,88 : delete bitmap 4
load bitmap "C:\Users\Desktop\New folder\Blue.png",5
get image 5,0,0,88,88 : delete bitmap 5
load bitmap "C:\Users\Desktop\New folder\Purple.png",6
get image 6,0,0,88,88 : delete bitmap 6
load bitmap "C:\Users\Desktop\New folder\White.png",7
get image 7,0,0,88,88 : delete bitmap 7
load bitmap "C:\Users\Desktop\New folder\Black.png",8
get image 8,0,0,88,88 : delete bitmap 8

load bitmap "C:\Users\Desktop\New folder\inv2.bmp",9
get image 9,0,0,828,94 : delete bitmap 9
sprite 9,-39,117,9
set sprite priority 9,2

set image colorkey 255,0,255
load bitmap "C:\Users\Desktop\New folder\Select.png",10
get image 10,0,0,88,88 : delete bitmap 10

Global rx=240
global rxs=240
Global ItemOffset=0
Sprites()
do
   if rightkey()=1 and ButtonTimer=0 then rx=rx+91 : ButtonTimer=200
   if leftkey()=1 and ButtonTimer=0 then rx=rx-91 : ButtonTimer=200
      If ButtonTimer > 0 then dec ButtonTimer
   if rx=>422 then rx=422
if rx=>422 and (rightkey()=1 and ButtonTimer=0) then rxs=rxs-91 : ButtonTimer=200
if rxs=<-215 then rxs=-215
   if rx=<240 then rx=240
if rx=<240 and (leftkey()=1 and ButtonTimer=0) then rxs=rxs+91 : ButtonTimer=200
if rxs=>240 then rxs=240

Sprites()
sprite 10,rx,120,10 : set sprite priority 10,3

set cursor 0,0
print "sprite x";rx
print "RXS ";rxs
print "Timer";ButtonTimer
   loop



   function Sprites()
sprite 1,rxs,120,1
sprite 2,rxs+91,120,2
sprite 3,rxs+182,120,3
sprite 4,rxs+273,120,4
sprite 5,rxs+364,120,5
sprite 6,rxs+455,120,6
sprite 7,rxs+546,120,7
sprite 8,rxs+637,120,8
endfunction

i know my coding is a mess but i am getting more and more annoyed and thus far this is the ONLY way i have managed to get roughlt what i am after

*Edit**
Ok thats perfect, that is exactly what i was after thank you, now my poor scalp may still have hair attached.

Windows 7 64 bit, AMD Phenom II x4 Black edition, 4 GB Ram, Radeon HD 4650, 540 GB HDD

I can see from your smile, you're not here for the sunset.

Attachments

Login to view attachments

Back to top

Profile PM Email

Levanthus

21

Years of Service

User Offline

Joined: 17th Apr 2003

Location: Cumbria, UK

Posted: 26th Apr 2010 10:47 Edited at: 26th Apr 2010 10:55

Link

Ok so that Code you gave me was awesome! exactly what i needed it to do, but i can't seem to get it to work using my own images...
i figured that you'd replace

Ink RGB(Rnd(155)+100,Rnd(155)+100,Rnd(155)+100),0
Box 0,0,82,82
Ink 0,0: Text 22,10,Chr$(65+N)

with the images you wanted to use instead? given that i Understand that these lines create that "alphabet squares"

but when i load my own images eveythiung bunches up in the top left of the screen and does nothing, i'm a little confused

*Edit*
Nevermind I think I got it

Windows 7 64 bit, AMD Phenom II x4 Black edition, 4 GB Ram, Radeon HD 4650, 540 GB HDD

I can see from your smile, you're not here for the sunset.

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / can you help with scrolling inventory

Attachments

Attachments