SRL Archive - RS3 Outdated / Broken Scripts

mage training enchanter


towinthiswar

2007-08-03 13:35:58

I have a members script that I think should be fairly easy if anyone wants to give it a try. Im currently working on 94 mage and am using the enchating arena in the mage training arena to get there. So if you think you can make a script that picks up an inventory of cubes (can be the same color every time just to make it easier) and does onyx enchant on all of them then walks over to the hole (only like 1 minimap length away) and drops them in. There are no randoms in the enchanting arena so that eliminates the need for any antirandoms. Few people go down there so it also wouldnt need any randomchatrevery. It doesnt need to walk very far and the colors are all very distinct so from what little I have picked up about scripting it seems like it would be fairly easy.

I am new to autoing but have been reading the tutorials and trying to soak in as much as I can. I think it would be a great way for me to learn more about scripting if I helped someone make this script. So to make myself seem like less of a leech :D I will gladly help you make this script. Who knows maybe it will even prepare me to make one on my own soon. Haha.

Thanks for considering,
-towinthiswar

passiondrive

2007-08-03 15:26:01

Well, firstly I must congratulate you on your determination. It seems you are willing to learn SCAR and therefore I feel if you stick at it a script like this shouldn't be too hard to make. Keep reading them tuts.

- Drive

towinthiswar

2007-08-04 13:57:24

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.


      
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.





Markus

2007-08-04 16:59:30

until(invfull); is what you want ;)

Sp0rky

2007-08-04 17:41:00

Don't forgot to actually load the bitmap then free it again once you're done with it. Otherwise it rapes memory.

towinthiswar

2007-08-04 17:42:58

Thanks. I hope this isnt considered leeching but what do you think is the best way to have it click the level six enchant spell then the last cube in the inventory 24 times. Should I take a bitmap of spell and the cube in inv and have it repeat 24 times? Ive looked at the alching scripts to get an idea but i dont really understand the parts about clicking the spell and then the item.

Anyway after that I would just radial walk to the deposit whole and click it right. Then walk back to the cubes and put in the main loop?

Sp0rky

2007-08-04 17:51:50

for casting the spell, srl has built in functions.

Use Cast(62) (this is the Enchant Level 6 Jewelry)

I don't know if radial walk is going to work for you seeing as there are no roads. You might have to use co-ords with random add on's for antiban.

If you need further help you can always add me on msn, I'll be willing to help you in realtime.

jeffreytuner

2007-08-04 20:06:20

i would use this if it works i want 85 mage and this is the best way for it i think


edit: yes alching is better but it cost a lot more any im not very rich

Sp0rky

2007-08-04 20:09:33

Enchanting is easily better than high alching.

towinthiswar

2007-08-04 20:30:29

hey sp0rk-eh whats your msn? im not sure how to find it in your profile or whatever.

Sp0rky

2007-08-04 20:32:09

[email]edd@leavemethefuckalone.com[/email] (its real btw. im not being mean.)

towinthiswar

2007-08-04 20:52:30

are you online now?

Sp0rky

2007-08-04 20:55:06

yes.

towinthiswar

2007-08-04 20:57:38

youre talking about msn messenger right?