Trading Program - DBPro - GameCreators Forum

Author

Message

baconboy2

17

Years of Service

User Offline

Joined: 30th Jul 2007

Location: Liverpool, UK

Posted: 12th Dec 2008 22:45

Link

Hello all! I'm still a but id a newcomer when it comes to DBPro

Ive been trying, for a few weeks, to program a simple trading system, one similar to the ones you see in most RPGs nowadays. Ive got nowhere so far...

What I am trying to do is create a system where I buy something from the sellers inventory for a specific amount of currency, then have it added to my inventory.

I intend to develop this further, but for now, I want to start with this.

As far as I know, i need to be using lots of variables.

Cheers all!

Back to top

Profile PM Email Website

DsarchyUK

15

Years of Service

User Offline

Joined: 21st Nov 2008

Location: UK

Posted: 12th Dec 2008 23:21

Link

I think your getting a little ahead of yourself. Correct me if I'm wrong but I think you need to take a few steps back.

You need to understand the following (as in like the back of your hand):
+ Variables

+ Arrays.
Both Typed and Multidimensional.
Getting data into an array as well as out.

+ Data types.
What's the difference between and real and an integer, when to use either and why? Converting data from strings for example.

Once you know these things building a simple inventory system shouldn't be too much off a problem. You need a Typed array to store all you Items.

Assuming your array is called

Item(MaxItems)

Your Type might look something like this:

+ Code Snippet

Type MyItems
ItemID as integer
ItemName as string
ItemValue as Integer
ItemDescription as String
ItemOwned as Integer
EndType

So for example "A Woolly Hat" would look like the following

+ Code Snippet

Item(0).ItemID = 1
Item(0).ItemName = "A Woolly Hat"
Item(0).ItemValue = 200
Item(0).ItemDescription = "Warm but itchy"
Item(0).ItemOwned = 0

You can then reference the Item using the ItemID in your code. And set the value of "Item(0).ItemOwned" to 1 when you buy it from a NPC.

You can then have a subroutine to check the array from Items with ItemOwned as 1+ and update your Players menu.
Need more Items then increase the ItemOwned Value.

You may want a .MaxItem field so for example you can only buy 5 mega elixirs at once.

Back to top

Profile PM Website

baconboy2

17

Years of Service

User Offline

Joined: 30th Jul 2007

Location: Liverpool, UK

Posted: 14th Dec 2008 12:09

Link

Ok, I now know about variables, which i actually quite easy
I'm still a bit rusty on arrays, although I do understand its concept. The tutorial by Sixty Squares is good, but marginally confusing, to say the least!

I sort of understand your example, though I'm failing to understand how I would implement that into code.

To be honest, I have no idea how/where to even begin!

Back to top

Profile PM Email Website

baconboy2

17

Years of Service

User Offline

Joined: 30th Jul 2007

Location: Liverpool, UK

Posted: 14th Dec 2008 18:50

Link

Here's what Ive got so far.

+ Code Snippet

`Project Merchant Trader
`The aim of this program is to create a mercantile trading system
         `The system will be affected by economic factors, such as supply, demand and elasticity


function SetupProgram()
sync on
sync rate 60
autocam off
set window on
set window size 800,600
set window title "Project Merchant Trader"
endfunction

function LoadMedia()
set dir "Media"
load image "Textures\user_interface.dds", 1
make object cube 1,10
sprite 1,0,0,1
size sprite 1,800,600
endfunction

function TypedArrays
   Item(1).ItemID = 1
   Item(1).ItemName = "A Woolly Hat"
   Item(1).ItemValue = 200
   Item(1).ItemDescription = "Will keep your head warm!"
   Item(1).ItemOwned = 0
   endfunction

SetupProgram(1)

LoadMedia(1)
Typed Arrays(1)


wait key

end

Now i dont really know how to proceed...

Cheers all for any help

Back to top

Profile PM Email Website

Phantom 2590

17

Years of Service

User Offline

Joined: 19th Apr 2007

Location: Earth...

Posted: 15th Dec 2008 01:23 Edited at: 15th Dec 2008 01:43

Link

Until someone who understands it better comes a long to help I'll at least let you know some stuff I saw.
-I think its good practice to put your functions at the very end underneath all your code.
-You don't need the 1 inside the parameters to your functions since you don't need to send any information to the function.
-You actually need to put the typed array stuff into an array...
You need to declare an array for your items. Then put the information into the array for Item 1, Item 2, and so on. You also need to to declare you own type like the example DsarchyUK gave for "MyItems".

+ Code Snippet

Type MyItems
ItemID as integer
ItemName as string
ItemValue as Integer
ItemDescription as String
ItemOwned as Integer
EndType

So lets say you would have a max of 20 items in your whole game. You would declare an array

+ Code Snippet

Dim Item(20) as MyItems

Or 19 if your going to start at 0 like DsarchyUK example. But, the code you have starts at 1.
Then you would add information in to the Items array with the second example DsarchyUK gave.

+ Code Snippet

Item(1).ItemID = 1
Item(1).ItemName = "A Woolly Hat"
Item(1).ItemValue = 200
Item(1).ItemDescription = "Warm but itchy"
Item(1).ItemOwned = 0

I used 1 as the starting position in the array to go along with what you had.

Again I don't have a very good understanding of this so don't take what I say as set in stone. Maybe you can work on what I said until someone comes and and can help and explain better.

I was therefore I can be.

Back to top

Profile PM Email

baconboy2

17

Years of Service

User Offline

Joined: 30th Jul 2007

Location: Liverpool, UK

Posted: 15th Dec 2008 01:36

Link

Ok, i'll take a proper look at that later, when I get some more time. Its 00.30 in the UK now, and im in need of my beauty sleep

Cheers Phantom

Back to top

Profile PM Email Website

Phantom 2590

17

Years of Service

User Offline

Joined: 19th Apr 2007

Location: Earth...

Posted: 15th Dec 2008 01:40 Edited at: 15th Dec 2008 02:36

Link

Alrighty then

Good night!

And here's an example code I wrote so you can see what I mean visually.

+ Code Snippet

Type MyItems
ItemID as integer
ItemName as string
ItemValue as Integer
ItemDescription as String
ItemOwned as Integer
EndType

Dim Items(20) as MyItems

Items(1).ItemID = 1
Items(1).ItemName = "Woolly Hat"
Items(1).ItemValue = 200
Items(1).ItemDescription = "Warm but itchy"
Items(1).ItemOwned = 0

Print "Press up to obtain a Wooly Hat"
Do
If upkey() = 1
   cls
   Items(1).ItemOwned = 1
   Print "You've obtained a ",Items(1).ItemName
   Print Items(1).ItemDescription
Endif
Sync
Loop

Here's my question though. Obviously not aimed at you but anyone else that can help. What would be the best method to have the Item ID name description and such for all the items he wants. Would you you just keep going with

+ Code Snippet

Items(2).ItemID = 2
Items(2).ItemName = "Wooden Shielf"
Items(2).ItemValue = 200
Items(2).ItemDescription = "Low Protection"
Items(2).ItemOwned = 0

and so on and keep adding that to the code and just make a huge list. Or can you put it into a different file or something. I tried using another .dba or .txt file to have the item list but it didn't work. Seems to me if you could put it into a different file it would make it easier to edit any item you wish.

I was therefore I can be.

Back to top

Profile PM Email

baconboy2

17

Years of Service

User Offline

Joined: 30th Jul 2007

Location: Liverpool, UK

Posted: 15th Dec 2008 12:03

Link

Well, the beauty sleep went well!

Thanks for the code, its really helpful.
Just a few questions on how to implement that kind of idea into my code.
-For some reason, ive started getting an error message (Attached)
-Is this the correct kinda thing to be going along with ?

`Project Merchant Trader
`The aim of this program is to create a mercantile trading system
         `The system will be affected by economic factors, such as supply, demand and elasticity

SetupProgram()
LoadMedia()
TypedArrays()

function SetupProgram()
sync on
sync rate 60
autocam off
set window on
set window size 800,600
set window title "Project Merchant Trader"
endfunction

function LoadMedia()
set dir "Media"
load image "Textures\user_interface.dds", 1
make object cube 1,10
sprite 1,0,0,1
size sprite 1,800,600)
endfunction

function Type MyItems
ItemID as integer
ItemName as string
ItemValue as Integer
ItemDescription as String
ItemOwned as Integer
EndType

Dim Items(20) as MyItems

Items(1).ItemID = 1
Items(1).ItemName = "Wooly Hat"
Items(1).ItemValue = 200
Items(1).ItemDescription = "Warm but itchy"
Items(1).ItemOwned = 0

Items(2).ItemID = 2
Items(2).ItemName = "Wooden Shelf"
Items(2).ItemValue = 200
Items(2).ItemDescription = "Good for storing things"
Items(2).ItemOwned = 0

endfunction

Endif
Sync
Loop

+ Code Snippet

`Project Merchant Trader
`The aim of this program is to create a mercantile trading system
         `The system will be affected by economic factors, such as supply, demand and elasticity

SetupProgram()
LoadMedia()
TypedArrays()



function SetupProgram()
sync on
sync rate 60
autocam off
set window on
set window size 800,600
set window title "Project Merchant Trader"
endfunction

function LoadMedia()
set dir "Media"
load image "Textures\user_interface.dds", 1
make object cube 1,10
sprite 1,0,0,1
size sprite 1,800,600)
endfunction

function Type MyItems
ItemID as integer
ItemName as string
ItemValue as Integer
ItemDescription as String
ItemOwned as Integer
EndType

Dim Items(20) as MyItems

Items(1).ItemID = 1
Items(1).ItemName = "Wooly Hat"
Items(1).ItemValue = 200
Items(1).ItemDescription = "Warm but itchy"
Items(1).ItemOwned = 0

Items(2).ItemID = 2
Items(2).ItemName = "Wooden Shelf"
Items(2).ItemValue = 200
Items(2).ItemDescription = "Good for storing things"
Items(2).ItemOwned = 0


endfunction

Endif
Sync
Loop

-Correct me if I'm wrong, but Phantom's idea with the .txt file storage sounds good. It seems organised, which is what Im looking for right now, so everything doesn't become a mess!

Cheers all

Attachments

Login to view attachments

Back to top

Profile PM Email Website

Pillarofire

20

Years of Service

User Offline

Joined: 31st Dec 2003

Location: Good Question, <looks around.>

Posted: 15th Dec 2008 14:37 Edited at: 15th Dec 2008 15:59

Link

Your ideas are on the right track. It won't be long before you have it down. Here is some code that should be helpful, my suggestions are within.

EDIT: I commented out some of the code that I didn't have the media for.

Rem Project: Mercantile
Rem Created: 12/15/2008 10:09:34 PM

Type MyItems
  ItemID as integer
  ItemName as string
  ItemValue as float
  ItemDescription as String
  `ItemOwned as Integer     Not really necessary... IMHO
EndType

Rem ***** Main Source File *****

` Declare them global, so that every function can have access to them,
`  However this may be redundant, because if I recall correctly arrays are already global.
global dim InventoryItems(0) as MyItems
global dim ShopItems(0) as MyItems

SetupProgram()
LoadMedia()
`TypedArrays()
`Instead of calling a function to declare our type, we can simply do it before we begin ^ up top ^

AddItemToShop( 1, "Crowbar", 13.00, "A useful tool" )
AddItemToShop( 2, "Hammock", 19.99, "Sleep well tonight" )

` A DO LOOP will continue indefinetly, or until an EXIT is reached
do
` Here is where we can add control to our program

`For every cycle of our loop, we want to show what the shop has.
  PrintShopItems()

` For supply and demand, this is where you implement your 'logic' or what determines what you can do.

if Win=1 or escapekey()=1 then exit

` Draw the scene!!!
  sync
loop
` Here we end the program
end

` Everything after this line is for the Compiler to deal with when the time comes,
`  We want it below the main portion of our program.

function SetupProgram()
  sync on
  sync rate 60
  autocam off
  set window on
  set window size 800,600
  set window title "Project Merchant Trader"
endfunction

function LoadMedia()
  `set dir "Media"
  `load image "Texturesuser_interface.dds", 1
  make object cube 1,10
  `sprite 1,0,0,1
  `size sprite 1,800,600
endfunction

function PrintShopItems()
  ` Make sure the text is white
  ink rgb(255,255,255), 0
  ` A FOR LOOP will parse the array and allow us to perform actions on each item inside.
  for i = 0 to array count( ShopItems(0))
    text 20, 20 + 15*i, ShopItems(i).ItemName
  next i
endfunction

function AddItemToShop( ItemID as integer, ItemName as string, ItemValue as float, ItemDescription as string )
  ` This will dynamically create a new, blank slot in the array we give it
  array insert at bottom ShopItems(0)
  ` This will store the amount of items in the array, consequently the last item too
  ac = array count( ShopItems(0) )
  ` From here on we store our information into the array that we passed in through the
  `  function parameters.
  ShopItems(ac).ItemID = ItemID
  ShopItems(ac).ItemName = ItemNAme
  ShopItems(ac).ItemValue = ItemValue
  ShopItems(ac).ItemDescription = ItemDescription
endfunction

function AddItemToInventory( ItemID as integer, ItemName as string, ItemValue as float, ItemDescription as string )
  ` This will dynamically create a new, blank slot in the array we give it
  array insert at bottom InventoryItems(0)
  ` This will store the amount of items in the array, consequently the last item too
  ac = array count( InventoryItems(0) )
  ` From here on we store our information into the array that we passed in through the
  `  function parameters.
  InventoryItems(ac).ItemID = ItemID
  InventoryItems(ac).ItemName = ItemNAme
  InventoryItems(ac).ItemValue = ItemValue
  InventoryItems(ac).ItemDescription = ItemDescription
endfunction

+ Code Snippet


Rem Project: Mercantile
Rem Created: 12/15/2008 10:09:34 PM

Type MyItems
  ItemID as integer
  ItemName as string
  ItemValue as float
  ItemDescription as String
  `ItemOwned as Integer     Not really necessary... IMHO
EndType

Rem ***** Main Source File *****

` Declare them global, so that every function can have access to them,
`  However this may be redundant, because if I recall correctly arrays are already global.
global dim InventoryItems(0) as MyItems
global dim ShopItems(0) as MyItems

SetupProgram()
LoadMedia()
`TypedArrays()
`Instead of calling a function to declare our type, we can simply do it before we begin ^ up top ^


AddItemToShop( 1, "Crowbar", 13.00, "A useful tool" )
AddItemToShop( 2, "Hammock", 19.99, "Sleep well tonight" )

` A DO LOOP will continue indefinetly, or until an EXIT is reached
do
` Here is where we can add control to our program


  `For every cycle of our loop, we want to show what the shop has.
  PrintShopItems()

  ` For supply and demand, this is where you implement your 'logic' or what determines what you can do.


  if Win=1 or escapekey()=1 then exit

  ` Draw the scene!!!
  sync
loop
` Here we end the program
end

` Everything after this line is for the Compiler to deal with when the time comes,
`  We want it below the main portion of our program.

function SetupProgram()
  sync on
  sync rate 60
  autocam off
  set window on
  set window size 800,600
  set window title "Project Merchant Trader"
endfunction

function LoadMedia()
  `set dir "Media"
  `load image "Texturesuser_interface.dds", 1
  make object cube 1,10
  `sprite 1,0,0,1
  `size sprite 1,800,600
endfunction

function PrintShopItems()
  ` Make sure the text is white
  ink rgb(255,255,255), 0
  ` A FOR LOOP will parse the array and allow us to perform actions on each item inside.
  for i = 0 to array count( ShopItems(0))
    text 20, 20 + 15*i, ShopItems(i).ItemName
  next i
endfunction

function AddItemToShop( ItemID as integer, ItemName as string, ItemValue as float, ItemDescription as string )
  ` This will dynamically create a new, blank slot in the array we give it
  array insert at bottom ShopItems(0)
  ` This will store the amount of items in the array, consequently the last item too
  ac = array count( ShopItems(0) )
  ` From here on we store our information into the array that we passed in through the
  `  function parameters.
  ShopItems(ac).ItemID = ItemID
  ShopItems(ac).ItemName = ItemNAme
  ShopItems(ac).ItemValue = ItemValue
  ShopItems(ac).ItemDescription = ItemDescription
endfunction

function AddItemToInventory( ItemID as integer, ItemName as string, ItemValue as float, ItemDescription as string )
  ` This will dynamically create a new, blank slot in the array we give it
  array insert at bottom InventoryItems(0)
  ` This will store the amount of items in the array, consequently the last item too
  ac = array count( InventoryItems(0) )
  ` From here on we store our information into the array that we passed in through the
  `  function parameters.
  InventoryItems(ac).ItemID = ItemID
  InventoryItems(ac).ItemName = ItemNAme
  InventoryItems(ac).ItemValue = ItemValue
  InventoryItems(ac).ItemDescription = ItemDescription
endfunction

Back to top

Profile PM Website

Phantom 2590

17

Years of Service

User Offline

Joined: 19th Apr 2007

Location: Earth...

Posted: 15th Dec 2008 17:03 Edited at: 15th Dec 2008 17:04

Link

wow Pillarofire I never thought of doing the adding through a function that makes it so much easier and cleaner. and arrays are indeed global if you declare them outside of the function

I was therefore I can be.

Back to top

Profile PM Email

Pillarofire

20

Years of Service

User Offline

Joined: 31st Dec 2003

Location: Good Question, <looks around.>

Posted: 15th Dec 2008 22:40

Link

You can delete individual items from arrays by using ARRAY DELETE ELEMENT. You should write a function that will add the same item to the Inventory, and delete it from the Shop.

Just use the ItemID, parse the array with a FOR LOOP, and when you find the element with the ItemID that you want to trade, store that element and exit the FOR LOOP. Then use that element that you stored to retrieve the information for that item, Use the addItem() for the parameters for Inventory, and then remove it from the Shop.

Back to top

Profile PM Website

baconboy2

17

Years of Service

User Offline

Joined: 30th Jul 2007

Location: Liverpool, UK

Posted: 15th Dec 2008 23:43

Link

With the code snippet you just gave, what I get is the two items, printed on the screen. I'm assuming that this is what is meant to happen, and that is it, or am I missing something.

I do apologise for the snail-like pace, its just that I'm struggling to keep up with you professionals!

Cheers lads

Back to top

Profile PM Email Website

Phantom 2590

17

Years of Service

User Offline

Joined: 19th Apr 2007

Location: Earth...

Posted: 16th Dec 2008 03:13

Link

Yeah its just printing to screen what is in the shop. It's meant as an example to show you how a trade system would work and how to put the items in an array so you can manipulate it when needed. You should change the code or implement it how you want into your code.

I was therefore I can be.

Back to top

Profile PM Email

Pillarofire

20

Years of Service

User Offline

Joined: 31st Dec 2003

Location: Good Question, <looks around.>

Posted: 16th Dec 2008 03:49

Link

Yes, baconboy2, you and Phantom 2590 have got it. It was meant as an example to inspire you to think on your own. Don't worry about being "snail-like" I was there once too. That's why I'm here to help.

Back to top

Profile PM Website

baconboy2

17

Years of Service

User Offline

Joined: 30th Jul 2007

Location: Liverpool, UK

Posted: 16th Dec 2008 19:54

Link

Right, so how would I go about implementing what you've just said into a workable program?

Here's what I have at the moment, though I'm kinda confused how I would now go about expanding it. To be honest, this is the absolute limit of my knowledge. I'm more of a 3d, rpg programmer, albeit with little knowledge of that either!

`Project Merchant Trader
`The aim of this program is to create a mercantile trading system
         `The system will be affected by economic factors, such as supply, demand and elasticity

SetupProgram()
LoadMedia()
TypedArrays()

function SetupProgram()
sync on
sync rate 60
autocam off
set window on
set window size 800,600
set window title "Project Merchant Trader"
endfunction

function LoadMedia()
set dir "Media"
load image "Textures\user_interface.dds", 1
make object cube 1,10
sprite 1,0,0,1
size sprite 1,800,600
endfunction

function Type MyItems
ItemID as integer
ItemName as string
ItemValue as Integer
ItemDescription as String
ItemOwned as Integer
EndType

Dim Items(20) as MyItems

Items(1).ItemID = 1
Items(1).ItemName = "Crowbar"
Items(1).ItemImage = "Textures\crowbar.bmp"
Items(1).ItemValue = 200
Items(1).ItemDescription = "Simple, yet effective"
Items(1).ItemOwned = 0

Items(2).ItemID = 2
Items(2).ItemName = "Bread"
Items(2).ItemImage = "Textures\bread.bmp
Items(2).ItemValue = 20
Items(2).ItemDescription = "Fills your stomach"
Items(2).ItemOwned = 0

endfunction

Endif
Sync
Loop

+ Code Snippet

`Project Merchant Trader
`The aim of this program is to create a mercantile trading system
         `The system will be affected by economic factors, such as supply, demand and elasticity

SetupProgram()
LoadMedia()
TypedArrays()



function SetupProgram()
sync on
sync rate 60
autocam off
set window on
set window size 800,600
set window title "Project Merchant Trader"
endfunction

function LoadMedia()
set dir "Media"
load image "Textures\user_interface.dds", 1
make object cube 1,10
sprite 1,0,0,1
size sprite 1,800,600
endfunction

function Type MyItems
ItemID as integer
ItemName as string
ItemValue as Integer
ItemDescription as String
ItemOwned as Integer
EndType

Dim Items(20) as MyItems

Items(1).ItemID = 1
Items(1).ItemName = "Crowbar"
Items(1).ItemImage = "Textures\crowbar.bmp"
Items(1).ItemValue = 200
Items(1).ItemDescription = "Simple, yet effective"
Items(1).ItemOwned = 0

Items(2).ItemID = 2
Items(2).ItemName = "Bread"
Items(2).ItemImage = "Textures\bread.bmp
Items(2).ItemValue = 20
Items(2).ItemDescription = "Fills your stomach"
Items(2).ItemOwned = 0


endfunction

Endif
Sync
Loop

Cheers

Back to top

Profile PM Email Website

Phantom 2590

17

Years of Service

User Offline

Joined: 19th Apr 2007

Location: Earth...

Posted: 16th Dec 2008 22:47

Link

What kind of game are you trying to create. Or do you just want a merchant simulation type of thing.

I was therefore I can be.

Back to top

Profile PM Email

baconboy2

17

Years of Service

User Offline

Joined: 30th Jul 2007

Location: Liverpool, UK

Posted: 16th Dec 2008 23:50

Link

At the moment, I want to try and create a merchant simulation 'type of thing'.
I guess I could put it into a game, but the sole purpose is eductional/simulation.

I'm actually an AS Level Economics student (For you Americans, AS Level is a grade year in the British eduction system, similar to High School in the US I believe) I intend to apply my economical knowledge whilst creating this system/simulation.

In the future, when I have grasped more of an understanding of this, I hope that it can be implemented into other people's games, as a sort of template for an advanced economic system, say for use in online games, virtual worlds and so on.
Thats my dream, so to speak.

Back to top

Profile PM Email Website

Phantom 2590

17

Years of Service

User Offline

Joined: 19th Apr 2007

Location: Earth...

Posted: 17th Dec 2008 00:00 Edited at: 17th Dec 2008 00:06

Link

You need to declare the type in your program. You can't just set the array as the type without declaring it first.
Something like this.

+ Code Snippet

Type MyItems
ItemID as integer
ItemName as string
ItemValue as Integer
ItemDescription as String
ItemOwned as Integer
EndType

And why don't you use the function Pillarofire had for adding items to the shop. Instead of typing all those out for every item.

What's the texture you keep loading into your code?

I was therefore I can be.

Back to top

Profile PM Email

baconboy2

17

Years of Service

User Offline

Joined: 30th Jul 2007

Location: Liverpool, UK

Posted: 17th Dec 2008 11:08

Link

The texture, which I have now decided to remove, was just a background for the program. It was nicked from another game, and was the inventory window.
There were some resizing issues, as it was absolutley huge!

Back to top

Profile PM Email Website

baconboy2

17

Years of Service

User Offline

Joined: 30th Jul 2007

Location: Liverpool, UK

Posted: 17th Dec 2008 11:09

Link

Sorry for the double post, btw.

Ive just been adding a few things to the code so far, and I want to add an image for each item in the shop. This is what I've done.
(You may need images for the crowbar and the bread btw)

`Project Merchant Trader
`The aim of this program is to create a mercantile trading system
         `The system will be affected by economic factors, such as supply, demand and elasticity

Type MyItems
  ItemID as integer
  ItemName as string
  ItemImage as String
  ItemValue as float
  ItemDescription as String
  `ItemOwned as Integer     Not really necessary... IMHO
EndType

`*******************Main Source File*************************

global dim InventoryItems(0) as MyItems
  global dim ShopItems(0) as MyItems

SetupProgram()
  LoadMedia()

AddItemToShop( 1, "Crowbar", "Textures\crowbar.bmp", 13.00, "Simple, yet effective" )
  AddItemToShop( 2, "Bread", "Textures\bread.bmp", 19.99, "Fills your stomach" )

do
  PrintShopItems()
  LoadItemImage()

sync
loop
end

function SetupProgram()
  sync on
  sync rate 60
  autocam off
  set window on
  set window size 800,600
  set window title "Project Merchant Trader"
  endfunction

function LoadMedia()
  set dir "Media"
  endfunction

function PrintShopItems()
  ink rgb(255,255,255), 0
  for i = 0 to array count( ShopItems(0))
  text 20, 20 + 15*i, ShopItems(i).ItemName
  next i
endfunction

function LoadItemImage()
  load image ShopItems(im).ItemImage
  next im

function AddItemToShop( ItemID as integer, ItemName as string, ItemImage as string, ItemValue as float, ItemDescription as string )
  array insert at bottom ShopItems(0)
  ac = array count( ShopItems(0) )
  ShopItems(ac).ItemID = ItemID
  ShopItems(ac).ItemName = ItemName
  ShopItems(ac).ItemImage = ItemImage
  ShopItems(ac).ItemValue = ItemValue
  ShopItems(ac).ItemDescription = ItemDescription
endfunction

function AddItemToInventory( ItemID as integer, ItemName as string, ItemImage as string, ItemValue as float, ItemDescription as string )
  array insert at bottom InventoryItems(0)
  ac = array count( InventoryItems(0) )
  InventoryItems(ac).ItemID = ItemID
  InventoryItems(ac).ItemName = ItemName
  InventoryItems(ac).ItemImage = ItemImage
  InventoryItems(ac).ItemValue = ItemValue
  InventoryItems(ac).ItemDescription = ItemDescription
endfunction

+ Code Snippet

`Project Merchant Trader
`The aim of this program is to create a mercantile trading system
         `The system will be affected by economic factors, such as supply, demand and elasticity

Type MyItems
  ItemID as integer
  ItemName as string
  ItemImage as String
  ItemValue as float
  ItemDescription as String
  `ItemOwned as Integer     Not really necessary... IMHO
EndType


`*******************Main Source File*************************

  global dim InventoryItems(0) as MyItems
  global dim ShopItems(0) as MyItems


  SetupProgram()
  LoadMedia()

  AddItemToShop( 1, "Crowbar", "Textures\crowbar.bmp", 13.00, "Simple, yet effective" )
  AddItemToShop( 2, "Bread", "Textures\bread.bmp", 19.99, "Fills your stomach" )

do
  PrintShopItems()
  LoadItemImage()

  sync
loop
end

function SetupProgram()
  sync on
  sync rate 60
  autocam off
  set window on
  set window size 800,600
  set window title "Project Merchant Trader"
  endfunction

function LoadMedia()
  set dir "Media"
  endfunction

function PrintShopItems()
  ink rgb(255,255,255), 0
  for i = 0 to array count( ShopItems(0))
  text 20, 20 + 15*i, ShopItems(i).ItemName
  next i
endfunction

function LoadItemImage()
  load image ShopItems(im).ItemImage
  next im


function AddItemToShop( ItemID as integer, ItemName as string, ItemImage as string, ItemValue as float, ItemDescription as string )
  array insert at bottom ShopItems(0)
  ac = array count( ShopItems(0) )
  ShopItems(ac).ItemID = ItemID
  ShopItems(ac).ItemName = ItemName
  ShopItems(ac).ItemImage = ItemImage
  ShopItems(ac).ItemValue = ItemValue
  ShopItems(ac).ItemDescription = ItemDescription
endfunction

function AddItemToInventory( ItemID as integer, ItemName as string, ItemImage as string, ItemValue as float, ItemDescription as string )
  array insert at bottom InventoryItems(0)
  ac = array count( InventoryItems(0) )
  InventoryItems(ac).ItemID = ItemID
  InventoryItems(ac).ItemName = ItemName
  InventoryItems(ac).ItemImage = ItemImage
  InventoryItems(ac).ItemValue = ItemValue
  InventoryItems(ac).ItemDescription = ItemDescription
endfunction

Cheers lads

Back to top

Profile PM Email Website

Pillarofire

20

Years of Service

User Offline

Joined: 31st Dec 2003

Location: Good Question, <looks around.>

Posted: 17th Dec 2008 12:22

Link

I see you started on a function to Load each of the images for the items.

It is always a good idea to have the help files handy. Check the syntax for a FOR NEXT statement.

Back to top

Profile PM Website

baconboy2

17

Years of Service

User Offline

Joined: 30th Jul 2007

Location: Liverpool, UK

Posted: 17th Dec 2008 13:26

Link

Well, the bit I'm worried about is that fact that when I try to run the program, an error appears for

+ Code Snippet

AddItemToShop( 1, "Crowbar", "Textures\crowbar.bmp", 13.00, "Simple, yet effective" )

Saying that the command could not be understood. Is that related to the load image function, by any chance?

Back to top

Profile PM Email Website

Pillarofire

20

Years of Service

User Offline

Joined: 31st Dec 2003

Location: Good Question, <looks around.>

Posted: 17th Dec 2008 13:57

Link

Possibly, are you compiling the code you posted before? Can you copy the entire code you're trying to compile so I can determine that?

Back to top

Profile PM Website

baconboy2

17

Years of Service

User Offline

Joined: 30th Jul 2007

Location: Liverpool, UK

Posted: 17th Dec 2008 14:10

Link

`Project Merchant Trader
`The aim of this program is to create a mercantile trading system
         `The system will be affected by economic factors, such as supply, demand and elasticity

Type MyItems
  ItemID as integer
  ItemName as string
  ItemImage as String
  ItemValue as float
  ItemDescription as String
  `ItemOwned as Integer     Not really necessary... IMHO
EndType

`*******************Main Source File*************************

global dim InventoryItems(0) as MyItems
  global dim ShopItems(0) as MyItems

SetupProgram()
  LoadMedia()

AddItemToShop( 1, "Crowbar", "Textures\crowbar.bmp", 13.00, "Simple, yet effective" )
  AddItemToShop( 2, "Bread", "Textures\bread.bmp", 19.99, "Fills your stomach" )

do
  PrintShopItems()
  LoadItemImage()

sync
loop
end

function SetupProgram()
  sync on
  sync rate 60
  autocam off
  set window on
  set window size 800,600
  set window title "Project Merchant Trader"
  endfunction

function LoadMedia()
  set dir "Media"
  endfunction

function PrintShopItems()
  ink rgb(255,255,255), 0
  for i = 0 to array count( ShopItems(0))
  text 20, 20 + 15*i, ShopItems(i).ItemName
  next i
endfunction

function LoadItemImage()
  load image ShopItems(im).ItemImage
  next im

function AddItemToShop( ItemID as integer, ItemName as string, ItemImage as string, ItemValue as float, ItemDescription as string )
  array insert at bottom ShopItems(0)
  ac = array count( ShopItems(0) )
  ShopItems(ac).ItemID = ItemID
  ShopItems(ac).ItemName = ItemName
  ShopItems(ac).ItemImage = ItemImage
  ShopItems(ac).ItemValue = ItemValue
  ShopItems(ac).ItemDescription = ItemDescription
endfunction

function AddItemToInventory( ItemID as integer, ItemName as string, ItemImage as string, ItemValue as float, ItemDescription as string )
  array insert at bottom InventoryItems(0)
  ac = array count( InventoryItems(0) )
  InventoryItems(ac).ItemID = ItemID
  InventoryItems(ac).ItemName = ItemName
  InventoryItems(ac).ItemImage = ItemImage
  InventoryItems(ac).ItemValue = ItemValue
  InventoryItems(ac).ItemDescription = ItemDescription
endfunction

+ Code Snippet

`Project Merchant Trader
`The aim of this program is to create a mercantile trading system
         `The system will be affected by economic factors, such as supply, demand and elasticity

Type MyItems
  ItemID as integer
  ItemName as string
  ItemImage as String
  ItemValue as float
  ItemDescription as String
  `ItemOwned as Integer     Not really necessary... IMHO
EndType


`*******************Main Source File*************************

  global dim InventoryItems(0) as MyItems
  global dim ShopItems(0) as MyItems


  SetupProgram()
  LoadMedia()

  AddItemToShop( 1, "Crowbar", "Textures\crowbar.bmp", 13.00, "Simple, yet effective" )
  AddItemToShop( 2, "Bread", "Textures\bread.bmp", 19.99, "Fills your stomach" )

do
  PrintShopItems()
  LoadItemImage()

  sync
loop
end

function SetupProgram()
  sync on
  sync rate 60
  autocam off
  set window on
  set window size 800,600
  set window title "Project Merchant Trader"
  endfunction

function LoadMedia()
  set dir "Media"
  endfunction

function PrintShopItems()
  ink rgb(255,255,255), 0
  for i = 0 to array count( ShopItems(0))
  text 20, 20 + 15*i, ShopItems(i).ItemName
  next i
endfunction

function LoadItemImage()
  load image ShopItems(im).ItemImage
  next im


function AddItemToShop( ItemID as integer, ItemName as string, ItemImage as string, ItemValue as float, ItemDescription as string )
  array insert at bottom ShopItems(0)
  ac = array count( ShopItems(0) )
  ShopItems(ac).ItemID = ItemID
  ShopItems(ac).ItemName = ItemName
  ShopItems(ac).ItemImage = ItemImage
  ShopItems(ac).ItemValue = ItemValue
  ShopItems(ac).ItemDescription = ItemDescription
endfunction

function AddItemToInventory( ItemID as integer, ItemName as string, ItemImage as string, ItemValue as float, ItemDescription as string )
  array insert at bottom InventoryItems(0)
  ac = array count( InventoryItems(0) )
  InventoryItems(ac).ItemID = ItemID
  InventoryItems(ac).ItemName = ItemName
  InventoryItems(ac).ItemImage = ItemImage
  InventoryItems(ac).ItemValue = ItemValue
  InventoryItems(ac).ItemDescription = ItemDescription
endfunction

Back to top

Profile PM Email Website

Pillarofire

20

Years of Service

User Offline

Joined: 31st Dec 2003

Location: Good Question, <looks around.>

Posted: 17th Dec 2008 14:18 Edited at: 17th Dec 2008 14:27

Link

+ Code Snippet


  function LoadItemImage()
  load image ShopItems(im).ItemImage
  next im

This is causing the error.

Change it to this:

+ Code Snippet

  function LoadItemImage()
    ac = array count( ShopItems(0) ) :` Add this
    for im = 0 to ac                 :` Add this
      load image ShopItems(im).ItemImage
    next im
  endfunction                        :` Add this

The incomplete function is the problem.

EDIT:
First, You get another problem, the LOAD IMAGE command needs two parameters.

Second, you really don't want to load an image every cycle of the loop. You only need to load it once, if you want to draw it, you use PASTE IMAGE. This brings up the point that you should store the ImageID in your Item Type, so that when you want to paste it you can pass the PASTE IMAGE command the ImageID.

Back to top

Profile PM Website

Pillarofire

20

Years of Service

User Offline

Joined: 31st Dec 2003

Location: Good Question, <looks around.>

Posted: 17th Dec 2008 15:16

Link

Here it is all fixed up with some extras.

Type MyItems
  ItemID as integer
  ItemName as string
  ItemImage as integer
  ItemValue as float
  ItemDescription as String
  `ItemOwned as Integer     Not really necessary... IMHO
EndType

`*******************Main Source File*************************

global dim InventoryItems(0) as MyItems
  global dim ShopItems(0) as MyItems

#constant IMG_CROWBAR 1
  #constant IMG_BREAD 2

SetupProgram()
  LoadMedia()

AddItemToShop( 1, "Crowbar", IMG_CROWBAR, 13.00, "Simple, yet effective" )
  AddItemToShop( 2, "Bread", IMG_BREAD, 19.99, "Fills your stomach" )

do
  cls
  ` Draw the Items at 32 pixels per picture. change it to the picture size of your items.
  Item = ShowShopItems( 32 )
  if Item <> -1
    ink rgb(255,0,128), 0
    text mousex()+16, mousey(), ShopItems(Item).ItemName + "  Price: " + str$( ShopItems(Item).ItemValue )
  endif

sync
loop
end

function SetupProgram()
  sync on
  sync rate 60
  autocam off
  set window on
  set window size 800,600
  set window title "Project Merchant Trader"
endfunction

function LoadMedia()
  `set dir "Media"
  if file exist("Media\Textures\crowbar.bmp") then load image "Media\Textures\crowbar.bmp", IMG_CROWBAR
  if file exist("Media\Textures\bread.bmp") then load image "Media\Textures\bread.bmp", IMG_BREAD
endfunction

function PrintShopItems()
  ink rgb(255,255,255), 0
  for i = 0 to array count( ShopItems(0))
  text 20, 20 + 15*i, ShopItems(i).ItemName
  next i
endfunction

`This function will display all the items in the list and return the ItemID of the Item the mouse is over.
function ShowShopItems( TileSize as integer )
  ` Set the initial value for the return variable. -1 means nothing is selected.
  ovr = -1
  ac = array count( ShopItems(0) )
  for im = 1 to ac
    i = ShopItems(im).ItemImage
    x = 100 + TileSize
    y = 20  + (TileSize + 2) * im
    ` If the mouse is over this item
    if mousex() > x and mousex() < x + TileSize and mousey() > y and mousey() < y + TileSize
      ovr = ShopItems(im).ItemID
    endif
    ` If the image is loaded, show it here, otherwise draw a white box.
    if image exist(i)
      paste image i, x, y, 1
     else
      ink rgb(255,255,255), 0
      box x, y, x + TileSize, y + TileSize
    endif
  next im
endfunction ovr

function AddItemToShop( ItemID as integer, ItemName as string, ItemImage as integer, ItemValue as float, ItemDescription as string )
  array insert at bottom ShopItems(0)
  ac = array count( ShopItems(0) )
  ShopItems(ac).ItemID = ItemID
  ShopItems(ac).ItemName = ItemName
  ShopItems(ac).ItemImage = ItemImage
  ShopItems(ac).ItemValue = ItemValue
  ShopItems(ac).ItemDescription = ItemDescription
endfunction

function AddItemToInventory( ItemID as integer, ItemName as string, ItemImage as integer, ItemValue as float, ItemDescription as string )
  array insert at bottom InventoryItems(0)
  ac = array count( InventoryItems(0) )
  InventoryItems(ac).ItemID = ItemID
  InventoryItems(ac).ItemName = ItemName
  InventoryItems(ac).ItemImage = ItemImage
  InventoryItems(ac).ItemValue = ItemValue
  InventoryItems(ac).ItemDescription = ItemDescription
endfunction

+ Code Snippet

Type MyItems
  ItemID as integer
  ItemName as string
  ItemImage as integer
  ItemValue as float
  ItemDescription as String
  `ItemOwned as Integer     Not really necessary... IMHO
EndType


`*******************Main Source File*************************

  global dim InventoryItems(0) as MyItems
  global dim ShopItems(0) as MyItems

  #constant IMG_CROWBAR 1
  #constant IMG_BREAD 2


  SetupProgram()
  LoadMedia()

  AddItemToShop( 1, "Crowbar", IMG_CROWBAR, 13.00, "Simple, yet effective" )
  AddItemToShop( 2, "Bread", IMG_BREAD, 19.99, "Fills your stomach" )



do
  cls
  ` Draw the Items at 32 pixels per picture. change it to the picture size of your items.
  Item = ShowShopItems( 32 )
  if Item <> -1
    ink rgb(255,0,128), 0
    text mousex()+16, mousey(), ShopItems(Item).ItemName + "  Price: " + str$( ShopItems(Item).ItemValue )
  endif

  sync
loop
end

function SetupProgram()
  sync on
  sync rate 60
  autocam off
  set window on
  set window size 800,600
  set window title "Project Merchant Trader"
endfunction

function LoadMedia()
  `set dir "Media"
  if file exist("Media\Textures\crowbar.bmp") then load image "Media\Textures\crowbar.bmp", IMG_CROWBAR
  if file exist("Media\Textures\bread.bmp") then load image "Media\Textures\bread.bmp", IMG_BREAD
endfunction

function PrintShopItems()
  ink rgb(255,255,255), 0
  for i = 0 to array count( ShopItems(0))
  text 20, 20 + 15*i, ShopItems(i).ItemName
  next i
endfunction

`This function will display all the items in the list and return the ItemID of the Item the mouse is over.
function ShowShopItems( TileSize as integer )
  ` Set the initial value for the return variable. -1 means nothing is selected.
  ovr = -1
  ac = array count( ShopItems(0) )
  for im = 1 to ac
    i = ShopItems(im).ItemImage
    x = 100 + TileSize
    y = 20  + (TileSize + 2) * im
    ` If the mouse is over this item
    if mousex() > x and mousex() < x + TileSize and mousey() > y and mousey() < y + TileSize
      ovr = ShopItems(im).ItemID
    endif
    ` If the image is loaded, show it here, otherwise draw a white box.
    if image exist(i)
      paste image i, x, y, 1
     else
      ink rgb(255,255,255), 0
      box x, y, x + TileSize, y + TileSize
    endif
  next im
endfunction ovr


function AddItemToShop( ItemID as integer, ItemName as string, ItemImage as integer, ItemValue as float, ItemDescription as string )
  array insert at bottom ShopItems(0)
  ac = array count( ShopItems(0) )
  ShopItems(ac).ItemID = ItemID
  ShopItems(ac).ItemName = ItemName
  ShopItems(ac).ItemImage = ItemImage
  ShopItems(ac).ItemValue = ItemValue
  ShopItems(ac).ItemDescription = ItemDescription
endfunction

function AddItemToInventory( ItemID as integer, ItemName as string, ItemImage as integer, ItemValue as float, ItemDescription as string )
  array insert at bottom InventoryItems(0)
  ac = array count( InventoryItems(0) )
  InventoryItems(ac).ItemID = ItemID
  InventoryItems(ac).ItemName = ItemName
  InventoryItems(ac).ItemImage = ItemImage
  InventoryItems(ac).ItemValue = ItemValue
  InventoryItems(ac).ItemDescription = ItemDescription
endfunction

Back to top

Profile PM Website

baconboy2

17

Years of Service

User Offline

Joined: 30th Jul 2007

Location: Liverpool, UK

Posted: 17th Dec 2008 15:54

Link

Wow, that seems pretty complicated, cheers!

Having looked at the code, I see that if there is no image present, then a small white box will appear. Thats all fine and dandy, but when there is an image present, its bloody huge!
How do I resize the images into the little tile area?

Back to top

Profile PM Email Website

Pillarofire

20

Years of Service

User Offline

Joined: 31st Dec 2003

Location: Good Question, <looks around.>

Posted: 18th Dec 2008 01:00

Link

Well first of all, it would be a good design consideration to use only images of all the same dimensions. Second that the dimensions are something moderate; I usually use 32, or 64. And third, that the images are squares. If you really can't do that however, there are other alternatives. Unfortunately there are no native commands (that I know of) for resizing 'Images' directly, so you would have to paste the image to a bitmap, resize the bitmap and then grab the image. Or, and I favor this option, you can use sprites.

A sprite is a rectangular 3D plane, textured with an image, and placed so that the plane is perpendicular to the camera at all times. (actually locked to the screen) So instead of dealing with 3D coordinates, you use 2D to place a sprite.

The method for using a sprite is this:

1. Load an image for the sprite: LOAD IMAGE FileName$, ImageNumber
2. Make a sprite from the image: SPRITE SpriteNumber, Xpos, Ypos, ImageNumber

This is simple, the image will be loaded, and displayed on the screen with the upper-left corner at Xpos, Ypos in screen coordinates(y increases as you go down the screen).

Now that there is a sprite, resizing is no longer a chore as there is a nifty command: SIZE SPRITE SpriteNumber, XSize, YSize

If we want our sprite to be 64px X 64px, then we use 64 for XSize and YSize, obviously.

See if you can write the code to make the program use sprites instead of images. Remember: at any time you have a question, first use the F1 key (help), if you still can't figure it out don't be afraid to ask me.

Cheers.

Back to top

Profile PM Website

Sorry your browser is not supported!

Newcomers DBPro Corner / Trading Program - DBPro

Attachments