Shadow8015
2013-07-02 20:29:29
Hello everyone. My AIO smither is nearly complete. The scripting is finished, and I am currently debugging. As of this moment I am unsure of when I will release it to the public, as its arrival may affect the market I use to merch. I will most likely release it by the end of the month, but some debugging help would be greatly appreciated. I will not be uploading the entire script until it is 100% complete, but I may post bits and pieces for help with bugs. The goal for me is to learn as much as possible (in terms of programming) on my own. I have nothing to do for the next few days so I should start posting more soon… Thanks for your help in advance. Hopefully this post will grab the attention of some experienced programmers. :stirthepot:
I'm now having trouble with calling some of my procedures. I know Unknown Identifiers are a newbie error, but why might I be getting them? I've looked into other scripts and my code seems to be perfectly normal. – Problem solved
Well, the bank successfully opened one time last night. It has not opened since. Here is the code;
///////////////////////////////////////////////////////////////////////////////////////////////////
procedure OpenBankup;
var x, y:integer;
begin
if(not(BankScreen)) then
begin
MakeCompass(5);
SetAngle(0);
if FindObjCustom(x, y, ['se','ank','ooth'], [2706778,2050647], 5) then
begin
WaitHumanClick;
BarFailSafe := 0;
if (random(2) = 1) then
begin
Mouse(randomrange(x - 3, x + 3), randomrange(y - 3, y + 3), random(3), random(3), true);
WaitHumanClick;
end
else
begin
Mouse(randomrange(x - 3, x + 3), randomrange(y - 3, y + 3), random(3), random(3), false);
WaitHumanClick;
ChooseOption('Bank');
WaitHumanClick;
end;
end
else
begin
BarFailSafe := BarFailSafe + 1;
end;
Flag;
wait(lagg);
if(PinScreen) then
begin
InPin(Players[0].Pin);
end;
if PinPending then
begin
ConfirmPin();
end;
end else
if(PinScreen) then
begin
InPin(Players[0].Pin);
end;
if PinPending then
begin
ConfirmPin();
end;
end;
///////////////////////////////////////////////////////////////////////////////////////////////////
I looked into TPAs and would love some examples for opening banks (My FindObjTPA's failed to work well). I also tried using the SRL bank includes. (OpenBankQuiet, OpenBankGlass, etc.) All my attempts tended to search the screen, sometimes even hovering over the bank but failed to correctly find it.
Feel free to post your ideas. Thanks in advance!
I'm now having trouble with calling some of my procedures. I know Unknown Identifiers are a newbie error, but why might I be getting them? I've looked into other scripts and my code seems to be perfectly normal. – Problem solved
Well, the bank successfully opened one time last night. It has not opened since. Here is the code;
///////////////////////////////////////////////////////////////////////////////////////////////////
procedure OpenBankup;
var x, y:integer;
begin
if(not(BankScreen)) then
begin
MakeCompass(5);
SetAngle(0);
if FindObjCustom(x, y, ['se','ank','ooth'], [2706778,2050647], 5) then
begin
WaitHumanClick;
BarFailSafe := 0;
if (random(2) = 1) then
begin
Mouse(randomrange(x - 3, x + 3), randomrange(y - 3, y + 3), random(3), random(3), true);
WaitHumanClick;
end
else
begin
Mouse(randomrange(x - 3, x + 3), randomrange(y - 3, y + 3), random(3), random(3), false);
WaitHumanClick;
ChooseOption('Bank');
WaitHumanClick;
end;
end
else
begin
BarFailSafe := BarFailSafe + 1;
end;
Flag;
wait(lagg);
if(PinScreen) then
begin
InPin(Players[0].Pin);
end;
if PinPending then
begin
ConfirmPin();
end;
end else
if(PinScreen) then
begin
InPin(Players[0].Pin);
end;
if PinPending then
begin
ConfirmPin();
end;
end;
///////////////////////////////////////////////////////////////////////////////////////////////////
I looked into TPAs and would love some examples for opening banks (My FindObjTPA's failed to work well). I also tried using the SRL bank includes. (OpenBankQuiet, OpenBankGlass, etc.) All my attempts tended to search the screen, sometimes even hovering over the bank but failed to correctly find it.
Feel free to post your ideas. Thanks in advance!