KFC
01-01-2012, 06:38 PM
Im new to this whole "scripting thing" and i was wondering if someone could recommend a better banking method than the one i have now? It messes up sometimes and is at soul wars bank. it clicks the silver rim of the chest.
Procedure StartScript;
Var
store, x, y, a, b: Integer;
Begin
store := DTMFromString('mAAEAAHic42FgYBADYgEgFmKAACUg5gdiXi CWBmI5qBpuJFoQqpYLiFmAmBGI+aA0DxALAzE7VE2isSADCwsT GMMAjM/NxQnHMDERBtIAI4kYGQAA2DICrg==');
FindObj(x, y, 'se', 12303564, 1);
StatsGuise('Found Bank.')
Case Random(4) Of
0:Begin
Mouse(x, y, 0, 0, true);
Wait(500);
End;
1:Begin
Mouse(x, y, 0, 0, true);
Wait(500);
End;
2:Begin
Mouse(x, y, 0, 0, false);
WaitOption('se', 500+Random(132));
Wait(500);
End;
3:Begin
Mouse(x, y, 0, 0, true);
Wait(500);
End;
End;
Begin
Wait(500);
WriteLn('');
FindDTM(store, a, b, MSX1, MSY1, MSX2, MSY2);
StatsGuise('Opened Bank, Depositing Items.');
Mouse(a, b, 6, 6, true);
Wait(1000+Random(421));
Mouse(491, 35, 3, 3, true);
Wait(1500+Random(323));
End;
FreeDTM(store);
End;
store is the Deposit All Button in the bank.
Procedure StartScript;
Var
store, x, y, a, b: Integer;
Begin
store := DTMFromString('mAAEAAHic42FgYBADYgEgFmKAACUg5gdiXi CWBmI5qBpuJFoQqpYLiFmAmBGI+aA0DxALAzE7VE2isSADCwsT GMMAjM/NxQnHMDERBtIAI4kYGQAA2DICrg==');
FindObj(x, y, 'se', 12303564, 1);
StatsGuise('Found Bank.')
Case Random(4) Of
0:Begin
Mouse(x, y, 0, 0, true);
Wait(500);
End;
1:Begin
Mouse(x, y, 0, 0, true);
Wait(500);
End;
2:Begin
Mouse(x, y, 0, 0, false);
WaitOption('se', 500+Random(132));
Wait(500);
End;
3:Begin
Mouse(x, y, 0, 0, true);
Wait(500);
End;
End;
Begin
Wait(500);
WriteLn('');
FindDTM(store, a, b, MSX1, MSY1, MSX2, MSY2);
StatsGuise('Opened Bank, Depositing Items.');
Mouse(a, b, 6, 6, true);
Wait(1000+Random(421));
Mouse(491, 35, 3, 3, true);
Wait(1500+Random(323));
End;
FreeDTM(store);
End;
store is the Deposit All Button in the bank.