another attempt at a shop script

Author

Message

Honkeyboy

3D Media Maker

8

Years of Service

User Offline

Joined: 16th Sep 2015

Location: Doesnt know half the time ;)

Profile

Posted: 23rd May 2021 14:00 Edited at: 23rd May 2021 19:21

Link

ok having a day off mapping and trying to get my scripting head on i have written a selling shop script now which works ok so far, well the very basics of one but for some reason the buying shop will not buy the first item "berries" works for the second but not the first so I'm confused can anyone point out why please? ( please bare with me as this is only the first draft )

this one seems to work ok.

g_berriescollected=0
g_fiberscollected=0
g_watercollected=0
g_woodcollected=0
g_corncollected=0
g_meatcollected=0
g_mushroomscollected=0
g_featherscollected=0
g_fishcaught=0
g_trufflescollected=0
g_spicecollected=0

g_RPG_Gold=0
pressed = 0
  
  
function food_shop_selling_a_init(e)

end
  
function food_shop_selling_a_main(e)
   
   
 PlayerDX = g_Entity[e]['x'] - g_PlayerPosX;
   
 PlayerDY = g_Entity[e]['y'] - g_PlayerPosY;
   
 PlayerDZ = g_Entity[e]['z'] - g_PlayerPosZ;
   
 PlayerDist = math.sqrt(math.abs(PlayerDX*PlayerDX)+math.abs(PlayerDY*PlayerDY)+math.abs(PlayerDZ*PlayerDZ));
 	if PlayerDist < 100 then
	Text(43,2,1,"This Shop Sells Foods",3000)
	
	        --What the shop sells--
	
    Text(1,7,1," Berries sell for 3 gold press 1 to buy")
	Text(1,10,1," Fibers sell for 5 gold press 2 to buy")
	Text(1,13,1," Water sells for 7 gold press 3 to buy")
	Text(1,16,1," Wood sells for 8 gold press 4 to buy")
	Text(1,19,1," Corn sells for 2 gold press 5 to buy")
	Text(1,22,1," Meat sells for 10 gold press 6 to buy")
	Text(1,25,1," Mushrooms sell for 3 gold press 7 to buy")
	Text(1,28,1," Feathers sell for 6 gold press 8 to buy")
	Text(1,31,1," Fish sells for 8 gold press 9 to buy")
	Text(1,34,1," Truffles sell for 26 gold press 0 to buy")
	Text(1,37,1," Spices sell for 28 gold press - to buy")
	
	      -- player inventory amounts--
		  
	Text(90,6,1,"You have")
	Text(90,9,1,g_berriescollected.." Berries")
	Text(90,12,1,g_fiberscollected.." Fibers")
	Text(90,15,1,g_watercollected.." Water ")
	Text(90,18,1,g_woodcollected.." Wood ")
	Text(90,21,1,g_corncollected.." Corn ")
	Text(90,24,1,g_meatcollected.." Meat ")
	Text(90,27,1,g_mushroomscollected.." Mushrooms ")
	Text(90,30,1,g_featherscollected.." Feathers ")
	Text(90,33,1,g_fishcaught.." Fish ")
	Text(90,36,1,g_trufflescollected.." Truffles ")
	Text(90,39,1,g_spicecollected.." Spices ")

Text(46,95,1,g_RPG_Gold.." Gold")
	
end

if GetScancode() == 2 and pressed == 0 then
  if g_RPG_Gold >= 3 then
    g_RPG_Gold = g_RPG_Gold - 3
    g_berriescollected = g_berriescollected + 1
end	
elseif GetScancode() == 3 and pressed == 0 then
  if g_RPG_Gold >= 5 then
    g_RPG_Gold = g_RPG_Gold - 5
    g_fiberscollected = g_fiberscollected + 1	
end    
     pressed = 1
else
     pressed = 0
  end
end

+ Code Snippet

g_berriescollected=0
g_fiberscollected=0
g_watercollected=0
g_woodcollected=0
g_corncollected=0
g_meatcollected=0
g_mushroomscollected=0
g_featherscollected=0
g_fishcaught=0
g_trufflescollected=0
g_spicecollected=0

g_RPG_Gold=0
pressed = 0
  
  
function food_shop_selling_a_init(e)

end
  
function food_shop_selling_a_main(e)
   
   
 PlayerDX = g_Entity[e]['x'] - g_PlayerPosX;
   
 PlayerDY = g_Entity[e]['y'] - g_PlayerPosY;
   
 PlayerDZ = g_Entity[e]['z'] - g_PlayerPosZ;
   
 PlayerDist = math.sqrt(math.abs(PlayerDX*PlayerDX)+math.abs(PlayerDY*PlayerDY)+math.abs(PlayerDZ*PlayerDZ));
 	if PlayerDist < 100 then
	Text(43,2,1,"This Shop Sells Foods",3000)
	
	        --What the shop sells--
	
    Text(1,7,1," Berries sell for 3 gold press 1 to buy")
	Text(1,10,1," Fibers sell for 5 gold press 2 to buy")
	Text(1,13,1," Water sells for 7 gold press 3 to buy")
	Text(1,16,1," Wood sells for 8 gold press 4 to buy")
	Text(1,19,1," Corn sells for 2 gold press 5 to buy")
	Text(1,22,1," Meat sells for 10 gold press 6 to buy")
	Text(1,25,1," Mushrooms sell for 3 gold press 7 to buy")
	Text(1,28,1," Feathers sell for 6 gold press 8 to buy")
	Text(1,31,1," Fish sells for 8 gold press 9 to buy")
	Text(1,34,1," Truffles sell for 26 gold press 0 to buy")
	Text(1,37,1," Spices sell for 28 gold press - to buy")
	
	      -- player inventory amounts--
		  
	Text(90,6,1,"You have")
	Text(90,9,1,g_berriescollected.." Berries")
	Text(90,12,1,g_fiberscollected.." Fibers")
	Text(90,15,1,g_watercollected.." Water ")
	Text(90,18,1,g_woodcollected.." Wood ")
	Text(90,21,1,g_corncollected.." Corn ")
	Text(90,24,1,g_meatcollected.." Meat ")
	Text(90,27,1,g_mushroomscollected.." Mushrooms ")
	Text(90,30,1,g_featherscollected.." Feathers ")
	Text(90,33,1,g_fishcaught.." Fish ")
	Text(90,36,1,g_trufflescollected.." Truffles ")
	Text(90,39,1,g_spicecollected.." Spices ")

	Text(46,95,1,g_RPG_Gold.." Gold")
	
end     

if GetScancode() == 2 and pressed == 0 then
  if g_RPG_Gold >= 3 then
    g_RPG_Gold = g_RPG_Gold - 3
    g_berriescollected = g_berriescollected + 1
end	
elseif GetScancode() == 3 and pressed == 0 then
  if g_RPG_Gold >= 5 then
    g_RPG_Gold = g_RPG_Gold - 5
    g_fiberscollected = g_fiberscollected + 1	
end    
     pressed = 1
else
     pressed = 0
  end
end

this one doesn't sell the first item to the player

g_berriescollected=0
g_fiberscollected=0
g_watercollected=0
g_woodcollected=0
g_corncollected=0
g_meatcollected=0
g_mushroomscollected=0
g_featherscollected=0
g_fishcaught=0
g_trufflescollected=0
g_spicecollected=0

g_RPG_Gold=0
pressed = 0
  
  
function food_shop_buying_a_init(e)

end
  
function food_shop_buying_a_main(e)
   
   
 PlayerDX = g_Entity[e]['x'] - g_PlayerPosX;
   
 PlayerDY = g_Entity[e]['y'] - g_PlayerPosY;
   
 PlayerDZ = g_Entity[e]['z'] - g_PlayerPosZ;
   
 PlayerDist = math.sqrt(math.abs(PlayerDX*PlayerDX)+math.abs(PlayerDY*PlayerDY)+math.abs(PlayerDZ*PlayerDZ));
 	if PlayerDist < 100 then
	Text(43,2,1,"This Shop Buys Foods",3000)
	
	        --What the shop buys--
	
    Text(1,7,1," I buy berries for 3 gold press 1 to sell")
	Text(1,10,1," I buy Fibers for 5 gold press 2 to sell")
	Text(1,13,1," I buy Water for 7 gold press 3 to sell")
	Text(1,16,1," I buy Wood for 8 gold press 4 to sell")
	Text(1,19,1," I buy Corn for 2 gold press 5 to sell")
	Text(1,22,1," I buy Meat for 10 gold press 6 to sell")
	Text(1,25,1," I buy Mushrooms for 3 gold press 7 to sell")
	Text(1,28,1," I buy Feathers for 6 gold press 8 to sell")
	Text(1,31,1," I buy Fish for 8 gold press 9 to sell")
	Text(1,34,1," I buy Truffles for 26 gold press 0 to sell")
	Text(1,37,1," I buy Spices for 28 gold press - to sell")
	
	      -- player inventory amounts--
		  
	Text(90,6,1,"You have")
	Text(90,9,1,g_berriescollected.." Berries")
	Text(90,12,1,g_fiberscollected.." Fibers")
	Text(90,15,1,g_watercollected.." Water ")
	Text(90,18,1,g_woodcollected.." Wood ")
	Text(90,21,1,g_corncollected.." Corn ")
	Text(90,24,1,g_meatcollected.." Meat ")
	Text(90,27,1,g_mushroomscollected.." Mushrooms ")
	Text(90,30,1,g_featherscollected.." Feathers ")
	Text(90,33,1,g_fishcaught.." Fish ")
	Text(90,36,1,g_trufflescollected.." Truffles ")
	Text(90,39,1,g_spicecollected.." Spices ")

Text(46,95,1,g_RPG_Gold.." Gold")
	
end

if GetScancode() == 2 and pressed == 0 then
  if g_berriescollected >= 1 then
    g_RPG_Gold = g_RPG_Gold + 3
    g_berriescollected = g_berriescollected - 1
end	
elseif GetScancode() == 3 and pressed == 0 then
  if g_fiberscollected >= 1 then
    g_RPG_Gold = g_RPG_Gold + 5
    g_fiberscollected = g_fiberscollected - 1	
end    
     pressed = 1
else
     pressed = 0
  end
end

+ Code Snippet

g_berriescollected=0
g_fiberscollected=0
g_watercollected=0
g_woodcollected=0
g_corncollected=0
g_meatcollected=0
g_mushroomscollected=0
g_featherscollected=0
g_fishcaught=0
g_trufflescollected=0
g_spicecollected=0

g_RPG_Gold=0
pressed = 0
  
  
function food_shop_buying_a_init(e)

end
  
function food_shop_buying_a_main(e)
   
   
 PlayerDX = g_Entity[e]['x'] - g_PlayerPosX;
   
 PlayerDY = g_Entity[e]['y'] - g_PlayerPosY;
   
 PlayerDZ = g_Entity[e]['z'] - g_PlayerPosZ;
   
 PlayerDist = math.sqrt(math.abs(PlayerDX*PlayerDX)+math.abs(PlayerDY*PlayerDY)+math.abs(PlayerDZ*PlayerDZ));
 	if PlayerDist < 100 then
	Text(43,2,1,"This Shop Buys Foods",3000)
	
	        --What the shop buys--
	
    Text(1,7,1," I buy berries for 3 gold press 1 to sell")
	Text(1,10,1," I buy Fibers for 5 gold press 2 to sell")
	Text(1,13,1," I buy Water for 7 gold press 3 to sell")
	Text(1,16,1," I buy Wood for 8 gold press 4 to sell")
	Text(1,19,1," I buy Corn for 2 gold press 5 to sell")
	Text(1,22,1," I buy Meat for 10 gold press 6 to sell")
	Text(1,25,1," I buy Mushrooms for 3 gold press 7 to sell")
	Text(1,28,1," I buy Feathers for 6 gold press 8 to sell")
	Text(1,31,1," I buy Fish for 8 gold press 9 to sell")
	Text(1,34,1," I buy Truffles for 26 gold press 0 to sell")
	Text(1,37,1," I buy Spices for 28 gold press - to sell")
	
	      -- player inventory amounts--
		  
	Text(90,6,1,"You have")
	Text(90,9,1,g_berriescollected.." Berries")
	Text(90,12,1,g_fiberscollected.." Fibers")
	Text(90,15,1,g_watercollected.." Water ")
	Text(90,18,1,g_woodcollected.." Wood ")
	Text(90,21,1,g_corncollected.." Corn ")
	Text(90,24,1,g_meatcollected.." Meat ")
	Text(90,27,1,g_mushroomscollected.." Mushrooms ")
	Text(90,30,1,g_featherscollected.." Feathers ")
	Text(90,33,1,g_fishcaught.." Fish ")
	Text(90,36,1,g_trufflescollected.." Truffles ")
	Text(90,39,1,g_spicecollected.." Spices ")

	Text(46,95,1,g_RPG_Gold.." Gold")
	
end     

if GetScancode() == 2 and pressed == 0 then
  if g_berriescollected >= 1 then
    g_RPG_Gold = g_RPG_Gold + 3
    g_berriescollected = g_berriescollected - 1
end	
elseif GetScancode() == 3 and pressed == 0 then
  if g_fiberscollected >= 1 then
    g_RPG_Gold = g_RPG_Gold + 5
    g_fiberscollected = g_fiberscollected - 1	
end    
     pressed = 1
else
     pressed = 0
  end
end

Edit: ahh spodded it forgot to delete the last couple of lines ..... I'll just blame that on the second covid jab giving my head a beating lol

Edit 2: I've found that for some reason if i use the same scancode keys in both the buying and selling shop scripts they don't work if i use different ones they do, do i need to add a condition or something? weird that the scripts interfere with each other in that way or is it just me being braindead again?

Intel i5 4950 Quad core 3.3ghz AMD FX 6300 x6 cores 3.5ghz(unclocked)
8gb Ram 8gb Ram
XFX R5 2gb AMD Radeon HD 6670 2gb
and a well fed mouse on a wheel

I only smile because i have absolutely no idea whats going on

PM Website

GubbyBlips

5

Years of Service

User Offline

Joined: 14th Jan 2019

Location:

Profile

Posted: 23rd May 2021 19:38

Link

Hey there.
Yeah, always set a
pressed = 1
directly after your if GetScancode() =

Also alterior (predominate / above) to any if statement (ran every frame)
needs a;
if g_Scancode == 0 then pressed = 0 end

PM

GubbyBlips

5

Years of Service

User Offline

Joined: 14th Jan 2019

Location:

Profile

Posted: 23rd May 2021 19:50

Link

Funny you should bring up Covid- which I had way, way early first week of 2020. It put me out for 3+ weeks, but since then and probably being passive all this year, my concentration seems to have diminished. LOL
So I was working on "shop" scripts, but what's difficult in doing so for other people would be to know exactly what vision the other person has. What will it look like, what location on screen and so forth they intend to use. They seem to be a project specific script that would be different for each user. Let me look at them again and see where I left off.

PM

Honkeyboy

3D Media Maker

8

Years of Service

User Offline

Joined: 16th Sep 2015

Location: Doesnt know half the time ;)

Profile

Posted: 23rd May 2021 20:16 Edited at: 23rd May 2021 20:22

Link

Oh right got you yes m8 they are project specific project is here.
https://forum.game-guru.com/thread/220833
p.s the new build is all on the second half of page 2 as i had to rebuild it all AGAIN! lol
It's based on a story/aurora module I wrote years ago for NWN about Giants hence the title

but in GG I have made it bigger so you now have professions one of which is a trader so basically you can travel to different continents and buy/sell goods for profit and experience up till master trader. Check the WIP m8 you'll get an idea of where I'm going

Intel i5 4950 Quad core 3.3ghz AMD FX 6300 x6 cores 3.5ghz(unclocked)
8gb Ram 8gb Ram
XFX R5 2gb AMD Radeon HD 6670 2gb
and a well fed mouse on a wheel

I only smile because i have absolutely no idea whats going on

PM Website

Honkeyboy

3D Media Maker

8

Years of Service

User Offline

Joined: 16th Sep 2015

Location: Doesnt know half the time ;)

Profile

Posted: 25th May 2021 16:14 Edited at: 25th May 2021 16:24

Link

well i now have the two shops working each selling or buying 10 items both set up atm with the same selling/buying values to be later set up to make a small profit depending how you work it. ( I think I've asked about the button press before but havent found it in my older posts yet

)

The buying shop

g_berriescollected=0
g_fiberscollected=0
g_watercollected=0
g_woodcollected=0
g_corncollected=0
g_meatcollected=0
g_mushroomscollected=0
g_featherscollected=0
g_fishcaught=0
g_trufflescollected=0
g_spicecollected=0
 
g_RPG_Gold=0
pressed = 0
   
   
function food_shop_buying_a_init(e)
 
end
   
function food_shop_buying_a_main(e)
    
    
 PlayerDX = g_Entity[e]['x'] - g_PlayerPosX;
    
 PlayerDY = g_Entity[e]['y'] - g_PlayerPosY;
    
 PlayerDZ = g_Entity[e]['z'] - g_PlayerPosZ;
    
 PlayerDist = math.sqrt(math.abs(PlayerDX*PlayerDX)+math.abs(PlayerDY*PlayerDY)+math.abs(PlayerDZ*PlayerDZ));
    if PlayerDist < 100 then
    Text(43,2,1,"This Shop Buys Foods",3000)
     
            --What the shop buys--
     
    Text(1,7,1," I buy berries for 3 gold press 1 to sell")
    Text(1,10,1," I buy Fibers for 5 gold press 2 to sell")
    Text(1,13,1," I buy Water for 7 gold press 3 to sell")
    Text(1,16,1," I buy Wood for 8 gold press 4 to sell")
    Text(1,19,1," I buy Corn for 2 gold press 5 to sell")
    Text(1,22,1," I buy Meat for 10 gold press 6 to sell")
    Text(1,25,1," I buy Mushrooms for 3 gold press 7 to sell")
    Text(1,28,1," I buy Feathers for 6 gold press 8 to sell")
    Text(1,31,1," I buy Fish for 8 gold press 9 to sell")
    Text(1,34,1," I buy Truffles for 26 gold press 0 to sell")
    Text(1,37,1," I buy Spices for 28 gold press - to sell")
     
          -- player inventory amounts--
           
    Text(90,6,1,"You have")
    Text(90,9,1,g_berriescollected.." Berries")
    Text(90,12,1,g_fiberscollected.." Fibers")
    Text(90,15,1,g_watercollected.." Water ")
    Text(90,18,1,g_woodcollected.." Wood ")
    Text(90,21,1,g_corncollected.." Corn ")
    Text(90,24,1,g_meatcollected.." Meat ")
    Text(90,27,1,g_mushroomscollected.." Mushrooms ")
    Text(90,30,1,g_featherscollected.." Feathers ")
    Text(90,33,1,g_fishcaught.." Fish ")
    Text(90,36,1,g_trufflescollected.." Truffles ")
    Text(90,39,1,g_spicecollected.." Spices ")
 
    Text(46,95,1,g_RPG_Gold.." Gold")
     
end

-- Keypress.. remove items and add gold--

if g_Scancode == 0 then pressed = 0 end
    if GetScancode() == 2 and pressed == 0 and g_berriescollected >= 1 then  
    g_RPG_Gold = g_RPG_Gold + 3
    g_berriescollected = g_berriescollected - 1
	pressed = 1
elseif GetScancode() == 3 and pressed == 0 and g_fiberscollected >= 1 then 
    g_RPG_Gold = g_RPG_Gold + 5
    g_fiberscollected = g_fiberscollected - 1      
    pressed = 1
elseif GetScancode() == 4 and pressed == 0 and g_watercollected >= 1 then 
    g_RPG_Gold = g_RPG_Gold + 7
    g_watercollected = g_watercollected - 1      
    pressed = 1
elseif GetScancode() == 5 and pressed == 0 and g_woodcollected >= 1 then 
    g_RPG_Gold = g_RPG_Gold + 8
    g_woodcollected = g_woodcollected - 1      
    pressed = 1
elseif GetScancode() == 6 and pressed == 0 and g_corncollected >= 1 then 
    g_RPG_Gold = g_RPG_Gold + 2
    g_corncollected = g_corncollected - 1      
    pressed = 1
elseif GetScancode() == 7 and pressed == 0 and g_meatcollected >= 1 then 
    g_RPG_Gold = g_RPG_Gold + 10
    g_meatcollected = g_meatcollected - 1
elseif GetScancode() == 8 and pressed == 0 and g_mushroomscollected >= 1 then 
    g_RPG_Gold = g_RPG_Gold + 3
    g_mushroomscollected = g_mushroomscollected - 1	
elseif GetScancode() == 9 and pressed == 0 and g_featherscollected >= 1 then 
    g_RPG_Gold = g_RPG_Gold + 6
    g_featherscollected = g_featherscollected - 1
elseif GetScancode() == 10 and pressed == 0 and g_fishcaught >= 1 then 
    g_RPG_Gold = g_RPG_Gold + 8
    g_fishcaught = g_fishcaught - 1	
elseif GetScancode() == 11 and pressed == 0 and g_trufflescollected >= 1 then 
    g_RPG_Gold = g_RPG_Gold + 26
    g_trufflescollected = g_trufflescollected - 1
elseif GetScancode() == 12 and pressed == 0 and g_spicecollected >= 1 then 
    g_RPG_Gold = g_RPG_Gold + 26
    g_spicecollected = g_spicecollected - 1	
end
end

+ Code Snippet

g_berriescollected=0
g_fiberscollected=0
g_watercollected=0
g_woodcollected=0
g_corncollected=0
g_meatcollected=0
g_mushroomscollected=0
g_featherscollected=0
g_fishcaught=0
g_trufflescollected=0
g_spicecollected=0
 
g_RPG_Gold=0
pressed = 0
   
   
function food_shop_buying_a_init(e)
 
end
   
function food_shop_buying_a_main(e)
    
    
 PlayerDX = g_Entity[e]['x'] - g_PlayerPosX;
    
 PlayerDY = g_Entity[e]['y'] - g_PlayerPosY;
    
 PlayerDZ = g_Entity[e]['z'] - g_PlayerPosZ;
    
 PlayerDist = math.sqrt(math.abs(PlayerDX*PlayerDX)+math.abs(PlayerDY*PlayerDY)+math.abs(PlayerDZ*PlayerDZ));
    if PlayerDist < 100 then
    Text(43,2,1,"This Shop Buys Foods",3000)
     
            --What the shop buys--
     
    Text(1,7,1," I buy berries for 3 gold press 1 to sell")
    Text(1,10,1," I buy Fibers for 5 gold press 2 to sell")
    Text(1,13,1," I buy Water for 7 gold press 3 to sell")
    Text(1,16,1," I buy Wood for 8 gold press 4 to sell")
    Text(1,19,1," I buy Corn for 2 gold press 5 to sell")
    Text(1,22,1," I buy Meat for 10 gold press 6 to sell")
    Text(1,25,1," I buy Mushrooms for 3 gold press 7 to sell")
    Text(1,28,1," I buy Feathers for 6 gold press 8 to sell")
    Text(1,31,1," I buy Fish for 8 gold press 9 to sell")
    Text(1,34,1," I buy Truffles for 26 gold press 0 to sell")
    Text(1,37,1," I buy Spices for 28 gold press - to sell")
     
          -- player inventory amounts--
           
    Text(90,6,1,"You have")
    Text(90,9,1,g_berriescollected.." Berries")
    Text(90,12,1,g_fiberscollected.." Fibers")
    Text(90,15,1,g_watercollected.." Water ")
    Text(90,18,1,g_woodcollected.." Wood ")
    Text(90,21,1,g_corncollected.." Corn ")
    Text(90,24,1,g_meatcollected.." Meat ")
    Text(90,27,1,g_mushroomscollected.." Mushrooms ")
    Text(90,30,1,g_featherscollected.." Feathers ")
    Text(90,33,1,g_fishcaught.." Fish ")
    Text(90,36,1,g_trufflescollected.." Truffles ")
    Text(90,39,1,g_spicecollected.." Spices ")
 
    Text(46,95,1,g_RPG_Gold.." Gold")
     
end    

-- Keypress.. remove items and add gold--

    if g_Scancode == 0 then pressed = 0 end
    if GetScancode() == 2 and pressed == 0 and g_berriescollected >= 1 then  
    g_RPG_Gold = g_RPG_Gold + 3
    g_berriescollected = g_berriescollected - 1
	pressed = 1
elseif GetScancode() == 3 and pressed == 0 and g_fiberscollected >= 1 then 
    g_RPG_Gold = g_RPG_Gold + 5
    g_fiberscollected = g_fiberscollected - 1      
    pressed = 1
elseif GetScancode() == 4 and pressed == 0 and g_watercollected >= 1 then 
    g_RPG_Gold = g_RPG_Gold + 7
    g_watercollected = g_watercollected - 1      
    pressed = 1
elseif GetScancode() == 5 and pressed == 0 and g_woodcollected >= 1 then 
    g_RPG_Gold = g_RPG_Gold + 8
    g_woodcollected = g_woodcollected - 1      
    pressed = 1
elseif GetScancode() == 6 and pressed == 0 and g_corncollected >= 1 then 
    g_RPG_Gold = g_RPG_Gold + 2
    g_corncollected = g_corncollected - 1      
    pressed = 1
elseif GetScancode() == 7 and pressed == 0 and g_meatcollected >= 1 then 
    g_RPG_Gold = g_RPG_Gold + 10
    g_meatcollected = g_meatcollected - 1
elseif GetScancode() == 8 and pressed == 0 and g_mushroomscollected >= 1 then 
    g_RPG_Gold = g_RPG_Gold + 3
    g_mushroomscollected = g_mushroomscollected - 1	
elseif GetScancode() == 9 and pressed == 0 and g_featherscollected >= 1 then 
    g_RPG_Gold = g_RPG_Gold + 6
    g_featherscollected = g_featherscollected - 1
elseif GetScancode() == 10 and pressed == 0 and g_fishcaught >= 1 then 
    g_RPG_Gold = g_RPG_Gold + 8
    g_fishcaught = g_fishcaught - 1	
elseif GetScancode() == 11 and pressed == 0 and g_trufflescollected >= 1 then 
    g_RPG_Gold = g_RPG_Gold + 26
    g_trufflescollected = g_trufflescollected - 1
elseif GetScancode() == 12 and pressed == 0 and g_spicecollected >= 1 then 
    g_RPG_Gold = g_RPG_Gold + 26
    g_spicecollected = g_spicecollected - 1	
end
end

The Selling Shop

g_berriescollected=0
g_fiberscollected=0
g_watercollected=0
g_woodcollected=0
g_corncollected=0
g_meatcollected=0
g_mushroomscollected=0
g_featherscollected=0
g_fishcaught=0
g_trufflescollected=0
g_spicecollected=0

g_RPG_Gold=0
pressed = 0
  
  
function food_shop_selling_a_init(e)

end
  
function food_shop_selling_a_main(e)
   
   
 PlayerDX = g_Entity[e]['x'] - g_PlayerPosX;
   
 PlayerDY = g_Entity[e]['y'] - g_PlayerPosY;
   
 PlayerDZ = g_Entity[e]['z'] - g_PlayerPosZ;
   
 PlayerDist = math.sqrt(math.abs(PlayerDX*PlayerDX)+math.abs(PlayerDY*PlayerDY)+math.abs(PlayerDZ*PlayerDZ));
 	if PlayerDist < 100 then
	Text(43,2,1,"This Shop Sells Foods",3000)
	
	        --What the shop sells--
	
    Text(1,7,1," Berries sell for 3 gold press numpad 1 to buy")
	Text(1,10,1," Fibers sell for 5 gold press 2 to buy")
	Text(1,13,1," Water sells for 7 gold press 3 to buy")
	Text(1,16,1," Wood sells for 8 gold press 4 to buy")
	Text(1,19,1," Corn sells for 2 gold press 5 to buy")
	Text(1,22,1," Meat sells for 10 gold press 6 to buy")
	Text(1,25,1," Mushrooms sell for 3 gold press 7 to buy")
	Text(1,28,1," Feathers sell for 6 gold press 8 to buy")
	Text(1,31,1," Fish sells for 8 gold press 9 to buy")
	Text(1,34,1," Truffles sell for 26 gold press / to buy")
	Text(1,37,1," Spices sell for 28 gold press * to buy")
	
	      -- player inventory amounts--
		  
	Text(90,6,1,"You have")
	Text(90,9,1,g_berriescollected.." Berries")
	Text(90,12,1,g_fiberscollected.." Fibers")
	Text(90,15,1,g_watercollected.." Water ")
	Text(90,18,1,g_woodcollected.." Wood ")
	Text(90,21,1,g_corncollected.." Corn ")
	Text(90,24,1,g_meatcollected.." Meat ")
	Text(90,27,1,g_mushroomscollected.." Mushrooms ")
	Text(90,30,1,g_featherscollected.." Feathers ")
	Text(90,33,1,g_fishcaught.." Fish ")
	Text(90,36,1,g_trufflescollected.." Truffles ")
	Text(90,39,1,g_spicecollected.." Spices ")

Text(46,95,1,g_RPG_Gold.." Gold")
	
end     
-- Keypress.. remove gold and add items --
    if GetScancode() == 79 and pressed == 0 and g_RPG_Gold >= 3 then  
    g_RPG_Gold = g_RPG_Gold - 3
    g_berriescollected = g_berriescollected + 1
elseif GetScancode() == 80 and pressed == 0 and g_RPG_Gold >= 5 then 
    g_RPG_Gold = g_RPG_Gold - 5
    g_fiberscollected = g_fiberscollected + 1
elseif GetScancode() == 81 and pressed == 0 and g_RPG_Gold >= 7 then 
    g_RPG_Gold = g_RPG_Gold - 7
    g_watercollected = g_watercollected + 1
elseif GetScancode() == 75 and pressed == 0 and g_RPG_Gold >= 8 then 
    g_RPG_Gold = g_RPG_Gold - 8
    g_woodcollected = g_woodcollected + 1
elseif GetScancode() == 76 and pressed == 0 and g_RPG_Gold >= 2 then 
    g_RPG_Gold = g_RPG_Gold - 2
    g_corncollected = g_corncollected + 1
elseif GetScancode() == 77 and pressed == 0 and g_RPG_Gold >= 10 then 
    g_RPG_Gold = g_RPG_Gold - 10
    g_meatcollected = g_meatcollected + 1
elseif GetScancode() == 71 and pressed == 0 and g_RPG_Gold >= 3 then 
    g_RPG_Gold = g_RPG_Gold - 3
    g_mushroomscollected = g_mushroomscollected + 1	
elseif GetScancode() == 72 and pressed == 0 and g_RPG_Gold >= 6 then 
    g_RPG_Gold = g_RPG_Gold - 6
    g_featherscollected = g_featherscollected + 1
elseif GetScancode() == 73 and pressed == 0 and g_RPG_Gold >= 8 then 
    g_RPG_Gold = g_RPG_Gold - 8
    g_fishcaught = g_fishcaught + 1	
elseif GetScancode() == 181 and pressed == 0 and g_RPG_Gold >= 26 then 
    g_RPG_Gold = g_RPG_Gold - 26
    g_trufflescollected = g_trufflescollected + 1
elseif GetScancode() == 55 and pressed == 0 and g_RPG_Gold >= 28 then 
    g_RPG_Gold = g_RPG_Gold - 28
    g_spicecollected = g_spicecollected + 1	
end
end

+ Code Snippet

g_berriescollected=0
g_fiberscollected=0
g_watercollected=0
g_woodcollected=0
g_corncollected=0
g_meatcollected=0
g_mushroomscollected=0
g_featherscollected=0
g_fishcaught=0
g_trufflescollected=0
g_spicecollected=0

g_RPG_Gold=0
pressed = 0
  
  
function food_shop_selling_a_init(e)

end
  
function food_shop_selling_a_main(e)
   
   
 PlayerDX = g_Entity[e]['x'] - g_PlayerPosX;
   
 PlayerDY = g_Entity[e]['y'] - g_PlayerPosY;
   
 PlayerDZ = g_Entity[e]['z'] - g_PlayerPosZ;
   
 PlayerDist = math.sqrt(math.abs(PlayerDX*PlayerDX)+math.abs(PlayerDY*PlayerDY)+math.abs(PlayerDZ*PlayerDZ));
 	if PlayerDist < 100 then
	Text(43,2,1,"This Shop Sells Foods",3000)
	
	        --What the shop sells--
	
    Text(1,7,1," Berries sell for 3 gold press numpad 1 to buy")
	Text(1,10,1," Fibers sell for 5 gold press 2 to buy")
	Text(1,13,1," Water sells for 7 gold press 3 to buy")
	Text(1,16,1," Wood sells for 8 gold press 4 to buy")
	Text(1,19,1," Corn sells for 2 gold press 5 to buy")
	Text(1,22,1," Meat sells for 10 gold press 6 to buy")
	Text(1,25,1," Mushrooms sell for 3 gold press 7 to buy")
	Text(1,28,1," Feathers sell for 6 gold press 8 to buy")
	Text(1,31,1," Fish sells for 8 gold press 9 to buy")
	Text(1,34,1," Truffles sell for 26 gold press / to buy")
	Text(1,37,1," Spices sell for 28 gold press * to buy")
	
	      -- player inventory amounts--
		  
	Text(90,6,1,"You have")
	Text(90,9,1,g_berriescollected.." Berries")
	Text(90,12,1,g_fiberscollected.." Fibers")
	Text(90,15,1,g_watercollected.." Water ")
	Text(90,18,1,g_woodcollected.." Wood ")
	Text(90,21,1,g_corncollected.." Corn ")
	Text(90,24,1,g_meatcollected.." Meat ")
	Text(90,27,1,g_mushroomscollected.." Mushrooms ")
	Text(90,30,1,g_featherscollected.." Feathers ")
	Text(90,33,1,g_fishcaught.." Fish ")
	Text(90,36,1,g_trufflescollected.." Truffles ")
	Text(90,39,1,g_spicecollected.." Spices ")

	Text(46,95,1,g_RPG_Gold.." Gold")
	
end     
-- Keypress.. remove gold and add items --
    if GetScancode() == 79 and pressed == 0 and g_RPG_Gold >= 3 then  
    g_RPG_Gold = g_RPG_Gold - 3
    g_berriescollected = g_berriescollected + 1
elseif GetScancode() == 80 and pressed == 0 and g_RPG_Gold >= 5 then 
    g_RPG_Gold = g_RPG_Gold - 5
    g_fiberscollected = g_fiberscollected + 1
elseif GetScancode() == 81 and pressed == 0 and g_RPG_Gold >= 7 then 
    g_RPG_Gold = g_RPG_Gold - 7
    g_watercollected = g_watercollected + 1
elseif GetScancode() == 75 and pressed == 0 and g_RPG_Gold >= 8 then 
    g_RPG_Gold = g_RPG_Gold - 8
    g_woodcollected = g_woodcollected + 1
elseif GetScancode() == 76 and pressed == 0 and g_RPG_Gold >= 2 then 
    g_RPG_Gold = g_RPG_Gold - 2
    g_corncollected = g_corncollected + 1
elseif GetScancode() == 77 and pressed == 0 and g_RPG_Gold >= 10 then 
    g_RPG_Gold = g_RPG_Gold - 10
    g_meatcollected = g_meatcollected + 1
elseif GetScancode() == 71 and pressed == 0 and g_RPG_Gold >= 3 then 
    g_RPG_Gold = g_RPG_Gold - 3
    g_mushroomscollected = g_mushroomscollected + 1	
elseif GetScancode() == 72 and pressed == 0 and g_RPG_Gold >= 6 then 
    g_RPG_Gold = g_RPG_Gold - 6
    g_featherscollected = g_featherscollected + 1
elseif GetScancode() == 73 and pressed == 0 and g_RPG_Gold >= 8 then 
    g_RPG_Gold = g_RPG_Gold - 8
    g_fishcaught = g_fishcaught + 1	
elseif GetScancode() == 181 and pressed == 0 and g_RPG_Gold >= 26 then 
    g_RPG_Gold = g_RPG_Gold - 26
    g_trufflescollected = g_trufflescollected + 1
elseif GetScancode() == 55 and pressed == 0 and g_RPG_Gold >= 28 then 
    g_RPG_Gold = g_RPG_Gold - 28
    g_spicecollected = g_spicecollected + 1	
end
end

Only two issues to sort out the first is that when you press a key to sell an item you sell them all or multiples at least so that needs sorting

the second for some reason when i use the same keys for both shops e.g 1-10 they dont seem to work when on the same map hence me using 1-10 for buying and number pad keys for selling. Which is kind of ok but I can see it creating problems when I introduce a new shop.
so if anyone could show me how to cure that I'd be grateful and also tell me why whatever code is needed and what it does exactly. If i get that in my head it will make it easier for me in the future
Cheers guys

Intel i5 4950 Quad core 3.3ghz AMD FX 6300 x6 cores 3.5ghz(unclocked)
8gb Ram 8gb Ram
XFX R5 2gb AMD Radeon HD 6670 2gb
and a well fed mouse on a wheel

I only smile because i have absolutely no idea whats going on

PM Website

GubbyBlips

5

Years of Service

User Offline

Joined: 14th Jan 2019

Location:

Profile

Posted: 25th May 2021 18:02

Link

Hi Honkeyboy.
Sure. Let me point out that you "just missed a spot"
maybe my directions above where too vague-- I can mumble I know.

notice that on your buying script AT THE BEGINNING you have:
pressed = 1 - - - - - PART OF THE TIME
but then it's missing for a portion of your script mid-way through the checks
------------------------------ from your script -----------------------------------------

elseif GetScancode() == 6 and pressed == 0 and g_corncollected >= 1 then
g_RPG_Gold = g_RPG_Gold + 2
g_corncollected = g_corncollected - 1
pressed = 1 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - <<<<<<<<<<<<<<<<< here it is
elseif GetScancode() == 7 and pressed == 0 and g_meatcollected >= 1 then
g_RPG_Gold = g_RPG_Gold + 10
g_meatcollected = g_meatcollected - 1
--------------- MISSING "pressed = 1" ----------------------------------------

#1 You have to place this in at every iteration when detecting the keypress from GetScancode()

#2 And then to determine when there is a pause from a key press, use this;
if GetScancode() == 0 then pressed = 0 end
Let's put that at the very beginning of your <<main script body>> ON IT'S OWN LINE so we can see it,
and it functions correctly.

((I'm not yelling, just trying to clarify the important parts to make it work right!))

PM

GubbyBlips

5

Years of Service

User Offline

Joined: 14th Jan 2019

Location:

Profile

Posted: 25th May 2021 18:11 Edited at: 25th May 2021 18:30

Link

BTW, I think every shop should work fine (after you have corrected the key press issue) when
on your map they are spaced out FURTHER THAN the GetPlayerDistance that triggers each one.
So in other words, if they are all over 100 units away from each other, there shouldn't be an
issue with them tangling up together. Try spacing them a healthy bean-bag-toss distance apart
and see if that works.
To use both scripts;
((You would need to place your buying and selling scripts on separate map objects at the same shop.))

PM

Honkeyboy

3D Media Maker

8

Years of Service

User Offline

Joined: 16th Sep 2015

Location: Doesnt know half the time ;)

Profile

Posted: 25th May 2021 18:27

Link

Thanks GB that's copy and pasting for you....

just added a little more code to open and close the shop a bit cleaner which works well

any ideas as to why i don't seem to be able to use the same keys for different shops?

g_berriescollected=0
g_fiberscollected=0
g_watercollected=0
g_woodcollected=0
g_corncollected=0
g_meatcollected=0
g_mushroomscollected=0
g_featherscollected=0
g_fishcaught=0
g_trufflescollected=0
g_spicecollected=0
 
g_RPG_Gold=0
pressed = 0
displaymode=0 
delay=0
TIME_Y = 145  
   
function food_shop_buying_a_init(e)
 
end
   
function food_shop_buying_a_main(e)
    
    
 PlayerDX = g_Entity[e]['x'] - g_PlayerPosX;
    
 PlayerDY = g_Entity[e]['y'] - g_PlayerPosY;
    
 PlayerDZ = g_Entity[e]['z'] - g_PlayerPosZ;
    
 PlayerDist = math.sqrt(math.abs(PlayerDX*PlayerDX)+math.abs(PlayerDY*PlayerDY)+math.abs(PlayerDZ*PlayerDZ));
   if PlayerDist < 100 then
   Text(43,2,1,"Press E to shop",3000)
   if GetTimer(e)>250 then
delay=0
end
   if g_KeyPressE == 1 and g_Time > BtnTime then
      BtnTime = g_Time + TIME_Y
      PlaySound(e,0)
      StartTimer(e)
   if displaymode==0 and delay==0 then
      displaymode=4
      delay=1
end
   if displaymode==4 and delay==0 then
      displaymode=0--
      delay=1
end
end

if displaymode==4 then
	  
    Text(41,5,1,"This Shop Buys Foods",3000)
     
            --What the shop buys--
     
    Text(1,7,1," I buy berries for 3 gold press 1 to sell")
    Text(1,10,1," I buy Fibers for 5 gold press 2 to sell")
    Text(1,13,1," I buy Water for 7 gold press 3 to sell")
    Text(1,16,1," I buy Wood for 8 gold press 4 to sell")
    Text(1,19,1," I buy Corn for 2 gold press 5 to sell")
    Text(1,22,1," I buy Meat for 10 gold press 6 to sell")
    Text(1,25,1," I buy Mushrooms for 3 gold press 7 to sell")
    Text(1,28,1," I buy Feathers for 6 gold press 8 to sell")
    Text(1,31,1," I buy Fish for 8 gold press 9 to sell")
    Text(1,34,1," I buy Truffles for 26 gold press 0 to sell")
    Text(1,37,1," I buy Spices for 28 gold press - to sell")
     
          -- player inventory amounts--
           
    Text(90,6,1,"You have")
    Text(90,9,1,g_berriescollected.." Berries")
    Text(90,12,1,g_fiberscollected.." Fibers")
    Text(90,15,1,g_watercollected.." Water ")
    Text(90,18,1,g_woodcollected.." Wood ")
    Text(90,21,1,g_corncollected.." Corn ")
    Text(90,24,1,g_meatcollected.." Meat ")
    Text(90,27,1,g_mushroomscollected.." Mushrooms ")
    Text(90,30,1,g_featherscollected.." Feathers ")
    Text(90,33,1,g_fishcaught.." Fish ")
    Text(90,36,1,g_trufflescollected.." Truffles ")
    Text(90,39,1,g_spicecollected.." Spices ")
 
    Text(46,95,1,g_RPG_Gold.." Gold")
     
end

-- Keypress.. remove items and add gold--

if g_Scancode == 0 then pressed = 0 end
    if GetScancode() == 2 and pressed == 0 and g_berriescollected >= 1 then  
    g_RPG_Gold = g_RPG_Gold + 3
    g_berriescollected = g_berriescollected - 1
	pressed = 1
elseif GetScancode() == 3 and pressed == 0 and g_fiberscollected >= 1 then 
    g_RPG_Gold = g_RPG_Gold + 5
    g_fiberscollected = g_fiberscollected - 1      
    pressed = 1
elseif GetScancode() == 4 and pressed == 0 and g_watercollected >= 1 then 
    g_RPG_Gold = g_RPG_Gold + 7
    g_watercollected = g_watercollected - 1      
    pressed = 1
elseif GetScancode() == 5 and pressed == 0 and g_woodcollected >= 1 then 
    g_RPG_Gold = g_RPG_Gold + 8
    g_woodcollected = g_woodcollected - 1      
    pressed = 1
elseif GetScancode() == 6 and pressed == 0 and g_corncollected >= 1 then 
    g_RPG_Gold = g_RPG_Gold + 2
    g_corncollected = g_corncollected - 1      
    pressed = 1
elseif GetScancode() == 7 and pressed == 0 and g_meatcollected >= 1 then 
    g_RPG_Gold = g_RPG_Gold + 10
    g_meatcollected = g_meatcollected - 1
	pressed = 1
elseif GetScancode() == 8 and pressed == 0 and g_mushroomscollected >= 1 then 
    g_RPG_Gold = g_RPG_Gold + 3
    g_mushroomscollected = g_mushroomscollected - 1
	pressed = 1
elseif GetScancode() == 9 and pressed == 0 and g_featherscollected >= 1 then 
    g_RPG_Gold = g_RPG_Gold + 6
    g_featherscollected = g_featherscollected - 1
	pressed = 1
elseif GetScancode() == 10 and pressed == 0 and g_fishcaught >= 1 then 
    g_RPG_Gold = g_RPG_Gold + 8
    g_fishcaught = g_fishcaught - 1
	pressed = 1
elseif GetScancode() == 11 and pressed == 0 and g_trufflescollected >= 1 then 
    g_RPG_Gold = g_RPG_Gold + 26
    g_trufflescollected = g_trufflescollected - 1
	pressed = 1
elseif GetScancode() == 12 and pressed == 0 and g_spicecollected >= 1 then 
    g_RPG_Gold = g_RPG_Gold + 26
    g_spicecollected = g_spicecollected - 1
	pressed = 1
end
end
end

+ Code Snippet

g_berriescollected=0
g_fiberscollected=0
g_watercollected=0
g_woodcollected=0
g_corncollected=0
g_meatcollected=0
g_mushroomscollected=0
g_featherscollected=0
g_fishcaught=0
g_trufflescollected=0
g_spicecollected=0
 
g_RPG_Gold=0
pressed = 0
displaymode=0 
delay=0
TIME_Y = 145  
   
function food_shop_buying_a_init(e)
 
end
   
function food_shop_buying_a_main(e)
    
    
 PlayerDX = g_Entity[e]['x'] - g_PlayerPosX;
    
 PlayerDY = g_Entity[e]['y'] - g_PlayerPosY;
    
 PlayerDZ = g_Entity[e]['z'] - g_PlayerPosZ;
    
 PlayerDist = math.sqrt(math.abs(PlayerDX*PlayerDX)+math.abs(PlayerDY*PlayerDY)+math.abs(PlayerDZ*PlayerDZ));
   if PlayerDist < 100 then
   Text(43,2,1,"Press E to shop",3000)
   if GetTimer(e)>250 then
delay=0
end
   if g_KeyPressE == 1 and g_Time > BtnTime then
      BtnTime = g_Time + TIME_Y
      PlaySound(e,0)
      StartTimer(e)
   if displaymode==0 and delay==0 then
      displaymode=4
      delay=1
end
   if displaymode==4 and delay==0 then
      displaymode=0--
      delay=1
end
end

if displaymode==4 then
	  
    Text(41,5,1,"This Shop Buys Foods",3000)
     
            --What the shop buys--
     
    Text(1,7,1," I buy berries for 3 gold press 1 to sell")
    Text(1,10,1," I buy Fibers for 5 gold press 2 to sell")
    Text(1,13,1," I buy Water for 7 gold press 3 to sell")
    Text(1,16,1," I buy Wood for 8 gold press 4 to sell")
    Text(1,19,1," I buy Corn for 2 gold press 5 to sell")
    Text(1,22,1," I buy Meat for 10 gold press 6 to sell")
    Text(1,25,1," I buy Mushrooms for 3 gold press 7 to sell")
    Text(1,28,1," I buy Feathers for 6 gold press 8 to sell")
    Text(1,31,1," I buy Fish for 8 gold press 9 to sell")
    Text(1,34,1," I buy Truffles for 26 gold press 0 to sell")
    Text(1,37,1," I buy Spices for 28 gold press - to sell")
     
          -- player inventory amounts--
           
    Text(90,6,1,"You have")
    Text(90,9,1,g_berriescollected.." Berries")
    Text(90,12,1,g_fiberscollected.." Fibers")
    Text(90,15,1,g_watercollected.." Water ")
    Text(90,18,1,g_woodcollected.." Wood ")
    Text(90,21,1,g_corncollected.." Corn ")
    Text(90,24,1,g_meatcollected.." Meat ")
    Text(90,27,1,g_mushroomscollected.." Mushrooms ")
    Text(90,30,1,g_featherscollected.." Feathers ")
    Text(90,33,1,g_fishcaught.." Fish ")
    Text(90,36,1,g_trufflescollected.." Truffles ")
    Text(90,39,1,g_spicecollected.." Spices ")
 
    Text(46,95,1,g_RPG_Gold.." Gold")
     
end    

-- Keypress.. remove items and add gold--

    if g_Scancode == 0 then pressed = 0 end
    if GetScancode() == 2 and pressed == 0 and g_berriescollected >= 1 then  
    g_RPG_Gold = g_RPG_Gold + 3
    g_berriescollected = g_berriescollected - 1
	pressed = 1
elseif GetScancode() == 3 and pressed == 0 and g_fiberscollected >= 1 then 
    g_RPG_Gold = g_RPG_Gold + 5
    g_fiberscollected = g_fiberscollected - 1      
    pressed = 1
elseif GetScancode() == 4 and pressed == 0 and g_watercollected >= 1 then 
    g_RPG_Gold = g_RPG_Gold + 7
    g_watercollected = g_watercollected - 1      
    pressed = 1
elseif GetScancode() == 5 and pressed == 0 and g_woodcollected >= 1 then 
    g_RPG_Gold = g_RPG_Gold + 8
    g_woodcollected = g_woodcollected - 1      
    pressed = 1
elseif GetScancode() == 6 and pressed == 0 and g_corncollected >= 1 then 
    g_RPG_Gold = g_RPG_Gold + 2
    g_corncollected = g_corncollected - 1      
    pressed = 1
elseif GetScancode() == 7 and pressed == 0 and g_meatcollected >= 1 then 
    g_RPG_Gold = g_RPG_Gold + 10
    g_meatcollected = g_meatcollected - 1
	pressed = 1
elseif GetScancode() == 8 and pressed == 0 and g_mushroomscollected >= 1 then 
    g_RPG_Gold = g_RPG_Gold + 3
    g_mushroomscollected = g_mushroomscollected - 1
	pressed = 1
elseif GetScancode() == 9 and pressed == 0 and g_featherscollected >= 1 then 
    g_RPG_Gold = g_RPG_Gold + 6
    g_featherscollected = g_featherscollected - 1
	pressed = 1
elseif GetScancode() == 10 and pressed == 0 and g_fishcaught >= 1 then 
    g_RPG_Gold = g_RPG_Gold + 8
    g_fishcaught = g_fishcaught - 1
	pressed = 1
elseif GetScancode() == 11 and pressed == 0 and g_trufflescollected >= 1 then 
    g_RPG_Gold = g_RPG_Gold + 26
    g_trufflescollected = g_trufflescollected - 1
	pressed = 1
elseif GetScancode() == 12 and pressed == 0 and g_spicecollected >= 1 then 
    g_RPG_Gold = g_RPG_Gold + 26
    g_spicecollected = g_spicecollected - 1
	pressed = 1
end
end
end

Intel i5 4950 Quad core 3.3ghz AMD FX 6300 x6 cores 3.5ghz(unclocked)
8gb Ram 8gb Ram
XFX R5 2gb AMD Radeon HD 6670 2gb
and a well fed mouse on a wheel

I only smile because i have absolutely no idea whats going on

PM Website

GubbyBlips

5

Years of Service

User Offline

Joined: 14th Jan 2019

Location:

Profile

Posted: 25th May 2021 18:37 Edited at: 25th May 2021 18:41

Link

To use the same keys for buying and selling, we would need to add a 'mode' selection
for 'buy' mode or 'sell' mode, which would be quite simple, but would also need either a
third script or integrate the two scripts together. When you get the keypress corrected,
post what you have, and then I will fix them up so that we have a mode selection in there.

Edit: "same keys for different shops?"
Wait, I'm kinda confused by this. Have you looked at the distance spacing factor I mentioned?
Let's take it one step at a time and get the buy script working, and then the sell script working.
Without issues. then we move forward...

PM

Honkeyboy

3D Media Maker

8

Years of Service

User Offline

Joined: 16th Sep 2015

Location: Doesnt know half the time ;)

Profile

Posted: 25th May 2021 18:56 Edited at: 25th May 2021 19:07

Link

yes m8 say in the buy script i use keys 1-10 for example if i use those keys in the sell script it didn't seem to work so i had to use the numberpad keys. but then thought ...hang on if i add more shops its going to get really confusing or not work, but haven't retested that since so will try that later. Any how m8 here's the buy script I've just added btn timer to open the page more smoothly and a freeze player so the player doesnt leave the shop open which caused the other shop not to open until it was closed

the idea is to keep the items to around 10 per shop that way the player has to travel to each type e.g blacksmith for metals, carpenter for woods etc etc and then i can play with the pricing to enable profits though trades. the items in these two are basically the 10 base items you can pretty much collect anywhere.
p.s m8 thanks that also was a much better explanation i got that now

Edit: button thingy works now so looks like i can just use 1-10 for all

g_berriescollected=0
g_fiberscollected=0
g_watercollected=0
g_woodcollected=0
g_corncollected=0
g_meatcollected=0
g_mushroomscollected=0
g_featherscollected=0
g_fishcaught=0
g_trufflescollected=0
g_spicecollected=0
 
g_RPG_Gold=0
pressed = 0
displaymode=0 
delay=0
TIME_Y = 145  
   
function food_shop_buying_a_init(e)
 
end
   
function food_shop_buying_a_main(e)
    
   
 PlayerDX = g_Entity[e]['x'] - g_PlayerPosX;
    
 PlayerDY = g_Entity[e]['y'] - g_PlayerPosY;
    
 PlayerDZ = g_Entity[e]['z'] - g_PlayerPosZ;
    
 PlayerDist = math.sqrt(math.abs(PlayerDX*PlayerDX)+math.abs(PlayerDY*PlayerDY)+math.abs(PlayerDZ*PlayerDZ));
   if PlayerDist < 100 then
   Text(43,2,1,"Press E to shop",3000)
   if GetTimer(e)>250 then
delay=0
end
   if g_KeyPressE == 1 and g_Time > BtnTime then
	  FreezePlayer()
      BtnTime = g_Time + TIME_Y
      PlaySound(e,0)
      StartTimer(e)
   if displaymode==0 and delay==0 then
      displaymode=4
      delay=1
end
   if displaymode==4 and delay==0 then
      displaymode=0--
      delay=1
	  UnFreezePlayer()
end
end

if displaymode==4 then
	  
    Text(41,5,1,"This Shop Buys Foods",3000)
     
            --What the shop buys--
     
    Text(1,7,1," I buy berries for 3 gold press 1 to sell")
    Text(1,10,1," I buy Fibers for 5 gold press 2 to sell")
    Text(1,13,1," I buy Water for 7 gold press 3 to sell")
    Text(1,16,1," I buy Wood for 8 gold press 4 to sell")
    Text(1,19,1," I buy Corn for 2 gold press 5 to sell")
    Text(1,22,1," I buy Meat for 10 gold press 6 to sell")
    Text(1,25,1," I buy Mushrooms for 3 gold press 7 to sell")
    Text(1,28,1," I buy Feathers for 6 gold press 8 to sell")
    Text(1,31,1," I buy Fish for 8 gold press 9 to sell")
    Text(1,34,1," I buy Truffles for 26 gold press 0 to sell")
    Text(1,37,1," I buy Spices for 28 gold press - to sell")
     
          -- player inventory amounts--
           
    Text(90,6,1,"You have")
    Text(90,9,1,g_berriescollected.." Berries")
    Text(90,12,1,g_fiberscollected.." Fibers")
    Text(90,15,1,g_watercollected.." Water ")
    Text(90,18,1,g_woodcollected.." Wood ")
    Text(90,21,1,g_corncollected.." Corn ")
    Text(90,24,1,g_meatcollected.." Meat ")
    Text(90,27,1,g_mushroomscollected.." Mushrooms ")
    Text(90,30,1,g_featherscollected.." Feathers ")
    Text(90,33,1,g_fishcaught.." Fish ")
    Text(90,36,1,g_trufflescollected.." Truffles ")
    Text(90,39,1,g_spicecollected.." Spices ")
 
    Text(46,95,1,g_RPG_Gold.." Gold")
     
end

-- Keypress.. remove items and add gold--

if g_Scancode == 0 then pressed = 0 end
    if GetScancode() == 2 and pressed == 0 and g_berriescollected >= 1 then  
    g_RPG_Gold = g_RPG_Gold + 3
    g_berriescollected = g_berriescollected - 1
	pressed = 1
elseif GetScancode() == 3 and pressed == 0 and g_fiberscollected >= 1 then 
    g_RPG_Gold = g_RPG_Gold + 5
    g_fiberscollected = g_fiberscollected - 1      
    pressed = 1
elseif GetScancode() == 4 and pressed == 0 and g_watercollected >= 1 then 
    g_RPG_Gold = g_RPG_Gold + 7
    g_watercollected = g_watercollected - 1      
    pressed = 1
elseif GetScancode() == 5 and pressed == 0 and g_woodcollected >= 1 then 
    g_RPG_Gold = g_RPG_Gold + 8
    g_woodcollected = g_woodcollected - 1      
    pressed = 1
elseif GetScancode() == 6 and pressed == 0 and g_corncollected >= 1 then 
    g_RPG_Gold = g_RPG_Gold + 2
    g_corncollected = g_corncollected - 1      
    pressed = 1
elseif GetScancode() == 7 and pressed == 0 and g_meatcollected >= 1 then 
    g_RPG_Gold = g_RPG_Gold + 10
    g_meatcollected = g_meatcollected - 1
	pressed = 1
elseif GetScancode() == 8 and pressed == 0 and g_mushroomscollected >= 1 then 
    g_RPG_Gold = g_RPG_Gold + 3
    g_mushroomscollected = g_mushroomscollected - 1
	pressed = 1
elseif GetScancode() == 9 and pressed == 0 and g_featherscollected >= 1 then 
    g_RPG_Gold = g_RPG_Gold + 6
    g_featherscollected = g_featherscollected - 1
	pressed = 1
elseif GetScancode() == 10 and pressed == 0 and g_fishcaught >= 1 then 
    g_RPG_Gold = g_RPG_Gold + 8
    g_fishcaught = g_fishcaught - 1
	pressed = 1
elseif GetScancode() == 11 and pressed == 0 and g_trufflescollected >= 1 then 
    g_RPG_Gold = g_RPG_Gold + 26
    g_trufflescollected = g_trufflescollected - 1
	pressed = 1
elseif GetScancode() == 12 and pressed == 0 and g_spicecollected >= 1 then 
    g_RPG_Gold = g_RPG_Gold + 26
    g_spicecollected = g_spicecollected - 1
	pressed = 1
end
end
end

+ Code Snippet

g_berriescollected=0
g_fiberscollected=0
g_watercollected=0
g_woodcollected=0
g_corncollected=0
g_meatcollected=0
g_mushroomscollected=0
g_featherscollected=0
g_fishcaught=0
g_trufflescollected=0
g_spicecollected=0
 
g_RPG_Gold=0
pressed = 0
displaymode=0 
delay=0
TIME_Y = 145  
   
function food_shop_buying_a_init(e)
 
end
   
function food_shop_buying_a_main(e)
    
   
 PlayerDX = g_Entity[e]['x'] - g_PlayerPosX;
    
 PlayerDY = g_Entity[e]['y'] - g_PlayerPosY;
    
 PlayerDZ = g_Entity[e]['z'] - g_PlayerPosZ;
    
 PlayerDist = math.sqrt(math.abs(PlayerDX*PlayerDX)+math.abs(PlayerDY*PlayerDY)+math.abs(PlayerDZ*PlayerDZ));
   if PlayerDist < 100 then
   Text(43,2,1,"Press E to shop",3000)
   if GetTimer(e)>250 then
delay=0
end
   if g_KeyPressE == 1 and g_Time > BtnTime then
	  FreezePlayer()
      BtnTime = g_Time + TIME_Y
      PlaySound(e,0)
      StartTimer(e)
   if displaymode==0 and delay==0 then
      displaymode=4
      delay=1
end
   if displaymode==4 and delay==0 then
      displaymode=0--
      delay=1
	  UnFreezePlayer()
end
end

if displaymode==4 then
	  
    Text(41,5,1,"This Shop Buys Foods",3000)
     
            --What the shop buys--
     
    Text(1,7,1," I buy berries for 3 gold press 1 to sell")
    Text(1,10,1," I buy Fibers for 5 gold press 2 to sell")
    Text(1,13,1," I buy Water for 7 gold press 3 to sell")
    Text(1,16,1," I buy Wood for 8 gold press 4 to sell")
    Text(1,19,1," I buy Corn for 2 gold press 5 to sell")
    Text(1,22,1," I buy Meat for 10 gold press 6 to sell")
    Text(1,25,1," I buy Mushrooms for 3 gold press 7 to sell")
    Text(1,28,1," I buy Feathers for 6 gold press 8 to sell")
    Text(1,31,1," I buy Fish for 8 gold press 9 to sell")
    Text(1,34,1," I buy Truffles for 26 gold press 0 to sell")
    Text(1,37,1," I buy Spices for 28 gold press - to sell")
     
          -- player inventory amounts--
           
    Text(90,6,1,"You have")
    Text(90,9,1,g_berriescollected.." Berries")
    Text(90,12,1,g_fiberscollected.." Fibers")
    Text(90,15,1,g_watercollected.." Water ")
    Text(90,18,1,g_woodcollected.." Wood ")
    Text(90,21,1,g_corncollected.." Corn ")
    Text(90,24,1,g_meatcollected.." Meat ")
    Text(90,27,1,g_mushroomscollected.." Mushrooms ")
    Text(90,30,1,g_featherscollected.." Feathers ")
    Text(90,33,1,g_fishcaught.." Fish ")
    Text(90,36,1,g_trufflescollected.." Truffles ")
    Text(90,39,1,g_spicecollected.." Spices ")
 
    Text(46,95,1,g_RPG_Gold.." Gold")
     
end    

-- Keypress.. remove items and add gold--

    if g_Scancode == 0 then pressed = 0 end
    if GetScancode() == 2 and pressed == 0 and g_berriescollected >= 1 then  
    g_RPG_Gold = g_RPG_Gold + 3
    g_berriescollected = g_berriescollected - 1
	pressed = 1
elseif GetScancode() == 3 and pressed == 0 and g_fiberscollected >= 1 then 
    g_RPG_Gold = g_RPG_Gold + 5
    g_fiberscollected = g_fiberscollected - 1      
    pressed = 1
elseif GetScancode() == 4 and pressed == 0 and g_watercollected >= 1 then 
    g_RPG_Gold = g_RPG_Gold + 7
    g_watercollected = g_watercollected - 1      
    pressed = 1
elseif GetScancode() == 5 and pressed == 0 and g_woodcollected >= 1 then 
    g_RPG_Gold = g_RPG_Gold + 8
    g_woodcollected = g_woodcollected - 1      
    pressed = 1
elseif GetScancode() == 6 and pressed == 0 and g_corncollected >= 1 then 
    g_RPG_Gold = g_RPG_Gold + 2
    g_corncollected = g_corncollected - 1      
    pressed = 1
elseif GetScancode() == 7 and pressed == 0 and g_meatcollected >= 1 then 
    g_RPG_Gold = g_RPG_Gold + 10
    g_meatcollected = g_meatcollected - 1
	pressed = 1
elseif GetScancode() == 8 and pressed == 0 and g_mushroomscollected >= 1 then 
    g_RPG_Gold = g_RPG_Gold + 3
    g_mushroomscollected = g_mushroomscollected - 1
	pressed = 1
elseif GetScancode() == 9 and pressed == 0 and g_featherscollected >= 1 then 
    g_RPG_Gold = g_RPG_Gold + 6
    g_featherscollected = g_featherscollected - 1
	pressed = 1
elseif GetScancode() == 10 and pressed == 0 and g_fishcaught >= 1 then 
    g_RPG_Gold = g_RPG_Gold + 8
    g_fishcaught = g_fishcaught - 1
	pressed = 1
elseif GetScancode() == 11 and pressed == 0 and g_trufflescollected >= 1 then 
    g_RPG_Gold = g_RPG_Gold + 26
    g_trufflescollected = g_trufflescollected - 1
	pressed = 1
elseif GetScancode() == 12 and pressed == 0 and g_spicecollected >= 1 then 
    g_RPG_Gold = g_RPG_Gold + 26
    g_spicecollected = g_spicecollected - 1
	pressed = 1
end
end
end

Intel i5 4950 Quad core 3.3ghz AMD FX 6300 x6 cores 3.5ghz(unclocked)
8gb Ram 8gb Ram
XFX R5 2gb AMD Radeon HD 6670 2gb
and a well fed mouse on a wheel

I only smile because i have absolutely no idea whats going on

PM Website

GubbyBlips

5

Years of Service

User Offline

Joined: 14th Jan 2019

Location:

Profile

Posted: 25th May 2021 19:06

Link

We might be kinda talking past each other in these forums chat...??

It's a matter of distance between shops... and I don't have your map, but space them out
a good bit and let's see if you can get the individual buy script working, and then the individual
sell script working, and then I will help you integrate them into one with a 'mode' selection.

PM

Honkeyboy

3D Media Maker

8

Years of Service

User Offline

Joined: 16th Sep 2015

Location: Doesnt know half the time ;)

Profile

Posted: 25th May 2021 19:10 Edited at: 25th May 2021 19:26

Link

The buy script seems to work fine m8 well they both do for the most part only issue now is you press say key 1 to buy berries and you buy 5 with a quick keypress whereas i would think players who are doing trader would want 1 keypress 1 item so they have much more control on buying and selling. Other than that they are working.

here's a vid showing what i mean it becomes more important when you buy truffles or spices as they are collected exclusively in the northern and eastern maps so the prices are much higher elsewhere

Intel i5 4950 Quad core 3.3ghz AMD FX 6300 x6 cores 3.5ghz(unclocked)
8gb Ram 8gb Ram
XFX R5 2gb AMD Radeon HD 6670 2gb
and a well fed mouse on a wheel

I only smile because i have absolutely no idea whats going on

PM Website

GubbyBlips

5

Years of Service

User Offline

Joined: 14th Jan 2019

Location:

Profile

Posted: 25th May 2021 19:20 Edited at: 25th May 2021 19:28

Link

I've always (at least lately) used "g_Scancode" and not GetScancode()
which are probably one and the same until you check for repetition of key press...
That I don't know for sure, my suggestion is to use g_Scancode at all points you
detect a key press because that is the current value, and maybe GetScancode() resets
or modifies the check... so they get mixed up when used together? It's worth a shot.

I think you have individual scripts for each shop... that's perfectly OKAY!
But go through them all and double check what we have mentioned today with the key press,
etc for EVERY script.

Just make sure to check for always having "pressed = 1" in the script at point AFTER
you looked for > if g_Scancode ==

PM

Honkeyboy

3D Media Maker

8

Years of Service

User Offline

Joined: 16th Sep 2015

Location: Doesnt know half the time ;)

Profile

Posted: 25th May 2021 19:27

Link

OK will give that a bash

Intel i5 4950 Quad core 3.3ghz AMD FX 6300 x6 cores 3.5ghz(unclocked)
8gb Ram 8gb Ram
XFX R5 2gb AMD Radeon HD 6670 2gb
and a well fed mouse on a wheel

I only smile because i have absolutely no idea whats going on

PM Website

Scripts / another attempt at a shop script