1. Questions on usage...
--Message-Boundary-30059
Content-type: text/plain; charset=US-ASCII
Content-description: Mail message body
Heya all!
Well, i'm trying to get my DropDownList to work, and i'm trying to not
have the Radio controls disappear when their parent is a group.
With my DDL, all my 23 or so added items just don't appear, period.
Radio controls with parent to a group: When the parent to a Radio
control is a Group, the controls disappear. Whats my issue there?
Just so I don't feel like i'm making nonsense, my code is included.
(needs win32lib and strtok.e, Win32Lib-tested from 0.45r to bleeding
edge 0.50)
TIA,
Blessed Be! --"LEVIATHAN"
--Message-Boundary-30059
Content-type: text/plain; charset=US-ASCII
Content-description: Text from file 'FMJ HUD Designer - backup.exw'
--==========================================================================--
-- E:\euphoria\fmj\New project2.exw
-- code generated by EuDesigner v 1.0 Alpha
--==========================================================================--
-- without warning -- Uncomment after testing!
include win32Lib(0.51).ew -- David Cuny's Win32 Euphoria wrapper
include strtok.e
with trace
sequence pointset1
sequence pointset2
pointset1 = { {281,166},{223,166},{223,329},{466,329},{466,166},{396,166} }
pointset2 = { {497,166},{480,166},{480,244},{628,244},{628,166},{602,166} }
atom hudfile
sequence hudfile_Form
sequence ammo
sequence armor
sequence health
sequence clip
sequence ammoicon
sequence armoricon
sequence healthicon
sequence clipicon
sequence ammobar
sequence armorbar
sequence healthbar
sequence clipbar
sequence firemode
sequence ammooverview
sequence hudback1
sequence hudback2
sequence hudback3
sequence hudback4
sequence hudback5
sequence hudback6
sequence hudback7
sequence hudback8
sequence hudback9
ammo = {"//","ammo","000","000","000","000","0.0","0.0","0.0","0.0"}
armor = {"//","armor","000","000","000","000","0.0","0.0","0.0","0.0"}
health = {"//","health","000","000","000","000","0.0","0.0","0.0","0.0"}
clip = {"//","clip","000","000","000","000","0.0","0.0","0.0","0.0"}
ammoicon =
{"//","ammoicon","000","000","000","000","0.0","0.0","0.0","0.0","default"}
armoricon =
{"//","armoricon","000","000","000","000","0.0","0.0","0.0","0.0","default"}
healthicon =
{"//","healthicon","000","000","000","000","0.0","0.0","0.0","0.0","default"}
clipicon =
{"//","clipicon","000","000","000","000","0.0","0.0","0.0","0.0","default"}
ammobar =
{"//","ammobar","000","000","000","000","0.0","0.0","0.0","0.0","default","0","0"}
armorbar =
{"//","armorbar","000","000","000","000","0.0","0.0","0.0","0.0","default","0","0"}
healthbar =
{"//","healthbar","000","000","000","000","0.0","0.0","0.0","0.0","default","0","0"}
clipbar =
{"//","clipbar","000","000","000","000","0.0","0.0","0.0","0.0","default","0","0"}
firemode = {"//","firemode","000","000","000","000","0.0","0.0","0.0","0.0"}
ammooverview =
{"//","ammooverview","000","000","000","000","0.0","0.0","0.0","0.0"}
hudback1 =
{"//","hudback1","000","000","000","000","0.0","0.0","0.0","0.0","default"}
hudback2 =
{"//","hudback2","000","000","000","000","0.0","0.0","0.0","0.0","default"}
hudback3 =
{"//","hudback3","000","000","000","000","0.0","0.0","0.0","0.0","default"}
hudback4 =
{"//","hudback4","000","000","000","000","0.0","0.0","0.0","0.0","default"}
hudback5 =
{"//","hudback5","000","000","000","000","0.0","0.0","0.0","0.0","default"}
hudback6 =
{"//","hudback6","000","000","000","000","0.0","0.0","0.0","0.0","default"}
hudback7 =
{"//","hudback7","000","000","000","000","0.0","0.0","0.0","0.0","default"}
hudback8 =
{"//","hudback8","000","000","000","000","0.0","0.0","0.0","0.0","default"}
hudback9 =
{"//","hudback9","000","000","000","000","0.0","0.0","0.0","0.0","default"}
--==========================================================================--
-- object declarations --
--==========================================================================--
-- newForm
global constant newForm=
create(Window, "FMJ HUD Designer", 0, 287, 284, 644, 360, 0)
setWindowBackColor(newForm, Black)
setIcon(newForm, IDI_APPLICATION)
procedure onPaint_newForm(integer x1, integer x2, integer y1, integer y2,)
setPenColor(newForm, rgb(81,144,0))
setPenWidth(newForm, 1)
drawPolygon(newForm, False, pointset1)
drawPolygon(newForm, False, pointset2)
setTextColor(newForm, rgb(98,130,0))
setBackColor(newForm, 0)
setPenColor(newForm, 0)
drawRectangle(newForm,True,284,160,396,176)
drawRectangle(newForm,True,498,160,602,176)
setPosition(newForm, 206,134)
wPuts(newForm, "FMJ HUD Designer (Version Plan Alpha 0.00.11)")
setPosition(newForm, 0,161)
wPuts(newForm, "Name of hudfile to load/save:")
setPosition(newForm, 284,160)
wPuts(newForm, "HUD Function controls:")
setPosition(newForm, 0,216)
wPuts(newForm, "HUD function:")
setPosition(newForm, 232,181)
wPuts(newForm, "X Position:")
setPosition(newForm, 232,206)
wPuts(newForm, "Y Position:")
setPosition(newForm, 498,160)
wPuts(newForm, "(HUD Bars Use Only:)")
setPosition(newForm, 498,180)
wPuts(newForm, "Pixels Per Value:")
setPosition(newForm, 232,234)
wPuts(newForm, "X Size:")
setPosition(newForm, 232,261)
wPuts(newForm, "Y Size:")
setPosition(newForm, 362,219)
wPuts(newForm, "Red")
setPosition(newForm, 362,243)
wPuts(newForm, "Green")
setPosition(newForm, 362,267)
wPuts(newForm, "Blue")
setPosition(newForm, 362,292)
wPuts(newForm, "Transparency")
setPosition(newForm, 362,192)
wPuts(newForm, "Color Control")
setPosition(newForm, 244,284)
wPuts(newForm, "Shader/Graphic:")
setPosition(newForm, 95,220)
wPuts(newForm, "On")
setPosition(newForm, 127,220)
wPuts(newForm, "Off")
setPosition(newForm, 500,208)
wPuts(newForm, "X Value")
setPosition(newForm, 500,224)
wPuts(newForm, "Y Value")
setPosition(newForm, 561,208)
wPuts(newForm, "Horizontal Bar")
setPosition(newForm, 561,224)
wPuts(newForm, "Vertical Bar")
setPosition(newForm, 498,251)
wPuts(newForm, "Processing status")
setPosition(newForm, 492,266)
wPuts(newForm, "Currently processing:")
end procedure
onPaint[newForm] = routine_id( "onPaint_newForm" )
-- Banner
global constant newFormBitmap2=
create(Bitmap, "newFormBitmap2", newForm, 0, 0, 640, 134, 0)
setBitmap(newFormBitmap2, "fmj3.BMP")
-- Grouped On/Off radios
global constant group1011=
create(Group, "", newForm,77,211,66,22,0)
-- Grouped X Value/Y Value
global constant group2526=
create(Group, "", newForm,483,200,57,40,0)
-- Grouped Horizontal Bar/Vertical Bar
global constant group3031=
create(Group, "", newForm,544,200,82,40,0)
-- Load/Save file SLE
global constant newFormEditText5=
create(EditText, "", newForm, 0, 176, 168, 24, 0)
-- X Pos SLE
global constant newFormEditText15=
create(EditText, "", newForm, 288, 180, 56, 20, 0)
-- Y Pos SLE
global constant newFormEditText16=
create(EditText, "", newForm, 288, 204, 56, 20, 0)
-- X size SLE
global constant newFormEditText19=
create(EditText, "", newForm, 288, 232, 56, 20, 0)
-- Y size SLE
global constant newFormEditText20=
create(EditText, "", newForm, 288, 260, 56, 20, 0)
-- Shader/Graphic SLE
global constant newFormEditText22=
create(EditText, "", newForm, 228, 304, 112, 20, 0)
-- Red SLE
global constant newFormEditText38=
create(EditText, "", newForm, 428, 216, 36, 20, 0)
-- Green SLE
global constant newFormEditText39=
create(EditText, "", newForm, 428, 240, 36, 20, 0)
-- Blue SLE
global constant newFormEditText40=
create(EditText, "", newForm, 428, 264, 36, 20, 0)
-- Trans SLE
global constant newFormEditText41=
create(EditText, "", newForm, 428, 288, 36, 20, 0)
-- PPV SLE
global constant newFormEditText29=
create(EditText, "", newForm, 546, 179, 40, 24, 0)
-- Self-Explanatory
global constant newFormButton6=
create(PushButton, "Load", newForm, 168, 168, 32, 16, 0)
-- Self-Explanatory
global constant newFormButton7=
create(PushButton, "Save", newForm, 168, 184, 32, 16, 0)
-- Self-Explanatory
global constant newFormButton32=
create(PushButton, "Configure", newForm, 8, 288, 80, 16, 0)
-- Self-Explanatory
global constant newFormButton33=
create(PushButton, "About", newForm, 88, 272, 80, 16, 0)
-- Self-Explanatory
global constant newFormButton34=
create(PushButton, "Exit", newForm, 88, 288, 80, 16, 0)
-- Self-Explanatory
global constant newFormButton27=
create(PushButton, "Help!", newForm, 8, 272, 80, 16, 0)
-- On Radio
global constant newFormRadio10=
create(Radio, "", group1011, 80, 220, 13, 12, 0)
-- Off Radio
global constant newFormRadio11=
create(Radio, "", group1011, 112, 220, 13, 12, 0)
-- X Value radio
global constant newFormRadio25=
create(Radio, "", group2526, 485, 208, 13, 12, 0)
-- Y Value radio
global constant newFormRadio26=
create(Radio, "", group2526, 485, 224, 13, 12, 0)
-- Horiz Bar radio
global constant newFormRadio30=
create(Radio, "", group3031, 546, 208, 13, 12, 0)
-- Vert Bar radio
global constant newFormRadio31=
create(Radio, "", group3031, 546, 224, 13, 12, 0)
-- HUD Function DDL
global constant newFormComboBox34=
create(DropDownList, "", newForm, 0, 232, 168, 21, 0)
addItem(newFormComboBox34, "# of ammo")
addItem(newFormComboBox34, "# of armor")
addItem(newFormComboBox34, "# of health")
addItem(newFormComboBox34, "# of clips left")
addItem(newFormComboBox34, "Ammo icon")
addItem(newFormComboBox34, "Armor icon")
addItem(newFormComboBox34, "Health icon")
addItem(newFormComboBox34, "Clip icon")
addItem(newFormComboBox34, "Ammo Bar representation")
addItem(newFormComboBox34, "Armor Bar representation")
addItem(newFormComboBox34, "Health Bar representation")
addItem(newFormComboBox34, "Clip Bar representation")
addItem(newFormComboBox34, "Current firing mode")
addItem(newFormComboBox34, "Ammo Overview")
addItem(newFormComboBox34, "HUD Background 1")
addItem(newFormComboBox34, "HUD Background 2")
addItem(newFormComboBox34, "HUD Background 3")
addItem(newFormComboBox34, "HUD Background 4")
addItem(newFormComboBox34, "HUD Background 5")
addItem(newFormComboBox34, "HUD Background 6")
addItem(newFormComboBox34, "HUD Background 7")
addItem(newFormComboBox34, "HUD Background 8")
addItem(newFormComboBox34, "HUD Background 9")
procedure cb_function()
atom currindexnum
atom isradiochecked
sequence prevselected
currindexnum = getIndex(newFormComboBox34)
-- Start of "Last Selected" functions
if equal(prevselected, "ammo") then
isradiochecked = isChecked(newFormRadio11)
if equal(isradiochecked, 1) then
ammo[1] = "//"
end if
ammo[3] = getText(newFormEditText15)
ammo[4] = getText(newFormEditText16)
ammo[5] = getText(newFormEditText19)
ammo[6] = getText(newFormEditText20)
ammo[7] = getText(newFormEditText38)
ammo[8] = getText(newFormEditText39)
ammo[9] = getText(newFormEditText40)
ammo[10] = getText(newFormEditText41)
end if
if equal(prevselected, "ammoicon") then
isradiochecked = isChecked(newFormRadio11)
if equal(isradiochecked, 1) then
ammoicon[1] = "//"
end if
ammoicon[3] = getText(newFormEditText15)
ammoicon[4] = getText(newFormEditText16)
ammoicon[5] = getText(newFormEditText19)
ammoicon[6] = getText(newFormEditText20)
ammoicon[7] = getText(newFormEditText38)
ammoicon[8] = getText(newFormEditText39)
ammoicon[9] = getText(newFormEditText40)
ammoicon[10] = getText(newFormEditText41)
ammoicon[11] = getText(newFormEditText22)
end if
if equal(prevselected, "ammobar") then
isradiochecked = isChecked(newFormRadio11)
if equal(isradiochecked, 1) then
ammobar[1] = "//"
end if
ammobar[3] = getText(newFormEditText15)
ammobar[4] = getText(newFormEditText16)
ammobar[5] = getText(newFormEditText19)
isradiochecked = isChecked(newFormRadio25)
if equal(isradiochecked, 1) then
ammobar[5] = "value"
end if
ammobar[6] = getText(newFormEditText20)
isradiochecked = isChecked(newFormRadio26)
if equal(isradiochecked, 1) then
ammobar[6] = "value"
end if
ammobar[7] = getText(newFormEditText38)
ammobar[8] = getText(newFormEditText39)
ammobar[9] = getText(newFormEditText40)
ammobar[10] = getText(newFormEditText41)
ammobar[11] = getText(newFormEditText22)
ammobar[12] = getText(newFormEditText29)
isradiochecked = isChecked(newFormRadio30)
if equal(isradiochecked, 0) then
ammobar[13] = "0"
end if
isradiochecked = isChecked(newFormRadio26)
if equal(isradiochecked, 1) then
ammobar[13] = "1"
end if
end if
if equal(prevselected, "armor") then
isradiochecked = isChecked(newFormRadio11)
if equal(isradiochecked, 1) then
armor[1] = "//"
end if
armor[3] = getText(newFormEditText15)
armor[4] = getText(newFormEditText16)
armor[5] = getText(newFormEditText19)
armor[6] = getText(newFormEditText20)
armor[7] = getText(newFormEditText38)
armor[8] = getText(newFormEditText39)
armor[9] = getText(newFormEditText40)
armor[10] = getText(newFormEditText41)
end if
if equal(prevselected, "armoricon") then
isradiochecked = isChecked(newFormRadio11)
if equal(isradiochecked, 1) then
armoricon[1] = "//"
end if
armoricon[3] = getText(newFormEditText15)
armoricon[4] = getText(newFormEditText16)
armoricon[5] = getText(newFormEditText19)
armoricon[6] = getText(newFormEditText20)
armoricon[7] = getText(newFormEditText38)
armoricon[8] = getText(newFormEditText39)
armoricon[9] = getText(newFormEditText40)
armoricon[10] = getText(newFormEditText41)
armoricon[11] = getText(newFormEditText22)
end if
if equal(prevselected, "armorbar") then
isradiochecked = isChecked(newFormRadio11)
if equal(isradiochecked, 1) then
armorbar[1] = "//"
end if
armorbar[3] = getText(newFormEditText15)
armorbar[4] = getText(newFormEditText16)
armorbar[5] = getText(newFormEditText19)
isradiochecked = isChecked(newFormRadio25)
if equal(isradiochecked, 1) then
armorbar[5] = "value"
end if
armorbar[6] = getText(newFormEditText20)
isradiochecked = isChecked(newFormRadio26)
if equal(isradiochecked, 1) then
armorbar[6] = "value"
end if
armorbar[7] = getText(newFormEditText38)
armorbar[8] = getText(newFormEditText39)
armorbar[9] = getText(newFormEditText40)
armorbar[10] = getText(newFormEditText41)
armorbar[11] = getText(newFormEditText22)
armorbar[12] = getText(newFormEditText29)
isradiochecked = isChecked(newFormRadio30)
if equal(isradiochecked, 0) then
armorbar[13] = "0"
end if
isradiochecked = isChecked(newFormRadio26)
if equal(isradiochecked, 1) then
armorbar[13] = "1"
end if
end if
if equal(prevselected, "health") then
isradiochecked = isChecked(newFormRadio11)
if equal(isradiochecked, 1) then
health[1] = "//"
end if
health[3] = getText(newFormEditText15)
health[4] = getText(newFormEditText16)
health[5] = getText(newFormEditText19)
health[6] = getText(newFormEditText20)
health[7] = getText(newFormEditText38)
health[8] = getText(newFormEditText39)
health[9] = getText(newFormEditText40)
health[10] = getText(newFormEditText41)
end if
if equal(prevselected, "healthicon") then
isradiochecked = isChecked(newFormRadio11)
if equal(isradiochecked, 1) then
healthicon[1] = "//"
end if
healthicon[3] = getText(newFormEditText15)
healthicon[4] = getText(newFormEditText16)
healthicon[5] = getText(newFormEditText19)
healthicon[6] = getText(newFormEditText20)
healthicon[7] = getText(newFormEditText38)
healthicon[8] = getText(newFormEditText39)
healthicon[9] = getText(newFormEditText40)
healthicon[10] = getText(newFormEditText41)
healthicon[11] = getText(newFormEditText22)
end if
if equal(prevselected, "healthbar") then
isradiochecked = isChecked(newFormRadio11)
if equal(isradiochecked, 1) then
healthbar[1] = "//"
end if
healthbar[3] = getText(newFormEditText15)
healthbar[4] = getText(newFormEditText16)
healthbar[5] = getText(newFormEditText19)
isradiochecked = isChecked(newFormRadio25)
if equal(isradiochecked, 1) then
healthbar[5] = "value"
end if
healthbar[6] = getText(newFormEditText20)
isradiochecked = isChecked(newFormRadio26)
if equal(isradiochecked, 1) then
healthbar[6] = "value"
end if
healthbar[7] = getText(newFormEditText38)
healthbar[8] = getText(newFormEditText39)
healthbar[9] = getText(newFormEditText40)
healthbar[10] = getText(newFormEditText41)
healthbar[11] = getText(newFormEditText22)
healthbar[12] = getText(newFormEditText29)
isradiochecked = isChecked(newFormRadio30)
if equal(isradiochecked, 0) then
healthbar[13] = "0"
end if
isradiochecked = isChecked(newFormRadio26)
if equal(isradiochecked, 1) then
healthbar[13] = "1"
end if
end if
if equal(prevselected, "clip") then
isradiochecked = isChecked(newFormRadio11)
if equal(isradiochecked, 1) then
clip[1] = "//"
end if
clip[3] = getText(newFormEditText15)
clip[4] = getText(newFormEditText16)
clip[5] = getText(newFormEditText19)
clip[6] = getText(newFormEditText20)
clip[7] = getText(newFormEditText38)
clip[8] = getText(newFormEditText39)
clip[9] = getText(newFormEditText40)
clip[10] = getText(newFormEditText41)
end if
if equal(prevselected, "clipicon") then
isradiochecked = isChecked(newFormRadio11)
if equal(isradiochecked, 1) then
clipicon[1] = "//"
end if
clipicon[3] = getText(newFormEditText15)
clipicon[4] = getText(newFormEditText16)
clipicon[5] = getText(newFormEditText19)
clipicon[6] = getText(newFormEditText20)
clipicon[7] = getText(newFormEditText38)
clipicon[8] = getText(newFormEditText39)
clipicon[9] = getText(newFormEditText40)
clipicon[10] = getText(newFormEditText41)
clipicon[11] = getText(newFormEditText22)
end if
if equal(prevselected, "clipbar") then
isradiochecked = isChecked(newFormRadio11)
if equal(isradiochecked, 1) then
clipbar[1] = "//"
end if
clipbar[3] = getText(newFormEditText15)
clipbar[4] = getText(newFormEditText16)
clipbar[5] = getText(newFormEditText19)
isradiochecked = isChecked(newFormRadio25)
if equal(isradiochecked, 1) then
clipbar[5] = "value"
end if
clipbar[6] = getText(newFormEditText20)
isradiochecked = isChecked(newFormRadio26)
if equal(isradiochecked, 1) then
clipbar[6] = "value"
end if
clipbar[7] = getText(newFormEditText38)
clipbar[8] = getText(newFormEditText39)
clipbar[9] = getText(newFormEditText40)
clipbar[10] = getText(newFormEditText41)
clipbar[11] = getText(newFormEditText22)
clipbar[12] = getText(newFormEditText29)
isradiochecked = isChecked(newFormRadio30)
if equal(isradiochecked, 0) then
clipbar[13] = "0"
end if
isradiochecked = isChecked(newFormRadio26)
if equal(isradiochecked, 1) then
clipbar[13] = "1"
end if
end if
if equal(prevselected, "firemode") then
isradiochecked = isChecked(newFormRadio11)
if equal(isradiochecked, 1) then
firemode[1] = "//"
end if
firemode[3] = getText(newFormEditText15)
firemode[4] = getText(newFormEditText16)
firemode[5] = getText(newFormEditText19)
firemode[6] = getText(newFormEditText20)
firemode[7] = getText(newFormEditText38)
firemode[8] = getText(newFormEditText39)
firemode[9] = getText(newFormEditText40)
firemode[10] = getText(newFormEditText41)
firemode[11] = getText(newFormEditText22)
end if
if equal(prevselected, "ammooverview") then
isradiochecked = isChecked(newFormRadio11)
if equal(isradiochecked, 1) then
ammooverview[1] = "//"
end if
ammooverview[3] = getText(newFormEditText15)
ammooverview[4] = getText(newFormEditText16)
ammooverview[5] = getText(newFormEditText19)
ammooverview[6] = getText(newFormEditText20)
ammooverview[7] = getText(newFormEditText38)
ammooverview[8] = getText(newFormEditText39)
ammooverview[9] = getText(newFormEditText40)
ammooverview[10] = getText(newFormEditText41)
ammooverview[11] = getText(newFormEditText22)
end if
if equal(prevselected, "hudback1") then
isradiochecked = isChecked(newFormRadio11)
if equal(isradiochecked, 1) then
hudback1[1] = "//"
end if
hudback1[3] = getText(newFormEditText15)
hudback1[4] = getText(newFormEditText16)
hudback1[5] = getText(newFormEditText19)
hudback1[6] = getText(newFormEditText20)
hudback1[7] = getText(newFormEditText38)
hudback1[8] = getText(newFormEditText39)
hudback1[9] = getText(newFormEditText40)
hudback1[10] = getText(newFormEditText41)
hudback1[11] = getText(newFormEditText22)
end if
if equal(prevselected, "hudback2") then
isradiochecked = isChecked(newFormRadio11)
if equal(isradiochecked, 1) then
hudback2[1] = "//"
end if
hudback2[3] = getText(newFormEditText15)
hudback2[4] = getText(newFormEditText16)
hudback2[5] = getText(newFormEditText19)
hudback2[6] = getText(newFormEditText20)
hudback2[7] = getText(newFormEditText38)
hudback2[8] = getText(newFormEditText39)
hudback2[9] = getText(newFormEditText40)
hudback2[10] = getText(newFormEditText41)
hudback2[11] = getText(newFormEditText22)
end if
if equal(prevselected, "hudback3") then
isradiochecked = isChecked(newFormRadio11)
if equal(isradiochecked, 1) then
hudback3[1] = "//"
end if
hudback3[3] = getText(newFormEditText15)
hudback3[4] = getText(newFormEditText16)
hudback3[5] = getText(newFormEditText19)
hudback3[6] = getText(newFormEditText20)
hudback3[7] = getText(newFormEditText38)
hudback3[8] = getText(newFormEditText39)
hudback3[9] = getText(newFormEditText40)
hudback3[10] = getText(newFormEditText41)
hudback3[11] = getText(newFormEditText22)
end if
if equal(prevselected, "hudback4") then
isradiochecked = isChecked(newFormRadio11)
if equal(isradiochecked, 1) then
hudback4[1] = "//"
end if
hudback4[3] = getText(newFormEditText15)
hudback4[4] = getText(newFormEditText16)
hudback4[5] = getText(newFormEditText19)
hudback4[6] = getText(newFormEditText20)
hudback4[7] = getText(newFormEditText38)
hudback4[8] = getText(newFormEditText39)
hudback4[9] = getText(newFormEditText40)
hudback4[10] = getText(newFormEditText41)
hudback4[11] = getText(newFormEditText22)
end if
if equal(prevselected, "hudback5") then
isradiochecked = isChecked(newFormRadio11)
if equal(isradiochecked, 1) then
hudback5[1] = "//"
end if
hudback5[3] = getText(newFormEditText15)
hudback5[4] = getText(newFormEditText16)
hudback5[5] = getText(newFormEditText19)
hudback5[6] = getText(newFormEditText20)
hudback5[7] = getText(newFormEditText38)
hudback5[8] = getText(newFormEditText39)
hudback5[9] = getText(newFormEditText40)
hudback5[10] = getText(newFormEditText41)
hudback5[11] = getText(newFormEditText22)
end if
if equal(prevselected, "hudback6") then
isradiochecked = isChecked(newFormRadio11)
if equal(isradiochecked, 1) then
hudback6[1] = "//"
end if
hudback6[3] = getText(newFormEditText15)
hudback6[4] = getText(newFormEditText16)
hudback6[5] = getText(newFormEditText19)
hudback6[6] = getText(newFormEditText20)
hudback6[7] = getText(newFormEditText38)
hudback6[8] = getText(newFormEditText39)
hudback6[9] = getText(newFormEditText40)
hudback6[10] = getText(newFormEditText41)
hudback6[11] = getText(newFormEditText22)
end if
if equal(prevselected, "hudback7") then
isradiochecked = isChecked(newFormRadio11)
if equal(isradiochecked, 1) then
hudback7[1] = "//"
end if
hudback7[3] = getText(newFormEditText15)
hudback7[4] = getText(newFormEditText16)
hudback7[5] = getText(newFormEditText19)
hudback7[6] = getText(newFormEditText20)
hudback7[7] = getText(newFormEditText38)
hudback7[8] = getText(newFormEditText39)
hudback7[9] = getText(newFormEditText40)
hudback7[10] = getText(newFormEditText41)
hudback7[11] = getText(newFormEditText22)
end if
if equal(prevselected, "hudback8") then
isradiochecked = isChecked(newFormRadio11)
if equal(isradiochecked, 1) then
hudback8[1] = "//"
end if
hudback8[3] = getText(newFormEditText15)
hudback8[4] = getText(newFormEditText16)
hudback8[5] = getText(newFormEditText19)
hudback8[6] = getText(newFormEditText20)
hudback8[7] = getText(newFormEditText38)
hudback8[8] = getText(newFormEditText39)
hudback8[9] = getText(newFormEditText40)
hudback8[10] = getText(newFormEditText41)
hudback8[11] = getText(newFormEditText22)
end if
if equal(prevselected, "hudback9") then
isradiochecked = isChecked(newFormRadio11)
if equal(isradiochecked, 1) then
hudback9[1] = "//"
end if
hudback9[3] = getText(newFormEditText15)
hudback9[4] = getText(newFormEditText16)
hudback9[5] = getText(newFormEditText19)
hudback9[6] = getText(newFormEditText20)
hudback9[7] = getText(newFormEditText38)
hudback9[8] = getText(newFormEditText39)
hudback9[9] = getText(newFormEditText40)
hudback9[10] = getText(newFormEditText41)
hudback9[11] = getText(newFormEditText22)
end if
-- End of "Last Selected" functions
-- Start of "Currently selected" functions
if equal(currindexnum, 1) then
prevselected = "ammo"
setEnable(newFormEditText29, False)
setEnable(newFormRadio25, False)
setEnable(newFormRadio26, False)
setEnable(newFormRadio30, False)
setEnable(newFormRadio31, False)
if equal(ammo[1], "//") then
setCheck(newFormRadio11, True)
end if
setText(newFormEditText15, ammo[3])
setText(newFormEditText16, ammo[4])
setText(newFormEditText19, ammo[5])
setText(newFormEditText20, ammo[6])
setText(newFormEditText38, ammo[7])
setText(newFormEditText39, ammo[8])
setText(newFormEditText40, ammo[9])
setText(newFormEditText41, ammo[10])
end if
if equal(currindexnum, 2) then
prevselected = "armor"
setEnable(newFormEditText29, False)
setEnable(newFormRadio25, False)
setEnable(newFormRadio26, False)
setEnable(newFormRadio30, False)
setEnable(newFormRadio31, False)
if equal(armor[1], "//") then
setCheck(newFormRadio11, True)
end if
setText(newFormEditText15, armor[3])
setText(newFormEditText16, armor[4])
setText(newFormEditText19, armor[5])
setText(newFormEditText20, armor[6])
setText(newFormEditText38, armor[7])
setText(newFormEditText39, armor[8])
setText(newFormEditText40, armor[9])
setText(newFormEditText41, armor[10])
end if
if equal(currindexnum, 3) then
prevselected = "health"
setEnable(newFormEditText29, False)
setEnable(newFormRadio25, False)
setEnable(newFormRadio26, False)
setEnable(newFormRadio30, False)
setEnable(newFormRadio31, False)
if equal(health[1], "//") then
setCheck(newFormRadio11, True)
end if
setText(newFormEditText15, health[3])
setText(newFormEditText16, health[4])
setText(newFormEditText19, health[5])
setText(newFormEditText20, health[6])
setText(newFormEditText38, health[7])
setText(newFormEditText39, health[8])
setText(newFormEditText40, health[9])
setText(newFormEditText41, health[10])
end if
if equal(currindexnum, 4) then
prevselected = "clip"
setEnable(newFormEditText29, False)
setEnable(newFormRadio25, False)
setEnable(newFormRadio26, False)
setEnable(newFormRadio30, False)
setEnable(newFormRadio31, False)
if equal(clip[1], "//") then
setCheck(newFormRadio11, True)
end if
setText(newFormEditText15, clip[3])
setText(newFormEditText16, clip[4])
setText(newFormEditText19, clip[5])
setText(newFormEditText20, clip[6])
setText(newFormEditText38, clip[7])
setText(newFormEditText39, clip[8])
setText(newFormEditText40, clip[9])
setText(newFormEditText41, clip[10])
end if
if equal(currindexnum, 5) then
prevselected = "ammoicon"
setEnable(newFormEditText29, False)
setEnable(newFormRadio25, False)
setEnable(newFormRadio26, False)
setEnable(newFormRadio30, False)
setEnable(newFormRadio31, False)
if equal(ammoicon[1], "//") then
setCheck(newFormRadio11, True)
end if
setText(newFormEditText15, ammoicon[3])
setText(newFormEditText16, ammoicon[4])
setText(newFormEditText19, ammoicon[5])
setText(newFormEditText20, ammoicon[6])
setText(newFormEditText38, ammoicon[7])
setText(newFormEditText39, ammoicon[8])
setText(newFormEditText40, ammoicon[9])
setText(newFormEditText41, ammoicon[10])
setText(newFormEditText22, ammoicon[11])
end if
if equal(currindexnum, 6) then
prevselected = "armoricon"
setEnable(newFormEditText29, False)
setEnable(newFormRadio25, False)
setEnable(newFormRadio26, False)
setEnable(newFormRadio30, False)
setEnable(newFormRadio31, False)
if equal(armoricon[1], "//") then
setCheck(newFormRadio11, True)
end if
setText(newFormEditText15, armoricon[3])
setText(newFormEditText16, armoricon[4])
setText(newFormEditText19, armoricon[5])
setText(newFormEditText20, armoricon[6])
setText(newFormEditText38, armoricon[7])
setText(newFormEditText39, armoricon[8])
setText(newFormEditText40, armoricon[9])
setText(newFormEditText41, armoricon[10])
setText(newFormEditText22, armoricon[11])
end if
if equal(currindexnum, 7) then
prevselected = "healthicon"
setEnable(newFormEditText29, False)
setEnable(newFormRadio25, False)
setEnable(newFormRadio26, False)
setEnable(newFormRadio30, False)
setEnable(newFormRadio31, False)
if equal(healthicon[1], "//") then
setCheck(newFormRadio11, True)
end if
setText(newFormEditText15, healthicon[3])
setText(newFormEditText16, healthicon[4])
setText(newFormEditText19, healthicon[5])
setText(newFormEditText20, healthicon[6])
setText(newFormEditText38, healthicon[7])
setText(newFormEditText39, healthicon[8])
setText(newFormEditText40, healthicon[9])
setText(newFormEditText41, healthicon[10])
setText(newFormEditText22, healthicon[11])
end if
if equal(currindexnum, 8) then
prevselected = "clipicon"
setEnable(newFormEditText29, False)
setEnable(newFormRadio25, False)
setEnable(newFormRadio26, False)
setEnable(newFormRadio30, False)
setEnable(newFormRadio31, False)
if equal(clipicon[1], "//") then
setCheck(newFormRadio11, True)
end if
setText(newFormEditText15, clipicon[3])
setText(newFormEditText16, clipicon[4])
setText(newFormEditText19, clipicon[5])
setText(newFormEditText20, clipicon[6])
setText(newFormEditText38, clipicon[7])
setText(newFormEditText39, clipicon[8])
setText(newFormEditText40, clipicon[9])
setText(newFormEditText41, clipicon[10])
setText(newFormEditText22, clipicon[11])
end if
if equal(currindexnum, 9) then
prevselected = "ammobar"
setEnable(newFormEditText29, True)
setEnable(newFormRadio25, True)
setEnable(newFormRadio26, True)
setEnable(newFormRadio30, True)
setEnable(newFormRadio31, True)
if equal(ammobar[1], "//") then
setCheck(newFormRadio11, True)
end if
setText(newFormEditText15, ammobar[3])
setText(newFormEditText16, ammobar[4])
if equal(ammobar[5], "value") then
setCheck(newFormRadio25, True)
setEnable(newFormEditText19, False)
setEnable(newFormEditText20, True)
end if
if equal(ammobar[6], "value") then
setCheck(newFormRadio26, True)
setEnable(newFormEditText19, True)
setEnable(newFormEditText20, False)
end if
setText(newFormEditText38, ammobar[7])
setText(newFormEditText39, ammobar[8])
setText(newFormEditText40, ammobar[9])
setText(newFormEditText41, ammobar[10])
setText(newFormEditText22, ammobar[11])
setText(newFormEditText29, ammobar[12])
if equal(ammobar[13], "0") then
setCheck(newFormRadio30, True)
end if
if equal(ammobar[13], "0") then
setCheck(newFormRadio30, True)
end if
end if
if equal(currindexnum, 10) then
prevselected = "armorbar"
setEnable(newFormEditText29, True)
setEnable(newFormRadio25, True)
setEnable(newFormRadio26, True)
setEnable(newFormRadio30, True)
setEnable(newFormRadio31, True)
if equal(armorbar[1], "//") then
setCheck(newFormRadio11, True)
end if
setText(newFormEditText15, armorbar[3])
setText(newFormEditText16, armorbar[4])
if equal(armorbar[5], "value") then
setCheck(newFormRadio25, True)
setEnable(newFormEditText19, False)
setEnable(newFormEditText20, True)
end if
if equal(armorbar[6], "value") then
setCheck(newFormRadio26, True)
setEnable(newFormEditText19, True)
setEnable(newFormEditText20, False)
end if
setText(newFormEditText38, armorbar[7])
setText(newFormEditText39, armorbar[8])
setText(newFormEditText40, armorbar[9])
setText(newFormEditText41, armorbar[10])
setText(newFormEditText22, armorbar[11])
setText(newFormEditText29, armorbar[12])
if equal(armorbar[13], "0") then
setCheck(newFormRadio30, True)
end if
if equal(armorbar[13], "0") then
setCheck(newFormRadio30, True)
end if
end if
if equal(currindexnum, 11) then
prevselected = "healthbar"
setEnable(newFormEditText29, True)
setEnable(newFormRadio25, True)
setEnable(newFormRadio26, True)
setEnable(newFormRadio30, True)
setEnable(newFormRadio31, True)
if equal(healthbar[1], "//") then
setCheck(newFormRadio11, True)
end if
setText(newFormEditText15, healthbar[3])
setText(newFormEditText16, healthbar[4])
if equal(healthbar[5], "value") then
setCheck(newFormRadio25, True)
setEnable(newFormEditText19, False)
setEnable(newFormEditText20, True)
end if
if equal(healthbar[6], "value") then
setCheck(newFormRadio26, True)
setEnable(newFormEditText19, True)
setEnable(newFormEditText20, False)
end if
setText(newFormEditText38, healthbar[7])
setText(newFormEditText39, healthbar[8])
setText(newFormEditText40, healthbar[9])
setText(newFormEditText41, healthbar[10])
setText(newFormEditText22, healthbar[11])
setText(newFormEditText29, healthbar[12])
if equal(healthbar[13], "0") then
setCheck(newFormRadio30, True)
end if
if equal(healthbar[13], "0") then
setCheck(newFormRadio30, True)
end if
end if
if equal(currindexnum, 12) then
prevselected = "clipbar"
setEnable(newFormEditText29, True)
setEnable(newFormRadio25, True)
setEnable(newFormRadio26, True)
setEnable(newFormRadio30, True)
setEnable(newFormRadio31, True)
if equal(clipbar[1], "//") then
setCheck(newFormRadio11, True)
end if
setText(newFormEditText15, clipbar[3])
setText(newFormEditText16, clipbar[4])
if equal(clipbar[5], "value") then
setCheck(newFormRadio25, True)
setEnable(newFormEditText19, False)
setEnable(newFormEditText20, True)
end if
if equal(clipbar[6], "value") then
setCheck(newFormRadio26, True)
setEnable(newFormEditText19, True)
setEnable(newFormEditText20, False)
end if
setText(newFormEditText38, clipbar[7])
setText(newFormEditText39, clipbar[8])
setText(newFormEditText40, clipbar[9])
setText(newFormEditText41, clipbar[10])
setText(newFormEditText22, clipbar[11])
setText(newFormEditText29, clipbar[12])
if equal(clipbar[13], "0") then
setCheck(newFormRadio30, True)
end if
if equal(clipbar[13], "0") then
setCheck(newFormRadio30, True)
end if
end if
if equal(currindexnum, 13) then
prevselected = "firemode"
setEnable(newFormEditText29, False)
setEnable(newFormRadio25, False)
setEnable(newFormRadio26, False)
setEnable(newFormRadio30, False)
setEnable(newFormRadio31, False)
if equal(firemode[1], "//") then
setCheck(newFormRadio11, True)
end if
setText(newFormEditText15, firemode[3])
setText(newFormEditText16, firemode[4])
setText(newFormEditText19, firemode[5])
setText(newFormEditText20, firemode[6])
setText(newFormEditText38, firemode[7])
setText(newFormEditText39, firemode[8])
setText(newFormEditText40, firemode[9])
setText(newFormEditText41, firemode[10])
end if
if equal(currindexnum, 14) then
prevselected = "ammooverview"
setEnable(newFormEditText29, False)
setEnable(newFormRadio25, False)
setEnable(newFormRadio26, False)
setEnable(newFormRadio30, False)
setEnable(newFormRadio31, False)
if equal(ammooverview[1], "//") then
setCheck(newFormRadio11, True)
end if
setText(newFormEditText15, ammooverview[3])
setText(newFormEditText16, ammooverview[4])
setText(newFormEditText19, ammooverview[5])
setText(newFormEditText20, ammooverview[6])
setText(newFormEditText38, ammooverview[7])
setText(newFormEditText39, ammooverview[8])
setText(newFormEditText40, ammooverview[9])
setText(newFormEditText41, ammooverview[10])
end if
if equal(currindexnum, 15) then
prevselected = "hudback1"
setEnable(newFormEditText29, False)
setEnable(newFormRadio25, False)
setEnable(newFormRadio26, False)
setEnable(newFormRadio30, False)
setEnable(newFormRadio31, False)
if equal(hudback1[1], "//") then
setCheck(newFormRadio11, True)
end if
setText(newFormEditText15, hudback1[3])
setText(newFormEditText16, hudback1[4])
setText(newFormEditText19, hudback1[5])
setText(newFormEditText20, hudback1[6])
setText(newFormEditText38, hudback1[7])
setText(newFormEditText39, hudback1[8])
setText(newFormEditText40, hudback1[9])
setText(newFormEditText41, hudback1[10])
setText(newFormEditText22, hudback1[11])
end if
if equal(currindexnum, 16) then
prevselected = "hudback2"
setEnable(newFormEditText29, False)
setEnable(newFormRadio25, False)
setEnable(newFormRadio26, False)
setEnable(newFormRadio30, False)
setEnable(newFormRadio31, False)
if equal(hudback2[1], "//") then
setCheck(newFormRadio11, True)
end if
setText(newFormEditText15, hudback2[3])
setText(newFormEditText16, hudback2[4])
setText(newFormEditText19, hudback2[5])
setText(newFormEditText20, hudback2[6])
setText(newFormEditText38, hudback2[7])
setText(newFormEditText39, hudback2[8])
setText(newFormEditText40, hudback2[9])
setText(newFormEditText41, hudback2[10])
setText(newFormEditText22, hudback2[11])
end if
if equal(currindexnum, 17) then
prevselected = "hudback3"
setEnable(newFormEditText29, False)
setEnable(newFormRadio25, False)
setEnable(newFormRadio26, False)
setEnable(newFormRadio30, False)
setEnable(newFormRadio31, False)
if equal(hudback3[1], "//") then
setCheck(newFormRadio11, True)
end if
setText(newFormEditText15, hudback3[3])
setText(newFormEditText16, hudback3[4])
setText(newFormEditText19, hudback3[5])
setText(newFormEditText20, hudback3[6])
setText(newFormEditText38, hudback3[7])
setText(newFormEditText39, hudback3[8])
setText(newFormEditText40, hudback3[9])
setText(newFormEditText41, hudback3[10])
setText(newFormEditText22, hudback3[11])
end if
if equal(currindexnum, 18) then
prevselected = "hudback4"
setEnable(newFormEditText29, False)
setEnable(newFormRadio25, False)
setEnable(newFormRadio26, False)
setEnable(newFormRadio30, False)
setEnable(newFormRadio31, False)
if equal(hudback4[1], "//") then
setCheck(newFormRadio11, True)
end if
setText(newFormEditText15, hudback4[3])
setText(newFormEditText16, hudback4[4])
setText(newFormEditText19, hudback4[5])
setText(newFormEditText20, hudback4[6])
setText(newFormEditText38, hudback4[7])
setText(newFormEditText39, hudback4[8])
setText(newFormEditText40, hudback4[9])
setText(newFormEditText41, hudback4[10])
setText(newFormEditText22, hudback4[11])
end if
if equal(currindexnum, 19) then
prevselected = "hudback5"
setEnable(newFormEditText29, False)
setEnable(newFormRadio25, False)
setEnable(newFormRadio26, False)
setEnable(newFormRadio30, False)
setEnable(newFormRadio31, False)
if equal(hudback5[1], "//") then
setCheck(newFormRadio11, True)
end if
setText(newFormEditText15, hudback5[3])
setText(newFormEditText16, hudback5[4])
setText(newFormEditText19, hudback5[5])
setText(newFormEditText20, hudback5[6])
setText(newFormEditText38, hudback5[7])
setText(newFormEditText39, hudback5[8])
setText(newFormEditText40, hudback5[9])
setText(newFormEditText41, hudback5[10])
setText(newFormEditText22, hudback5[11])
end if
if equal(currindexnum, 20) then
prevselected = "hudback6"
setEnable(newFormEditText29, False)
setEnable(newFormRadio25, False)
setEnable(newFormRadio26, False)
setEnable(newFormRadio30, False)
setEnable(newFormRadio31, False)
if equal(hudback6[1], "//") then
setCheck(newFormRadio11, True)
end if
setText(newFormEditText15, hudback6[3])
setText(newFormEditText16, hudback6[4])
setText(newFormEditText19, hudback6[5])
setText(newFormEditText20, hudback6[6])
setText(newFormEditText38, hudback6[7])
setText(newFormEditText39, hudback6[8])
setText(newFormEditText40, hudback6[9])
setText(newFormEditText41, hudback6[10])
setText(newFormEditText22, hudback6[11])
end if
if equal(currindexnum, 21) then
prevselected = "hudback7"
setEnable(newFormEditText29, False)
setEnable(newFormRadio25, False)
setEnable(newFormRadio26, False)
setEnable(newFormRadio30, False)
setEnable(newFormRadio31, False)
if equal(hudback7[1], "//") then
setCheck(newFormRadio11, True)
end if
setText(newFormEditText15, hudback7[3])
setText(newFormEditText16, hudback7[4])
setText(newFormEditText19, hudback7[5])
setText(newFormEditText20, hudback7[6])
setText(newFormEditText38, hudback7[7])
setText(newFormEditText39, hudback7[8])
setText(newFormEditText40, hudback7[9])
setText(newFormEditText41, hudback7[10])
setText(newFormEditText22, hudback7[11])
end if
if equal(currindexnum, 22) then
prevselected = "hudback8"
setEnable(newFormEditText29, False)
setEnable(newFormRadio25, False)
setEnable(newFormRadio26, False)
setEnable(newFormRadio30, False)
setEnable(newFormRadio31, False)
if equal(hudback8[1], "//") then
setCheck(newFormRadio11, True)
end if
setText(newFormEditText15, hudback8[3])
setText(newFormEditText16, hudback8[4])
setText(newFormEditText19, hudback8[5])
setText(newFormEditText20, hudback8[6])
setText(newFormEditText38, hudback8[7])
setText(newFormEditText39, hudback8[8])
setText(newFormEditText40, hudback8[9])
setText(newFormEditText41, hudback8[10])
setText(newFormEditText22, hudback8[11])
end if
if equal(currindexnum, 23) then
prevselected = "hudback9"
setEnable(newFormEditText29, False)
setEnable(newFormRadio25, False)
setEnable(newFormRadio26, False)
setEnable(newFormRadio30, False)
setEnable(newFormRadio31, False)
if equal(hudback9[1], "//") then
setCheck(newFormRadio11, True)
end if
setText(newFormEditText15, hudback9[3])
setText(newFormEditText16, hudback9[4])
setText(newFormEditText19, hudback9[5])
setText(newFormEditText20, hudback9[6])
setText(newFormEditText38, hudback9[7])
setText(newFormEditText39, hudback9[8])
setText(newFormEditText40, hudback9[9])
setText(newFormEditText41, hudback9[10])
setText(newFormEditText22, hudback9[11])
end if
end procedure
procedure loadhudfile()
sequence path
--object hudfile
--object hudfile_Form
object line
object buffer
atom win_nextLine
object errorwindow
win_nextLine = 10
path = "e:\\quake3\\fmj\\"
hudfile_Form = getText(newFormEditText5)
hudfile = open(path & hudfile_Form & ".hud", "rb")
if hudfile = -1 then
end if
-- trace(1)
buffer = {}
while 1 do
line = gets(hudfile)
if atom(line) then
exit -- -1 is returned at end of file
end if
buffer = parse(line, 9)
setPosition(newForm, 492,280)
wPuts(newForm, buffer[1])
-- Goddamn. Here comes the sorting part...
if equal(buffer[1], "ammo") then
ammo[1] = ""
ammo[3] = buffer[2]
ammo[4] = buffer[3]
ammo[5] = buffer[4]
ammo[6] = buffer[5]
ammo[7] = buffer[6]
ammo[8] = buffer[7]
ammo[9] = buffer[8]
ammo[10] = buffer[9]
end if
if equal(buffer[1], "armor") then
armor[1] = ""
armor[3] = buffer[2]
armor[4] = buffer[3]
armor[5] = buffer[4]
armor[6] = buffer[5]
armor[7] = buffer[6]
armor[8] = buffer[7]
armor[9] = buffer[8]
armor[10] = buffer[9]
end if
if equal(buffer[1], "health") then
health[1] = ""
health[3] = buffer[2]
health[4] = buffer[3]
health[5] = buffer[4]
health[6] = buffer[5]
health[7] = buffer[6]
health[8] = buffer[7]
health[9] = buffer[8]
health[10] = buffer[9]
end if
if equal(buffer[1], "clip") then
clip[1] = ""
clip[3] = buffer[2]
clip[4] = buffer[3]
clip[5] = buffer[4]
clip[6] = buffer[5]
clip[7] = buffer[6]
clip[8] = buffer[7]
clip[9] = buffer[8]
clip[10] = buffer[9]
end if
if equal(buffer[1], "ammoicon") then
ammoicon[1] = ""
ammoicon[3] = buffer[2]
ammoicon[4] = buffer[3]
ammoicon[5] = buffer[4]
ammoicon[6] = buffer[5]
ammoicon[7] = buffer[6]
ammoicon[8] = buffer[7]
ammoicon[9] = buffer[8]
ammoicon[10] = buffer[9]
ammoicon[11] = buffer[10]
end if
if equal(buffer[1], "armoricon") then
armoricon[1] = ""
armoricon[3] = buffer[2]
armoricon[4] = buffer[3]
armoricon[5] = buffer[4]
armoricon[6] = buffer[5]
armoricon[7] = buffer[6]
armoricon[8] = buffer[7]
armoricon[9] = buffer[8]
armoricon[10] = buffer[9]
armoricon[11] = buffer[10]
end if
if equal(buffer[1], "healthicon") then
healthicon[1] = ""
healthicon[3] = buffer[2]
healthicon[4] = buffer[3]
healthicon[5] = buffer[4]
healthicon[6] = buffer[5]
healthicon[7] = buffer[6]
healthicon[8] = buffer[7]
healthicon[9] = buffer[8]
healthicon[10] = buffer[9]
healthicon[11] = buffer[10]
end if
if equal(buffer[1], "clipicon") then
clipicon[1] = ""
clipicon[3] = buffer[2]
clipicon[4] = buffer[3]
clipicon[5] = buffer[4]
clipicon[6] = buffer[5]
clipicon[7] = buffer[6]
clipicon[8] = buffer[7]
clipicon[9] = buffer[8]
clipicon[10] = buffer[9]
clipicon[11] = buffer[10]
end if
if equal(buffer[1], "ammobar") then
ammobar[1] = ""
ammobar[3] = buffer[2]
ammobar[4] = buffer[3]
ammobar[5] = buffer[4]
ammobar[6] = buffer[5]
ammobar[7] = buffer[6]
ammobar[8] = buffer[7]
ammobar[9] = buffer[8]
ammobar[10] = buffer[9]
ammobar[11] = buffer[10]
ammobar[12] = buffer[11]
ammobar[13] = buffer[12]
end if
if equal(buffer[1], "armorbar") then
armorbar[1] = ""
armorbar[3] = buffer[2]
armorbar[4] = buffer[3]
armorbar[5] = buffer[4]
armorbar[6] = buffer[5]
armorbar[7] = buffer[6]
armorbar[8] = buffer[7]
armorbar[9] = buffer[8]
armorbar[10] = buffer[9]
armorbar[11] = buffer[10]
end if
if equal(buffer[1], "healthbar") then
healthbar[1] = ""
healthbar[3] = buffer[2]
healthbar[4] = buffer[3]
healthbar[5] = buffer[4]
healthbar[6] = buffer[5]
healthbar[7] = buffer[6]
healthbar[8] = buffer[7]
healthbar[9] = buffer[8]
healthbar[10] = buffer[9]
healthbar[11] = buffer[10]
healthbar[12] = buffer[11]
healthbar[13] = buffer[12]
end if
if equal(buffer[1], "clipbar") then
clipbar[1] = ""
clipbar[3] = buffer[2]
clipbar[4] = buffer[3]
clipbar[5] = buffer[4]
clipbar[6] = buffer[5]
clipbar[7] = buffer[6]
clipbar[8] = buffer[7]
clipbar[9] = buffer[8]
clipbar[10] = buffer[9]
clipbar[11] = buffer[10]
clipbar[12] = buffer[11]
clipbar[13] = buffer[12]
end if
if equal(buffer[1], "firemode") then
firemode[1] = ""
firemode[3] = buffer[2]
firemode[4] = buffer[3]
firemode[5] = buffer[4]
firemode[6] = buffer[5]
firemode[7] = buffer[6]
firemode[8] = buffer[7]
firemode[9] = buffer[8]
firemode[10] = buffer[9]
end if
if equal(buffer[1], "ammooverview") then
ammooverview[1] = ""
ammooverview[3] = buffer[2]
ammooverview[4] = buffer[3]
ammooverview[5] = buffer[4]
ammooverview[6] = buffer[5]
ammooverview[7] = buffer[6]
ammooverview[8] = buffer[7]
ammooverview[9] = buffer[8]
ammooverview[10] = buffer[9]
end if
if equal(buffer[1], "hudback1") then
hudback1[1] = ""
hudback1[3] = buffer[2]
hudback1[4] = buffer[3]
hudback1[5] = buffer[4]
hudback1[6] = buffer[5]
hudback1[7] = buffer[6]
hudback1[8] = buffer[7]
hudback1[9] = buffer[8]
hudback1[10] = buffer[9]
hudback1[11] = buffer[10]
end if
if equal(buffer[1], "hudback2") then
hudback2[1] = ""
hudback2[3] = buffer[2]
hudback2[4] = buffer[3]
hudback2[5] = buffer[4]
hudback2[6] = buffer[5]
hudback2[7] = buffer[6]
hudback2[8] = buffer[7]
hudback2[9] = buffer[8]
hudback2[10] = buffer[9]
hudback2[11] = buffer[10]
end if
if equal(buffer[1], "hudback3") then
hudback3[1] = ""
hudback3[3] = buffer[2]
hudback3[4] = buffer[3]
hudback3[5] = buffer[4]
hudback3[6] = buffer[5]
hudback3[7] = buffer[6]
hudback3[8] = buffer[7]
hudback3[9] = buffer[8]
hudback3[10] = buffer[9]
hudback3[11] = buffer[10]
end if
if equal(buffer[1], "hudback4") then
hudback4[1] = ""
hudback4[3] = buffer[2]
hudback4[4] = buffer[3]
hudback4[5] = buffer[4]
hudback4[6] = buffer[5]
hudback4[7] = buffer[6]
hudback4[8] = buffer[7]
hudback4[9] = buffer[8]
hudback4[10] = buffer[9]
hudback4[11] = buffer[10]
end if
if equal(buffer[1], "hudback5") then
hudback5[1] = ""
hudback5[3] = buffer[2]
hudback5[4] = buffer[3]
hudback5[5] = buffer[4]
hudback5[6] = buffer[5]
hudback5[7] = buffer[6]
hudback5[8] = buffer[7]
hudback5[9] = buffer[8]
hudback5[10] = buffer[9]
hudback5[11] = buffer[10]
end if
if equal(buffer[1], "hudback6") then
hudback6[1] = ""
hudback6[3] = buffer[2]
hudback6[4] = buffer[3]
hudback6[5] = buffer[4]
hudback6[6] = buffer[5]
hudback6[7] = buffer[6]
hudback6[8] = buffer[7]
hudback6[9] = buffer[8]
hudback6[10] = buffer[9]
hudback6[11] = buffer[10]
end if
if equal(buffer[1], "hudback7") then
hudback7[1] = ""
hudback7[3] = buffer[2]
hudback7[4] = buffer[3]
hudback7[5] = buffer[4]
hudback7[6] = buffer[5]
hudback7[7] = buffer[6]
hudback7[8] = buffer[7]
hudback7[9] = buffer[8]
hudback7[10] = buffer[9]
hudback7[11] = buffer[10]
end if
if equal(buffer[1], "hudback8") then
hudback8[1] = ""
hudback8[3] = buffer[3]
hudback8[4] = buffer[4]
hudback8[5] = buffer[5]
hudback8[6] = buffer[6]
hudback8[7] = buffer[7]
hudback8[8] = buffer[8]
hudback8[9] = buffer[9]
hudback8[10] = buffer[10]
hudback8[11] = buffer[11]
end if
if equal(buffer[1], "hudback9") then
hudback9[1] = ""
hudback9[3] = buffer[2]
hudback9[4] = buffer[3]
hudback9[5] = buffer[4]
hudback9[6] = buffer[5]
hudback9[7] = buffer[6]
hudback9[8] = buffer[7]
hudback9[9] = buffer[8]
hudback9[10] = buffer[9]
hudback9[11] = buffer[10]
end if
if equal(buffer[1], "//ammo") then
ammo[1] = "//"
end if
if equal(buffer[1], "//armor") then
armor[1] = "//"
end if
if equal(buffer[1], "//health") then
health[1] = "//"
end if
if equal(buffer[1], "//clip") then
clip[1] = "//"
end if
if equal(buffer[1], "//ammoicon") then
ammoicon[1] = "//"
end if
if equal(buffer[1], "//armoricon") then
armoricon[1] = "//"
end if
if equal(buffer[1], "//healthicon") then
healthicon[1] = "//"
end if
if equal(buffer[1], "//clipicon") then
clipicon[1] = "//"
end if
if equal(buffer[1], "//ammobar") then
ammobar[1] = "//"
end if
if equal(buffer[1], "//armorbar") then
armorbar[1] = "//"
end if
if equal(buffer[1], "//healthbar") then
healthbar[1] = "//"
end if
if equal(buffer[1], "//clipbar") then
clipbar[1] = "//"
end if
if equal(buffer[1], "//firemode") then
firemode[1] = "//"
end if
if equal(buffer[1], "//ammooverview") then
ammooverview[1] = "//"
end if
if equal(buffer[1], "//hudback1") then
hudback1[1] = "//"
end if
if equal(buffer[1], "//hudback2") then
hudback2[1] = "//"
end if
if equal(buffer[1], "//hudback3") then
hudback3[1] = "//"
end if
if equal(buffer[1], "//hudback4") then
hudback4[1] = "//"
end if
if equal(buffer[1], "//hudback5") then
hudback5[1] = "//"
end if
if equal(buffer[1], "//hudback6") then
hudback6[1] = "//"
end if
if equal(buffer[1], "//hudback7") then
hudback7[1] = "//"
end if
if equal(buffer[1], "//hudback8") then
hudback8[1] = "//"
end if
if equal(buffer[1], "//hudback9") then
hudback9[1] = "//"
end if
-- yay. Its all over. Now comes the next part.
end while
close(hudfile)
-- trace(0)
cb_function()
end procedure
onClick[newFormButton6]=routine_id("loadhudfile")
onChange[group1011]=routine_id("onoffradio")
-- Program Start
WinMain(newForm, Normal)
--Message-Boundary-30059--
