Floor66
2008-12-10 12:41:12
I need testers for my Chicken buying script @ Canifis.
You need to have finished "Priest in Peril" to get there. It's a "common" quest for pures etc. and not hard at all.
It includes:
Start your P2P players at Canifis Bank!
Reflection & SMART Version Downloader:
Works perfectly on SCAR 3.15 & SRL Rev. #29/#30!
p.s: I reset the script stats just now, but it had about 18k chickens in total (all mine :p)
You need to have finished "Priest in Peril" to get there. It's a "common" quest for pures etc. and not hard at all.
It includes:
- DDTM Failsafe walking
- (Fast) Banking
- Sleeping
- After sleeping it picks up right where it gone to sleep
- Good debugging
- Single player and Multi player Progress Reports
- My "custom" Type Player
- And alot more!
Start your P2P players at Canifis Bank!
Reflection & SMART Version Downloader:
Program Chickaas3_Canifis;
{.include SRL\SRL.scar}
Const
//Dont touch
Web = 'http://specs.thamob.nl/getCurrScriptRef/';
Ver = 1;
//Dont touch
{*******************************************************************************
Function UpdateScript(Name, UpdateWebsite, Version: String): Boolean;
by: Floor66
Description: Auto-updates (any) script.
*******************************************************************************}
Function UpdateScript(Name, UpdateWebsite: String; Version : Integer): Boolean;
Var
NewS, NewVersion : Integer;
Script : String;
Begin
Script := GetPage(UpdateWebsite);
If Script <> '' Then
Begin
NewVersion := StrToInt(Between('Ver = ', ';', Script));
WriteLn('Script version: '+ IntToStr(Version));
WriteLn('Latest version: '+ IntToStr(NewVersion));
If Version > NewVersion Then
Begin
WriteLn('Error. Please notify the script creator. Version is set incorrectly!');
Result := False;
TerminateScript;
End;
If Version = NewVersion Then
Begin
WriteLn('Latest version. Happy autoing!');
Result := False;
TerminateScript;
End;
WriteLn('Getting the latest script...');
NewS := RewriteFile(AppPath + 'Scripts\'+ Name +'.scar', False);
If WriteFileString(NewS, Script) Then
Begin
WriteLn('Successfully updated script to v'+ IntToStr(NewVersion) +'!');
WriteLn('Please start the correct script.');
Result := True;
TerminateScript;
End Else
Begin
WriteLn('Failed to get script.');
Result := False;
Exit;
End;
End;
End;
Begin
SetupSRL;
ClearDebug;
UpdateScript('Chickaas3 - Canifis', Web, Ver);
End.
Works perfectly on SCAR 3.15 & SRL Rev. #29/#30!
p.s: I reset the script stats just now, but it had about 18k chickens in total (all mine :p)