Well thanks for the encouragement. This is what I have so far but im kinda lost after this. I looked in the intermediate tuts for someway to tell it to stop picking up shapes after inv full and then start level 6 enchant but i couldnt find any. Anyone willing to be my scripting partner on this lol? I might be hopeless
haha.
SCAR Code:
program MageEnchanter; //Uses enchant spell in the mage training arena
{.include SRL/SRL.scar}
var
Cube: Integer;
Hole: Integer;
procedure LoadBmps;
begin
Cube := BitmapFromString2(False, 'aB94DB78DAED9AEB72E3200C8' +
'55FC960AE3FB9D8EFFF488B11DD954728B1D3F5A5BBA633A79D98' +
'10EBB38083D26118843443693A1519DD545485E515E5DDA25A161' +
'5CBC541B9B0F499873F3DEB5BC7B4FC924E2DC3D471F4BCBC6264' +
'7D971D8BDAA49757DCF29289CBDFDE2D7D8259C6FC0F9B0A2A685' +
'61F260F932DAC9EF630B9339390BD15AAA3DA0F42FD7B4C82F5B2' +
'44072A5C1682F689CA67A1A8BE66752DB1CF5A1C7C2CD121C57CB' +
'6E409CB2A782D9413268A997EAE9F5C1002F4463442285153A551' +
'BFC9931A3BD668C3F0A5361BF7C584CD282633CF6C49062F2CD51' +
'60B893A8528CA558621CDB4966F68EEC41C74190129C7E7021A35' +
'3AAA710EF6B7A2A70CFA8621D11663CD19C89364C3B466B252C2F' +
'31C1A79884658AA4987B4567ACFB40FD793F2B1C16891B9CF6AE3' +
'301978FC4EEA6619F2189DE8283CC7A6342B98EC6AD982730C69B' +
'9E4A4B2C6C8C284FB2CA45C161DCDA491D131888EB648D17DB20C' +
'5F520275D18E5258A9E7C2A4C457DE5B35E5A84A1FAADC0C3D2C6' +
'730934606DD2777CFABAB3BF9386DB214A039C4B9F4C7BA612E7B' +
'6B3354210ECA93D90B99A876EE16479D93E82A97699564711DA37' +
'4E04CA2F6464EEC388470D997B574A030FBCE6712A51F0B19126F' +
'50CE49071151ED90443CE1F9C28E13AD77729A64322250850C0CD' +
'E95698215681CCD849B41A0400614DF1BC704F75FBDB772865856' +
'57830F858C4E8518283782D736161A48CF3ACDF5C9B4FC312EC8B' +
'63BC053EE28E1801556D79567C3B1339C298D3399343224639BD6' +
'59032B5E87061311900475CE0E5260CFD6218F14E61AD66B7D7E8' +
'709AC72C8CFB01C18AAD4B3AD98E075E3361C3A64D053865DA3ED' +
'4AB03B33BB2D6414D5E6DCEA59093CDB8A7FEDE3A31BEEC7E1CDA' +
'919F6A39D9E04FB58ECD97E56ECAD5A42EA3F6DCFDDE2D918AF0E' +
'AB0AE84FAC26756A20D4B7BCF45A940F38D81F4363730D64875B4' +
'3FE1CD68A2FCF866A08843CE85535B7BD3590A61B3C1B3D3181AF' +
'801D676FF5E9467524AE86B6D7C7D6DDD64D56171F4B6B085CF5E' +
'9C43ADBF65591AB816CF1B1F45C003BCE9B1A14939917D79170E6' +
'70153086097B3AA8DE03F69ABD3528F0337FF9DB1F5B7E26AC3BE' +
'A482FE717AC0FED14C39D08D019BF5315D95C5B3BE47B3186C9F6' +
'3A1256ECBD39BF01BE17EB8AFCE63A30E881DF18324C1A9997752' +
'4EAD561CDC4FA661D833177F28799759253E52A6CD88371B59D8F' +
'CEEF794EAA8C4975C3FC3DF71BF057D524EEEA67F52EF61CCD3C1' +
'D7C02BDE27F0398FD82D2F8C6297E0713929937AA99E0F98256CB' +
'0FCF0EAF99704FE106D50396C9B7EF6D93BB437B37D6BB5593EE7' +
'3574F7BDAD39E7655FB05C5B');
Hole := BitmapFromString2(False, 'a077F178DAED9AED72A33A0C8' +
'66F0930F8E3A72170FF97B4B2A474E5C84AB3A709D03398D97776' +
'4A9AC263599664755DD74F5D19D302E2E20A3A665F34C5A2D300D' +
'A979B9D9BCB4FDC82778BF0DD31E6F2F36DFDFAAD218EE52BF13B' +
'A7AD7CD40FF8F9A5DC0DD356742877FD5CFEFCD295DB6B8CDD35A' +
'E718D6B5CE31AD7B8C635AE618C7E84EB767178EF187AB8967EEB' +
'B7C1B322674B2F620DCBCC7D1E7AADC3322C2E0E1EAE4DAAF5F98' +
'BA149523164B679C86E62454B6ED8B356CBC2CB1849FFAF542525' +
'D2B084149D54BEBB0D9B9B99B361C9B10B4B0C8DD9B1664170FEC' +
'554D57B31C91C021091AAA94A8B15761BD690E3443C1B3A8435A6' +
'868EB18BB9B2FC5FEBABB5CD34782AB6CFA9FE9CED39098731383' +
'F0381185CA5F0A66192AA6DB5FA7C0CA3DF1AEA6151DFAA15ADA8' +
'32DBC1AF3EFBCD2F3E3674867FAEA1C97BDF4BB53CC6616C3330E' +
'835CF8AAAF0AB685FB9D2321B492B7D4365ABCA7FBE3E470DC519' +
'D1F37222C2E22D701DD36A0EFAD970752E95E6E8715DB615566D5' +
'82DAABC67BD3C47A61AE42B2F71D01EA79F8ADE545A2CBF3BB26A' +
'28F93EA5A98B73F45AADCF9B736431D7DE8C54D8F351760BCF01A' +
'B083C43F7E51984566C5FB0558B641AE31653A53EF5316B3599EB' +
'F5422A5619A9F627D27A0F604B162B9EA7F2B1B8DB366CD5B2B18' +
'6F502634F9AE14A496A9A53B9A7F45F39377C05DACCB19E41FB84' +
'97F62F52FDA69008849406B0C398C6E48AAD0A5DE172A479CD37F' +
'8F29453BA55DA03DD496B1AE20DBE53A9F56CCC5666D6FBB3258B' +
'25CF80AA734C734FC970F5A4C413AC37A30D675CA50BFA4050F85' +
'957566E51E20C5B5C9F7C1EF39802EB06976325DB4ED921F3074D' +
'01B82EA4A6256B6BD931E2E57727B6D2FF93C58A3CBDF2693E787' +
'CE6A2C40D6D15E29F0D42098CEBF07252C310FAF2FD45C1AEC6C0' +
'0A7C0252022D539466B2DE39C016306B05E61DFA932FB576D853B' +
'0D5FB97CAD0499927D19BFC34DD58CBE5E9FF138C71BBFFC6A3E2' +
'342C1C578B39021AB02AC0FBA6C89A61A45AEF3EE4C1862DCF5FC' +
'59698C7ED99AFC1DCAEB8AEBFD85651B7D8CB88CE94E1BA2B98DD' +
'348C2B5CC122F95C89B39BDD3C6CBCABA26F8155BEC401D6FD2DF' +
'552E7711EC1D52CC55AA5C2A7631C2A55D19A652D1F672B22C346' +
'6555CCF55846F7DF48BEC499AC5AF870F6E41863CC117CC27DBF1' +
'B61370CA48D584250ADAA67CA5A3EC79676968AADC84F9B55D3B7' +
'537DCE993496EC6464CF403B5D28B10369233711D142A34ABC8B6' +
'760B6A26E505553E55CD39BEFC2B6E28C1E83BDC45C38B267C0B8' +
'2215DFEC58255B112D986FF461C2B4BF579558AA5A8B0AC0C3EEB' +
'6375BE12528AEE358826CB878654F5A45BC48B5B216BD1E493FE6' +
'19886D55F19367012AA3D99F6D65BD184B70DC8B9E813311CAE62' +
'89B46BB35DF48BDD7E772618A30CDFA6ABDA31D42B5B25E8C2538' +
'12A65C83B2E69249F45491D0DC1A84E5E9E7E77C02B135CE02CEC' +
'39694D882C0EECB391D7A068E8A31476B54320D6BF9747C5BB1B5' +
'9E8A7CD409D8B2F562AE0146D7953AC35F4DA5C6B69A54C5BBEC7' +
'A0AA64FB24885773A035B58C510F0524EC71521AAF988AADAF333' +
'8E7D2CF6C17A1F2A487C1AD541069B4EC416B5E0993211AE7237D' +
'CD14CAA22DFDC892AEEBCBA82E46F60041EDE619BF279FC6DE57B' +
'A9E64355B57B1562BC7B5DAD328B3F962D9FEE05EFA6AAF27922E' +
'BED60DEEF35613AB930A8566CF7B45BAAB51A7539795A2D23ED53' +
'B0C5CA1BC7B7FA8448D5CFF764EB97524B6DB01575B9EA545A663' +
'427204C7B193D7FE30C4EF13CC06E314FAF6A9EF2445254CB491B' +
'39E3516CA9AE6E9C789EA12BB2C1F69573FF430953059EAA8ED58' +
'927D9EA697A4DA976575595E5D98D3A55E7B3097CC737137ED9CF' +
'707CABEAE11655227F305B7D4E6A7456B8D5DD5C9684ADEAE8B7A' +
'C9E74D2EACFD31907D7EEAC5E5C31D7D263ECCFB65A592F74564C' +
'798A78A6F3A05C9924955588E7BDCA5AB5ED3D9F9BA7B67A22B6F' +
'A444F666A568721E66E52E5DBEBBAB4AE9934FAC655EDDA6428CF' +
'7695979031D8016CA943836AF5FA44CFF015B2B3422B6573A496C' +
'555F56A8BB32429FBFD746FD8F33E1FD483D9FEBCF3CDE8F0A4FC' +
'8ED9CAD30D5DB556F522622BBDBDF5D7CDA7450B39802DE58CBA0' +
'BE8E7BD582A8AAB4E8EACCE7CABFFD6F8FEC69A3A1BDBA7D922D3' +
'FE571B56919B5519AEBAC7AD1E66236231BBD454EFDF016C7DF25' +
'F558E77F56D1AEFFB4DF778ABD3ECEFEC586C2DFFA076B7C3D852' +
'754EAB61C366C7B2B51BA2FD7CD33D2E777CCB1A2D92165B41F83' +
'0B67496A7D5E88C35AB7986E5BF778E1AAAD78EEABBDB9F2D77AF' +
'69D53DB1A4AA3399954E0695EA9E2E56D15357A9EED72515DDD15' +
'2B91EA215CF2BB576D7B8C635AE718D6B5CE31AD7F855E30F05B');
end;
var
x,y: Integer;
procedure FBitmap;
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
procedure FreeBmps;
begin
freebitmap(cube)
freebitmap(hole)
end;
begin
SetupSRL;
repeat
if(not(LoggedIn))then
Exit;
Repeat
; //picking up cubes
; //enchanting cubes
; //walking to alter
; //depositing
; //walking back to cubes
until(false);
end.