Building on code from your other post, you could do something like this...
Code: Select all
Structure curdata
handle.i
name.s
value.i
EndStructure
Global NewList currency.curdata()
#Button=1
Global click
Procedure.i Window_Main()
ExamineDesktops()
windowHandle=OpenWindow(#PB_Any,0,0, DesktopWidth(0)/2, DesktopHeight(0)/2, "Idle Game",#PB_Window_SizeGadget|#PB_Window_SystemMenu)
ButtonGadget(#Button,250,50,100,30,"OK")
ProcedureReturn windowHandle
EndProcedure
Procedure Currency_Create(name.s,x,y,value)
AddElement(currency())
With currency()
\handle=TextGadget(#PB_Any,x,y,100,100,name+": "+value)
\name=name
\value=value
EndWith
EndProcedure
Procedure LeftClick()
If click=#False
Debug "Left Click"
ForEach currency()
currency()\value+1
SetGadgetText(currency()\handle,currency()\name+": "+Str(currency()\value))
Next
Else
click=#False
EndIf
EndProcedure
Procedure GadgetEvents()
If EventGadget()=#Button
Debug "Button Click"
click=#True
EndIf
EndProcedure
If Window_Main()
Currency_Create("Stars",50,50,0)
Currency_Create("Test1",50,100,50)
Currency_Create("Test2",50,150,33)
BindEvent(#PB_Event_Gadget, @GadgetEvents())
BindEvent(#PB_Event_LeftClick,@LeftClick())
EndIf