-
Hail, we're RedGuides. We want you to play six (yes, 6!) EverQuest characters at once. We have scripts and a friendly community to help, please join our playstyle and say hello! 👋
Resource icon
Release MQ2Cast
- Thread starter Jensen
- Start date
If you're talking about using the current MQ2Cast and putting it into a P99 compile, then the answer is no, it won't. The coding structure of P99 is nothing at all like the current live version. There have been an uncountable number of structure, op-code, and offset changes over the years. MQ2Cast would need to essentially be downgraded accordingly.
This should work on the Titanium build (P99)
Rich (BB code):
//=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=//
// Projet: MQ2Cast.cpp | Set DEBUGGING 0 or 1 (false/true) for DEBUGGING msg
// Author: s0rCieR |
// A_Enchanter_00 |
//=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=//
// Last edited by: Kroak on 12-8-07
//=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=//
#define DEBUGGING 0
#ifndef PLUGIN_API
#include "../MQ2Plugin.h"
#include "../Blech/Blech.h"
PreSetup("MQ2Cast");
#endif
#define GEMS_MAX 10
#define DELAY_CAST 12000
#define DELAY_MEMO 6000
#define DELAY_STOP 3000
#define DELAY_PULSE 125
#define CAST_SUCCESS 0
#define CAST_INTERRUPTED 1
#define CAST_RESIST 2
#define CAST_COLLAPSE 3
#define CAST_RECOVER 4
#define CAST_FIZZLE 5
#define CAST_STANDING 6
#define CAST_STUNNED 7
#define CAST_INVISIBLE 8
#define CAST_NOTREADY 9
#define CAST_OUTOFMANA 10
#define CAST_OUTOFRANGE 11
#define CAST_NOTARGET 12
#define CAST_CANNOTSEE 13
#define CAST_COMPONENTS 14
#define CAST_OUTDOORS 15
#define CAST_TAKEHOLD 16
#define CAST_IMMUNE 17
#define CAST_DISTRACTED 18
#define CAST_ABORTED 19
#define CAST_UNKNOWN 20
#define FLAG_COMPLETE 0
#define FLAG_REQUEST -1
#define FLAG_PROGRESS1 -2
#define FLAG_PROGRESS2 -3
#define FLAG_PROGRESS3 -4
#define FLAG_PROGRESS4 -5
#define DONE_COMPLETE -3
#define DONE_ABORTED -2
#define DONE_PROGRESS -1
#define DONE_SUCCESS 0
#define TYPE_SPELL 1
#define TYPE_ALT 2
#define TYPE_ITEM 3
#define RECAST_DEAD 2
#define RECAST_LAND 1
#define RECAST_ZERO 0
#define NOID -1
#define NUM_INV_SLOTS 30
//=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=//
bool Immobile = false; // Immobile?
bool Invisible= false; // Invisibility Check?
bool Twisting = false; // Twisting?
bool Casting = false; // Casting Window was opened?
long Resultat = CAST_SUCCESS; // Resultat
long ImmobileT= 0; // Estimate when it be immobilized!
long CastingD=NOID; // Casting Spell Detected
long CastingC=NOID; // Casting Current ID
long CastingE=CAST_SUCCESS; // Casting Current Result
long CastingL=NOID; // Casting LastOne ID
long CastingX=CAST_SUCCESS; // Casting LastOne Result
long CastingT=0; // Casting Timeout
long CastingO=NOID; // Casting OnTarget
long CastingP=0; // Casting Pulse
long TargI=0; // Target ID
long TargC=0; // Target Current
long StopF=FLAG_COMPLETE; // Stop Event Flag Progress?
long StopE=DONE_SUCCESS; // Stop Event Exit Value
long StopM=0; // Stop Event Mark
long MoveA=FLAG_COMPLETE; // Move Event AdvPath?
long MoveS=FLAG_COMPLETE; // Move Event Stick?
long MoveP=FLAG_COMPLETE; // Move Event MQ2AdvPath?
long MemoF=FLAG_COMPLETE; // Memo Event Flag
long MemoE=DONE_SUCCESS; // Memo Event Exit
long MemoM=0; // Memo Event Mark
long ItemF=FLAG_COMPLETE; // Item Flag
long ItemA[NUM_INV_SLOTS]; // Item Arrays
long DuckF=FLAG_COMPLETE; // Duck Flag
long DuckM=0; // Duck Time Stamp
long CastF=FLAG_COMPLETE; // Cast Flag
long CastE=CAST_SUCCESS; // Cast Exit Return value
long CastG=NOID; // Cast Gem ID
void *CastI=NULL; // Cast ID [spell/alt/item]
long CastK=NOID; // Cast Kind [spell/alt/item]
long CastT=0; // Cast Time [spell/alt/item]
long CastM=0; // Cast TimeMark Start Casting
long CastR=0; // Cast Retry Counter
long CastW=0; // Cast Retry Type
char CastB[MAX_STRING]; // Cast Bandolier In
char CastC[MAX_STRING]; // Cast SpellType
char CastN[MAX_STRING]; // Cast SpellName
PSPELL CastS=NULL; // Cast Spell Pointer
bool Parsed=false; // BTree List Found Flags
Blech LIST013('#'); // BTree List for OnChat Message on Color 13
Blech LIST264('#'); // BTree List for OnChat Message on Color 264
Blech LIST289('#'); // BTree List for OnChat Message on Color 289
Blech UNKNOWN('#'); // BTree List for OnChat Message on UNKNOWN Yet Color
Blech SUCCESS('#'); // BTree List for OnChat Message on SUCCESS Detection
PCONTENTS fPACK=0; // ItemFound/ItemSearch - Find Pack Contents
PCONTENTS fITEM=0; // ItemFound/ItemSearch - Find Item Contents
long fSLOT=0; // ItemFound/ItemSearch - Find Item SlotID
// long SwapSlot=0; // Item Swapped to slot#
long PulseCount=0;
PSPELL fFIND; // SpellFind - Casting Spell Effect
void *fINFO; // SpellFind - Casting Type Structure
int fTYPE; // SpellFind - Casting Type
int fTIME; // SpellFind - Casting Time
PCHAR fNAME; // SpellFind - Casting Name
SPELLFAVORITE SpellToMemorize; // Favorite Spells Array
long SpellTotal; // Favorite Spells Total
void WinClick(CXWnd *Wnd, PCHAR ScreenID, PCHAR ClickNotification, DWORD KeyState) ;
void ClickBack();
PCHAR ListGems[]={"1","2","3","4","5","6","7","8","9","A","B","C","D","E","F"};
//=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=//
#define aCastEvent(List,Value,Filter) List.AddEvent(Filter,CastEvent,(void*)Value);
void __stdcall CastEvent(unsigned int ID, void *pData, PBLECHVALUE pValues) {
Parsed=true;
if(CastingE<(long)pData) CastingE=(long)pData;
#if DEBUGGING
WriteChatf("[%d] MQ2Cast:[OnChat]: Result=[%d] Called=[%d].",(long)clock(),CastingE,(long)pData);
#endif
}
//=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=//
PALTABILITY AltAbility(PCHAR ID) {
if(ID[0]) {
int Number=IsNumber(ID);
int Values=atoi(ID);
for(DWORD nAbility=0; nAbility < AA_CHAR_MAX_REAL; nAbility++) {
if(GetCharInfo2()->AAList[nAbility].AAIndex) if(PALTABILITY pAbility=pAltAdvManager->GetAltAbility(GetCharInfo2()->AAList[nAbility].AAIndex)) {
if(Number) {
if(pAbility->ID == Values) return pAbility;
} else if(PCHAR pName=pCDBStr->GetString(pAbility->nName,1,NULL)) {
if(!stricmp(ID,pName)) return pAbility;
}
}
}
}
return NULL;
}
void Bandolier(PCHAR zFormat, ...) {
typedef VOID (__cdecl *BandolierCALL) (PCHAR);
char zOutput[MAX_STRING]; va_list vaList; va_start(vaList,zFormat);
vsprintf(zOutput,zFormat,vaList);
PMQPLUGIN pLook=pPlugins;
while(pLook && strnicmp(pLook->szFilename,"MQ2Bandolier",12)) pLook=pLook->pNext;
if(pLook)
if(BandolierCALL Request=(BandolierCALL)GetProcAddress(pLook->hModule,"doBandolier"))
Request(zOutput);
}
bool BardClass() {
return (strncmp(pEverQuest->GetClassDesc(GetCharInfo2()->Class & 0xFF),"Bard",5))?false:true;
}
void Cast(PCHAR zFormat, ...) {
char zOutput[MAX_STRING]={0}; va_list vaList; va_start(vaList,zFormat);
vsprintf(zOutput,zFormat,vaList); if(!zOutput[0]) return;
// WriteChatf("Cast = %s : zOutput %s Line 193 - Cast()",GetCharInfo()->pSpawn,zOutput);
Cast(GetCharInfo()->pSpawn,zOutput);
}
long CastingLeft() {
long CL=0;
if(pCastingWnd && (PCSIDLWND)pCastingWnd->Show) {
CL=GetCharInfo()->pSpawn->SpellETA - GetCharInfo()->pSpawn->TimeStamp;
if(CL<1) CL=1;
}
return CL;
}
long Evaluate(PCHAR zFormat, ...) {
char zOutput[MAX_STRING]={0}; va_list vaList; va_start(vaList,zFormat);
vsprintf(zOutput,zFormat,vaList); if(!zOutput[0]) return 1;
ParseMacroData(zOutput); return atoi(zOutput);
}
void CastTimer(int TargetID,int SpellID,long TickE) {
typedef VOID (__cdecl *CastTimerCALL) (int,int,long);
PMQPLUGIN pLook=pPlugins;
while(pLook && strnicmp(pLook->szFilename,"MQ2Casttimer",11)) pLook=pLook->pNext;
if(pLook && pLook->fpVersion>1.1100)
if(CastTimerCALL Request=(CastTimerCALL)GetProcAddress(pLook->hModule,"TimerCastHandle"))
Request(TargetID, SpellID, TickE);
}
void Exchange(PCHAR zFormat, ...) {
typedef VOID (__cdecl *ExchangeCALL) (PCHAR);
char zOutput[MAX_STRING]; va_list vaList; va_start(vaList,zFormat);
vsprintf(zOutput,zFormat,vaList);
PMQPLUGIN pLook=pPlugins;
while(pLook && strnicmp(pLook->szFilename,"MQ2Exchange",11)) pLook=pLook->pNext;
if(pLook && pLook->fpVersion>1.1500)
if(ExchangeCALL Request=(ExchangeCALL)GetProcAddress(pLook->hModule,"doExchange"))
Request(zOutput);
}
void Execute(PCHAR zFormat, ...) {
char zOutput[MAX_STRING]={0}; va_list vaList; va_start(vaList,zFormat);
vsprintf(zOutput,zFormat,vaList); if(!zOutput[0]) return;
DoCommand(GetCharInfo()->pSpawn,zOutput);
}
bool Flags() {
if(!BardClass() && pCastingWnd && (PCSIDLWND)pCastingWnd->Show) return true;
if(CastF!=FLAG_COMPLETE) return true;
if(DuckF!=FLAG_COMPLETE) return true;
if(ItemF!=FLAG_COMPLETE) return true;
if(MemoF!=FLAG_COMPLETE) return true;
if(StopF!=FLAG_COMPLETE) return true;
if(MoveS!=FLAG_COMPLETE) return true;
if(MoveP!=FLAG_COMPLETE) return true;
if(MoveA!=FLAG_COMPLETE) return true;
return false;
}
long GEMID(DWORD ID) {
for(int GEM=0; GEM < GEMS_MAX; GEM++) if(GetCharInfo2()->MemorizedSpells[GEM] == ID) return GEM;
return NOID;
}
bool GEMReady(DWORD ID) {
if(pCastSpellWnd && ID < GEMS_MAX)
if((long)((PEQCASTSPELLWINDOW)pCastSpellWnd)->SpellSlots[ID]->spellicon!=NOID)
if(BardClass() || (long)((PEQCASTSPELLWINDOW)pCastSpellWnd)->SpellSlots[ID]->spellstate!=1)
return true;
return false;
}
bool GiftOfMana() {
for (unsigned long nBuff=0 ; nBuff < 35 ; nBuff++) {
if (PSPELL pSpell=GetSpellByID(GetCharInfo2()->ShortBuff[nBuff].SpellID)) {
if (!stricmp("Gift of Mana",pSpell->Name)) {
return true;
}
}
}
return false;
}
long ItemFound(long ID, long B, long E) {
for(int iSlot=B; iSlot < E; iSlot++)
if(PCONTENTS cSlot=GetCharInfo2()->InventoryArray[iSlot]) {
if(ID == cSlot->Item->ItemNumber) {
fSLOT=iSlot;
fITEM=cSlot;
fPACK=(iSlot>=BAG_SLOT_START)?cSlot:NULL;
return true;
} else if (cSlot->Item->Type == ITEMTYPE_PACK) {
for(int iPack=0; iPack < cSlot->Item->Slots; iPack++) {
if(PCONTENTS cPack=cSlot->Contents[iPack]) {
if(ID == cPack->Item->ItemNumber) {
fSLOT=(iSlot-BAG_SLOT_START)*10+262+iPack;
fITEM=cPack;
fPACK=cSlot;
return true;
}
}
}
}
}
fSLOT=0;
fITEM=0;
fPACK=0;
return false;
}
long ItemSearch(PCHAR ID, long B, long E) {
if(IsNumber(ID)) return ItemFound(atoi(ID),B,E);
for(int iSlot=B; iSlot < E; iSlot++)
if(PCONTENTS cSlot=GetCharInfo2()->InventoryArray[iSlot]) {
if(!stricmp(ID,cSlot->Item->Name)) {
fSLOT=iSlot;
fITEM=cSlot;
fPACK=(iSlot>=BAG_SLOT_START)?cSlot:NULL;
return true;
} else if (cSlot->Item->Type == ITEMTYPE_PACK) {
for(int iPack=0; iPack < cSlot->Item->Slots; iPack++) {
if(PCONTENTS cPack=cSlot->Contents[iPack]) {
WriteChatf("Checking contents of pack %d",iSlot);
if(!stricmp(ID,cPack->Item->Name)) {
fSLOT=(iSlot-BAG_SLOT_START)*10+262+iPack;
WriteChatf("iSlot == %d : fSlot == %d",iSlot,fSLOT);
WriteChatf("Compute fSlot? : %d",(BAG_SLOT_START+iSlot)/10+262+iPack);
// PCONTENTS fPACK=GetCharInfo2()->InventoryArray[(InvSlot-262)/10+BAG_SLOT_START];
fITEM=cPack;
fPACK=cSlot;
return true;
}
}
}
}
}
fSLOT=0;
fITEM=0;
fPACK=0;
return false;
}
void MemoLoad(long Gem, PSPELL Spell) {
if(!Spell || Spell->Level[GetCharInfo2()->Class-1]>GetCharInfo2()->Level) return;
for(int sp=0;sp<GEMS_MAX;sp++)
if(SpellToMemorize.SpellId[sp]==Spell->ID) SpellToMemorize.SpellId[sp]=0xFFFFFFFF;
SpellToMemorize.SpellId[((DWORD)Gem<GEMS_MAX)?Gem:4]=Spell->ID;
}
float Speed() {
float MySpeed=0.0f;
if(PSPAWNINFO Self=GetCharInfo()->pSpawn) {
MySpeed=Self->SpeedRun;
if(PSPAWNINFO Mount=FindMount(Self))
MySpeed=Mount->SpeedRun;
}
return MySpeed;
}
void Success(PSPELL Cast) {
SUCCESS.Reset();
if(Cast) {
char Temps[MAX_STRING];
bool Added=false;
if(Cast->CastOnYou[0]) {
sprintf(Temps,"%s#*#",Cast->CastOnYou);
aCastEvent(SUCCESS,CAST_SUCCESS,Temps);
Added=true;
}
if(Cast->CastOnAnother[0]) {
sprintf(Temps,"#*#%s#*#",Cast->CastOnAnother);
aCastEvent(SUCCESS,CAST_SUCCESS,Temps);
Added=true;
}
if(!Added)
aCastEvent(SUCCESS,CAST_SUCCESS,"You begin casting#*#");
}
}
bool Moving() {
long MyTimer=(long)clock();
if(Speed()!=0.0f) ImmobileT=MyTimer+500;
return (!MQ2Globals::gbMoving && (!ImmobileT || MyTimer>ImmobileT));
}
BOOL Open(PCHAR WindowName) {
PCSIDLWND pWnd=(PCSIDLWND)FindMQ2Window(WindowName);
return (!pWnd)?false:(BOOL)pWnd->Show;
}
BOOL Paused() {
if(BardClass()) return false;
if(pLootWnd && (PCSIDLWND)pLootWnd->Show) return true;
if(pBankWnd && (PCSIDLWND)pBankWnd->Show) return true;
if(pMerchantWnd && (PCSIDLWND)pMerchantWnd->Show) return true;
if(pTradeWnd && (PCSIDLWND)pTradeWnd->Show) return true;
if(pGiveWnd && (PCSIDLWND)pGiveWnd->Show) return true;
if(Open("TributeMasterWnd")) return true;
if(Open("GuildTributeMasterWnd")) return true;
if(Open("GuildBankWnd")) return true;
return false;
}
void Reset() {
TargI=0; // Target ID
TargC=0; // Target Check ID
StopF=FLAG_COMPLETE; // Stop Event Flag Progress?
StopE=DONE_SUCCESS; // Stop Event Exit Value
MoveA=FLAG_COMPLETE; // Stop Event AdvPath?
MoveS=FLAG_COMPLETE; // Stop Event Stick?
MoveP=FLAG_COMPLETE; // Stop Event MQ2AdvPath?
MemoF=FLAG_COMPLETE; // Memo Event Flag
MemoE=DONE_SUCCESS; // Memo Event Exit
ItemF=FLAG_COMPLETE; // Item Flag
DuckF=FLAG_COMPLETE; // Duck Flag
CastF=FLAG_COMPLETE; // Cast Flag
CastE=CAST_SUCCESS; // Cast Exit Return value
CastG=NOID; // Cast Gem ID
CastI=NULL; // Cast ID [spell/alt/item/disc]
CastK=NOID; // Cast Kind [spell/alt/item/disc] [-1=unknown]
CastT=0; // Cast Time [spell/alt/item/disc]
CastB[0]=0; // Cast Bandolier In
CastB[0]=0; // Cast Bandolier Out
CastC[0]=0; // Cast SpellType
CastN[0]=0; // Cast SpellName
CastR=1; // Cast Retry Counter
CastW=0; // Cast Retry Type
Invisible=false; // Invisibility Check?
ZeroMemory(&SpellToMemorize,sizeof(SPELLFAVORITE));
strcpy(SpellToMemorize.Name,"Mem a Spell");
SpellToMemorize.inuse=1;
for(int sp=0;sp<GEMS_MAX;sp++) SpellToMemorize.SpellId[sp]=0xFFFFFFFF;
SpellTotal=0;
}
long SlotEquip(PITEMINFO Item, long CurrSlotID, long WantSlotID) {
BYTE Effects=((long)Item->Clicky.SpellID==NOID)?0:Item->Clicky.EffectType;
long MaxSlot=(Effects==1 || Effects==3 || Effects==5)?NUM_INV_SLOTS-1:BAG_SLOT_START-1;
if(CurrSlotID<=MaxSlot) return CurrSlotID;
if(WantSlotID>NOID && WantSlotID<=MaxSlot) {
if(WantSlotID>BAG_SLOT_START-1) {
PCONTENTS pSlot=GetCharInfo2()->InventoryArray[WantSlotID];
if(!pSlot || pSlot->Item->Type!=ITEMTYPE_PACK) return WantSlotID;
} else if(Item->EquipSlots&(1<<WantSlotID)) return WantSlotID;
}
for(long Desired=MaxSlot; Desired>=0; Desired--) {
if(Desired>BAG_SLOT_START-1) {
PCONTENTS pSlot=GetCharInfo2()->InventoryArray[Desired];
if (!pSlot || pSlot->Item->Type!=ITEMTYPE_PACK) return Desired;
} else if(Item->EquipSlots&(1<<Desired)) return Desired;
}
return BAG_SLOT_START+7;
// return NOID;
}
long SlotID(PCHAR ID) {
long Search=IsNumber(ID); DWORD Number=atoi(ID);
if(Search) return (Number<NUM_INV_SLOTS)?Number:NOID;
for(Number=0; szItemSlot[Number]; Number++) if(!stricmp(ID,szItemSlot[Number])) return Number;
return NOID;
}
PSPELL SpellBook(PCHAR ID) {
if(ID[0]) {
if(IsNumber(ID)) {
int Number=atoi(ID);
for(DWORD nSpell=0; nSpell < NUM_BOOK_SLOTS; nSpell++)
if(GetCharInfo2()->SpellBook[nSpell]==Number)
return GetSpellByID(Number);
} else {
for(DWORD nSpell=0; nSpell < NUM_BOOK_SLOTS; nSpell++)
if(PSPELL pSpell=GetSpellByID(GetCharInfo2()->SpellBook[nSpell]))
if (!stricmp(ID,pSpell->Name) || (strstr(pSpell->Name,"Rk. II") && !strnicmp(ID,pSpell->Name,strlen(pSpell->Name)-8))) return pSpell;
// if(!stricmp(ID,pSpell->Name)) return pSpell;
}
}
return NULL;
}
bool SpellFind(PCHAR ID, PCHAR TYPE) {
if(ID[0]) {
// assume it's an alt ability
if(!TYPE[0] || !strnicmp(TYPE,"alt",3)) {
if(PALTABILITY Search=AltAbility(ID)) {
if(PSPELL spell=GetSpellByID(Search->SpellID)) {
fFIND=spell;
fINFO=Search;
fTIME=fFIND->CastTime;
fNAME=(PCHAR)fFIND->Name;
fTYPE=TYPE_ALT;
return true;
}
}
}
// assume it's a spell
if(!TYPE[0] || !strnicmp(TYPE,"gem",3) || IsNumber(TYPE)) {
if(PSPELL Search=SpellBook(ID)) {
fFIND=Search;
fINFO=Search;
fTIME=pCharData1->GetAACastingTimeModifier((EQ_Spell*)fFIND)+
pCharData1->GetFocusCastingTimeModifier((EQ_Spell*)fFIND,0)+
fFIND->CastTime;
fNAME=(PCHAR)fFIND->Name;
fTYPE=TYPE_SPELL;
return true;
}
}
// assume it's an item clicky
if(ItemSearch(ID,0,NUM_INV_SLOTS)) if(fITEM->Item->Clicky.SpellID) {
fFIND=GetSpellByID(fITEM->Item->Clicky.SpellID);
fINFO=fITEM;
fTIME=fITEM->Item->CastTime;
fNAME=(PCHAR)fITEM->Item->Name;
fTYPE=TYPE_ITEM;
return true;
}
}
fFIND=NULL;
fINFO=NULL;
fTYPE=0;
return false;
}
long SpellTimer(long Type, void *Data) {
int Ready;
switch(Type) {
case TYPE_SPELL:
if(GEMReady(GEMID(((PSPELL)Data)->ID))) return 0;
return (long)((PSPELL)Data)->FizzleTime;
case TYPE_ALT:
if(pAltAdvManager->GetCalculatedTimer(pPCData,(PALTABILITY)Data)>0) {
pAltAdvManager->IsAbilityReady(pPCData,(PALTABILITY)Data,&Ready);
return (Ready<1)?0:Ready*1000;
}
return 999999;
case TYPE_ITEM:
return GetItemTimer((PCONTENTS)Data)*1000;
}
return 999999;
}
bool SpellReady(PCHAR ID) {
if(ID[0]==0) return true;
if(IsNumber(ID)) {
long number=atoi(ID)-1;
if((DWORD)number<GEMS_MAX) return GEMReady(number);
}
if(ID[0]=='M' && strlen(ID)==1)
return !(Twisting=Evaluate("${If[${Twist.Twisting},1,0]}")?true:false);
char zName[MAX_STRING]; GetArg(zName,ID,1,FALSE,FALSE,FALSE,'|');
char zType[MAX_STRING]; GetArg(zType,ID,2,FALSE,FALSE,FALSE,'|');
if(SpellFind(zName,zType)) if(!SpellTimer(fTYPE,fINFO)) return true;
return false;
}
void Stick(PCHAR zFormat, ...) {
typedef VOID (__cdecl *StickCALL) (PSPAWNINFO,PCHAR);
char zOutput[MAX_STRING]; va_list vaList; va_start(vaList,zFormat);
vsprintf(zOutput,zFormat,vaList);
PMQPLUGIN pLook=pPlugins;
while(pLook && strnicmp(pLook->szFilename,"MQ2MoveUtils",12)) pLook=pLook->pNext;
if(pLook && pLook->RemoveSpawn)
if(StickCALL Request=(StickCALL)GetProcAddress(pLook->hModule,"StickCommand"))
Request(GetCharInfo()->pSpawn,zOutput);
}
void Path(PCHAR zFormat, ...) {
typedef VOID (__cdecl *FollowCALL) (PSPAWNINFO,PCHAR);
char zOutput[MAX_STRING]; va_list vaList; va_start(vaList,zFormat);
vsprintf(zOutput,zFormat,vaList);
PMQPLUGIN pLook=pPlugins;
while(pLook && strnicmp(pLook->szFilename,"MQ2AdvPath",10)) pLook=pLook->pNext;
if(pLook && pLook->RemoveSpawn)
if(FollowCALL Request=(FollowCALL)GetProcAddress(pLook->hModule,"MQFollowCommand"))
Request(GetCharInfo()->pSpawn,zOutput);
}
//=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=//
class MQ2CastType *pCastType=0;
class MQ2CastType : public MQ2Type {
private:
char Temps[MAX_STRING];
public:
enum CastMembers {
Active=1,
Effect=2,
Stored=3,
Result=4,
Return=5,
Status=6,
Timing=7,
Taken=8,
Ready=9,
};
MQ2CastType():MQ2Type("Cast") {
TypeMember(Active);
TypeMember(Effect);
TypeMember(Stored);
TypeMember(Result);
TypeMember(Return);
TypeMember(Status);
TypeMember(Timing);
TypeMember(Taken);
TypeMember(Ready);
}
bool GetMember(MQ2VARPTR VarPtr, PCHAR Member, PCHAR Index, MQ2TYPEVAR &Dest) {
PMQ2TYPEMEMBER pMember=MQ2CastType::FindMember(Member);
if(pMember) switch((CastMembers)pMember->ID) {
case Active:
Dest.DWord=(gbInZone);
Dest.Type=pBoolType;
return true;
case Effect:
Dest.DWord=GetCharInfo()->pSpawn->CastingSpellID;
if((long)Dest.DWord==NOID && CastF!=FLAG_COMPLETE) Dest.DWord=CastS->ID;
if((long)Dest.DWord!=NOID) {
Dest.Ptr=GetSpellByID(Dest.DWord);
Dest.Type=pSpellType;
}
return true;
case Stored:
if(CastingL!=NOID) {
Dest.Ptr=GetSpellByID(CastingL);
Dest.Type=pSpellType;
}
return true;
case Timing:
Dest.DWord=(DWORD)CastingLeft();
Dest.Type=pIntType;
return true;
case Status:
strcpy(Temps,"");
if(CastF!=FLAG_COMPLETE ||
(pCastingWnd && (PCSIDLWND)pCastingWnd->Show)) strcat(Temps,"C");
if(StopF!=FLAG_COMPLETE) strcat(Temps,"S");
if(MoveA!=FLAG_COMPLETE) strcat(Temps,"A");
if(MoveS!=FLAG_COMPLETE) strcat(Temps,"F");
if(MoveP!=FLAG_COMPLETE) strcat(Temps,"S");
if(MemoF!=FLAG_COMPLETE) strcat(Temps,"M");
if(DuckF!=FLAG_COMPLETE) strcat(Temps,"D");
if(ItemF!=FLAG_COMPLETE) strcat(Temps,"E");
if(!Temps[0]) strcat(Temps,"I");
Dest.Ptr=Temps;
Dest.Type=pStringType;
return true;
case Result:
case Return:
switch((pMember->ID==Result)?CastingX:Resultat) {
case DONE_PROGRESS:
case CAST_SUCCESS: strcpy(Temps,"CAST_SUCCESS"); break;
case CAST_INTERRUPTED: strcpy(Temps,"CAST_INTERRUPTED"); break;
case CAST_RESIST: strcpy(Temps,"CAST_RESIST"); break;
case CAST_COLLAPSE: strcpy(Temps,"CAST_COLLAPSE"); break;
case CAST_RECOVER: strcpy(Temps,"CAST_RECOVER"); break;
case CAST_FIZZLE: strcpy(Temps,"CAST_FIZZLE"); break;
case CAST_STANDING: strcpy(Temps,"CAST_STANDING"); break;
case CAST_STUNNED: strcpy(Temps,"CAST_STUNNED"); break;
case CAST_INVISIBLE: strcpy(Temps,"CAST_INVISIBLE"); break;
case CAST_NOTREADY: strcpy(Temps,"CAST_NOTREADY"); break;
case CAST_OUTOFMANA: strcpy(Temps,"CAST_OUTOFMANA"); break;
case CAST_OUTOFRANGE: strcpy(Temps,"CAST_OUTOFRANGE"); break;
case CAST_NOTARGET: strcpy(Temps,"CAST_NOTARGET"); break;
case CAST_CANNOTSEE: strcpy(Temps,"CAST_CANNOTSEE"); break;
case CAST_COMPONENTS: strcpy(Temps,"CAST_COMPONENTS"); break;
case CAST_OUTDOORS: strcpy(Temps,"CAST_OUTDOORS"); break;
case CAST_TAKEHOLD: strcpy(Temps,"CAST_TAKEHOLD"); break;
case CAST_IMMUNE: strcpy(Temps,"CAST_IMMUNE"); break;
case CAST_DISTRACTED: strcpy(Temps,"CAST_DISTRACTED"); break;
case CAST_ABORTED: strcpy(Temps,"CAST_CANCELLED"); break;
case CAST_UNKNOWN: strcpy(Temps,"CAST_UNKNOWN"); break;
default: strcpy(Temps,"CAST_NEEDFIXTYPE"); break;
}
Dest.Ptr=Temps;
Dest.Type=pStringType;
return true;
case Ready:
Dest.DWord=(gbInZone && !Flags() && !Paused() && !Open("SpellBookWnd") &&
!(GetCharInfo()->Stunned) && SpellReady(Index));
Dest.Type=pBoolType;
return true;
case Taken:
Dest.DWord=(CastingX==CAST_TAKEHOLD);
Dest.Type=pBoolType;
return true;
}
strcpy(Temps,"NULL");
Dest.Type=pStringType;
Dest.Ptr=Temps;
return true;
}
bool ToString(MQ2VARPTR VarPtr, PCHAR Destination) {
strcpy(Destination,"TRUE");
return true;
}
bool FromData(MQ2VARPTR &VarPtr, MQ2TYPEVAR &Source) {
return false;
}
bool FromString(MQ2VARPTR &VarPtr, PCHAR Source) {
return false;
}
~MQ2CastType() { }
};
BOOL dataCast(PCHAR szName, MQ2TYPEVAR &Dest) {
Dest.DWord=1;
Dest.Type=pCastType;
return true;
}
//=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=//
void StopEnding() {
if(MoveS!=FLAG_COMPLETE) {
#if DEBUGGING
WriteChatf("[%d] MQ2Cast:[Immobilize]: Stick UnPause Request.",(long)clock());
#endif
Stick("unpause");
MoveS=FLAG_COMPLETE;
}
if(MoveA!=FLAG_COMPLETE) {
#if DEBUGGING
WriteChatf("[%d] MQ2Cast:[Immobilize]: AdvPath UnPause Request.",(long)clock());
#endif
Execute("/varcalc PauseFlag 0");
MoveA=FLAG_COMPLETE;
}
if(MoveP!=FLAG_COMPLETE) {
#if DEBUGGING
WriteChatf("[%d] MQ2Cast:[Immobilize]: MQ2AdvPath UnPause Request.",(long)clock());
#endif
Path("unpause");
MoveP=FLAG_COMPLETE;
}
}
void StopHandle() {
if(StopF==FLAG_REQUEST) {
#if DEBUGGING
WriteChatf("[%d] MQ2Cast:[Immobilize]: Request.",(long)clock());
#endif
StopM=(long)clock()+DELAY_STOP;
StopF=FLAG_PROGRESS1;
StopE=DONE_PROGRESS;
}
if(Evaluate("${If[${Stick.Status.Equal[ON]},1,0]}")) {
#if DEBUGGING
WriteChatf("[%d] MQ2Cast:[Immobilize]: Stick Pause Request.",(long)clock());
#endif
Stick("pause");
MoveS=FLAG_PROGRESS1;
}
if(Evaluate("${If[${Bool[${FollowFlag}]},1,0]}")) {
#if DEBUGGING
WriteChatf("[%d] MQ2Cast:[Immobilize]: AdvPath Pause Request.",(long)clock());
#endif
Execute("/varcalc PauseFlag 1");
MoveA=FLAG_PROGRESS1;
}
if(Evaluate("${If[${AdvPath.Following},1,0]}")) {
#if DEBUGGING
WriteChatf("[%d] MQ2Cast:[Immobilize]: MQ2AdvPath Pause Request.",(long)clock());
#endif
Path("pause");
MoveP=FLAG_PROGRESS1;
}
if(Immobile=Moving()) {
#if DEBUGGING
WriteChatf("[%d] MQ2Cast:[Immobilize]: Complete.",(long)clock());
#endif
StopF=FLAG_COMPLETE;
StopE=DONE_SUCCESS;
}
if((long)clock() > StopM) {
WriteChatf("[%d] MQ2Cast:[Immobilize]: Aborting!",(long)clock());
StopF=FLAG_COMPLETE;
StopE=DONE_ABORTED;
return;
}
if(StopF==FLAG_PROGRESS1) {
StopF=FLAG_PROGRESS2;
if(Speed()!=0.0f) {
MQ2Globals::ExecuteCmd(FindMappableCommand("back"),1,0);
MQ2Globals::ExecuteCmd(FindMappableCommand("back"),0,0);
}
}
}
void MemoHandle() {
if(!pSpellBookWnd) MemoE=DONE_ABORTED;
else {
bool Complete=true;
for(int sp=0; sp<GEMS_MAX; sp++)
if(SpellToMemorize.SpellId[sp]!=0xFFFFFFFF &&
SpellToMemorize.SpellId[sp]!=
GetCharInfo2()->MemorizedSpells[sp]) {
Complete=false;
break;
}
if(!Complete) {
if(MemoF==FLAG_REQUEST) {
#if DEBUGGING
WriteChatf("[%d] MQ2Cast:[Memorize]: Immobilize.",(long)clock());
#endif
MemoF=FLAG_PROGRESS1;
MemoE=DONE_PROGRESS;
MemoM=(long)clock()+DELAY_STOP+DELAY_MEMO*SpellTotal;
if(StopF==FLAG_COMPLETE) StopE=DONE_SUCCESS;
if(StopF==FLAG_COMPLETE) StopF=FLAG_REQUEST;
if(StopF!=FLAG_COMPLETE) StopHandle();
}
if(MemoF==FLAG_PROGRESS1 && StopE==DONE_SUCCESS) {
#if DEBUGGING
WriteChatf("[%d] MQ2Cast:[Memorize]: Spell(s).",(long)clock());
#endif
MemoF=FLAG_PROGRESS2;
DWORD Favorite=(DWORD)&SpellToMemorize;
pSpellBookWnd->MemorizeSet((int*)Favorite,GEMS_MAX);
}
if(StopE==DONE_ABORTED || (long)clock()>MemoM) MemoE=DONE_ABORTED;
} else {
#if DEBUGGING
WriteChatf("[%d] MQ2Cast:[Memorize]: Complete.",(long)clock());
#endif
MemoF=FLAG_COMPLETE;
MemoE=DONE_SUCCESS;
}
}
if(MemoE==DONE_ABORTED || !pSpellBookWnd) {
WriteChatf("[%d] MQ2Cast:[Memorize]: Aborting!",(long)clock());
MemoF=FLAG_COMPLETE;
}
if(MemoF==FLAG_COMPLETE && (pSpellBookWnd && (PCSIDLWND)pSpellBookWnd->Show)) {
#if DEBUGGING
WriteChatf("[%d] MQ2Cast:[Memorize]: Closebook.",(long)clock());
#endif
Execute("/book");
}
}
void ItemHandle(bool SwapIn) {
if(GetCharInfo2()->Cursor || (pCastingWnd && (PCSIDLWND)pCastingWnd->Show) ||
(pSpellBookWnd && (PCSIDLWND)pSpellBookWnd->Show)
) return;
if(GetCharInfo2()->Cursor && !SwapIn) WinClick((CXWnd*)pInventoryWnd,"InvSlot30","leftmouseup",1);
if(!SwapIn && ItemF!=FLAG_COMPLETE && !GetCharInfo()->pSpawn->SpellETA) {
#if DEBUGGING
WriteChatf("[%d] MQ2Cast:[Swapping]: Out.",(long)clock());
#endif
for(int X=0;X<NUM_INV_SLOTS;X++)
if(ItemA[X]) Exchange("%d %d",ItemA[X],X);
for(int Y=0;Y<NUM_INV_SLOTS;Y++)
if(PCONTENTS Cont=GetCharInfo2()->InventoryArray[Y])
if(ItemA[Y] && Cont->Item->ItemNumber==ItemA[Y]) ItemA[Y]=0;
ItemF=FLAG_COMPLETE;
for(int Z=0;Z<NUM_INV_SLOTS && ItemF==FLAG_COMPLETE;Z++) if(ItemA[Z]) ItemF=FLAG_PROGRESS1;
}
if(SwapIn && ItemF==FLAG_COMPLETE && (CastB[0] || CastK==TYPE_ITEM)) {
memset(&ItemA,0,sizeof(ItemA));
for(int X=0;X<NUM_INV_SLOTS;X++)
if(PCONTENTS Cont=GetCharInfo2()->InventoryArray[X])
if(Cont->Item->Type!=ITEMTYPE_PACK)
ItemA[X]=Cont->Item->ItemNumber;
if(CastB[0]) Bandolier(CastB);
if(CastK==TYPE_ITEM) {
if(ItemFound(((PCONTENTS)CastI)->Item->ItemNumber,0,NUM_INV_SLOTS)) {
long wSLOT=SlotID(CastC);
long eSLOT=SlotEquip(fITEM->Item,fSLOT,wSLOT);
if(fSLOT!=eSLOT) Exchange("%d %d",((PCONTENTS)CastI)->Item->ItemNumber,eSLOT);
if(!wSLOT && !PulseCount) PulseCount=1;
}
}
for(int Y=0;Y<NUM_INV_SLOTS;Y++)
if(PCONTENTS Cont=GetCharInfo2()->InventoryArray[Y])
if(Cont->Item->Type==ITEMTYPE_PACK || Cont->Item->ItemNumber==ItemA[Y]) ItemA[Y]=0;
for(int Z=0;Z<NUM_INV_SLOTS && ItemF==FLAG_COMPLETE;Z++) if(ItemA[Z]) ItemF=FLAG_PROGRESS1;
if(ItemF!=FLAG_COMPLETE) {
#if DEBUGGING
WriteChatf("[%d] MQ2Cast:[Swapping]: In.",(long)clock());
#endif
}
}
}
void DuckHandle() {
if(DuckF==FLAG_REQUEST) {
#if DEBUGGING
WriteChatf("[%d] MQ2Cast:[Duck]: Request.",(long)clock());
#endif
DuckF=FLAG_PROGRESS1;
DuckM=0;
}
if(DuckF==FLAG_PROGRESS1) {
if(GetCharInfo()->pSpawn->Mount) {
if(!DuckM) {
#if DEBUGGING
WriteChatf("[%d] MQ2Cast:[Duck]: Dismount.",(long)clock());
#endif
DuckM=(long)clock();
Execute("/dismount");
}
} else DuckF=FLAG_PROGRESS2;
}
if(DuckF==FLAG_PROGRESS2) {
#if DEBUGGING
WriteChatf("[%d] MQ2Cast:[Duck]: StopCast.",(long)clock());
#endif
Execute("/stopcast");
CastingE=CAST_ABORTED;
DuckF=FLAG_COMPLETE;
}
}
void CastHandle() {
// we got the casting request cookies, request immobilize/memorize if needed.
if(CastF==FLAG_REQUEST) {
#if DEBUGGING
WriteChatf("[%d] MQ2Cast:[Casting]: Request.",(long)clock());
#endif
CastF=FLAG_PROGRESS1;
if(StopF==FLAG_COMPLETE) StopF=DONE_SUCCESS;
if(StopF==FLAG_COMPLETE && CastT>100 && !BardClass()) StopF=FLAG_REQUEST;
if(MemoF!=FLAG_COMPLETE) MemoHandle();
else if(StopF!=FLAG_COMPLETE) StopHandle();
}
// waiting on the casting results to take actions.
if(CastF==FLAG_PROGRESS3 && CastingE!=DONE_PROGRESS) {
CastF=FLAG_PROGRESS4;
if(CastR) CastR--;
if(CastR) {
if((CastingE==CAST_SUCCESS && CastW!=RECAST_LAND) ||
(CastingE==CAST_COLLAPSE) ||
(CastingE==CAST_FIZZLE) ||
(CastingE==CAST_INTERRUPTED) ||
(CastingE==CAST_RECOVER) ||
(CastingE==CAST_RESIST)) {
#if DEBUGGING
WriteChatf("[%d] MQ2Cast:[Casting]: AutoRecast [%d].",(long)clock(),CastingE);
#endif
if(CastW!=RECAST_ZERO && !TargC) TargC=(pTarget)?((PSPAWNINFO)pTarget)->SpawnID:0;
CastM=(long)clock()+DELAY_CAST;
CastF=FLAG_REQUEST;
}
}
}
// casting is over, grab latest casting results and exit.
if(CastF==FLAG_PROGRESS4) {
if(CastE>CastingE) CastingE=CastE;
CastF=FLAG_COMPLETE;
}
// evaluate if we are taking too long, or immobilize/memorize event failed.
if(CastF!=FLAG_COMPLETE) {
if(StopE==DONE_ABORTED || MemoE==DONE_ABORTED || (long)clock()>CastM) {
WriteChatf("[%d] MQ2Cast:[Casting]: Aborting!",(long)clock());
CastF=FLAG_PROGRESS4;
CastE=CAST_NOTREADY;
}
}
// waiting for opportunity to start casting, end if conditions not favorables.
if(CastF==FLAG_PROGRESS1) {
if(pCastingWnd && (PCSIDLWND)pCastingWnd->Show) return; // casting going on
CastF=FLAG_PROGRESS4;
if(TargC && (!pTarget || (pTarget && ((PSPAWNINFO)pTarget)->SpawnID!=TargC))) {
if(CastW==RECAST_DEAD) CastE=CAST_NOTARGET;
else if(CastW==RECAST_LAND) CastE=CAST_ABORTED;
} else if(Invisible && GetCharInfo()->pSpawn->HideMode) { CastE=CAST_INVISIBLE;
} else if(GetCharInfo()->Stunned) { CastE=CAST_STUNNED;
} else if(StopF!=FLAG_COMPLETE || MemoF!=FLAG_COMPLETE) { CastF=FLAG_PROGRESS1;
} else {
long TimeReady=SpellTimer(CastK,CastI); // get estimate time before it's ready.
if(TimeReady>3000) CastE=CAST_NOTREADY; // if estimate higher then 3 seconds aborts.
else if(!TimeReady) CastF=FLAG_PROGRESS2; // estimate says it's ready so cast it
else CastF=FLAG_PROGRESS1; // otherwise give it some time to be ready.
}
}
// we got the final approbation to cast, so lets do it.
if(CastF==FLAG_PROGRESS2) {
#if DEBUGGING
WriteChatf("[%d] MQ2Cast:[Casting]: Cast.",(long)clock());
#endif
Success(CastS);
ItemHandle(true);
CastF=FLAG_PROGRESS3;
CastE=DONE_PROGRESS;
CastingT=(long)clock()+CastT+250+(pConnection->Last)*4;
CastingE=DONE_PROGRESS;
CastingC=CastS->ID;
if((long)GetCharInfo()->pSpawn->CastingSpellID>0) {
CastingX=(CastingE<CAST_SUCCESS)?CAST_SUCCESS:CastingE;
CastingL=CastingC;
if(CastK==TYPE_SPELL) Execute("/multiline ; /stopsong ; /cast \"%s\"",CastN);
else if(CastK==TYPE_ITEM) Execute("/multiline ; /stopsong ; /cast item \"%s\"",CastN);
else if(CastK==TYPE_ALT) Execute("/multiline ; /stopsong ; /alt activate %d",((PALTABILITY)CastI)->ID);
} else {
if(CastK==TYPE_SPELL) Cast("\"%s\"",CastN);
else if(CastK==TYPE_ITEM) Cast("item \"%s\"",CastN);
else if(CastK==TYPE_ALT) Execute("/alt activate %d",((PALTABILITY)CastI)->ID);
}
}
}
//=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=//
PLUGIN_API VOID CastCommand(PSPAWNINFO pChar, PCHAR Cmd) {
Resultat=CAST_DISTRACTED;
if(!gbInZone || Flags() || Paused() ||
(pSpellBookWnd && (PCSIDLWND)pSpellBookWnd->Show)
) return;
Reset();
char zParm[MAX_STRING];
long iParm=0;
do {
GetArg(zParm,Cmd,++iParm);
if(zParm[0]==0) { break;
} else if(!strnicmp(zParm,"-targetid|",10)) { TargI=atoi(&zParm[10]);
} else if(!strnicmp(zParm,"-kill",5)) { CastW=RECAST_DEAD; CastR=9999;
} else if(!strnicmp(zParm,"-maxtries|",10)) { CastW=RECAST_LAND; CastR=atoi(&zParm[10]);
} else if(!strnicmp(zParm,"-recast|",8)) { CastW=RECAST_ZERO; CastR=atoi(&zParm[8]);
} else if(!strnicmp(zParm,"-setin|",6)) { GetArg(CastB,zParm,2,FALSE,FALSE,FALSE,'|');
} else if(!strnicmp(zParm,"-bandolier|",11)) { GetArg(CastB,zParm,2,FALSE,FALSE,FALSE,'|');
} else if(!strnicmp(zParm,"-invis",6)) { Invisible=true;
} else if(zParm[0]!='-' && CastN[0]==0) {
GetArg(CastN,zParm,1,FALSE,FALSE,FALSE,'|');
GetArg(CastC,zParm,2,FALSE,FALSE,FALSE,'|');
} else if(zParm[0]!='-' && CastC[0]==0) {
GetArg(CastC,zParm,1,FALSE,FALSE,FALSE,'|');
}
} while(true);
Resultat=CAST_SUCCESS;
if(GetCharInfo()->Stunned) Resultat=CAST_STUNNED;
else if(Invisible && GetCharInfo()->pSpawn->HideMode) Resultat=CAST_INVISIBLE;
else if(!SpellFind(CastN,CastC)) Resultat=CAST_UNKNOWN;
else if(fTYPE!=TYPE_SPELL && SpellTimer(fTYPE,fINFO)) Resultat=CAST_NOTREADY;
else if(TargI) {
if(PSPAWNINFO Target=(PSPAWNINFO)GetSpawnByID(TargI)) *(PSPAWNINFO*)ppTarget=Target;
else Resultat=CAST_NOTARGET;
}
if(Resultat==CAST_SUCCESS && fTYPE==TYPE_SPELL) {
if(!BardClass()) {
CastG=GEMID(fFIND->ID);
if(CastG==NOID) {
CastG=atoi(&CastC[(strnicmp(CastC,"gem",3))?0:3])-1;
MemoLoad(CastG,fFIND);
SpellTotal=1;
MemoF=FLAG_REQUEST;
MemoE=DONE_SUCCESS;
}
} else Resultat=CAST_DISTRACTED;
}
if(Resultat!=CAST_SUCCESS) {
#if DEBUGGING
WriteChatf("[%d] MQ2Cast:[Casting]: Complete. [%d]",(long)clock(),Resultat);
#endif
return;
}
CastF=FLAG_REQUEST;
CastI=fINFO;
CastK=fTYPE;
CastT=fTIME;
CastS=fFIND;
CastM=(long)clock()+DELAY_CAST;
strcpy(CastN,fNAME);
#if DEBUGGING
WriteChatf("[%d] MQ2Cast:[Casting]: Name<%s> Type<%d>.",(long)clock(),CastN,CastK);
#endif
CastHandle();
}
PLUGIN_API VOID DuckCommand(PSPAWNINFO pChar, PCHAR Cmd) {
if(gbInZone) {
if(CastF!=FLAG_COMPLETE) CastR=0;
if((pCastingWnd && (PCSIDLWND)pCastingWnd->Show) && CastingLeft()>500) {
DuckF=FLAG_REQUEST;
DuckHandle();
}
}
Resultat=CAST_SUCCESS;
}
PLUGIN_API VOID MemoCommand(PSPAWNINFO pChar, PCHAR zLine) {
Resultat=CAST_DISTRACTED;
if(!gbInZone || Flags() || Paused() || !pSpellBookWnd) return;
if(GetCharInfo()->Stunned) {
Resultat=CAST_STUNNED;
return;
}
Reset();
long iParm=0;
char zParm[MAX_STRING];
char zTemp[MAX_STRING];
Resultat=CAST_SUCCESS;
do {
GetArg(zParm,zLine,++iParm);
if(!zParm[0]) break;
GetArg(zTemp,zParm,1,FALSE,FALSE,FALSE,'|');
if(PSPELL Search=SpellBook(zTemp)) {
GetArg(zTemp,zParm,2,FALSE,FALSE,FALSE,'|');
long Gem=atoi(&zTemp[(strnicmp(zTemp,"gem",3))?0:3])-1;
if(!((DWORD)Gem<GEMS_MAX)) {
GetArg(zTemp,zLine,1+iParm);
Gem=atoi(&zTemp[(strnicmp(zTemp,"gem",3))?0:3])-1;
if((DWORD)Gem<GEMS_MAX) iParm++;
}
MemoLoad(Gem,Search);
}
} while(true);
for(int sp=0;sp<GEMS_MAX;sp++)
if(SpellToMemorize.SpellId[sp] != 0xFFFFFFFF &&
SpellToMemorize.SpellId[sp] !=
GetCharInfo2()->MemorizedSpells[sp]) SpellTotal++;
if(SpellTotal) {
MemoF=FLAG_REQUEST;
MemoE=DONE_SUCCESS;
MemoHandle();
}
}
PLUGIN_API VOID SpellSetDelete(PSPAWNINFO pChar,PCHAR Cmd) {
Resultat=CAST_ABORTED;
if(!gbInZone) return;
else if(!Cmd[0]) MacroError("Usage: /ssd setname");
else {
Resultat=CAST_SUCCESS;
sprintf(INIFileName,"%s\\%s_%s.ini",gszINIPath,EQADDR_SERVERNAME,GetCharInfo()->Name);
WritePrivateProfileString("MQ2Cast(SpellSet)",Cmd,NULL,INIFileName);
}
}
PLUGIN_API VOID SpellSetList(PSPAWNINFO pChar, PCHAR Cmd) {
Resultat=CAST_SUCCESS;
if(!gbInZone) return;
char Keys[MAX_STRING*10]={0};
char Temp[MAX_STRING];
PCHAR pKeys=Keys;
long Disp=0;
Resultat=CAST_SUCCESS;
sprintf(INIFileName,"%s\\%s_%s.ini",gszINIPath,EQADDR_SERVERNAME,GetCharInfo()->Name);
WriteChatf("MQ2Cast:: SpellSet [\ay Listing... \ax].",Disp);
GetPrivateProfileString("MQ2Cast(SpellSet)",NULL,"",Keys,MAX_STRING*10,INIFileName);
while(pKeys[0]) {
GetPrivateProfileString("MQ2Cast(SpellSet)",pKeys,"",Temp,MAX_STRING,INIFileName);
if(Temp[0]) {
if(!Disp) WriteChatf("-=-=-=-=-=-=-=-=-=-=-=-=-=-=-");
WriteChatf("\ay%s\ax",pKeys);
Disp++;
}
pKeys+=strlen(pKeys)+1;
}
if(Disp) WriteChatf("-=-=-=-=-=-=-=-=-=-=-=-=-=-=-");
WriteChatf("MQ2Cast:: SpellSet [\ay %d Displayed\ax ].",Disp);
}
PLUGIN_API VOID SpellSetMemorize(PSPAWNINFO pChar, PCHAR Cmd) {
Resultat=CAST_UNKNOWN;
if(!gbInZone) return;
else if(!Cmd[0]) MacroError("Usage: /ssm setname");
else {
char List[MAX_STRING];
Resultat=CAST_SUCCESS;
sprintf(INIFileName,"%s\\%s_%s.ini",gszINIPath,EQADDR_SERVERNAME,GetCharInfo()->Name);
GetPrivateProfileString("MQ2Cast(SpellSet)",Cmd,"",List,MAX_STRING,INIFileName);
if(List[0]) MemoCommand(GetCharInfo()->pSpawn,List);
}
}
PLUGIN_API VOID SpellSetSave(PSPAWNINFO pChar, PCHAR Cmd) {
if(!gbInZone) return;
char zSet[MAX_STRING]; GetArg(zSet,Cmd,1);
char zGem[MAX_STRING]; GetArg(zGem,Cmd,2);
Resultat=CAST_ABORTED;
if(!zSet[0]) {
MacroError("Usage: /sss setname <gemlist>");
return;
}
if(!zGem[0]) sprintf(zGem,"123456789");
char zLst[MAX_STRING]={0};
char zTmp[MAX_STRING];
long find=0;
for(int g=0;g<GEMS_MAX;g++)
if((long)GetCharInfo2()->MemorizedSpells[g]>0)
if(strstr(zGem,ListGems[g])) {
sprintf(zTmp,"%d|%d",GetCharInfo2()->MemorizedSpells[g],g+1);
if(find) strcat(zLst," ");
strcat(zLst,zTmp);
find++;
}
Resultat=CAST_UNKNOWN;
if(find) {
Resultat=CAST_SUCCESS;
sprintf(INIFileName,"%s\\%s_%s.ini",gszINIPath,EQADDR_SERVERNAME,GetCharInfo()->Name);
WritePrivateProfileString("MQ2Cast(SpellSet)",Cmd,zLst,INIFileName);
}
}
//=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=//
PLUGIN_API VOID InitializePlugin(VOID) {
aCastEvent(LIST289, CAST_COLLAPSE ,"Your gate is too unstable, and collapses#*#");
aCastEvent(LIST289, CAST_CANNOTSEE ,"You cannot see your target#*#");
aCastEvent(LIST289, CAST_COMPONENTS ,"You are missing some required components#*#");
aCastEvent(LIST289, CAST_COMPONENTS ,"You need to play a#*#instrument for this song#*#");
aCastEvent(LIST289, CAST_DISTRACTED ,"You are too distracted to cast a spell now#*#");
aCastEvent(LIST289, CAST_DISTRACTED ,"You can't cast spells while invulnerable#*#");
aCastEvent(LIST289, CAST_DISTRACTED ,"You *CANNOT* cast spells, you have been silenced#*#");
aCastEvent(LIST289, CAST_IMMUNE ,"Your target has no mana to affect#*#");
aCastEvent(LIST013, CAST_IMMUNE ,"Your target is immune to changes in its attack speed#*#");
aCastEvent(LIST013, CAST_IMMUNE ,"Your target is immune to changes in its run speed#*#");
aCastEvent(LIST289, CAST_IMMUNE ,"Your target cannot be mesmerized#*#");
aCastEvent(UNKNOWN, CAST_IMMUNE ,"Your target looks unaffected#*#");
aCastEvent(LIST264, CAST_INTERRUPTED ,"Your spell is interrupted#*#");
aCastEvent(UNKNOWN, CAST_INTERRUPTED ,"Your casting has been interrupted#*#");
aCastEvent(LIST289, CAST_FIZZLE ,"Your spell fizzles#*#");
aCastEvent(LIST289, CAST_FIZZLE ,"You miss a note, bringing your song to a close#*#");
aCastEvent(LIST289, CAST_NOTARGET ,"You must first select a target for this spell#*#");
aCastEvent(LIST289, CAST_NOTARGET ,"This spell only works on#*#");
aCastEvent(LIST289, CAST_NOTARGET ,"You must first target a group member#*#");
aCastEvent(LIST289, CAST_NOTREADY ,"Spell recast time not yet met#*#");
aCastEvent(LIST289, CAST_OUTOFMANA ,"Insufficient Mana to cast this spell#*#");
aCastEvent(LIST289, CAST_OUTOFRANGE ,"Your target is out of range, get closer#*#");
aCastEvent(LIST289, CAST_OUTDOORS ,"This spell does not work here#*#");
aCastEvent(LIST289, CAST_OUTDOORS ,"You can only cast this spell in the outdoors#*#");
aCastEvent(LIST289, CAST_OUTDOORS ,"You can not summon a mount here#*#");
aCastEvent(LIST289, CAST_OUTDOORS ,"You must have both the Horse Models and your current Luclin Character Model enabled to summon a mount#*#");
aCastEvent(LIST264, CAST_RECOVER ,"You haven't recovered yet#*#");
aCastEvent(LIST289, CAST_RECOVER ,"Spell recovery time not yet met#*#");
aCastEvent(LIST289, CAST_RESIST ,"Your target resisted the#*#spell#*#");
aCastEvent(LIST289, CAST_STANDING ,"You must be standing to cast a spell#*#");
aCastEvent(LIST289, CAST_STUNNED ,"You can't cast spells while stunned#*#");
aCastEvent(LIST289, CAST_SUCCESS ,"You are already on a mount#*#");
aCastEvent(LIST289, CAST_TAKEHOLD ,"Your spell did not take hold#*#");
aCastEvent(LIST289, CAST_TAKEHOLD ,"Your spell would not have taken hold#*#");
aCastEvent(LIST289, CAST_TAKEHOLD ,"Your spell is too powerfull for your intended target#*#");
aCastEvent(LIST289, CAST_TAKEHOLD ,"You need to be in a more open area to summon a mount#*#");
aCastEvent(LIST289, CAST_TAKEHOLD ,"You can only summon a mount on dry land#*#");
aCastEvent(LIST289, CAST_TAKEHOLD ,"This pet may not be made invisible#*#");
pCastType= new MQ2CastType;
AddMQ2Data("Cast",dataCast);
AddCommand("/casting" ,CastCommand);
AddCommand("/interrupt",DuckCommand);
AddCommand("/memorize" ,MemoCommand);
AddCommand("/ssd",SpellSetDelete);
AddCommand("/ssl",SpellSetList);
AddCommand("/ssm",SpellSetMemorize);
AddCommand("/sss",SpellSetSave);
}
PLUGIN_API VOID ShutdownPlugin(VOID) {
RemoveMQ2Data("Cast");
delete pCastType;
RemoveCommand("/casting");
RemoveCommand("/interrupt");
RemoveCommand("/memorize");
RemoveCommand("/ssd");
RemoveCommand("/ssl");
RemoveCommand("/ssm");
RemoveCommand("/sss");
}
PLUGIN_API VOID OnEndZone(VOID) {
Reset();
CastingO=NOID;
CastingC=NOID;
CastingE=CAST_SUCCESS;
CastingT=0;
ImmobileT=0;
}
PLUGIN_API DWORD OnIncomingChat(PCHAR Line, DWORD Color) {
if(gbInZone) {
if(CastingC!=NOID && !Twisting) {
Parsed=false;
if(Color==264) { LIST264.Feed(Line); SUCCESS.Feed(Line); }
else if(Color==289) { LIST289.Feed(Line); }
else if(Color==13) { LIST013.Feed(Line); }
if(!Parsed) {
UNKNOWN.Feed(Line);
if(Parsed) WriteChatf("\arMQ2Cast::Note for Author[\ay%s\ar]=(\ag%d\ar)\ax",Line,Color);
}
}
}
return 0;
}
PLUGIN_API VOID OnPulse(VOID) {
if(gbInZone && (long)clock()>CastingP && GetCharInfo() && GetCharInfo()->pSpawn) {
CastingP=(long)clock()+DELAY_PULSE;
// evaluate immobile flag and handle immobilize request
Immobile=Moving();
if(StopF!=FLAG_COMPLETE) StopHandle();
CastingD=GetCharInfo()->pSpawn->CastingSpellID;
// casting window currently openened?
if(pCastingWnd && (PCSIDLWND)pCastingWnd->Show) {
Casting=true;
if(CastingO==NOID) CastingO=(pTarget)?((long)((PSPAWNINFO)pTarget)->SpawnID):0;
// was this an unecpected cast?
if(CastingD!=CastingC && CastingD!=NOID) {
CastingE=DONE_PROGRESS;
CastingC=CastingD;
CastingT=GetCharInfo()->pSpawn->SpellETA -
GetCharInfo()->pSpawn->TimeStamp +
clock()+450+(pConnection->Last)*4;
Success(GetSpellByID(CastingD));
}
// are we attempting to interrupt this?
if(DuckF!=FLAG_COMPLETE) DuckHandle();
return;
}
// wait for incoming chat, timers, and windows to be closed.
DuckF=FLAG_COMPLETE;
Twisting=Evaluate("${If[${Twist.Twisting},1,0]}")?true:false;
if(Casting) {
if(CastingC==CastingD)
if(PSPELL Spell=GetSpellByID(CastingC))
switch(Spell->TargetType) {
case 18: // Uber Dragons
case 17: // Uber Giants
case 16: // Plant
case 15: // Corpse
case 14: // Pet
case 11: // Summoned
case 10: // Undead
case 9: // Animal
case 5: // Single
if(!pTarget) CastingE=CAST_NOTARGET;
break;
}
// re-evaluate casting timer after cast window close
CastingT=clock()+450+(pConnection->Last)*2;
Casting=false;
}
if(CastingE==DONE_PROGRESS) {
if((long)clock()>CastingT) CastingE=CAST_SUCCESS;
else if(!Twisting) return;
}
if(Paused()) {
if((long)GetCharInfo()->pSpawn->CastingSpellID>0) Execute("/stopsong");
return;
}
// give time to proceed other casting events
if(MemoF!=FLAG_COMPLETE) MemoHandle();
if(MemoF!=FLAG_COMPLETE) return;
if(CastF!=FLAG_COMPLETE) CastHandle();
// make sure we get final casting results
if((CastF==FLAG_COMPLETE && CastingC!=NOID && CastingD==NOID) ||
(BardClass() && CastingC!=NOID && (CastingD!=NOID))) {
CastingX=(CastingE<CAST_SUCCESS)?CAST_SUCCESS:CastingE;
CastingL=CastingC;
CastingE=DONE_COMPLETE;
if(!Twisting) {
#if DEBUGGING
WriteChatf("[%d] MQ2Cast:: Casting Complete ID[%d] Result=[%d]",(long)clock(),CastingL,CastingX);
#endif
CastTimer(CastingO,CastingC,CastingX); // patches for ae but sound illogicials
}
CastingC=NOID;
CastingO=NOID;
}
// make sure we finish other casting events
if(CastF==FLAG_COMPLETE) {
if(ItemF!=FLAG_COMPLETE) {
ItemHandle(false);
// if(!PulseCount) PulseCount=1;
}
StopEnding();
if(PulseCount) {
if(GetCharInfo2()->Cursor) ClickBack();
// WriteChatf("PulseCount : %d",PulseCount);
if(PulseCount<=3) {
// WriteChatf("PulseCount ++ : %d",PulseCount);
PulseCount++;
return;
}
if(PulseCount>3 && !GetCharInfo2()->Cursor) {
PulseCount=0;
return;
}
}
}
}
}
void WinClick(CXWnd *Wnd, PCHAR ScreenID, PCHAR ClickNotification, DWORD KeyState) {
if(Wnd) if(CXWnd *Child=Wnd->GetChildItem(ScreenID)) {
BOOL KeyboardFlags[4];
*(DWORD*)&KeyboardFlags=*(DWORD*)&((PCXWNDMGR)pWndMgr)->KeyboardFlags;
*(DWORD*)&((PCXWNDMGR)pWndMgr)->KeyboardFlags=KeyState;
SendWndClick2(Child,ClickNotification);
*(DWORD*)&((PCXWNDMGR)pWndMgr)->KeyboardFlags=*(DWORD*)&KeyboardFlags;
}
}
void ClickBack() {
if(GetCharInfo2()->Cursor && PulseCount) {
if(GetCharInfo2()->Cursor->Item->Type==ITEMTYPE_PACK) {
// WriteChatf("Pack Type");
WinClick((CXWnd*)pInventoryWnd,"InvSlot30","leftmouseup",1);
PulseCount=1;
return;
}
else {
// WriteChatf("Not a pack");
WinClick((CXWnd*)pInventoryWnd,"IW_CharacterView","leftmouseup",1);
PulseCount=1;
return;
}
}
}
MQ2Cast - This is a plugin form of Spell_Routines.inc, and far, far superior. It can, among other things, memorize and cast spells, recast them, and, with the use of MQ2CastTimer, monitor the estimated duration on long term spells like DoTs, Buffs, etc. The plugin can also deal with events, similar to MQ2Events.
SYNTAX FOR MQ2CAST MacroQuest2 WIKI
A nice little HUD snippet to go with the plugin:
SYNTAX FOR MQ2CAST MacroQuest2 WIKI
Rich (BB code):
/casting "Arm Cannon" mainhand -forceswapA nice little HUD snippet to go with the plugin:
Rich (BB code):
[CASTING]
CS1=3,425,150,255,255,255,~~ CASTING ~~~~~~~~~~~~~~~~~~~~~
CS2=3,425,162,255,255,255,Cast Effect: ${If[${Cast.Effect.ID},${Cast.Effect.Name},NONE]}
CS3=3,425,174,255,255,255,Cast Timing: ${Cast.Timing}
CS4=3,425,186,255,255,255,Cast Ready : ${Cast.Ready}
CS5=3,425,198,255,255,255,Cast Status: ${Cast.Status}
CS6=3,425,210,255,255,255,Cast Result: ${Cast.Result}
CS7=3,425,222,255,255,255,Cast Stored: ${If[${Cast.Stored.ID},${Cast.Stored.Name},NONE]}
Last edited:
Micah Conley
New member
i have not messed with MQ2 in a long time but i started using it on emu and am working on making a macro but one of the new features of MQ2Cast is that after it starts a command it returns control of the character back over to the macro before finishing the command i'm trying to get my macro to memorize more than one spell in a row MQ2Cast used to wait till done memorizing one spell before starting the next one now by the time the first spell is memorized the macro has passed the rest of the spells i wanted to memorize and they don't get memorized im hoping there is a bit of code i can add to a command like " /memorize "Root" 1 " that will make it wait until that command is done before going on to the next command any help would be great. i used to just use /delays but im trying to make the macro memorize different spells depending on the characters level and depending on the characters meditate skill the time to memorize the spell will vary so i don't want the macro waist extra time just sitting there doing nothing if i don't have to
- Commits
- 191
The follow is the wiki for it here on RG.
https://www.redguides.com/community/threads/24743-MQ2Cast
Likely not what you need though.
Macroquest2.com's WIKI is a pretty valuable source. I wish more people used it.
https://redguides.com/docs/projects/mq2cast/
https://www.redguides.com/community/threads/24743-MQ2Cast
Likely not what you need though.
Macroquest2.com's WIKI is a pretty valuable source. I wish more people used it.
https://redguides.com/docs/projects/mq2cast/
Rich (BB code):
/memorize "1234|1" "gate|2" "cannibalize|gem4"As with /casting, the plugin will attempt to immobilize you before memorizing the spell.
/sss
Spell Set Save - This will save your any number of your currently memmed spells into a spell set.
Syntax:
/sss "name" [gems]
Name is what you want your spell set to be called. If no gems are specified, all your gems are saved (ie. 123456789ABC). You can specify a smaller subset if needed.
/sss dps 1238
/sss dps 12ABC
/sss wunshi 5
/ssm
Spell Set Memorize - This will memorize a previously saved spell set.
/ssm dps
/ssl
Spell Set List - This will list all spell sets that have been saved.
/ssl
/ssd
Spell Set Delete - This will delete a spell set from the ini file.
/ssd wunshiMicah Conley
New member
yea i seen that stuff on the wiki and on here also but the spell set will change ans the character levels up and i don't want to have to keep changing the spell set every time the character levels up i'm trying to make the macro scribe and memorize new spells as the character levels up or after the character dies while they wait on a rezz i'm sure its some simple little piece of code i just cant seem to find it anywhere i would post the whole macro i have so far it's not close to being complete yet but im testing it on a private server as i add more stuff to it to make sure what i have added is working but i cant remember how to do that its been so long since i used MQ2 and been on this site
- Commits
- 191
You sir are in for a lot of coding then.
It doesn't just know what you want. Scripts are input/output based systems. You tell it what you want and it does it.
Unfortunately I'm unaware of a program that currently exists which already knows all the spells you need.
Granted it wouldn't take very long to program. Maybe a week or 3, but then there would be guesswork involved on the developers end and assumptions made as to what you should have memorized. Also, we're talking about coding statements that check your level, scan your book for known spells, reverting back a spell level if you haven't scribed the spell into your book. Assuming you want Spirit of Bah`li Instead of spirit of scale on your group etc.
To many factors, and likely the reason nobody has bothered to code such a thing. It's generally easy for a player to just make a spell set and save it then it is for a developer to spend weeks coding the thought process and having it shot down because a group of people don't care for the selection of spells.
While I'm not saying it hasn't happened, or that it won't happen. I'm just saying that it's unlikely that it has/will.
I've considered doing pretty much exactly what we're discussing here. But have opted not to do so for the very reasons I've mentioned.
I do hope you can find something like this. If you do, please let me know. I'd love to take a gander at it.
It doesn't just know what you want. Scripts are input/output based systems. You tell it what you want and it does it.
Unfortunately I'm unaware of a program that currently exists which already knows all the spells you need.
Granted it wouldn't take very long to program. Maybe a week or 3, but then there would be guesswork involved on the developers end and assumptions made as to what you should have memorized. Also, we're talking about coding statements that check your level, scan your book for known spells, reverting back a spell level if you haven't scribed the spell into your book. Assuming you want Spirit of Bah`li Instead of spirit of scale on your group etc.
To many factors, and likely the reason nobody has bothered to code such a thing. It's generally easy for a player to just make a spell set and save it then it is for a developer to spend weeks coding the thought process and having it shot down because a group of people don't care for the selection of spells.
While I'm not saying it hasn't happened, or that it won't happen. I'm just saying that it's unlikely that it has/will.
I've considered doing pretty much exactly what we're discussing here. But have opted not to do so for the very reasons I've mentioned.
I do hope you can find something like this. If you do, please let me know. I'd love to take a gander at it.
Micah Conley
New member
yea its gonna be a lot of work for me but what i'm looking for rite now is a line of code to make MQ2Cast wait for one spell to finish memorizing before it lets the macro continue on to memorizing the next spell.
the old MQ2Cast that i used to use back in the day would hold up the macro while it was memorizing spells before it would let the macro continue on to the next line of it.
i do not want to just add in long delays because as the character levels up it's meditate skill will go up making memorizing spells faster and id have to change the macro as the character levels up or the character would be sitting there doing nothing for a while after memorizing each spell
the checking level and all that ain't that hard its just a lot of coding
- - - Updated - - -
lets see if i can figure out how to post the little bit of my macro for memorizing spells
if i add in long delays it works fine so far but i don't like that fact that after my character got higher level he would mem a spell and just sit there for a few seconds afterwards so i'm trying to replace the delays i removed with some script that will wait until one spell is done then allow the macro to go to the next one
HOPE IT SHOWS UP BELOW
Sub MemSpells
/if (${Me.Class.Name.Equal[Bard]}) {
/if (${Me.Level}<23) {
/gsay no Single Slow/Snare song to mem yet :-(
/goto :BardGem2
}
/if (${Me.Level}<51) {
/memorize "Selo`s Consonant Chain" 1
/goto :BardGem2
}
/if (${Me.Level}>50) {
/memorize "Largo`s Absonant Binding" 1
/goto :BardGem2
}
:BardGem2
:BardGem3
:BardGem4
:BardGem5
:BardGem6
/if (${Me.Level}<10) {
/memorize "Chant of Battle" 6
/goto :BardGem7
}
/if (${Me.Level}
6) {
/memorize "Anthem de Arms" 6
/goto :BardGem7
}
/if (${Me.Level}<42) {
/memorize "Vilia`s Verses of Celerity" 6
/goto :BardGem7
}
/if (${Me.Level}<50) {
/memorize "McVaxius` Berserker Crescendo" 6
/goto :BardGem7
}
:BardGem7
/if (${Me.Level}<5) {
/gsay no Run Speed song to mem yet :-(
/goto :BardGem8
}
/if (${Me.Level}<25) {
/memorize "Selo`s Accelerando" 7
/goto :BardGem8
}
/if (${Me.Level}<49) {
/memorize "Selo's Rhythm of Speed" 7
/goto :BardGem8
}
/if (${Me.Level}>50) {
/memorize "Selo`s Accelerating Chorus" 7
/goto :BardGem8
}
:BardGem8
/if (${Me.Level}<6) {
/gsay no Regen song to mem yet :-(
/Return
}
/if (${Me.Level}4) {
/memorize "Hymn of Restoration" 8
/Return
}
/if (${Me.Level}<55) {
/memorize "Cantata of Soothing" 8
/Return
}
/if (${Me.Level}<58) {
/memorize "Cantata of Replenishment" 8
/Return
}
/if (${Me.Level}<60) {
/memorize "Chorus of Replenishment" 8
/Return
}
/if (${Me.Level}<62) {
/memorize "Ancient: Lcea's Lament" 8
/Return
}
/if (${Me.Level}<64) {
/memorize "Wind of Marr" 8
/Return
}
/if (${Me.Level}<67) {
/memorize "Chorus of Marr" 8
/Return
}
/if (${Me.Level}<69) {
/memorize "Cantata of Life" 8
/Return
}
/if (${Me.Level}>68) {
/memorize "Chorus of Life" 8
/Return
}
}
/if (${Me.Class.Name.Equal[Cleric]}) {
/if (${Me.Level}<7) {
/gsay no root spell to mem so you better hope we dont need it
/goto :ClericGem2
}
/if (${Me.Level}<27) {
/memorize "Root" 1
/goto :ClericGem2
}
/if (${Me.Level}<46) {
/memorize "Instill" 1
/goto :ClericGem2
}
/if (${Me.Level}<56) {
/memorize "Immobilize" 1
/goto :ClericGem2
}
/if (${Me.Level}<62) {
/memorize "Paralyzing Earth" 1
/goto :ClericGem2
}
/if (${Me.Level}<64) {
/memorize "Greater Immobilize" 1
/goto :ClericGem2
}
/if (${Me.Level}>63) {
/memorize "Petrifying Earth" 1
/goto :ClericGem2
}
:ClericGem2
/if (${Me.Level}<5) {
/memorize "Strike" 2
/goto :ClericGem3
}
/if (${Me.Level}<14) {
/memorize "Furor" 2
/goto :ClericGem3
}
/if (${Me.Level}<29) {
/memorize "Smite" 2
/goto :ClericGem3
}
/if (${Me.Level}<44) {
/memorize "Wrath" 2
/goto :ClericGem3
}
/if (${Me.Level}<54) {
/memorize "Retribution" 2
/goto :ClericGem3
}
/if (${Me.Level}<56) {
/memorize "Reckoning" 2
/goto :ClericGem3
}
/if (${Me.Level}<62) {
/memorize "Judgment" 2
/goto :ClericGem3
}
/if (${Me.Level}<65) {
/memorize "Condemnation" 2
/goto :ClericGem3
}
/if (${Me.Level}<67) {
/memorize "Order" 2
/goto :ClericGem3
}
/if (${Me.Level}>66) {
/memorize "Reproach" 2
/goto :ClericGem3
}
:ClericGem3
/delay 1
:ClericGem4
/delay 1
:ClericGem5
/if (${Me.Level}<7) {
/memorize "Courage" 5
/goto :ClericGem6
}
/if (${Me.Level}<17) {
/memorize "Center" 5
/goto :ClericGem6
}
/if (${Me.Level}<22) {
/memorize "Daring" 5
/goto :ClericGem6
}
/if (${Me.Level}2) {
/memorize "Bravery" 5
/goto :ClericGem6
}
/if (${Me.Level}<42) {
/memorize "Valor" 5
/goto :ClericGem6
}
/if (${Me.Level}<52) {
/memorize "Resolution" 5
/goto :ClericGem6
}
/if (${Me.Level}<55) {
/memorize "Heroism" 5
/goto :ClericGem6
}
/if (${Me.Level}<61) {
/memorize "Fortitude" 5
/goto :ClericGem6
}
/if (${Me.Level}<66) {
/memorize "Faith" 5
/goto :ClericGem6
}
/if (${Me.Level}>65) {
/memorize "Confidence" 5
/goto :ClericGem6
}
:ClericGem6
/if (${Me.Level}0) {
/gsay i dont have a group heal to mem yet
/goto :ClericGem7
}
/if (${Me.Level}<45) {
/memorize "Word of Health" 6
/goto :ClericGem7
}
/if (${Me.Level}<52) {
/memorize "Word of Healing" 6
/goto :ClericGem7
}
/if (${Me.Level}<57) {
/memorize "Word of Vigor" 6
/goto :ClericGem7
}
/if (${Me.Level}<60) {
/memorize "Word of Restoration" 6
/goto :ClericGem7
}
/if (${Me.Level}<64) {
/memorize "Word of Redemption" 6
/goto :ClericGem7
}
/if (${Me.Level}<69) {
/memorize "Word of replenishment" 6
/goto :ClericGem7
}
/if (${Me.Level}>68) {
/memorize "Word of Vivification" 6
/goto :ClericGem7
}
:ClericGem7
/if (${Me.Level}<4) {
/memorize "Minor Healing" 7
/goto :ClericGem8
}
/if (${Me.Level}<10) {
/memorize "Light Healing" 7
/goto :ClericGem8
}
/if (${Me.Level}<20) {
/memorize "Healing" 7
/goto :ClericGem8
}
/if (${Me.Level}0) {
/memorize "Greater Healing" 7
/goto :ClericGem8
}
/if (${Me.Level}9) {
/memorize "Superior Healing" 7
/goto :ClericGem8
}
/if (${Me.Level}<49) {
/memorize "Healing Light" 7
/goto :ClericGem8
}
/if (${Me.Level}<51) {
/memorize "Greater Healing Light" 7
/goto :ClericGem8
}
/if (${Me.Level}<53) {
/memorize "Remedy" 7
/goto :ClericGem8
}
/if (${Me.Level}<58) {
/memorize "Divine Light" 7
/goto :ClericGem8
}
/if (${Me.Level}<63) {
/memorize "Ethereal Light" 7
/goto :ClericGem8
}
/if (${Me.Level}<65) {
/memorize "Supernal Light" 7
/goto :ClericGem8
}
/if (${Me.Level}<68) {
/memorize "Holy Light" 7
/goto :ClericGem8
}
/if (${Me.Level}<70) {
/memorize "Pious Light" 7
/goto :ClericGem8
}
/if (${Me.Level}>69) {
/memorize "Desperate Renewal" 7
/goto :ClericGem8
}
:ClericGem8
/if (${Me.Level}<5) {
/gsay i dont have gate yet so lets hope i dont need it
/return
}
/memorize "Gate" 8
/return
}
/return
}
the old MQ2Cast that i used to use back in the day would hold up the macro while it was memorizing spells before it would let the macro continue on to the next line of it.
i do not want to just add in long delays because as the character levels up it's meditate skill will go up making memorizing spells faster and id have to change the macro as the character levels up or the character would be sitting there doing nothing for a while after memorizing each spell
the checking level and all that ain't that hard its just a lot of coding
- - - Updated - - -
lets see if i can figure out how to post the little bit of my macro for memorizing spells
if i add in long delays it works fine so far but i don't like that fact that after my character got higher level he would mem a spell and just sit there for a few seconds afterwards so i'm trying to replace the delays i removed with some script that will wait until one spell is done then allow the macro to go to the next one
HOPE IT SHOWS UP BELOW
Sub MemSpells
/if (${Me.Class.Name.Equal[Bard]}) {
/if (${Me.Level}<23) {
/gsay no Single Slow/Snare song to mem yet :-(
/goto :BardGem2
}
/if (${Me.Level}<51) {
/memorize "Selo`s Consonant Chain" 1
/goto :BardGem2
}
/if (${Me.Level}>50) {
/memorize "Largo`s Absonant Binding" 1
/goto :BardGem2
}
:BardGem2
:BardGem3
:BardGem4
:BardGem5
:BardGem6
/if (${Me.Level}<10) {
/memorize "Chant of Battle" 6
/goto :BardGem7
}
/if (${Me.Level}
6) {/memorize "Anthem de Arms" 6
/goto :BardGem7
}
/if (${Me.Level}<42) {
/memorize "Vilia`s Verses of Celerity" 6
/goto :BardGem7
}
/if (${Me.Level}<50) {
/memorize "McVaxius` Berserker Crescendo" 6
/goto :BardGem7
}
:BardGem7
/if (${Me.Level}<5) {
/gsay no Run Speed song to mem yet :-(
/goto :BardGem8
}
/if (${Me.Level}<25) {
/memorize "Selo`s Accelerando" 7
/goto :BardGem8
}
/if (${Me.Level}<49) {
/memorize "Selo's Rhythm of Speed" 7
/goto :BardGem8
}
/if (${Me.Level}>50) {
/memorize "Selo`s Accelerating Chorus" 7
/goto :BardGem8
}
:BardGem8
/if (${Me.Level}<6) {
/gsay no Regen song to mem yet :-(
/Return
}
/if (${Me.Level}
4) {/memorize "Hymn of Restoration" 8
/Return
}
/if (${Me.Level}<55) {
/memorize "Cantata of Soothing" 8
/Return
}
/if (${Me.Level}<58) {
/memorize "Cantata of Replenishment" 8
/Return
}
/if (${Me.Level}<60) {
/memorize "Chorus of Replenishment" 8
/Return
}
/if (${Me.Level}<62) {
/memorize "Ancient: Lcea's Lament" 8
/Return
}
/if (${Me.Level}<64) {
/memorize "Wind of Marr" 8
/Return
}
/if (${Me.Level}<67) {
/memorize "Chorus of Marr" 8
/Return
}
/if (${Me.Level}<69) {
/memorize "Cantata of Life" 8
/Return
}
/if (${Me.Level}>68) {
/memorize "Chorus of Life" 8
/Return
}
}
/if (${Me.Class.Name.Equal[Cleric]}) {
/if (${Me.Level}<7) {
/gsay no root spell to mem so you better hope we dont need it
/goto :ClericGem2
}
/if (${Me.Level}<27) {
/memorize "Root" 1
/goto :ClericGem2
}
/if (${Me.Level}<46) {
/memorize "Instill" 1
/goto :ClericGem2
}
/if (${Me.Level}<56) {
/memorize "Immobilize" 1
/goto :ClericGem2
}
/if (${Me.Level}<62) {
/memorize "Paralyzing Earth" 1
/goto :ClericGem2
}
/if (${Me.Level}<64) {
/memorize "Greater Immobilize" 1
/goto :ClericGem2
}
/if (${Me.Level}>63) {
/memorize "Petrifying Earth" 1
/goto :ClericGem2
}
:ClericGem2
/if (${Me.Level}<5) {
/memorize "Strike" 2
/goto :ClericGem3
}
/if (${Me.Level}<14) {
/memorize "Furor" 2
/goto :ClericGem3
}
/if (${Me.Level}<29) {
/memorize "Smite" 2
/goto :ClericGem3
}
/if (${Me.Level}<44) {
/memorize "Wrath" 2
/goto :ClericGem3
}
/if (${Me.Level}<54) {
/memorize "Retribution" 2
/goto :ClericGem3
}
/if (${Me.Level}<56) {
/memorize "Reckoning" 2
/goto :ClericGem3
}
/if (${Me.Level}<62) {
/memorize "Judgment" 2
/goto :ClericGem3
}
/if (${Me.Level}<65) {
/memorize "Condemnation" 2
/goto :ClericGem3
}
/if (${Me.Level}<67) {
/memorize "Order" 2
/goto :ClericGem3
}
/if (${Me.Level}>66) {
/memorize "Reproach" 2
/goto :ClericGem3
}
:ClericGem3
/delay 1
:ClericGem4
/delay 1
:ClericGem5
/if (${Me.Level}<7) {
/memorize "Courage" 5
/goto :ClericGem6
}
/if (${Me.Level}<17) {
/memorize "Center" 5
/goto :ClericGem6
}
/if (${Me.Level}<22) {
/memorize "Daring" 5
/goto :ClericGem6
}
/if (${Me.Level}
2) {/memorize "Bravery" 5
/goto :ClericGem6
}
/if (${Me.Level}<42) {
/memorize "Valor" 5
/goto :ClericGem6
}
/if (${Me.Level}<52) {
/memorize "Resolution" 5
/goto :ClericGem6
}
/if (${Me.Level}<55) {
/memorize "Heroism" 5
/goto :ClericGem6
}
/if (${Me.Level}<61) {
/memorize "Fortitude" 5
/goto :ClericGem6
}
/if (${Me.Level}<66) {
/memorize "Faith" 5
/goto :ClericGem6
}
/if (${Me.Level}>65) {
/memorize "Confidence" 5
/goto :ClericGem6
}
:ClericGem6
/if (${Me.Level}
0) {/gsay i dont have a group heal to mem yet
/goto :ClericGem7
}
/if (${Me.Level}<45) {
/memorize "Word of Health" 6
/goto :ClericGem7
}
/if (${Me.Level}<52) {
/memorize "Word of Healing" 6
/goto :ClericGem7
}
/if (${Me.Level}<57) {
/memorize "Word of Vigor" 6
/goto :ClericGem7
}
/if (${Me.Level}<60) {
/memorize "Word of Restoration" 6
/goto :ClericGem7
}
/if (${Me.Level}<64) {
/memorize "Word of Redemption" 6
/goto :ClericGem7
}
/if (${Me.Level}<69) {
/memorize "Word of replenishment" 6
/goto :ClericGem7
}
/if (${Me.Level}>68) {
/memorize "Word of Vivification" 6
/goto :ClericGem7
}
:ClericGem7
/if (${Me.Level}<4) {
/memorize "Minor Healing" 7
/goto :ClericGem8
}
/if (${Me.Level}<10) {
/memorize "Light Healing" 7
/goto :ClericGem8
}
/if (${Me.Level}<20) {
/memorize "Healing" 7
/goto :ClericGem8
}
/if (${Me.Level}
0) {/memorize "Greater Healing" 7
/goto :ClericGem8
}
/if (${Me.Level}
9) {/memorize "Superior Healing" 7
/goto :ClericGem8
}
/if (${Me.Level}<49) {
/memorize "Healing Light" 7
/goto :ClericGem8
}
/if (${Me.Level}<51) {
/memorize "Greater Healing Light" 7
/goto :ClericGem8
}
/if (${Me.Level}<53) {
/memorize "Remedy" 7
/goto :ClericGem8
}
/if (${Me.Level}<58) {
/memorize "Divine Light" 7
/goto :ClericGem8
}
/if (${Me.Level}<63) {
/memorize "Ethereal Light" 7
/goto :ClericGem8
}
/if (${Me.Level}<65) {
/memorize "Supernal Light" 7
/goto :ClericGem8
}
/if (${Me.Level}<68) {
/memorize "Holy Light" 7
/goto :ClericGem8
}
/if (${Me.Level}<70) {
/memorize "Pious Light" 7
/goto :ClericGem8
}
/if (${Me.Level}>69) {
/memorize "Desperate Renewal" 7
/goto :ClericGem8
}
:ClericGem8
/if (${Me.Level}<5) {
/gsay i dont have gate yet so lets hope i dont need it
/return
}
/memorize "Gate" 8
/return
}
/return
}
- Commits
- 191
Scribing or memorizing a spell?
Scribing a spell would be easier to just use scribe.mac
If you're waiting to finish memorizing a spell then You want to wait until that gem has an ID.
/delay 5m ${Me.Gem[${i}].ID}
says wait 5 minutes -or- until my gem at index i has an ID.
So if you're trying to memorize a spell into gem 5, /delay 8s ${Me.Gem[5].ID}
The /delay command stops the macro from processing more code moving forward, but it also accepts a condition to stop waiting early.
You could say
/delay 5000m ${Target.ID}
That would wait until 5000 minutes has past or until you have a target. Whichever is shorter. I don't use really long delays, I'm just using them as an example. Figure about how long it should take Maximum before you figure the memorization has failed in some way and use that. Then add the condition to the end of it to exit the delay early.
Common practice for coders that want to open a window, and then wait until MQ2 sees that window as "Open"
would be an example snippet I use to open the inventory without using a /keypress, because sometimes people change their keybinds.
Two seconds is a long time, but generally this happens over milliseconds. Only in the event of lag would their be an issue that prevents the window from opening. But if there does happen to be lag I've accounted for it somewhat.
You can also use conditions that are true and wait for them to be false.
/delay 5s !${Window[SpellBookWnd].Open}
Which is what I believe you should use in this case.
Scribing a spell would be easier to just use scribe.mac
If you're waiting to finish memorizing a spell then You want to wait until that gem has an ID.
/delay 5m ${Me.Gem[${i}].ID}
says wait 5 minutes -or- until my gem at index i has an ID.
So if you're trying to memorize a spell into gem 5, /delay 8s ${Me.Gem[5].ID}
The /delay command stops the macro from processing more code moving forward, but it also accepts a condition to stop waiting early.
You could say
/delay 5000m ${Target.ID}
That would wait until 5000 minutes has past or until you have a target. Whichever is shorter. I don't use really long delays, I'm just using them as an example. Figure about how long it should take Maximum before you figure the memorization has failed in some way and use that. Then add the condition to the end of it to exit the delay early.
Common practice for coders that want to open a window, and then wait until MQ2 sees that window as "Open"
Rich (BB code):
/if (!${Window[InventoryWindow].Open}) {
/windowstate InventoryWindow open
/delay 2s ${Window[InventoryWindow].Open}
}Two seconds is a long time, but generally this happens over milliseconds. Only in the event of lag would their be an issue that prevents the window from opening. But if there does happen to be lag I've accounted for it somewhat.
You can also use conditions that are true and wait for them to be false.
/delay 5s !${Window[SpellBookWnd].Open}
Which is what I believe you should use in this case.
Micah Conley
New member
thank you that is exactly what i needed
- - - Updated - - -
and how do you post the macro in a box like that ??i couldn't figure it out
- - - Updated - - -
and how do you post the macro in a box like that ??i couldn't figure it out
- Commits
- 191
When you go to type a post there is a # at the top next to <> and a page with php written on it. You can highlight all the code and then click the hashtag.
Alternately, you can type out the tag, which is an [ bracket, followed by the word CODE, then a closing Bracet (which will mess this information up if I use the closing bracket.
Then to end the section of code use the /CODE inside the Square brackets. the slash to mean ending.
Alternately, you can type out the tag, which is an [ bracket, followed by the word CODE, then a closing Bracet (which will mess this information up if I use the closing bracket.
Then to end the section of code use the /CODE inside the Square brackets. the slash to mean ending.
Rich (BB code):
I don't know if I can put the tags inside of a code block, but I'm going to try to type tags.- Commits
- 191
I would also like to recommend that you approach this code a little bit different.
The method you are using makes sense. But it has a flaw. What if you are the level in question to memorize the spell, but you don't yet have the spell in question?
Regardless of your level you shouldn't have a spell/song in your book which you can't memorize.
I start by checking the highest level song in this case, to see if it's in my book. If it is I also want to know that I don't already have it memorized. Then I say to Memorize it and put in a delay to wait until the book is open (So that I know I've started memorizing the spell) followed by a delay to wait for the book to close.
In conjunction with using an if else then style of statements. I also go from the highest level down to the lowest level. This way I will always memorize the highest known song/spell preference.
When you use a
/if (this) {
/dothis
} else /if (this) {
style chain, it will check from the top to the bottom and once it evaluates true it will execute the code and skip all the other checks. Which in this case would automatically move you to your :BardGem2 goto key. Thus removing the need for the goto statement.
I see that you've already done quite a bit. But hopefully this won't deter you from improving!
The method you are using makes sense. But it has a flaw. What if you are the level in question to memorize the spell, but you don't yet have the spell in question?
Regardless of your level you shouldn't have a spell/song in your book which you can't memorize.
Rich (BB code):
/if (${Me.Class.Name.Equal[Bard]}) {
/if (${Me.Level} < 23) {
/Echo \ayno Single Slow/Snare song to mem yet :-(
} else /if (${Me.Book[Largo's Absonant Binding]} && !${Me.Gem[Largo's Absonant Binding]}) {
/memorize "Largo`s Absonant Binding" 1
/delay 5s ${Window[SpellBookWnd].Open}
/delay 5s !${Window[SpellBookWnd].Open}
} else /if (${Me.Book[Selo's Consonant Chain]} && !${Me.Gem[Selo's Consonant Chain]}) {
/memorize "Selo's Consonant Chain" 1
/delay 5s ${Window[SpellBookWnd].Open}
/delay 5s !${Window[SpellBookWnd].Open}
}I start by checking the highest level song in this case, to see if it's in my book. If it is I also want to know that I don't already have it memorized. Then I say to Memorize it and put in a delay to wait until the book is open (So that I know I've started memorizing the spell) followed by a delay to wait for the book to close.
In conjunction with using an if else then style of statements. I also go from the highest level down to the lowest level. This way I will always memorize the highest known song/spell preference.
When you use a
/if (this) {
/dothis
} else /if (this) {
style chain, it will check from the top to the bottom and once it evaluates true it will execute the code and skip all the other checks. Which in this case would automatically move you to your :BardGem2 goto key. Thus removing the need for the goto statement.
I see that you've already done quite a bit. But hopefully this won't deter you from improving!
Micah Conley
New member
i tried that bit of /delay code you put up there for me and its waiting the full delay i put in it instead of stoping after the spell is memorized so using that i mite as well just go back to the plain old /delay commands must be a missing bracket or something in the /delay 5m ${Me.Gem[${i}].ID}
ill copy that bit of code there and play with it when i'm done with this macro i plan on having it do exactly what you have there but also if the spell not in the book i'm gonna try to make it check my bags to see if i have the spell in there to scribe so i can call my memspell section of the macro after character get a new level
ill copy that bit of code there and play with it when i'm done with this macro i plan on having it do exactly what you have there but also if the spell not in the book i'm gonna try to make it check my bags to see if i have the spell in there to scribe so i can call my memspell section of the macro after character get a new level
- Commits
- 191
The ${i} would be a variable if you were in a loop to check all of your gems. But you can just use the name instead. ${Me.Gem[NameOfSpellHere]}
Micah Conley
New member
okay that makes sense i put the spell gem number in there instead of the i i knew that the i had to be changed for my use just though it was the gem number it had to be changed to not spell name
- - - Updated - - -
looking at it i bet is i remove the ${} and just leave the number it mite work the way i though it would have to start with
- - - Updated - - -
with the spell gem number in there like this /delay 1m ${Me.Gem[8].ID} it seams to work it skips the spell if its already memorized but if not it memorizes it but it waits the full 1 min if it has to mem the spell and i get errors spamming my MQ2 window if i put in the spell names in quotation marks or not
- - - Updated - - -
i figured out how to make it work for now with a /for loop
- - - Updated - - -
looking at it i bet is i remove the ${} and just leave the number it mite work the way i though it would have to start with
- - - Updated - - -
with the spell gem number in there like this /delay 1m ${Me.Gem[8].ID} it seams to work it skips the spell if its already memorized but if not it memorizes it but it waits the full 1 min if it has to mem the spell and i get errors spamming my MQ2 window if i put in the spell names in quotation marks or not
- - - Updated - - -
i figured out how to make it work for now with a /for loop
Rich (BB code):
:BardGem7
/for w 1 to 120
/if (${Me.Gem[6].ID}) /goto :BardGem7b
/delay 5
/next w
:BardGem7b
Don't use goto's to jump out of /for /next loops. Please.
also
/delay 60s ${Me.Gem[6].ID}
would work, and
Rich (BB code):
:BardGem7
/for w 1 to 120
/if (${Me.Gem[6].ID}) /break
/delay 5
/next w
:BardGem7balso
/delay 60s ${Me.Gem[6].ID}
would work, and
Rich (BB code):
/varset w 1
/while (${Me.Gem[6].ID}==0 && ${w}<120) {
/delay 5
/varcalc w ${w}+1
}Micah Conley
New member
the /break command does not work i just get an error saying DoCommand - Couldn't parse '/break' 120 times for each spell ill give your other loop there a try and see what happens
- Commits
- 191
I would like to point out that I don't understand the purpose of the loop that we are using.
A loop is used to iterate through something. IE:
The above statement says from the first gem to the maximum number of gems I have, if the gem doesn't have a value then set MissingGem to the value of ${i}. Then break out of the loop and /goto :Class#
so if I'm a bard and I'm missing gem3, /goto :Bard3 would be the result.
/if (${MissingGem}) {
/goto :${Me.Class}${MissingGem}
}
If you aren't iterating through something I see no need to check the same thing 120 times. In the case above where w is the loop index location, you don't use ${w} in anything but the check to make sure it's under 120.
You could honestly break all the :gotokeywords down into Sub Routines.
then instead of /goto :keyword, you could /call ${Me.Class}${MissingGem}
Then after the call have that be the end of the loop
A loop is used to iterate through something. IE:
Rich (BB code):
/declare i int local 0
/for i 1 to ${Me.NumGems}
/if (!${Me.Gem[${i}]}) {
/varset MissingGem ${i}
/break
}
/next iso if I'm a bard and I'm missing gem3, /goto :Bard3 would be the result.
/if (${MissingGem}) {
/goto :${Me.Class}${MissingGem}
}
If you aren't iterating through something I see no need to check the same thing 120 times. In the case above where w is the loop index location, you don't use ${w} in anything but the check to make sure it's under 120.
You could honestly break all the :gotokeywords down into Sub Routines.
Rich (BB code):
Sub Bard1
/if (${Me.Level} < 10) {
/echo some text
} else /if (${Me.Book[HighestLevelSpell]}) {
/memorize HighestLevelSpell 1
} else /if (.......) {
/memorize ....... 1
}
/returnthen instead of /goto :keyword, you could /call ${Me.Class}${MissingGem}
Then after the call have that be the end of the loop
Rich (BB code):
/while (${EverQuest.GameState.Equal[INGAME]}) {
/declare i int local 0
/for i 1 to ${Me.NumGems}
/if (!${Me.Gem[${i}]}) {
/varset MissingGem ${i}
/break
}
/next i
/if (${MissingGem}) {
/call ${Me.Class}${MissingGem}
}
/varset ${MissingGem} 0
}Micah Conley
New member
i have the issue of making the macro wait for the spell to be done memorizing before continuing now but today i been playing around with a bit of code that ChatWithThisName posted last night for me. I had to find a few missing things to get it to run, and after that it still did not do what i had hoped it did not start the next spell as soon as the one before it was done it would still wait a while so i had to remove a few lines to get it to move on faster and i added in level checks to it also just in case my character dies after getting new spells and cant use ones in his book. I have redone 3 gems worth of my code for the bard part, 2 of the 3 is working great but i'm having a problem with it hanging up on gem number 6 now for some reason
can anyone see where i messed it up at ??
can anyone see where i messed it up at ??
Rich (BB code):
Sub MemSpells
| /call CheckforSpells
/declare w int local
/if (${Me.Class.Name.Equal[Bard]}) {
/gsay memorizing my songs will be done shortly
/if (${Me.Level}>22) {
/if (${Me.Book[Largo`s Absonant Binding]} && (!${Me.Gem[1].[Largo's Absonant Binding]}) && (${Me.Level}>50)) {
/memorize "Largo`s Absonant Binding" 1
} else /if (${Me.Book[Selo`s Consonant Chain]} && (!${Me.Gem[1].[Selo`s Consonant Chain]}) && (${Me.Level}>22)) {
/memorize "Selo`s Consonant Chain" 1
} else /gsay im suposed to have a single target snare/slow song but someone (Points finger at ${Master}) was to fucking lazy to go buy it so we are going to have chase the mob's now
}
/goto :BardGem2b
:BardGem2
/for w 1 to 120
/if (${Me.Gem[6].ID}) /goto :BardGem2b
/delay 5
/next w
:BardGem2b
:BardGem3
:BardGem4
:BardGem5
/if (${Me.Level}>6) {
/if (${Me.Book[Warsong of the Vah Shir]} && (!${Me.Gem[5].[Warsong of the Vah Shir]}) && (${Me.Level}>59)) {
/memorize "Warsong of the Vah Shir" 5
} else /if (${Me.Book[Composition of Ervaj]} && (!${Me.Gem[5].[Composition of Ervaj]}) && (${Me.Level}>59)) {
/memorize "Composition of Ervaj" 5
} else /if (${Me.Book[Battlecry of the Vah Shir]} && (!${Me.Gem[5].[Battlecry of the Vah Shir]}) && (${Me.Level}>51)) {
/memorize "Battlecry of the Vah Shir" 5
} else /if (${Me.Book[Melody of Ervaj]} && (!${Me.Gem[5].[Melody of Ervaj]}) && (${Me.Level}>49))) {
/memorize "Melody of Ervaj" 5
} else /if (${Me.Book[Katta's Song of Sword Dancing]} && (!${Me.Gem[5].[Katta's Song of Sword Dancing]}) && (${Me.Level}>38)) {
/memorize "Katta's Song of Sword Dancing" 5
/gsay I do not have a OverHaste Song yet so i am going to use a Weapon Prock for now
} else /if (${Me.Book[Psalm of Purity]} && (!${Me.Gem[5].[Psalm of Purity]}) && (${Me.Level}>36)) {
/memorize "Psalm of Purity" 5
/gsay I do not have a OverHaste Song or a Weapon Prock yet so i guess DS it is
} else /if (${Me.Book[Psalm of Cooling]} && (!${Me.Gem[5].[Psalm of Cooling]}) && (${Me.Level}>24)) {
/memorize "Psalm of Cooling" 5
/gsay I do not have a OverHaste Song or a Weapon Prock yet so i guess DS it is
} else /if (${Me.Book[Psalm of Vitality]} && (!${Me.Gem[5].[Psalm of Vitality]}) && (${Me.Level}>28)) {
/memorize "Psalm of Vitality" 5
/gsay I do not have a OverHaste Song yet so i am going to use a Weapon Prock for now
} else /if (${Me.Book[Psalm of Warmth]} && (!${Me.Gem[5].[Psalm of Warmth]}) && (${Me.Level}>24)) {
/memorize "Psalm of Warmth" 5
/gsay I do not have a OverHaste Song or a Weapon Prock yet so i guess DS it is
} else /if (${Me.Book[Jonthan's Whistling Warsong]} && (!${Me.Gem[5].[Jonthan's Whistling Warsong]}) && (${Me.Level}>6)) {
/memorize "Jonthan's Whistling Warsong" 5
/gsay I do not have a OverHaste Song or Weapon Prock or DS yet so i guess i will do self haste for now
}
}
/goto :BardGem6b
:BardGem6
/for w 1 to 120
/if (${Me.Gem[6].ID}) /goto :BardGem6b
/delay 5
/next w
:BardGem6b
/if (${Me.Book[War March of Brekt RK.III]} && (!${Me.Gem[6].[War March of Brekt RK.III]}) && (${Me.Level}>83)) {
/memorize "War March of Brekt RK.III" 6
} else /if (${Me.Book[War March of Brekt RK.II]} && (!${Me.Gem[6].[War March of Brekt RK.II]}) && (${Me.Level}>83)) {
/memorize "War March of Brekt RK.II" 6
} else /if (${Me.Book[War March of Brekt]} && (!${Me.Gem[6].[War March of Brekt]}) && (${Me.Level}>83)) {
/memorize "War March of Brekt" 6
} else /if (${Me.Book[War March of Meldrath RK.III]} && (!${Me.Gem[6].[War March of Meldrath RK.III]}) && (${Me.Level}>78)) {
/memorize "War March of Meldrath RK.III" 6
} else /if (${Me.Book[War March of Meldrath RK.II]} && (!${Me.Gem[6].[War March of Meldrath RK.II]}) && (${Me.Level}>78)) {
/memorize "War March of Meldrath RK.II" 6
} else /if (${Me.Book[War March of Meldrath]} && (!${Me.Gem[6].[War March of Meldrath]}) && (${Me.Level}>78)) {
/memorize "War March of Meldrath" 6
} else /if (${Me.Book[War March of Muram]} && (!${Me.Gem[6].[War March of Muram]}) && (${Me.Level}>67)) {
/memorize "War March of Muram" 6
} else /if (${Me.Book[War March of the Mastruq]} && (!${Me.Gem[6].[War March of the Mastruq]}) && (${Me.Level}>64)) {
/memorize "War March of the Mastruq" 6
} else /if (${Me.Book[Warsong of Zek]} && (!${Me.Gem[6].[Warsong of Zek]}) && (${Me.Level}>61)) {
/memorize "Warsong of Zek" 6
} else /if (${Me.Book[Vilia's Chorus of Celerity]} && (!${Me.Gem[6].[Vilia's Chorus of Celerity]}) && (${Me.Level}>53)) {
/memorize "Vilia's Chorus of Celerity" 6
} else /if (${Me.Book[Verses of Victory]} && (!${Me.Gem[6].[Verses of Victory]}) && (${Me.Level}>49)) {
/memorize "Verses of Victory" 6
} else /if (${Me.Book[Vilia's Verses of Celerity]} && (!${Me.Gem[6].[Vilia's Verses of Celerity]}) && (${Me.Level}>35)) {
/memorize "Vilia's Verses of Celerity" 6
} else /if (${Me.Book[Anthem de Arms]} && (!${Me.Gem[6].[Anthem de Arms]}) && (${Me.Level}>9)) {
/memorize "Anthem de Arms" 6
} else /if (${Me.Book[Chant of Battle]} && (!${Me.Gem[6].[Chant of Battle]}) && (${Me.Level}>0)) {
/memorize "Chant of Battle" 6
} else /gsay Damn ${Master} either we just started the game and are broke as Fuck or you are retarded because you did not buy my level 1 Haste song yet
:BardGem7
/for w 1 to 120
/if (${Me.Gem[6].ID}) /goto :BardGem7b
/delay 5
/next w
:BardGem7b
/if (${Me.Level}<5) {
/gsay no Run Speed song to mem yet :-(
/goto :BardGem8b
}
/if (${Me.Level}<25) {
/memorize "Selo`s Accelerando" 7
/delay 5
/goto :BardGem8
}
/if (${Me.Level}<49) {
/memorize "Selo's Rhythm of Speed" 7
/delay 5
/goto :BardGem8
}
/if (${Me.Level}>50) {
/memorize "Selo`s Accelerating Chorus" 7
/delay 5
/goto :BardGem8
}
:BardGem8
/for w 1 to 120
/if (${Me.Gem[7].ID}) /goto :BardGem8b
/delay 5
/next w
:BardGem8b
/if (${Me.Level}<6) {
/gsay no Regen song to mem yet :-(
/Return
}
/if (${Me.Level}<34) {
/memorize "Hymn of Restoration" 8
/delay 5
/for w 1 to 120
/if (${Me.Gem[8].ID}) /return
/delay 5
/next w
}
/if (${Me.Level}<55) {
/memorize "Cantata of Soothing" 8
/delay 5
/for w 1 to 120
/if (${Me.Gem[8].ID}) /return
/delay 5
/next w
}
/if (${Me.Level}<58) {
/memorize "Cantata of Replenishment" 8
/delay 5
/for w 1 to 120
/if (${Me.Gem[8].ID}) /return
/delay 5
/next w
}
/if (${Me.Level}<60) {
/memorize "Chorus of Replenishment" 8
/delay 5
/for w 1 to 120
/if (${Me.Gem[8].ID}) /return
/delay 5
/next w
}
/if (${Me.Level}<62) {
/memorize "Ancient: Lcea's Lament" 8
/delay 5
/for w 1 to 120
/if (${Me.Gem[8].ID}) /return
/delay 5
/next w
}
/if (${Me.Level}<64) {
/memorize "Wind of Marr" 8
/delay 5
/for w 1 to 120
/if (${Me.Gem[8].ID}) /return
/delay 5
/next w
}
/if (${Me.Level}<67) {
/memorize "Chorus of Marr" 8
/delay 5
/for w 1 to 120
/if (${Me.Gem[8].ID}) /return
/delay 5
/next w
}
/if (${Me.Level}<69) {
/memorize "Cantata of Life" 8
/delay 5
/for w 1 to 120
/if (${Me.Gem[8].ID}) /return
/delay 5
/next w
}
/if (${Me.Level}>68) {
/memorize "Chorus of Life" 8
/delay 5
/for w 1 to 120
/if (${Me.Gem[8].ID}) /return
/delay 5
/next w
}
}- Commits
- 191
@[email protected] I've caved and decided to just rewrite it all for you. This also gives you a template to use for future additions.
${Me.Class.ShortName} for Bard is BRD, For Cleric it is CLR
In game you can /echo ${Me.Class.ShortName} to see what it is. Then create a Sub based on that information. This is in working order. I tested it.
I have it coded as a stand alone macro. If you want it to be called as a Sub Routine of another macro. Change "Sub Main" to something else. Like "Sub MemSpells"
Then call it using /call MemSpells
${Me.Class.ShortName} for Bard is BRD, For Cleric it is CLR
In game you can /echo ${Me.Class.ShortName} to see what it is. Then create a Sub based on that information. This is in working order. I tested it.
I have it coded as a stand alone macro. If you want it to be called as a Sub Routine of another macro. Change "Sub Main" to something else. Like "Sub MemSpells"
Then call it using /call MemSpells
Rich (BB code):
Sub Main
/declare i int local 0
/for i 1 to ${Me.NumGems}
/echo Checking ${i}
/delay 1s
/call ${Me.Class.ShortName}${i}
/delay 1s
/echo Finished checking ${i}.
/next i
/return
|** Checks the SpelltoCheck to be in GemToUse and returns true if it gets memorized or it's already in the gem slot specified. **|
Sub CheckSpell(string SpelltoCheck, int GemToUse)
/if (${Me.Book[${SpelltoCheck}]} && ${Me.Gem[${GemToUse}].Name.NotEqual[${SpelltoCheck}]} || !${Me.Gem[${GemToUse}].ID}) {
/memorize "${SpelltoCheck}" ${GemToUse}
/delay 10s ${Me.Gem[${GemToUse}].Name.Equal[${SpelltoCheck}]}
/return Complete
} else /if (${Me.Gem[${SpelltoCheck}]}) {
/return Complete
}
/return Incomplete
|** Checks song to put into gem1 **|
Sub Brd1
/if (${Me.Level} > 22) {
/call CheckSpell "Largo's Absonant Binding" 1
/if (${Macro.Return.Equal[Complete]}) /return
/call CheckSpell "Selo's Consonant Chain" 1
/if (${Macro.Return.Equal[Complete]}) /return
}
/return
|** Checks song to put into gem2 **|
Sub Brd2
|** Add code for gem**|
/return
|** Checks song to put into gem3 **|
Sub Brd3
|** Add code for gem**|
/return
|** Checks song to put into gem4 **|
Sub Brd4
|** Add code for gem**|
/return
|** Checks song to put into gem5 **|
Sub Brd5
/if (${Me.Level}>6) {
/call CheckSpell "Warsong of the Vah Shir" 5
/if (${Macro.Return.Equal[Complete]}) /return
/call CheckSpell "Composition of Ervaj" 5
/if (${Macro.Return.Equal[Complete]}) /return
/call CheckSpell "Battlecry of the Vah Shir" 5
/if (${Macro.Return.Equal[Complete]}) /return
/call CheckSpell "Melody of Ervaj" 5
/if (${Macro.Return.Equal[Complete]}) /return
/call CheckSpell "Katt's Song of Sword Dancing" 5
/if (${Macro.Return.Equal[Complete]}) /return
/call CheckSpell "Psalm of Purity" 5
/if (${Macro.Return.Equal[Complete]}) /return
/call CheckSpell "Psalm of Cooling" 5
/if (${Macro.Return.Equal[Complete]}) /return
/call CheckSpell "Psalm of Vitality" 5
/if (${Macro.Return.Equal[Complete]}) /return
/call CheckSpell "Psalm of Warmth" 5
/if (${Macro.Return.Equal[Complete]}) /return
/call CheckSpell "Jonthan's Whistling Warsong" 5
/if (${Macro.Return.Equal[Complete]}) /return
}
/return
|** Checks song to put into gem6 **|
Sub Brd6
/call CheckSpell "Jonthan's Whistling Warsong" 6
/if (${Macro.Return.Equal[Complete]}) /return
/call CheckSpell "War March of Brekt Rk. III" 6
/if (${Macro.Return.Equal[Complete]}) /return
/call CheckSpell "War March of Brekt Rk. II" 6
/if (${Macro.Return.Equal[Complete]}) /return
/call CheckSpell "War March of Brekt" 6
/if (${Macro.Return.Equal[Complete]}) /return
/call CheckSpell "War March of Meldrath RK. III" 6
/if (${Macro.Return.Equal[Complete]}) /return
/call CheckSpell "War March of Meldrath RK.II" 6
/if (${Macro.Return.Equal[Complete]}) /return
/call CheckSpell "War March of Meldrath" 6
/if (${Macro.Return.Equal[Complete]}) /return
/call CheckSpell "War March of Muram" 6
/if (${Macro.Return.Equal[Complete]}) /return
/call CheckSpell "War March of the Mastruq" 6
/if (${Macro.Return.Equal[Complete]}) /return
/call CheckSpell "Warsong of Zek" 6
/if (${Macro.Return.Equal[Complete]}) /return
/call CheckSpell "Vilia's Chorus of Celerity" 6
/if (${Macro.Return.Equal[Complete]}) /return
/call CheckSpell "Verses of Victory" 6
/if (${Macro.Return.Equal[Complete]}) /return
/call CheckSpell "Vilia's Verses of Celerity" 6
/if (${Macro.Return.Equal[Complete]}) /return
/call CheckSpell "Anthem de Arms" 6
/if (${Macro.Return.Equal[Complete]}) /return
/call CheckSpell "Chant of Battle" 6
/if (${Macro.Return.Equal[Complete]}) /return
/return
|** Checks song to put into gem7 **|
Sub Brd7
/if (${Me.Level} > 5) {
/call CheckSpell "Selo's Accelerating Chorus" 7
/if (${Macro.Return.Equal[Complete]}) /return
/call CheckSpell "Selo's Rhythm of Speed" 7
/if (${Macro.Return.Equal[Complete]}) /return
/call CheckSpell "Selo's Accelerando" 7
/if (${Macro.Return.Equal[Complete]}) /return
}
/return
|** Checks song to put into gem8 **|
Sub Brd8
/if (${Me.Level} > 6) {
/call CheckSpell "Chorus of Life" 8
/if (${Macro.Return.Equal[Complete]}) /return
/call CheckSpell "Cantata of Life" 8
/if (${Macro.Return.Equal[Complete]}) /return
/call CheckSpell "Chorus of Marr" 8
/if (${Macro.Return.Equal[Complete]}) /return
/call CheckSpell "Wind of Marr" 8
/if (${Macro.Return.Equal[Complete]}) /return
/call CheckSpell "Ancient: Lcea's Lament" 8
/if (${Macro.Return.Equal[Complete]}) /return
/call CheckSpell "Chorus of Replenishment" 8
/if (${Macro.Return.Equal[Complete]}) /return
/call CheckSpell "Cantata of Replenishment" 8
/if (${Macro.Return.Equal[Complete]}) /return
/call CheckSpell "Cantata of Soothing" 8
/if (${Macro.Return.Equal[Complete]}) /return
/call CheckSpell "Hymn of Restoration" 8
/if (${Macro.Return.Equal[Complete]}) /return
}
/return
|** Checks song to put into gem9 **|
Sub Brd9
|** Add code for gem**|
/return
|** Checks song to put into gem10 **|
Sub Brd10
|** Add code for gem**|
/return
|** Checks song to put into gem11 **|
Sub Brd11
|** Add code for gem**|
/return
|** Checks song to put into gem12 **|
Sub Brd12
|** Add code for gem**|
/return
|** Checks song to put into gem13 **|
Sub Brd13
|** Add code for gem**|
/returnMicah Conley
New member
that looks real complicated but ill check it out and see if i can make use of it thanks
- Commits
- 191
I can help explain it.
below is the Sub I keep calling. It's doing exactly the same thing as all those /if (This) { /do this } else /if (thisother) { /do this } Statements.
/return will return to the line immediately following a call. Additionally, it can return information. In this case I have it returning a string.
So when I go through that Sub Routine I can see that it checks
for the spell to be in my book AND for me to not already have that spell in the gem slot I'm checking OR for the gem to not have anything in it.
If it memorizes a spell it will /return Complete
I access the information returned by using ${Macro.Return} which is a string in this case. So I can use .Equal[Complete] to compare the return to what I want for the condition following the call.
Think of it like Drinking Coffee.
If I have Coffee, I want to drink the coffee
The process of drinking coffee.
So now that I've tried to take a sip. I've returned information about that action. Which I can now access using ${Macro.Return}
I can /echo ${Macro.Return} and it will tell me the result. Alternately, I can use it to decide what to do next.
So I've done much the same thing in this case. Except I never actually use the Return "Incomplete" in a check.
The call for the sub routine I made uses the name of the spell you want to check and the gem you want it to go in.
So If you have the spell, and the spell isn't already memorized to the gem you want or the gem is not empty then you want to memorize it.
Look at how familiar these two statements are.
While they aren't really using those Variables per-say, they both have the same concept.
/memorize is the command.
/call CheckSpell is the command.
For both you pass it the spell and the gem
When you create a sub routine you can offer it variables that you can then pass to the sub routine.
Sub ThatThing(variable1, variable2)
You don't have to define the type, but I did.
Sub ThatThing(string variable1, int variable2)
So in this case I made a string called variable1 and an integer called variable2
they are automatically declared when they are passed to the sub routine.
/call ThatThing "I Love Redguides" 10
Now if I use that call to the subroutine ThatThing with the parameters above, then variable1 is "I Love Redguides" and variable2 is 10.
Now, while you are inside that subroutine, you can use those variables.
Now if I defined that subroutine to the thing above, it would echo variable1 the quantity of variable2. In this case it would echo "I Love Redguides" 10 times.
So back to the code at hand.
If I Check the spell "Warsong of the Vah Shir" using gem 5. as the above call. If I don't have a spell memorized in that slot, or the gem in that slot isn't Warsong of the Vah Shir, then it should memorize it if I have it in the book. Then it waits until that song is done memorizing. Then it returns "Complete"
I then check to see if the return is complete.
If it returned anything other than complete it won't return, it will check the next spell.
In this case, it would be returning back to Sub Main, inside the /for i loop at the same i value it left, but immediately following the /call ${Me.Class.ShortName}${i}
So if the macro returns complete, it stops checking spells. Otherwise, it will check every spell in the list. If it gets to the end of the list of spells without finding anything to memorize, it /returns by default, which also returns it back to the /for i loop immediately following the call.
below is the Sub I keep calling. It's doing exactly the same thing as all those /if (This) { /do this } else /if (thisother) { /do this } Statements.
Rich (BB code):
|** Checks the SpelltoCheck to be in GemToUse and returns true if it gets memorized or it's already in the gem slot specified. **|
Sub CheckSpell(string SpelltoCheck, int GemToUse)
/if (${Me.Book[${SpelltoCheck}]} && ${Me.Gem[${GemToUse}].Name.NotEqual[${SpelltoCheck}]} || !${Me.Gem[${GemToUse}].ID}) {
/memorize "${SpelltoCheck}" ${GemToUse}
/delay 10s ${Me.Gem[${GemToUse}].Name.Equal[${SpelltoCheck}]}
/return Complete
} else /if (${Me.Gem[${SpelltoCheck}]}) {
/return Complete
}
/return Incomplete/return will return to the line immediately following a call. Additionally, it can return information. In this case I have it returning a string.
So when I go through that Sub Routine I can see that it checks
for the spell to be in my book AND for me to not already have that spell in the gem slot I'm checking OR for the gem to not have anything in it.
If it memorizes a spell it will /return Complete
I access the information returned by using ${Macro.Return} which is a string in this case. So I can use .Equal[Complete] to compare the return to what I want for the condition following the call.
Think of it like Drinking Coffee.
If I have Coffee, I want to drink the coffee
Rich (BB code):
/call drinkCoffeeThe process of drinking coffee.
Rich (BB code):
/if (!${CupIsEmpty}) {
/TakeASip
/return Complete
} else {
/echo The cup was empty
/return CupWasEmpty
}I can /echo ${Macro.Return} and it will tell me the result. Alternately, I can use it to decide what to do next.
Rich (BB code):
/if (${Macro.Return.Equal[Complete]}) {
/echo Ahh, that was tasty!
} else /if (${Macro.Return.Equal[CupWasEmpty]}) {
/call GetARefill
}So I've done much the same thing in this case. Except I never actually use the Return "Incomplete" in a check.
The call for the sub routine I made uses the name of the spell you want to check and the gem you want it to go in.
So If you have the spell, and the spell isn't already memorized to the gem you want or the gem is not empty then you want to memorize it.
Look at how familiar these two statements are.
Rich (BB code):
/memorize "${SpelltoMemorize}" ${GemToUse}
/call CheckSpell "${SpelltoCheck}" "${GemToCheck}While they aren't really using those Variables per-say, they both have the same concept.
/memorize is the command.
/call CheckSpell is the command.
For both you pass it the spell and the gem
When you create a sub routine you can offer it variables that you can then pass to the sub routine.
Sub ThatThing(variable1, variable2)
You don't have to define the type, but I did.
Sub ThatThing(string variable1, int variable2)
So in this case I made a string called variable1 and an integer called variable2
they are automatically declared when they are passed to the sub routine.
/call ThatThing "I Love Redguides" 10
Now if I use that call to the subroutine ThatThing with the parameters above, then variable1 is "I Love Redguides" and variable2 is 10.
Now, while you are inside that subroutine, you can use those variables.
Rich (BB code):
Sub ThatThing(string variable1, int variable2)
/declare i int local 0
/for i 1 to ${variable2}
/echo ${variable1}
/next i
/returnNow if I defined that subroutine to the thing above, it would echo variable1 the quantity of variable2. In this case it would echo "I Love Redguides" 10 times.
So back to the code at hand.
Rich (BB code):
/call CheckSpell "Warsong of the Vah Shir" 5
/if (${Macro.Return.Equal[Complete]}) /returnIf I Check the spell "Warsong of the Vah Shir" using gem 5. as the above call. If I don't have a spell memorized in that slot, or the gem in that slot isn't Warsong of the Vah Shir, then it should memorize it if I have it in the book. Then it waits until that song is done memorizing. Then it returns "Complete"
I then check to see if the return is complete.
Rich (BB code):
/if (${Macro.Return.Equal[Complete]}) /returnIf it returned anything other than complete it won't return, it will check the next spell.
In this case, it would be returning back to Sub Main, inside the /for i loop at the same i value it left, but immediately following the /call ${Me.Class.ShortName}${i}
So if the macro returns complete, it stops checking spells. Otherwise, it will check every spell in the list. If it gets to the end of the list of spells without finding anything to memorize, it /returns by default, which also returns it back to the /for i loop immediately following the call.
Micah Conley
New member
think my MQ2 is either out of date or maybe just not the same as one your using i got it from a different site a few weeks ago but i tried to run the macro you wrote to replace my memspell sub and it fails at line 10.
it give me a No such 'character' member 'NumGems' Error
- - - Updated - - -
i started doing it in a completely different way now it seem so work prefectly so far
I made a seperate sub for each spell gem and turned the /for loop into its own sub also
- - - Updated - - -
i guess it mite also be that i don't have the rite plugins loaded also only ones i have running on my MQ2 rite now is MQ2Chatwnd, MQ2Twist and MQ2Cast
it give me a No such 'character' member 'NumGems' Error
- - - Updated - - -
i started doing it in a completely different way now it seem so work prefectly so far
I made a seperate sub for each spell gem and turned the /for loop into its own sub also
Rich (BB code):
Sub MemGem1
/varset GemNum 1
/if (${Me.Class.Name.Equal[Bard]}) {
/if (${Me.Level}>50 && ${Me.Book[Largo`s Absonant Binding]}) {
/memorize "Largo`s Absonant Binding" 1
/call WaitForSpell
/return
}
/if (${Me.Level}>22 && ${Me.Book[Selo`s Consonant Chain]}) {
/memorize "Selo`s Consonant Chain" 1
/call WaitForSpell
/return
} else {
/gsay im suposed to have a single target snare/slow song but someone (Points finger at ${Master}) was to fucking lazy to go buy it so we are going to have chase the mob's now
/return
}
/gsay no Single Target Slow/Snare song to memorize yet
}
/if (${Me.Class.Name.Equal[Cleric]}) {
/if (${Me.Level}>63 && ${Me.Book[Petrifying Earth]}) {
/memorize "Petrifying Earth" 1
/call WaitForSpell
/return
}
/if (${Me.Level}>61 && ${Me.Book[Greater Immobilize]}) {
/memorize "Greater Immobilize" 1
/call WaitForSpell
/return
}
/if (${Me.Level}>55 && ${Me.Book[Paralyzing Earth]}) {
/memorize "Paralyzing Earth" 1
/call WaitForSpell
/return
}
/if (${Me.Level}>45 && ${Me.Book[Immobilize]}) {
/memorize "Immobilize" 1
/call WaitForSpell
/return
}
/if (${Me.Level}>26 && ${Me.Book[Instill]}) {
/memorize "Instill" 1
/call WaitForSpell
/return
}
/if (${Me.Level}>6 && ${Me.Book[Root]}) {
/memorize "Root" 1
/call WaitForSpell
/return
} else {
/gsay im suposed to have a Root Spell but someone (Points finger at ${Master}) was to fucking lazy to go buy it so we are going to have to do with out it
/return
}
/gsay no root spells to memorize yet
}
/return
Sub MemGem2
/varset GemNum 2
/if (${Me.Class.Name.Equal[Cleric]}) {
/if (${Me.Level}>66 && ${Me.Book[Reproach]}) {
/memorize "Reproach" 2
/call WaitForSpell
/return
}
/if (${Me.Level}>64 && ${Me.Book[Ancient: Chaos Censure]}) {
/memorize "Ancient: Chaos Censure" 2
/call WaitForSpell
/return
}
/if (${Me.Level}>64 && ${Me.Book[Order]}) {
/memorize "Order" 2
/call WaitForSpell
/return
}
/if (${Me.Level}>61 && ${Me.Book[Condemnation]}) {
/memorize "Condemnation" 2
/call WaitForSpell
/return
}
/if (${Me.Level}>55 && ${Me.Book[Judgment]}) {
/memorize "Judgment" 2
/call WaitForSpell
/return
}
/if (${Me.Level}>53 && ${Me.Book[Reckoning]}) {
/memorize "Reckoning" 2
/call WaitForSpell
/return
}
/if (${Me.Level}>43 && ${Me.Book[Retribution]}) {
/memorize "Retribution" 2
/call WaitForSpell
/return
}
/if (${Me.Level}>28 && ${Me.Book[Wrath]}) {
/memorize "Wrath" 2
/call WaitForSpell
/return
}
/if (${Me.Level}>13 && ${Me.Book[Smite]}) {
/memorize "Smite" 2
/call WaitForSpell
/return
}
/if (${Me.Level}>4 && ${Me.Book[Furor]}) {
/memorize "Furor" 2
/call WaitForSpell
/return
}
/if (${Me.Level}>0 && ${Me.Book[Strike]}) {
/memorize "Strike" 2
/call WaitForSpell
/return
} else {
/gsay We must be Broke as Fuck sinse you have not got my level 1 nuke for me yet
/return
}
}
/return
Sub WaitForSpell
/declare w int local
/for w 1 to 120
/if (${Me.Gem[${GemNum}].ID}) /return
/delay 5
/next w
/return- - - Updated - - -
i guess it mite also be that i don't have the rite plugins loaded also only ones i have running on my MQ2 rite now is MQ2Chatwnd, MQ2Twist and MQ2Cast
- Commits
- 191
Would probably be in your best interest to get help from the website you got your MQ2 from. Can't help you if you're using out of date MQ2/Plugins.
Micah Conley
New member
but you have helped me a lot already even though your code don't seem to run on my MQ2 it has given me ideas on how to rework my macro to make it work my goal with this macro i'm writing is to make it so anyone can run it on just about any MQ2 with as few plugins as possible needed but i will be getting the redguides compile here in a little while once i get some money to donate for a higher level membership again but it will probably be another month before i can afford to do that
This is a great thread, not only for some coding lessons.. but also because of @Micah Conley user name
- Commits
- 191
Well hopefully you get a RG compile. But based on a member of a TLO not being accessible in your build that could only mean a few things. One being that your copy of MQ2 is a copy prior to the true box server block and the people maintaining it are working outside of the True Box agreement, which is potentially hazardous for the community. The alternative is that it is a build for EMU servers and the NumGems member of the datatype Character was not yet implemented yet.
Below is a screenshot that shows that the Member for the DataType character is available in the Test source of base MQ2 as released by Macroquest2.com
So any build for live should have access to the ${Me.NumGems}. Thus, regardless of the purpose for your build my support for it ceases as it is not designed to run on a build I have access to. If this is in fact a build for True Box servers I encourage you to cease use of the product immediately.
As a side note: NumGems was added to the MQ2 Wiki in this update. However, that doesn't mean that is when it was added to the live build, Just when it was added to the wiki.
Below is a screenshot that shows that the Member for the DataType character is available in the Test source of base MQ2 as released by Macroquest2.com
So any build for live should have access to the ${Me.NumGems}. Thus, regardless of the purpose for your build my support for it ceases as it is not designed to run on a build I have access to. If this is in fact a build for True Box servers I encourage you to cease use of the product immediately.
As a side note: NumGems was added to the MQ2 Wiki in this update. However, that doesn't mean that is when it was added to the live build, Just when it was added to the wiki.
- (cur | last) 01:25, 18 November 2016‎ Warlock45 (Talk | contribs)‎ . . (20,120 bytes) (+350)‎ . . (→‎Members)
Micah Conley
New member
my Compile is for emu servers i got it off from MQEmulator.net its the free RoF2 Compile they have it was the only one i could find for free that worked with RoF2 Client i don't play on live anymore i have not for years since they started selling ingame items and stuff for cash instead of making you work for it like you used to have to
- - - Updated - - -
back when i actualy joined this forum it wasn't even called RedGuides and people didn't worry about about privacy as much, i just never bothered to change it, its a free email account i don't really care about and don't use for anything important
- - - Updated - - -
back when i actualy joined this forum it wasn't even called RedGuides and people didn't worry about about privacy as much, i just never bothered to change it, its a free email account i don't really care about and don't use for anything important