Simba Code:
(*
Get:
Keybind chance:
eZKeybindChance.val() {string}
Right click chance:
eZRightClickChance.val() {string}
Ingot material:
eZIngotMaterial.val() {string}
Ingot tier:
eZIngotTier.val() {string}
Attack ancestors:
eZAttackAncestors.prop('checked') {boolean}
Set:
Experience gained:
eZExperienceGained.text({string})
Respect earned:
eZRespectEarned.text({string})
Time running:
eZExperienceGained.text({string})
*)
program new;
{$i ezForm.simba}
var
eZAttackAncestors,
eZExperienceGained,
eZIngotMaterial,
eZIngotTier,
eZKeybindChance,
eZRespectEarned,
eZRightClickChance,
eZTimeRunning:tZComponent;
procedure pFormShowProgress(vCheckbox:tObject);native;
begin
eZForm.height(290-int32(vCheckbox.toComponent().prop('checked'))*100);
end;
procedure pFormCreate();
begin
eZForm.new('',[280,390]);
eZForm.addImageURL('http://puu.sh/kRJGY/994ced8acf','',[0,0],[280,75],nil);
eZForm.addGroupbox('Control','b s10','',[10,85],[125,130]);
eZForm.addLabel('Keybind chance','s8','',[20,110]);
eZKeybindChance:=eZForm.addCombobox(['100%','75%','50%','25%','15%','10%'],'s8','',[30,130],[95,10],nil).prop('readonly',true);
eZForm.addLabel('Right click chance','s8','',[20,160]);
eZRightClickChance:=eZForm.addCombobox(['100%','75%','50%','25%','15%','10%'],'s8','',[30,180],[95,10],nil).prop('readonly',true);
eZForm.addGroupbox('Ingot','b s10','',[145,85],[125,130]);
eZForm.addLabel('Ingot material','s8','',[155,110]);
eZIngotMaterial:=eZForm.addCombobox(['Iron','Steel','Mithril','Adamant','Runite'],'s8','',[165,130],[95,10],nil).prop('readonly',true);
eZForm.addLabel('Ingot tier','s8','',[155,160]);
eZIngotTier:=eZForm.addCombobox(['One','Two','Three'],'s8','',[165,180],[95,10],nil).prop('readonly',true);
eZForm.addGroupbox('Other','b s10','',[10,225],[260,55]);
eZAttackAncestors:=eZForm.addCheckbox('Attack ancestors','s8','',[20,250],nil);
eZForm.addCheckbox('Show progress','s8','',[140,250],pFormShowProgress).prop('checked',true);
eZForm.addGroupbox('Progress','b s10','',[10,290],[260,90]);
eZForm.addLabel('Experience gained','s8','',[20,315]);
eZExperienceGained:=eZForm.addLabel('---','c8421504 i s8','',[140,315]);
eZForm.addLabel('Respect earned','s8','',[20,335]);
eZRespectEarned:=eZForm.addLabel('---','c8421504 i s8','',[140,335]);
eZForm.addLabel('Time running','s8','',[20,355]);
eZTimeRunning:=eZForm.addLabel('---','c8421504 i s8','',[140,355]);
eZForm.show();
end;
begin
pFormCreate();
repeat
wait(1);
until false;
end.