All the 2nd image is is some text drawn out. It is suppose to show under the stats area.
https://mega.nz/file/EwNG1a5C#3tsQiAS34 ... xZ0WQODYPw
Code: Select all
Enumeration
#ImgGadget
#IconGadget
#EditGadget
#GadgetItem
#TxtGadget
EndEnumeration
Global NPC_Name.s = "Tony Pennock"
Global KP, TK, PS, SH, PC, HE, ST, SP, BC, FT
Global Plyr_Wage
Global Plyr_Val$, Contract_Exp$, Status$, League_Pay_Bonus, Promotion_Bonus, Cup_Win_Bonus, Cup_RU_Bonus, Win_Bonus, Goal_Bonus
Global Plyr_Age, Plyr_DOB$, Nationality$, Plyr_Moral$, Future$ : Global Plyr_Description.s
Plyr_Val$ = "10K" : Plyr_Wage = 230 : Contract_Exp$ = "23rd Jun '01" : Status$ = "Under Contract"
KP = 50 : TK = 25 : PS = 23 : SH = 11 : PC = 71 : HE = 23 : ST = 66 : SP = 31 : BC =26 : FT = 100
League_Pay_Bonus = 460 : Promotion_Bonus = 230 : Cup_Win_Bonus = 230 : Cup_RU_Bonus = 110
Win_Bonus = 23 : Goal_Bonus = 23 : Plyr_Age = 27 : Plyr_DOB$ = "10th April 1971"
Nationality$ = "Welsh"
Plyr_Moral$ = "Pleased"
Future$ = "Not worried"
Plyr_Description = "A safe goalkeeper. He's good on fits and spurts"
; player stat sheet include
Procedure PlayerStatsSheet()
OpenWindow(0, 0, 0, 1024, 768, "Ultimate Football Manager", #PB_Window_SystemMenu | #PB_Window_ScreenCentered |
#PB_Window_MaximizeGadget | #PB_Window_MinimizeGadget)
InitSprite()
ImgFile = LoadImage(0, "Images/PlayerStatsSheet.png")
ImageGadget(#ImgGadget, 0, 0, 1024, 768, ImgFile)
DisableGadget(#ImgGadget, #True)
LoadFont(0, "Media/nevis.ttf", 25);, #PB_Font_Bold)
If StartDrawing(ImageOutput(#ImgGadget))
DrawingFont(FontID(0))
DrawText(5, 5, NPC_Name, $0025B8, $000000)
StopDrawing()
EndIf
ImageGadget(#ImgGadget, 0, 0, WindowWidth(0), WindowHeight(0), ImageID(0))
DisableGadget(#ImgGadget, #True)
LoadFont(0, "Media/nevis.ttf", 15)
If StartDrawing(ImageOutput(#ImgGadget))
DrawingFont(FontID(0))
DrawText(5, 900, Plyr_Description, $0025B8, $000000)
StopDrawing()
EndIf
ImageGadget(#ImgGadget, 0, 0, WindowWidth(0), WindowHeight(0), ImageID(0))
DisableGadget(#ImgGadget, #True)
LoadFont(0, "Media/nevis.ttf", 11, #PB_Font_Bold)
ListIconGadget(#IconGadget, 5, 65, 560, 500,"", 125, #LVS_NOCOLUMNHEADER); | #PB_ListIcon_GridLines)
AddGadgetColumn(#IconGadget, 1, "", 100) ; column 1
AddGadgetColumn(#IconGadget, 2, "", 125) ; column 2
AddGadgetColumn(#IconGadget, 3, "", 125) ; column 3
SetGadgetColor(#IconGadget, #PB_Gadget_LineColor, $259F4B)
SetGadgetFont(#IconGadget, FontID(0))
SetGadgetColor(#IconGadget, #PB_Gadget_BackColor, $000000) : SetGadgetColor(#IconGadget, #PB_Gadget_FrontColor, $0025B8)
; column 1
AddGadgetItem(#IconGadget, 0, "Goalkeeper")
AddGadgetItem(#IconGadget, 1, "")
; column 1 column 2
AddGadgetItem(#IconGadget, 2, "Keeping" + Chr(10) + KP + Chr(10) + "Heading" + Chr(10) + HE)
SetGadgetItemColor(#IconGadget, 2, #PB_Gadget_FrontColor, $00A1B8)
AddGadgetItem(#IconGadget, 3, "Tackling" + Chr(10) + TK + Chr(10) + "Stamina" + Chr(10) + ST)
SetGadgetItemColor(#IconGadget, 3, #PB_Gadget_FrontColor, $00A1B8)
AddGadgetItem(#IconGadget, 4, "Passing" + Chr(10) + PS + Chr(10) + "Set Plays" + Chr(10) + SP)
SetGadgetItemColor(#IconGadget, 4, #PB_Gadget_FrontColor, $00A1B8)
AddGadgetItem(#IconGadget, 5, "Shooting" + Chr(10) + SH + Chr(10) + "Ball Control" + Chr(10) + BC)
SetGadgetItemColor(#IconGadget, 5, #PB_Gadget_FrontColor, $00A1B8)
AddGadgetItem(#IconGadget, 6, "Pace" + Chr(10) + PC +Chr(10) + "Fitness" + Chr(10) + FT)
SetGadgetItemColor(#IconGadget, 6, #PB_Gadget_FrontColor, $00A1B8)
For item = 0 To CountGadgetItems(#IconGadget)
SetGadgetItemColor(#IconGadget,-1,#PB_Gadget_FrontColor,$FFFFFF,1)
SetGadgetItemColor(#IconGadget,-1,#PB_Gadget_FrontColor,$FFFFFF,3)
Next
AddGadgetItem(#IconGadget, 7, "")
AddGadgetItem(#IconGadget, 8, "Contract Details")
SetGadgetItemColor(#IconGadget, 8, #PB_Gadget_FrontColor, $0025B8)
AddGadgetItem(#IconGadget, 9, "Value" + Chr(10) + Plyr_Val$ + Chr(10) + "Wages" + Chr(10) + Plyr_Wage)
SetGadgetItemColor(#IconGadget, 9, #PB_Gadget_FrontColor, $00A1B8)
For item = 0 To CountGadgetItems(#IconGadget)
SetGadgetItemColor(#IconGadget,-1,#PB_Gadget_FrontColor,$FFFFFF,1)
SetGadgetItemColor(#IconGadget,-1,#PB_Gadget_FrontColor,$FFFFFF,3)
Next
AddGadgetItem(#IconGadget, 10, "Contract Expiry" + Chr(10) + Chr(10) + Contract_Exp$)
SetGadgetItemColor(#IconGadget, 10, #PB_Gadget_FrontColor, $00A1B8)
SetGadgetItemColor(#IconGadget, 10, #PB_Gadget_FrontColor, $FFFFFF, 2)
AddGadgetItem(#IconGadget, 11, "Status" + Chr(10) + Chr(10) + Status$)
SetGadgetItemColor(#IconGadget, 11, #PB_Gadget_FrontColor, $00A1B8, 0)
SetGadgetItemColor(#IconGadget, 11, #PB_Gadget_FrontColor, $C3C3C3, 2)
AddGadgetItem(#IconGadget, 12, "")
AddGadgetItem(#IconGadget, 13, "Bonuses")
AddGadgetItem(#IconGadget, 14, "League" + Chr(10) + League_Pay_Bonus + Chr(10) + "Promotion" + Chr(10) + Promotion_Bonus)
SetGadgetItemColor(#IconGadget, 14, #PB_Gadget_FrontColor, $00A1B8, 0)
SetGadgetItemColor(#IconGadget, 14, #PB_Gadget_FrontColor, $FFFFFF, 1)
SetGadgetItemColor(#IconGadget, 14, #PB_Gadget_FrontColor, $00A1B8, 2)
SetGadgetItemColor(#IconGadget, 14, #PB_Gadget_FrontColor, $FFFFFF, 3)
AddGadgetItem(#IconGadget, 15, "Cup Win" + Chr(10) + Cup_Win_Bonus + Chr(10) + "Cup R.U." + Chr(10) + Cup_RU_Bonus)
SetGadgetItemColor(#IconGadget, 15, #PB_Gadget_FrontColor, $00A1B8, 0)
SetGadgetItemColor(#IconGadget, 15, #PB_Gadget_FrontColor, $FFFFFF, 1)
SetGadgetItemColor(#IconGadget, 15, #PB_Gadget_FrontColor, $00A1B8, 2)
SetGadgetItemColor(#IconGadget, 15, #PB_Gadget_FrontColor, $FFFFFF, 3)
AddGadgetItem(#IconGadget, 16, "Win" + Chr(10) + Win_Bonus + Chr(10) + "Goal." + Chr(10) + Goal_Bonus)
SetGadgetItemColor(#IconGadget, 16, #PB_Gadget_FrontColor, $00A1B8, 0)
SetGadgetItemColor(#IconGadget, 16, #PB_Gadget_FrontColor, $FFFFFF, 1)
SetGadgetItemColor(#IconGadget, 16, #PB_Gadget_FrontColor, $00A1B8, 2)
SetGadgetItemColor(#IconGadget, 16, #PB_Gadget_FrontColor, $FFFFFF, 3)
AddGadgetItem(#IconGadget, 17, "")
AddGadgetItem(#IconGadget, 18, "Age" + Chr(10) + Plyr_Age + Chr(10) + "D.O.B" + Chr(10) + Plyr_DOB$)
;AddGadgetItem(#IconGadget, 19, "D.O.B" + Chr(10) + Plyr_DOB$)
SetGadgetItemColor(#IconGadget, 18, #PB_Gadget_FrontColor, $00A1B8, 0)
SetGadgetItemColor(#IconGadget, 18, #PB_Gadget_FrontColor, $FFFFFF, 1)
SetGadgetItemColor(#IconGadget, 18, #PB_Gadget_FrontColor, $00A1B8, 2)
SetGadgetItemColor(#IconGadget, 18, #PB_Gadget_FrontColor, $FFFFFF, 3)
AddGadgetItem(#IconGadget, 19, "Nationality:" + Chr(10) + Nationality$)
SetGadgetItemColor(#IconGadget, 19, #PB_Gadget_FrontColor, $00A1B8, 0)
SetGadgetItemColor(#IconGadget, 19, #PB_Gadget_FrontColor, $FFFFFF, 1)
AddGadgetItem(#IconGadget, 20, "Moral:" + Chr(10) + Plyr_Moral$)
SetGadgetItemColor(#IconGadget, 20, #PB_Gadget_FrontColor, $00A1B8, 0)
SetGadgetItemColor(#IconGadget, 20, #PB_Gadget_FrontColor, $FFFFFF, 1)
AddGadgetItem(#IconGadget, 21, "Future:" + Chr(10) + Future$)
SetGadgetItemColor(#IconGadget, 21, #PB_Gadget_FrontColor, $00A1B8, 0)
SetGadgetItemColor(#IconGadget, 21, #PB_Gadget_FrontColor, $FFFFFF, 1)
Repeat
Event = WaitWindowEvent()
Until Event = #PB_Event_CloseWindow
EndProcedure