you are correct, it does just cast a given spell - the number of times in the parameter "totalCasts". If totalcasts is set to 0, it is basically infinite.
@cast item/cast object idea, that is an excellent idea, lol, wish i had thought of that :doh:
I'll get to that. and update the headers.
Edit:
{==============================================================================\
| MSI Group Scripting Include |
| Magic.scar |
|==============================================================================|
| For all magic routines. |
| |
| * function MSI_ResetSpellbook(); * by nickrules |
| * function MSI_Cast(): Boolean; * by nickrules |
| * function MSI_Cast_item(): Boolean; * by nickrules |
| * function MSI_Cast_Obj(): Boolean; * by nickrules |
| * function MSI_Loop_Cast(): Boolean; * by nickrules |
| * function MSI_Curse(): Boolean; * by nickrules |
| * function MSI_Alch(): Boolean; * by nickrules |
\ _____________________________________________________________________________}
{.include srl/srl/msi/setup.scar} //for test compiling. no touchy.
{.include srl/srl/skill/magic.scar}
//Quick shoutout to Coh3n, Thanks for the help/ideas. really helped this
//include get to where it is. -NR
{*****************************************************************************}
{ function MSI_ResetSpellbook: boolean; }
{ By: Nickrules }
{ Date: 10 June 2010 }
{ Description: Resets the spellbook to defaults. }
{*****************************************************************************}
function MSI_ResetSpellbook: boolean; //is this still needed?
var
DTM,x,y: integer;
begin
gametab(tab_magic);
SortBook(0);
SetSpellMode(True, True, True, True);
ToggleDefCast(False);
{DTM := DTMFromString('78DA630C60626038C0C8800C5EDD3C0AA661A' +
'28CEE986AFEFDFB87AA2618A8E60C01358140353BF1AB010073E3' +
'0FCB');
if not findDTM(DTM, x, y, MIX1, MIY1, MIX2, MIY2) then
begin
mouse(592, 451, 5, 5, true);
end;
FreeDTM(DTM);
DTM := DTMFromString('78DA634C63626038C2C8800A189148209D025' +
'4B31355CDBF7FFF50D5E4639A83A12615A8E60C0135B140358750' +
'D58808F1A0A8010073BD0F05');
if not finddtm(dtm,x,y,MIX1,MIY1,MIX2,MIY2) then
begin
mouse(614,451,5,5,true);
end;
FreeDTM(DTM);
DTM := DTMFromString('78DA63AC62626038C2C88002BA0F832998286' +
'32150CD515435FFFEFD43550332672701352D4035878830E734AA' +
'1A11211E14350068D510BA');
if(not(finddtm(dtm,x,y,MIX1,MIY1,MIX2,MIY2)))then
begin
mouse(634,451,5,5,true);
end;
FreeDTM(DTM);
DTM := DTMFromString('78DA639CC0C4C070849101196C8BF402D3305' +
'1C6764C3522423CA86AFA816ACEA0AAF9F7EF1FAA9A3EA09A5D04' +
'CC9909547310BF3900E5CD0E67');
if(not(finddtm(dtm,x,y,MIX1,MIY1,MIX2,MIY2)))then
begin
mouse(654,451,5,5,true);
end;
FreeDTM(DTM);
DTM := DTMFromString('78DA639CC0C4C070849101196C8BF402D3305' +
'1C6764C3522423CA86AFA816ACEA0AAF9F7EF1FAA9A3EA09A5D04' +
'CC9909547310BF3900E5CD0E67');
if(not(finddtm(dtm,x,y,MIX1,MIY1,MIX2,MIY2)))then
begin
mouse(684,451,5,5,true);
end;
FreeDTM(DTM);
DTM := DTMFromString('78DA633462626038CCC88002422AC1144C945' +
'113A8E620AA9A7FFFFEA1AA0199B393801A2BA09A43A86A9ACA53' +
'50D59863BAA7B212D53D003EED0E63');
if(finddtm(dtm,x,y,MIX1,MIY1,MIX2,MIY2))then
begin
mouse(562,451,5,5,true);
end;
result := true;
FreeDTM(DTM); }
end;
{*****************************************************************************}
{ function MSI_Cast_Item(spellname: string; what: integer): boolean; }
{ By: Nickrules }
{ Date: 28 June 2010 }
{ Description: Casts a given spell on a given object/item. }
{*****************************************************************************}
function MSI_Cast_Item(spellname: string; what: integer): boolean;
begin
if (not Cast(spellName, false)) then
begin
MSI_Debug('MSI_Cast_Item','Casting failed', DEBUG_FUNCTIONS);
exit;
end;
Result := MSI_ClickItems(what, ['ast']);
if (not Result) then
begin
MSI_Debug('MSI_Cast_Item','Item finding failed',5);
end;
end;
{*****************************************************************************}
{ function MSI_Cast_Obj(spellname: string; what: integer): boolean; }
{ By: Nickrules, shortened by Coh3n. Thanks. }
{ Date: 28 June 2010 }
{ Description: Casts a given spell on a given object/item. }
{*****************************************************************************}
function MSI_Cast_Obj(spellname: string; what: integer): boolean;
begin
if (not Cast(spellName, false)) then
begin
MSI_Debug('MSI_Cast_Obj','Casting failed', DEBUG_FUNCTIONS);
exit;
end;
Result := MSI_FindObject(MSI_Objects[castOn], ClickLeft);
if (not Result) then
MSI_Debug('MSI_Cast_Obj', 'Object finding failed', DEBUG_FUNCTIONS);
end;
{*****************************************************************************}
{ function MSI_Cast(spellname: string; castOn: integer; IsObject: boolean): boolean;}
{ By: Nickrules }
{ Date: 28 June 2010 }
{ Description: Casts a given spell on a given object/item. }
{*****************************************************************************}
function MSI_Cast(spellName: string; castOn: Integer; isObject: Boolean): Boolean;
begin
MSI_AntiBan(5000, 40);
if (isObject) then
begin
Result := MSI_Cast_Obj(spellName, CastOn);
end else
begin
Result := MSI_Cast_Item(spellName, castOn);
end;
end;
{*****************************************************************************}
{ function MSI_Loop_Cast(spellname: string; which: integer; IsObject: boolean): boolean;}
{ By: Nickrules } }
{ Date: 17 July 2010 }
{ Description: Casts a given spell on a given object/item, the number }
{ *of times, as determined by totalCasts, with a wait of waitTime(ms) }
{ *in between. set totalCasts to 0 to cast forever(kinda) }
{*****************************************************************************}
Procedure MSI_Loop_Cast(spellname: string; which, waitTime, totalCasts: Integer; IsObject: boolean);
var
CastSoFar, fails: intger;
anotherVar: boolean;
begin
if (totalcasts = 0) then
begin
totalcasts := 9999999999; //If you can actually cast this many times in one proggy, i will mail you a cookie (maybe) lol.
end;
while castssofar to totalcasts do
begin //point 1
If not MSI_Cast(spellname, which,IsObject) then //if it fails, do all this shit
begin
inc(fails);
MSI_DEBUG('MSI_Loop_Cast','something failed. Fails so far: '+inttostr(fails), 3);
MSI_DEBUG('MSI_Loop_Cast','trying 5 more times.', 3);
repeat
//point 2
AnotherVar := MSI_Cast(spellname, which,IsObject); //determine the result, storing it to be tested
if anotherVar then //if we got it, do this, and break the loop, returning to point 1
begin
Writeln('MSI_Cast Returned true. Breaking failsafe loop');
Writeln('We got it on try number '+inttostr(failsafe)+' out of 5');
MSI_DEBUG('MSI_Loop_Cast','unce unce ucne - meltdown averted', 10);
failsafe := 0
break;
end;
If not AnotherVar then //if the failsafe cast failed...
begin
inc(failsafe); //increase var and write crap
writeln('Returned false on try number '+inttostr(failsafe)+'out of 5');
if (failsafe >= 5) then //but, if failsafe is 5 or greater...
begin
MSI_DEBUG('MSI_Loop_Cast','Casting failed 5 times. Terminating script', 10);
TerminateScript; //blow it up.
end;
end; //of course if its not, go to point two, and try, try again.
until((failsafe >= 5) or anotherVar = true);// uh... yeah.
end else //If it worked fine, increase some crap, do some waiting, etc.
begin
Wait(waittime);
inc(CastSoFar);
end; // and then back to the while to do loop :D
end;
MSI_DEBUG('MSI_Loop_Cast', inttostr(CastsSoFar)+' casts, with '+IntToStr(fails)+' failed casts.', 7)
end;
//////////////////////////////////
/////unnessisary procedures(?)////
//////////////////////////////////
{*****************************************************************************}
{ function MSI_Curse(which: Integer): boolean; }
{ By: Nickrules }
{ Date: 10 June 2010 }
{ Description: Curses the NPC defined by which. }
{*****************************************************************************}
Function MSI_Curse(which: Integer): boolean;
var
x, y: integer;
NPC: TMSObject;
begin
MSI_Debug('MSI_Curse','Starting cursing...', Debug_Functions);
NPC := MSI_GetObject(Which);
makecompass('w');
MSI_ResetSpellbook;
repeat
MSI_FindRandoms;
MSI_AntiBan(RandomRange(0, 5000), ANTI_BAN_CHANCE);
if not cast('curse',false) then
begin
MSI_Debug('MSI_Curse','Couldn''t cast curse for whatever reason.', 10);
nextplayer(false);
result := false;
end;
MSI_FindObject(NPC,ClickLeft);
until(false);
end;
{*****************************************************************************}
{ function MSI_Alch(item: Integer): boolean; }
{ By: Nickrules }
{ Date: 10 June 2010 }
{ Description: High Alchs the item defined by item }
{*****************************************************************************}
Function MSI_Alch(item: TIntegerArray): boolean;
var
x,y, DTM: integer;
begin
//MSI_LoadDTM
DTM := DTMFromString('78DA633CCECCC070929101196832338169982' + //high alch DTM
'8E30EA09A0BA86AA418D1D49C01AA398FAA86119D3E0954B31FBF1A0' +
'0473706A1');
MSI_Debug('MSI_Alch','Alching time :D', Debug_Functions);
MSI_ResetSpellbook;
repeat
MSI_FindRandoms;
MSI_AntiBan(RandomRange(0, 4000), ANTI_BAN_CHANCE);
if not cast('high level alchemy',false) then
begin
MSI_Debug('MSI_Alch','Couldn''t cast high level alchemy.', 10);
result := false;
exit;
end;
mouse(x,y,8,8,true);
wait(randomrange(150,500));
MSI_ClickItems([item], 'gh al');
wait(randomrange(1500,2000));
until(false);
freedtm(dtm);
end;
This is what i've done so far. When you said that a cast time and a cast object would be a good idea, did you mean, one for a single cast, or, a looping function which repeatedly casts on either objects or items?
I'll do both for now.
edit (again, lol): The MSI_Loop_Cast should be capable of doing both, by the way.