PDA

View Full Version : my first script (auto enchanter)


towinthiswar
08-05-2007, 03:41 PM
Hey guys since wed or so ive been reading up on the tuts and stuff and finally decided to make a script. its an auto enchanter in the mage training arena. i was wonderin if you guys could proof it and stuff. and i know this request should be in scripting help section but i also need someone to help me figure out a better way to walk to the deposit hole and back.

Thanks,
ToWin

p.s. special thanks to sp0rk-eh for helping me out with this

program MageEnchanter; //Uses enchant spell in the mage training arena

{.include SRL/SRL.scar}
{.include SRL/SRL/skill/magic.scar}

var
Cube: Integer;
Hole: Integer;

procedure LoadBmps;
begin
Cube := BitmapFromString2(False, 'aB94DB78DAED9AEB72E3200C8' +
'55FC960AE3FB9D8EFFF488B11DD954728B1D3F5A5BBA633A7 9D98' +
'10EBB38083D26118843443693A1519DD545485E515E5DDA25 A161' +
'5CBC541B9B0F499873F3DEB5BC7B4FC924E2DC3D471F4BCBC 6264' +
'7D971D8BDAA49757DCF29289CBDFDE2D7D8259C6FC0F9B0A2 A685' +
'61F260F932DAC9EF630B9339390BD15AAA3DA0F42FD7B4C82 F5B2' +
'44072A5C1682F689CA67A1A8BE66752DB1CF5A1C7C2CD121C 57CB' +
'6E409CB2A782D9413268A997EAE9F5C1002F4463442285153 A551' +
'BFC9931A3BD668C3F0A5361BF7C584CD282633CF6C49062F2 CD51' +
'60B893A8528CA558621CDB4966F68EEC41C74190129C7E702 1A35' +
'3AAA710EF6B7A2A70CFA8621D11663CD19C89364C3B466B25 2C2F' +
'31C1A79884658AA4987B4567ACFB40FD793F2B1C16891B9CF 6AE3' +
'301978FC4EEA6619F2189DE8283CC7A6342B98EC6AD982730 C69B' +
'9E4A4B2C6C8C284FB2CA45C161DCDA491D131888EB648D17D B20C' +
'5F520275D18E5258A9E7C2A4C457DE5B35E5A84A1FAADC0C3 D2C6' +
'730934606DD2777CFABAB3BF9386DB214A039C4B9F4C7BA61 2E7B' +
'6B3354210ECA93D90B99A876EE16479D93E82A97699564711 DA37' +
'4E04CA2F6464EEC388470D997B574A030FBCE6712A51F0B19 126F' +
'50CE49071151ED90443CE1F9C28E13AD77729A64322250850 C0CD' +
'E95698215681CCD849B41A0400614DF1BC704F75FBDB77286 5856' +
'57830F858C4E8518283782D736161A48CF3ACDF5C9B4FC312 EC8B' +
'63BC053EE28E1801556D79567C3B1339C298D339934322463 9BD6' +
'59032B5E87061311900475CE0E5260CFD6218F14E61AD66B7 D7E8' +
'709AC72C8CFB01C18AAD4B3AD98E075E3361C3A64D053865D A3ED' +
'4AB03B33BB2D6414D5E6DCEA59093CDB8A7FEDE3A31BEEC7E 1CDA' +
'919F6A39D9E04FB58ECD97E56ECAD5A42EA3F6DCFDDE2D918 AF0E' +
'AB0AE84FAC26756A20D4B7BCF45A940F38D81F4363730D648 75B4' +
'3FE1CD68A2FCF866A08843CE85535B7BD3590A61B3C1B3D31 81AF' +
'801D676FF5E9467524AE86B6D7C7D6DDD64D56171F4B6B085 CF5E' +
'9C43ADBF65591AB816CF1B1F45C003BCE9B1A14939917D791 70E6' +
'70153086097B3AA8DE03F69ABD3528F0337FF9DB1F5B7E26A C3BE' +
'A482FE717AC0FED14C39D08D019BF5315D95C5B3BE47B3186 C9F6' +
'3A1256ECBD39BF01BE17EB8AFCE63A30E881DF18324C1A999 7752' +
'4EAD561CDC4FA661D833177F28799759253E52A6CD88371B5 9D8F' +
'CEEF794EAA8C4975C3FC3DF71BF057D524EEEA67F52EF61CC D3C1' +
'D7C02BDE27F0398FD82D2F8C6297E0713929937AA99E0F982 56CB' +
'0FCF0EAF99704FE106D50396C9B7EF6D93BB437B37D6BB559 3EE7' +
'3574F7BDAD39E7655FB05C5B');
Hole := BitmapFromString2(False, 'a077F178DAED9AED72A33A0C8' +
'66F0930F8E3A72170FF97B4B2A474E5C84AB3A709D03398D9 7776' +
'4A9AC263599664755DD74F5D19D302E2E20A3A665F34C5A2D 300D' +
'A979B9D9BCB4FDC82778BF0DD31E6F2F36DFDFAAD218EE52B F13B' +
'A7AD7CD40FF8F9A5DC0DD356742877FD5CFEFCD295DB6B8CD D35A' +
'E718D6B5CE31AD7B8C635AE618C7E84EB767178EF187AB896 7EEB' +
'B7C1B322674B2F620DCBCC7D1E7AADC3322C2E0E1EAE4DAAF 5F98' +
'BA149523164B679C86E62454B6ED8B356CBC2CB1849FFAF54 2525' +
'D2B084149D54BEBB0D9B9B99B361C9B10B4B0C8DD9B166417 0FEC' +
'554D57B31C91C021091AAA94A8B15761BD690E3443C1B3A84 35A6' +
'868EB18BB9B2FC5FEBABB5CD34782AB6CFA9FE9CED3909873 1383' +
'F0381185CA5F0A66192AA6DB5FA7C0CA3DF1AEA6151DFAA15 ADA8' +
'32DBC1AF3EFBCD2F3E3674867FAEA1C97BDF4BB53CC6616C3 330E' +
'835CF8AAAF0AB685FB9D2321B492B7D4365ABCA7FBE3E470D C519' +
'D1F37222C2E22D701DD36A0EFAD970752E95E6E8715DB6155 66D5' +
'82DAABC67BD3C47A61AE42B2F71D01EA79F8ADE545A2CBF3B B26A' +
'28F93EA5A98B73F45AADCF9B736431D7DE8C54D8F351760BC F01A' +
'B083C43F7E51984566C5FB0558B641AE31653A53EF5316B35 99EB' +
'F5422A5619A9F627D27A0F604B162B9EA7F2B1B8DB366CD5B 2B18' +
'6F502634F9AE14A496A9A53B9A7F45F39377C05DACCB19E41 FB84' +
'97F62F52FDA69008849406B0C398C6E48AAD0A5DE172A479C D37F' +
'8F29453BA55DA03DD496B1AE20DBE53A9F56CCC5666D6FBB3 258B' +
'25CF80AA734C734FC970F5A4C413AC37A30D675CA50BFA405 0F85' +
'957566E51E20C5B5C9F7C1EF39802EB06976325DB4ED921F3 074D' +
'01B82EA4A6256B6BD931E2E57727B6D2FF93C58A3CBDF2693 E787' +
'CE6A2C40D6D15E29F0D42098CEBF07252C310FAF2FD45C1AE C6C0' +
'0A7C0252022D539466B2DE39C016306B05E61DFA932FB576D 853B' +
'0D5FB97CAD0499927D19BFC34DD58CBE5E9FF138C71BBFFC6 A3E2' +
'342C1C578B39021AB02AC0FBA6C89A61A45AEF3EE4C1862DC F5FC' +
'59698C7ED99AFC1DCAEB8AEBFD85651B7D8CB88CE94E1BA2B 98DD' +
'348C2B5CC122F95C89B39BDD3C6CBCABA26F8155BEC401D6F D2DF' +
'552E7711EC1D52CC55AA5C2A7631C2A55D19A652D1F672B22 C346' +
'6555CCF55846F7DF48BEC499AC5AF870F6E41863CC117CC27 DBF1' +
'B61370CA48D584250ADAA67CA5A3EC79676968AADC84F9B55 D3B7' +
'537DCE993496EC6464CF403B5D28B10369233711D142A34AB C8B6' +
'760B6A26E505553E55CD39BEFC2B6E28C1E83BDC45C38B267 C0B8' +
'2215DFEC58255B112D986FF461C2B4BF579558AA5A8B0AC0C 3EEB' +
'6375BE12528AEE358826CB878654F5A45BC48B5B216BD1E49 3FE6' +
'19886D55F19367012AA3D99F6D65BD184B70DC8B9E813311C AE62' +
'89B46BB35DF48BDD7E772618A30CDFA6ABDA31D42B5B25E8C 2538' +
'12A65C83B2E69249F45491D0DC1A84E5E9E7E77C02B135CE0 2CEC' +
'39694D882C0EECB391D7A068E8A31476B54320D6BF9747C5B B1B5' +
'9E8A7CD409D8B2F562AE0146D7953AC35F4DA5C6B69A54C5B BEC7' +
'A0AA64FB24885773A035B58C510F0524EC71521AAF988AADA F333' +
'8E7D2CF6C17A1F2A487C1AD541069B4EC416B5E0993211AE7 237D' +
'CD14CAA22DFDC892AEEBCBA82E46F60041EDE619BF279FC6D E57B' +
'A9E64355B57B1562BC7B5DAD328B3F962D9FEE05EFA6AAF27 922E' +
'BED60DEEF35613AB930A8566CF7B45BAAB51A7539795A2D23 ED53' +
'B0C5CA1BC7B7FA8448D5CFF764EB97524B6DB01575B9EA545 A663' +
'427204C7B193D7FE30C4EF13CC06E314FAF6A9EF2445254CB 491B' +
'39E3516CA9AE6E9C789EA12BB2C1F69573FF430953059EAA8 ED58' +
'927D9EA697A4DA976575595E5D98D3A55E7B3097CC737137E D9CF' +
'707CABEAE11655227F305B7D4E6A7456B8D5DD5C9684ADEAE 8B7A' +
'C9E74D2EACFD31907D7EEAC5E5C31D7D263ECCFB65A592F74 564C' +
'798A78A6F3A05C9924955588E7BDCA5AB5ED3D9F9BA7B67A2 2B6F' +
'A444F666A568721E66E52E5DBEBBAB4AE9934FAC655EDDA64 28CF' +
'7695979031D8016CA943836AF5FA44CFF015B2B3422B6573A 496C' +
'555F56A8BB32429FBFD746FD8F33E1FD483D9FEBCF3CDE8F0 A4FC' +
'8ED9CAD30D5DB556F522622BBDBDF5D7CDA7450B39802DE58 CBA0' +
'BE8E7BD582A8AAB4E8EACCE7CABFFD6F8FEC69A3A1BDBA7D9 22D3' +
'FE571B56919B5519AEBAC7AD1E66236231BBD454EFDF016C7 DF25' +
'F558E77F56D1AEFFB4DF778ABD3ECEFEC586C2DFFA076B7C3 D852' +
'754EAB61C366C7B2B51BA2FD7CD33D2E777CCB1A2D92165B4 1F83' +
'0B67496A7D5E88C35AB7986E5BF778E1AAAD78EEABBDB9F2D 77AF' +
'69D53DB1A4AA3399954E0695EA9E2E56D15357A9EED72515D DD15' +
'2B91EA215CF2BB576D7B8C635AE718D6B5CE31AD7F855E30F 05B');
end;

var
x,y: Integer;

procedure FBitmapCube;
begin
FindBitmapToleranceIn(Cube, x, y, 560, 214, 734, 457, 25); //fill in coordinates later
end;


var
i: Integer;

procedure PickupCubes;
begin
i:= 0;
repeat
i:= i + 1;
if(FindBitmap(Shape,x,y)) then
begin
MMouse(x,y+random(0),20,40,45,25,20);
if (IsUpText('ube')) then
Wait(1000+random(200));
Mouse(x,y,0,0,true);
until(invfull);
end;
end;

procedure Enchant;
begin
if (invfull) then
begin
GameTab(7);
repeat
begin
Cast('Enchant Level 6 Jewelry ');
if FindColor(x,y,2921394,694,486,727,518) then
begin
if (IsUpText('ube')) then
begin
Mouse(x,y,0,0,true);
Wait(1000+random(200));
end;
end;
end;
until not FindColor(x,y,2921394,694,486,727,518)
end;
end;

procedure WalkHole;
begin
ClickMMColorTol(8879232, 10)
Flag;
end;

procedure FBitmapHole;
begin
FindBitmapToleranceIn(Hole, x, y, 560, 214, 734, 457, 25); //fill in coordinates later
end;

procedure DepositOrbs;
begin
if(FindBitmap(Hole,x,y)) then
begin
MMouse(x,y+random(0),20,40,45,25,20);
if (IsUpText('eposit')) then
Wait(1000+random(200));
HoldMouse(x,y,true);
ReleaseMouse(x,y,true);
end;
end;

procedure WalkCube;
begin
end;

procedure FreeBmps;
begin
freebitmap(cube)
freebitmap(hole)
end;

begin
SetupSRL;
repeat
if(not(LoggedIn))then
Exit;
Repeat
LoadBmps; //load bmps
FBitmapCube; //find bitmap cube
PickupCubes; //picking up cubes
Enchant; //enchanting cubes
WalkHole; //walking to alter
FBitmapHole; //find bitmap hole
DepositOrbs; //depositing
WalkCube; //walking back to cubes
FreeBmps; //freeing bmps
until(false);
end.
Sp0rky
08-05-2007, 04:13 PM
Fixed for latest srl and scar :p

go test and see what isn't working.


program MageEnchanter; //Uses enchant spell in the mage training arena

{.include SRL/SRL.scar}
{.include SRL/SRL/skill/magic.scar}
{.include SRL\SRL\extended\xColor.scar}

var
Cube: Integer;
Hole: Integer;

procedure LoadBmps;
begin
Cube := BitmapFromString2(False, 'aB94DB78DAED9AEB72E3200C8' +
'55FC960AE3FB9D8EFFF488B11DD954728B1D3F5A5BBA633A7 9D98' +
'10EBB38083D26118843443693A1519DD545485E515E5DDA25 A161' +
'5CBC541B9B0F499873F3DEB5BC7B4FC924E2DC3D471F4BCBC 6264' +
'7D971D8BDAA49757DCF29289CBDFDE2D7D8259C6FC0F9B0A2 A685' +
'61F260F932DAC9EF630B9339390BD15AAA3DA0F42FD7B4C82 F5B2' +
'44072A5C1682F689CA67A1A8BE66752DB1CF5A1C7C2CD121C 57CB' +
'6E409CB2A782D9413268A997EAE9F5C1002F4463442285153 A551' +
'BFC9931A3BD668C3F0A5361BF7C584CD282633CF6C49062F2 CD51' +
'60B893A8528CA558621CDB4966F68EEC41C74190129C7E702 1A35' +
'3AAA710EF6B7A2A70CFA8621D11663CD19C89364C3B466B25 2C2F' +
'31C1A79884658AA4987B4567ACFB40FD793F2B1C16891B9CF 6AE3' +
'301978FC4EEA6619F2189DE8283CC7A6342B98EC6AD982730 C69B' +
'9E4A4B2C6C8C284FB2CA45C161DCDA491D131888EB648D17D B20C' +
'5F520275D18E5258A9E7C2A4C457DE5B35E5A84A1FAADC0C3 D2C6' +
'730934606DD2777CFABAB3BF9386DB214A039C4B9F4C7BA61 2E7B' +
'6B3354210ECA93D90B99A876EE16479D93E82A97699564711 DA37' +
'4E04CA2F6464EEC388470D997B574A030FBCE6712A51F0B19 126F' +
'50CE49071151ED90443CE1F9C28E13AD77729A64322250850 C0CD' +
'E95698215681CCD849B41A0400614DF1BC704F75FBDB77286 5856' +
'57830F858C4E8518283782D736161A48CF3ACDF5C9B4FC312 EC8B' +
'63BC053EE28E1801556D79567C3B1339C298D339934322463 9BD6' +
'59032B5E87061311900475CE0E5260CFD6218F14E61AD66B7 D7E8' +
'709AC72C8CFB01C18AAD4B3AD98E075E3361C3A64D053865D A3ED' +
'4AB03B33BB2D6414D5E6DCEA59093CDB8A7FEDE3A31BEEC7E 1CDA' +
'919F6A39D9E04FB58ECD97E56ECAD5A42EA3F6DCFDDE2D918 AF0E' +
'AB0AE84FAC26756A20D4B7BCF45A940F38D81F4363730D648 75B4' +
'3FE1CD68A2FCF866A08843CE85535B7BD3590A61B3C1B3D31 81AF' +
'801D676FF5E9467524AE86B6D7C7D6DDD64D56171F4B6B085 CF5E' +
'9C43ADBF65591AB816CF1B1F45C003BCE9B1A14939917D791 70E6' +
'70153086097B3AA8DE03F69ABD3528F0337FF9DB1F5B7E26A C3BE' +
'A482FE717AC0FED14C39D08D019BF5315D95C5B3BE47B3186 C9F6' +
'3A1256ECBD39BF01BE17EB8AFCE63A30E881DF18324C1A999 7752' +
'4EAD561CDC4FA661D833177F28799759253E52A6CD88371B5 9D8F' +
'CEEF794EAA8C4975C3FC3DF71BF057D524EEEA67F52EF61CC D3C1' +
'D7C02BDE27F0398FD82D2F8C6297E0713929937AA99E0F982 56CB' +
'0FCF0EAF99704FE106D50396C9B7EF6D93BB437B37D6BB559 3EE7' +
'3574F7BDAD39E7655FB05C5B');
Hole := BitmapFromString2(False, 'a077F178DAED9AED72A33A0C8' +
'66F0930F8E3A72170FF97B4B2A474E5C84AB3A709D03398D9 7776' +
'4A9AC263599664755DD74F5D19D302E2E20A3A665F34C5A2D 300D' +
'A979B9D9BCB4FDC82778BF0DD31E6F2F36DFDFAAD218EE52B F13B' +
'A7AD7CD40FF8F9A5DC0DD356742877FD5CFEFCD295DB6B8CD D35A' +
'E718D6B5CE31AD7B8C635AE618C7E84EB767178EF187AB896 7EEB' +
'B7C1B322674B2F620DCBCC7D1E7AADC3322C2E0E1EAE4DAAF 5F98' +
'BA149523164B679C86E62454B6ED8B356CBC2CB1849FFAF54 2525' +
'D2B084149D54BEBB0D9B9B99B361C9B10B4B0C8DD9B166417 0FEC' +
'554D57B31C91C021091AAA94A8B15761BD690E3443C1B3A84 35A6' +
'868EB18BB9B2FC5FEBABB5CD34782AB6CFA9FE9CED3909873 1383' +
'F0381185CA5F0A66192AA6DB5FA7C0CA3DF1AEA6151DFAA15 ADA8' +
'32DBC1AF3EFBCD2F3E3674867FAEA1C97BDF4BB53CC6616C3 330E' +
'835CF8AAAF0AB685FB9D2321B492B7D4365ABCA7FBE3E470D C519' +
'D1F37222C2E22D701DD36A0EFAD970752E95E6E8715DB6155 66D5' +
'82DAABC67BD3C47A61AE42B2F71D01EA79F8ADE545A2CBF3B B26A' +
'28F93EA5A98B73F45AADCF9B736431D7DE8C54D8F351760BC F01A' +
'B083C43F7E51984566C5FB0558B641AE31653A53EF5316B35 99EB' +
'F5422A5619A9F627D27A0F604B162B9EA7F2B1B8DB366CD5B 2B18' +
'6F502634F9AE14A496A9A53B9A7F45F39377C05DACCB19E41 FB84' +
'97F62F52FDA69008849406B0C398C6E48AAD0A5DE172A479C D37F' +
'8F29453BA55DA03DD496B1AE20DBE53A9F56CCC5666D6FBB3 258B' +
'25CF80AA734C734FC970F5A4C413AC37A30D675CA50BFA405 0F85' +
'957566E51E20C5B5C9F7C1EF39802EB06976325DB4ED921F3 074D' +
'01B82EA4A6256B6BD931E2E57727B6D2FF93C58A3CBDF2693 E787' +
'CE6A2C40D6D15E29F0D42098CEBF07252C310FAF2FD45C1AE C6C0' +
'0A7C0252022D539466B2DE39C016306B05E61DFA932FB576D 853B' +
'0D5FB97CAD0499927D19BFC34DD58CBE5E9FF138C71BBFFC6 A3E2' +
'342C1C578B39021AB02AC0FBA6C89A61A45AEF3EE4C1862DC F5FC' +
'59698C7ED99AFC1DCAEB8AEBFD85651B7D8CB88CE94E1BA2B 98DD' +
'348C2B5CC122F95C89B39BDD3C6CBCABA26F8155BEC401D6F D2DF' +
'552E7711EC1D52CC55AA5C2A7631C2A55D19A652D1F672B22 C346' +
'6555CCF55846F7DF48BEC499AC5AF870F6E41863CC117CC27 DBF1' +
'B61370CA48D584250ADAA67CA5A3EC79676968AADC84F9B55 D3B7' +
'537DCE993496EC6464CF403B5D28B10369233711D142A34AB C8B6' +
'760B6A26E505553E55CD39BEFC2B6E28C1E83BDC45C38B267 C0B8' +
'2215DFEC58255B112D986FF461C2B4BF579558AA5A8B0AC0C 3EEB' +
'6375BE12528AEE358826CB878654F5A45BC48B5B216BD1E49 3FE6' +
'19886D55F19367012AA3D99F6D65BD184B70DC8B9E813311C AE62' +
'89B46BB35DF48BDD7E772618A30CDFA6ABDA31D42B5B25E8C 2538' +
'12A65C83B2E69249F45491D0DC1A84E5E9E7E77C02B135CE0 2CEC' +
'39694D882C0EECB391D7A068E8A31476B54320D6BF9747C5B B1B5' +
'9E8A7CD409D8B2F562AE0146D7953AC35F4DA5C6B69A54C5B BEC7' +
'A0AA64FB24885773A035B58C510F0524EC71521AAF988AADA F333' +
'8E7D2CF6C17A1F2A487C1AD541069B4EC416B5E0993211AE7 237D' +
'CD14CAA22DFDC892AEEBCBA82E46F60041EDE619BF279FC6D E57B' +
'A9E64355B57B1562BC7B5DAD328B3F962D9FEE05EFA6AAF27 922E' +
'BED60DEEF35613AB930A8566CF7B45BAAB51A7539795A2D23 ED53' +
'B0C5CA1BC7B7FA8448D5CFF764EB97524B6DB01575B9EA545 A663' +
'427204C7B193D7FE30C4EF13CC06E314FAF6A9EF2445254CB 491B' +
'39E3516CA9AE6E9C789EA12BB2C1F69573FF430953059EAA8 ED58' +
'927D9EA697A4DA976575595E5D98D3A55E7B3097CC737137E D9CF' +
'707CABEAE11655227F305B7D4E6A7456B8D5DD5C9684ADEAE 8B7A' +
'C9E74D2EACFD31907D7EEAC5E5C31D7D263ECCFB65A592F74 564C' +
'798A78A6F3A05C9924955588E7BDCA5AB5ED3D9F9BA7B67A2 2B6F' +
'A444F666A568721E66E52E5DBEBBAB4AE9934FAC655EDDA64 28CF' +
'7695979031D8016CA943836AF5FA44CFF015B2B3422B6573A 496C' +
'555F56A8BB32429FBFD746FD8F33E1FD483D9FEBCF3CDE8F0 A4FC' +
'8ED9CAD30D5DB556F522622BBDBDF5D7CDA7450B39802DE58 CBA0' +
'BE8E7BD582A8AAB4E8EACCE7CABFFD6F8FEC69A3A1BDBA7D9 22D3' +
'FE571B56919B5519AEBAC7AD1E66236231BBD454EFDF016C7 DF25' +
'F558E77F56D1AEFFB4DF778ABD3ECEFEC586C2DFFA076B7C3 D852' +
'754EAB61C366C7B2B51BA2FD7CD33D2E777CCB1A2D92165B4 1F83' +
'0B67496A7D5E88C35AB7986E5BF778E1AAAD78EEABBDB9F2D 77AF' +
'69D53DB1A4AA3399954E0695EA9E2E56D15357A9EED72515D DD15' +
'2B91EA215CF2BB576D7B8C635AE718D6B5CE31AD7F855E30F 05B');
end;


procedure FBitmapCube;
begin
FindBitmapToleranceIn(Cube, x, y, 560, 214, 734, 457, 25); //fill in coordinates later
end;


var
i: Integer;

procedure PickupCubes;
begin
i:= 0;
repeat
i:= i + 1;
if(FindBitmap(Cube,x,y)) then
begin
if (IsUpText('ube')) then
Wait(1000+random(200));
Mouse(x,y,0,0,true);
end;
until(invfull);
end;

procedure Enchant;
begin
if (invfull) then
begin
GameTab(7);
repeat
begin
Cast('Enchant Level 6 Jewelry ');
if FindColor(x,y,2921394,694,486,727,518) then
begin
if (IsUpText('ube')) then
begin
Mouse(x,y,0,0,true);
Wait(1000+random(200));
end;
end;
end;
until not FindColor(x,y,2921394,694,486,727,518)
end;
end;

procedure WalkHole;
begin
ClickMMColorTol(8879232, 10)
Flag;
end;

procedure FBitmapHole;
begin
FindBitmapToleranceIn(Hole, x, y, 560, 214, 734, 457, 25); //fill in coordinates later
end;

procedure DepositOrbs;
begin
if(FindBitmap(Hole,x,y)) then
begin
if (IsUpText('eposit')) then
Wait(1000+random(200));
HoldMouse(x,y,true);
ReleaseMouse(x,y,true);
end;
end;

procedure WalkCube;
begin
end;

procedure FreeBmps;
begin
freebitmap(cube)
freebitmap(hole)
end;

begin
SetupSRL;
if(not(LoggedIn))then
Exit;
Repeat
LoadBmps; //load bmps
FBitmapCube; //find bitmap cube
PickupCubes; //picking up cubes
Enchant; //enchanting cubes
WalkHole; //walking to alter
FBitmapHole; //find bitmap hole
DepositOrbs; //depositing
WalkCube; //walking back to cubes
FreeBmps; //freeing bmps
until(false);
end.
dvdcrayola
08-05-2007, 05:03 PM
i cant test becasue of no members but...

TIP #1
make smaller bitmaps... it will make it run faster and smoother

TIP #2
Repeat
LoadBmps; //load bmps
FBitmapCube; //find bitmap cube
PickupCubes; //picking up cubes
Enchant; //enchanting cubes
WalkHole; //walking to alter
FBitmapHole; //find bitmap hole
DepositOrbs; //depositing
WalkCube; //walking back to cubes
FreeBmps; //freeing bmps
until(false);

when the script runs, right after it frees the bitmap it goes back and loads them again:D
just dont free them

TIP#3
i would convert it to multiplayer also

-DVD
drnewheart
08-08-2007, 04:55 AM
Nice Script ANd Original I like that good job