Getting this error:
My code is:Code:Program exception! Stacktrace: Exception class: EPSException Message: Could not call proc $00669BF5 $0066931F $0054EE2F $0054F356 $0054F8B1 $0054ED3A $0040C37A $004EBC0D $00568BE7 $0050E94E $005804CF $74F66238 $74F668EA $74F6CD1A $74F6CD81 $72FC4E95 $72FC4EF7 Simba Version: 992
Code:procedure SetAxe; begin case LogCombo.ITEMINDEX of 0: Begin WieldAxe := True; End; 1: Begin WieldAxe := False; End; End; End; procedure SetTrees; begin case LogCombo.ITEMINDEX of 0: Begin TreeColor := 4750964; Uptext_1 := 'Chop'; Uptext_2 := 'cho'; Uptext_3 := 'hop'; End; 1: Begin TreeColor := 2124898; Uptext_1 := 'Chop'; Uptext_2 := 'cho'; Uptext_3 := 'hop'; End; 2: Begin TreeColor := 3764327; Uptext_1 := 'Chop'; Uptext_2 := 'hop'; Uptext_3 := 'cho'; End; End; End; procedure SaveFormInfo(Sender: TObject); begin DsgnForm.ModalResult := mrOk; StartTime := GetSystemTime; P07_PlayerName := Username.TEXT P07_PlayerPass := Password.TEXT // Saving the text, before we close the form DsgnForm.CLOSE; SetAxe; SetTrees; end; procedure InitForm; begin DsgnForm:=TForm.Create(nil); with DsgnForm do begin Caption:='PowerChop 1.0'; Left:=346; Top:=419; Width:=200; Height:=140; Font.Name:=default; Font.Color:=clDefault; Font.Size:=9; end; TLabel0:=TLabel.Create(DsgnForm); with TLabel0 do begin Parent:=DsgnForm; Caption:='PowerChop 1.0'; Left:=50; Top:=10; Width:=41; Height:=14; Font.Name:=default; Font.Color:=clDefault; Font.Size:=13; end; TLabel1:=TLabel.Create(DsgnForm); with TLabel1 do begin Parent:=DsgnForm; Caption:='Tree'; Left:=40; Top:=40; Width:=41; Height:=14; Font.Name:=default; Font.Color:=clDefault; Font.Size:=9; end; TLabel2:=TLabel.Create(DsgnForm); with TLabel2 do begin Parent:=DsgnForm; Caption:='Wield Axe'; Left:=40; Top:=80; Width:=48; Height:=14; Font.Name:=default; Font.Color:=clDefault; Font.Size:=9; end; TButton10:=TButton.Create(DsgnForm); with TButton10 do begin Parent:=DsgnForm; Caption:='Start'; Left:=50; Top:=110; Width:=75; Height:=25; OnClick:=@SaveFormInfo; end; LogCombo:=TComboBox.Create(DsgnForm); with LogCombo do begin Parent:=DsgnForm; Left:=100; Top:=40; Width:=50; Height:=21; Items.Add('Tree'); Items.Add('Oak'); Items.Add('Willow'); Text := Items[0]; Font.Name:=default; Font.Color:=clDefault; Font.Size:=9; end; AxeCombo:=TComboBox.Create(DsgnForm); with AxeCombo do begin Parent:=DsgnForm; Left:=100; Top:=80; Width:=50; Height:=21; Items.Add('Yes'); Items.Add('No'); Text := Items[0]; Font.Name:=default; Font.Color:=clDefault; Font.Size:=9; end; end; procedure SafeInitForm; var v: TVariantArray; begin setarraylength(V, 0); ThreadSafeCall('InitForm', v); end; procedure ShowFormModal; begin DsgnForm.ShowModal; end; procedure SafeShowFormModal; var v: TVariantArray; begin SetArrayLength(V, 0); ThreadSafeCall('ShowFormModal', v); end; begin SafeInitForm; SafeShowFormModal; P07_DeclarePlayer; SetupP07Include; ActivateClient; SetTrees; SetAxe; Wait(100);


Reply With Quote







