Para's Script Library

Page 167 of 175 « First 67117157165166 167 168169 Last »
07/17/2020 04:31 dlrjsajdi#2491
Quote:
Originally Posted by Paraly View Post
working fine here

Delete your "bin64" and "data/dump" folder and repair your files afterwards

Also restart the Account Manager
Ah, I was dumb, only problem was my vanilla tool was out dated. Working like it was before now. Thanks again
07/24/2020 11:01 Na.Q#2492
In the gather function, how can I edit to get only Ultimate product type?
For example I am gathering Peridot and i just want got Ultimate Peridot and cancel Ancient and Legendary to save Katalam Essencetapper:
Code:
Command=/select Peridot;
Delay=150;
_IFMemPtrRead=%TargetBase,%OffsetName,WCHAR[64],=Peridot;
_IFMemPtrRead=%TargetBase,%OffsetPosX,float,2193.09-2197.09;
_IFMemPtrRead=%TargetBase,%OffsetPosY,float,2058.76-2062.76;
_IFMemPtrRead=%TargetBase,%OffsetPosZ,float,245.83-249.83;
#DO=60000;
SendKey=0x43;
Delay=500;
_UNTILMemPtrRead=%TargetBase,%OffsetName,WCHAR[64],=;
_Calc8=%Var8+1;
#ENDIF
07/24/2020 11:37 Paraly#2493
Quote:
Originally Posted by Na.Q View Post
In the gather function, how can I edit to get only Ultimate product type?
For example I am gathering Peridot and i just want got Ultimate Peridot and cancel Ancient and Legendary to save Katalam Essencetapper:
Code:
Command=/select Peridot;
Delay=150;
_IFMemPtrRead=%TargetBase,%OffsetName,WCHAR[64],=Peridot;
_IFMemPtrRead=%TargetBase,%OffsetPosX,float,2193.09-2197.09;
_IFMemPtrRead=%TargetBase,%OffsetPosY,float,2058.76-2062.76;
_IFMemPtrRead=%TargetBase,%OffsetPosZ,float,245.83-249.83;
#DO=60000;
SendKey=0x43;
Delay=500;
_UNTILMemPtrRead=%TargetBase,%OffsetName,WCHAR[64],=;
_Calc8=%Var8+1;
#ENDIF
Did you see this example script?

Code:
#IF=%FirstTime,;
_MemPtrReadVar=%PlayerBase,%OffsetName,WCHAR[32],PlayerName;
#EXECUTE=GetEssenceTappingAddr;
#ENDIF

#DO=120000;

_MemReadVar=%Var[ET_AddrItemID],DWORD,ET_ItemID;
_MemReadVar=%Var[ET_AddrAmount],DWORD,ET_Amount;
_MemReadVar=%Var[ET_AddrSuccess],DWORD,ET_Success;
_MemReadVar=%Var[ET_AddrFailure],DWORD,ET_Failure;
_MemReadVar=%Var[ET_AddrComplete],DWORD,ET_Complete;
_MemReadVar=%Var[ET_AddrLevel],DWORD,ET_Level;

Display=ItemID: %Var[ET_ItemID]/nAmount: %Var[ET_Amount]/nSuccess: %Var[ET_Success]/nFailure: %Var[ET_Failure]/nCompleted at: %Var[ET_Complete]/n/nEssenceTapping at: %Var[ET_Level]/n,0,0,EssenceTappingData: %Var[PlayerName];
Delay=10;

#UNTIL=1,=2;



start_GetEssenceTappingAddr;

_MemReadVar=%AddrFreeMem8,DWORD,cache;
MemWrite=%AddrFreeMem8,%AddrFoV,DWORD;
_MemReadVar=%AddrFreeMem8,DWORD,temp;
MemWrite=%AddrFreeMem8,%Var[cache],DWORD;
_Calc[ET_AddrItemID]=%Var[temp]-5256;
_Calc[ET_AddrAmount]=%Var[temp]-5248;
_Calc[ET_AddrSuccess]=%Var[temp]-5232;
_Calc[ET_AddrFailure]=%Var[temp]-5228;
_Calc[ET_AddrComplete]=%Var[temp]-5224;
_MemPattern=3275000032750000................FFFFFFFFFFFFFFFF..........000000................0E000000000000000F00000000000000000000000000000000000000000000001500000000......00000000..........000000010000000000000000000000000000000000000000000000..000000..000000,116,False,0x10000000/0x17F000000;
#IF=%Var[PatternFound],>0;
_SetVar=ET_AddrLevel,%Var[PatternRet_1];
#ENDIF

end_GetEssenceTappingAddr;

It displays all informations you need, so what you would do is

Code:
#IF=%FirstTime,;
#EXECUTE=GetEssenceTappingAddr;
#ENDIF


Command=/select Peridot;
Delay=150;
_IFMemPtrRead=%TargetBase,%OffsetName,WCHAR[64],=Peridot;
_IFMemPtrRead=%TargetBase,%OffsetPosX,float,2193.09-2197.09;
_IFMemPtrRead=%TargetBase,%OffsetPosY,float,2058.76-2062.76;
_IFMemPtrRead=%TargetBase,%OffsetPosZ,float,245.83-249.83;
#DO=60000;
SendKey=0x43;
#EXECUTE=Collect;
_UNTILMemPtrRead=%TargetBase,%OffsetName,WCHAR[64],=;
_Calc8=%Var8+1;
#ENDIF


start_Collect;

#DO=500;
Delay=10;
_UNTILMemRead=%Var[ET_AddrItemID],DWORD,>0; // wait till collecting has started


_IFMemRead=%Var[ET_AddrItemID],DWORD,=152003057; // If is Ultimate Peridot
#DO=60000;
Delay=333;
_UNTILMemPtrRead=%TargetBase,%OffsetName,WCHAR[64],=;
#ELSE
SendKey=0x1B;
Delay=15;
SendKey=0x1B;
Delay=15;
SendKey=0x1B;
Delay=15;
#ENDIF

end_Collect;




start_GetEssenceTappingAddr;

_MemReadVar=%AddrFreeMem8,DWORD,cache;
MemWrite=%AddrFreeMem8,%AddrFoV,DWORD;
_MemReadVar=%AddrFreeMem8,DWORD,temp;
MemWrite=%AddrFreeMem8,%Var[cache],DWORD;
_Calc[ET_AddrItemID]=%Var[temp]-5256;
_Calc[ET_AddrAmount]=%Var[temp]-5248;
_Calc[ET_AddrSuccess]=%Var[temp]-5232;
_Calc[ET_AddrFailure]=%Var[temp]-5228;
_Calc[ET_AddrComplete]=%Var[temp]-5224;
_MemPattern=3275000032750000................FFFFFFFFFFFFFFFF..........000000................0E000000000000000F00000000000000000000000000000000000000000000001500000000......00000000..........000000010000000000000000000000000000000000000000000000..000000..000000,116,False,0x10000000/0x17F000000;
#IF=%Var[PatternFound],>0;
_SetVar=ET_AddrLevel,%Var[PatternRet_1];
#ENDIF

end_GetEssenceTappingAddr;
07/27/2020 12:24 xfallen33#2494
Hi Paraly.
The Udas Xp script doesn't work for me. I wlak to the lava then nothing :(
07/27/2020 12:28 Paraly#2495
Quote:
Originally Posted by xfallen33 View Post
Hi Paraly.
The Udas Xp script doesn't work for me. I wlak to the lava then nothing :(
They already fixed it, the pyre souls do not respawn anymore.
07/27/2020 12:31 xfallen33#2496
Thank you for the fast reply :)
07/29/2020 22:20 Na.Q#2497
Do you have anyway to check energy of respose?
07/29/2020 22:22 Paraly#2498
Quote:
Originally Posted by Na.Q View Post
Do you have anyway to check energy of respose?

Code:
#EXECUTE=GetRepose;
WaitForResponse=Percentage: %Var[ReposePercent]/nRepose EXP left: %Var[ReposeCurrentValue]/nRepose EXP maximum: %Var[ReposeMaxValue];


start_GetRepose;

_MemReadVar=%AddrFreeMem0,BYTE[4],TempCache;
MemWrite=%AddrFreeMem0,%AddrFlightCooldown,DWORD;
_MemReadVar=%AddrFreeMem0,DWORD,AddrTemp;
MemWrite=%AddrFreeMem0,%Var[TempCache],BYTE[4];
_Calc[AddrReposeCurrent]=%Var[AddrTemp]-232;
_Calc[AddrReposeMax]=%Var[AddrTemp]-224;

_MemReadVar=%Var[AddrReposeCurrent],DWORD,ReposeCurrentValue;
_MemReadVar=%Var[AddrReposeMax],DWORD,ReposeMaxValue;
_Calc[ReposePercent]=%Var[ReposeCurrentValue]/%Var[ReposeMaxValue];
_Calc[ReposePercent]=%Var[ReposePercent]*100;

end_GetRepose;
07/30/2020 06:58 Na.Q#2499
Quote:
Originally Posted by Paraly View Post
Code:
#EXECUTE=GetRepose;
WaitForResponse=Percentage: %Var[ReposePercent]/nRepose EXP left: %Var[ReposeCurrentValue]/nRepose EXP maximum: %Var[ReposeMaxValue];


start_GetRepose;

_MemReadVar=%AddrFreeMem0,BYTE[4],TempCache;
MemWrite=%AddrFreeMem0,%AddrFlightCooldown,DWORD;
_MemReadVar=%AddrFreeMem0,DWORD,AddrTemp;
MemWrite=%AddrFreeMem0,%Var[TempCache],BYTE[4];
_Calc[AddrReposeCurrent]=%Var[AddrTemp]-232;
_Calc[AddrReposeMax]=%Var[AddrTemp]-224;

_MemReadVar=%Var[AddrReposeCurrent],DWORD,ReposeCurrentValue;
_MemReadVar=%Var[AddrReposeMax],DWORD,ReposeMaxValue;
_Calc[ReposePercent]=%Var[ReposeCurrentValue]/%Var[ReposeMaxValue];
_Calc[ReposePercent]=%Var[ReposePercent]*100;

end_GetRepose;
Sorry but i check all the character it shows incorrect, Percentage and Repose EXP left always is 0
07/30/2020 08:09 xfallen33#2500
Hi :)
What script is the best to make kinah ?
Have a good day :)
07/30/2020 10:13 Paraly#2501
Quote:
Originally Posted by Na.Q View Post
Sorry but i check all the character it shows incorrect, Percentage and Repose EXP left always is 0
Sorry this code was from 2019 for an older aion patch, anyways here you go
Code:
#EXECUTE=GetRepose;
WaitForResponse=Percentage: %Var[ReposePercent]/nRepose EXP left: %Var[ReposeCurrentValue]/nRepose EXP maximum: %Var[ReposeMaxValue];


start_GetRepose;

_MemReadVar=%AddrFreeMem0,BYTE[4],TempCache;
MemWrite=%AddrFreeMem0,%AddrFlightCooldown,DWORD;
_MemReadVar=%AddrFreeMem0,DWORD,AddrTemp;
MemWrite=%AddrFreeMem0,%Var[TempCache],BYTE[4];
_Calc[AddrReposeCurrent]=%Var[AddrTemp]-244;
_Calc[AddrReposeMax]=%Var[AddrTemp]-236;

_MemReadVar=%Var[AddrReposeCurrent],DWORD,ReposeCurrentValue;
_MemReadVar=%Var[AddrReposeMax],DWORD,ReposeMaxValue;
_Calc[ReposePercent]=%Var[ReposeCurrentValue]/%Var[ReposeMaxValue];
_Calc[ReposePercent]=%Var[ReposePercent]*100;

end_GetRepose;
Quote:
Originally Posted by xfallen33 View Post
Hi :)
What script is the best to make kinah ?
Have a good day :)
Crafting Kinah Bundles from luna is the best method to make Kinah, it just requires level 10 characters and has a very low risk of getting banned
07/30/2020 10:18 xfallen33#2502
Just the daily and weekly luna script ?
I don't know how earn kinah with that :(
07/30/2020 15:55 Paraly#2503
Quote:
Originally Posted by xfallen33 View Post
Just the daily and weekly luna script ?
I don't know how earn kinah with that :(
They get materials every day and when a toon has the kinah bundle recipe available to craft it crafts them, so the more characters you have the more kinah you get, it's just a question of time
08/05/2020 09:19 Na.Q#2504
Hi Paraly
Would you like to make short script for do the (10+10) weekly quest with NPC Windel to acquired ultimate etium and spirit fragment in multiple characters please? Thank you.
08/09/2020 16:26 Na.Q#2505
Today i has tried this script. It's stopped craft all item and when i check the %Var[ET_AddrItemID] it always show 22255784

Quote:
Originally Posted by Paraly View Post
Did you see this example script?

Code:
#IF=%FirstTime,;
_MemPtrReadVar=%PlayerBase,%OffsetName,WCHAR[32],PlayerName;
#EXECUTE=GetEssenceTappingAddr;
#ENDIF

#DO=120000;

_MemReadVar=%Var[ET_AddrItemID],DWORD,ET_ItemID;
_MemReadVar=%Var[ET_AddrAmount],DWORD,ET_Amount;
_MemReadVar=%Var[ET_AddrSuccess],DWORD,ET_Success;
_MemReadVar=%Var[ET_AddrFailure],DWORD,ET_Failure;
_MemReadVar=%Var[ET_AddrComplete],DWORD,ET_Complete;
_MemReadVar=%Var[ET_AddrLevel],DWORD,ET_Level;

Display=ItemID: %Var[ET_ItemID]/nAmount: %Var[ET_Amount]/nSuccess: %Var[ET_Success]/nFailure: %Var[ET_Failure]/nCompleted at: %Var[ET_Complete]/n/nEssenceTapping at: %Var[ET_Level]/n,0,0,EssenceTappingData: %Var[PlayerName];
Delay=10;

#UNTIL=1,=2;



start_GetEssenceTappingAddr;

_MemReadVar=%AddrFreeMem8,DWORD,cache;
MemWrite=%AddrFreeMem8,%AddrFoV,DWORD;
_MemReadVar=%AddrFreeMem8,DWORD,temp;
MemWrite=%AddrFreeMem8,%Var[cache],DWORD;
_Calc[ET_AddrItemID]=%Var[temp]-5256;
_Calc[ET_AddrAmount]=%Var[temp]-5248;
_Calc[ET_AddrSuccess]=%Var[temp]-5232;
_Calc[ET_AddrFailure]=%Var[temp]-5228;
_Calc[ET_AddrComplete]=%Var[temp]-5224;
_MemPattern=3275000032750000................FFFFFFFFFFFFFFFF..........000000................0E000000000000000F00000000000000000000000000000000000000000000001500000000......00000000..........000000010000000000000000000000000000000000000000000000..000000..000000,116,False,0x10000000/0x17F000000;
#IF=%Var[PatternFound],>0;
_SetVar=ET_AddrLevel,%Var[PatternRet_1];
#ENDIF

end_GetEssenceTappingAddr;

It displays all informations you need, so what you would do is

Code:
#IF=%FirstTime,;
#EXECUTE=GetEssenceTappingAddr;
#ENDIF


Command=/select Peridot;
Delay=150;
_IFMemPtrRead=%TargetBase,%OffsetName,WCHAR[64],=Peridot;
_IFMemPtrRead=%TargetBase,%OffsetPosX,float,2193.09-2197.09;
_IFMemPtrRead=%TargetBase,%OffsetPosY,float,2058.76-2062.76;
_IFMemPtrRead=%TargetBase,%OffsetPosZ,float,245.83-249.83;
#DO=60000;
SendKey=0x43;
#EXECUTE=Collect;
_UNTILMemPtrRead=%TargetBase,%OffsetName,WCHAR[64],=;
_Calc8=%Var8+1;
#ENDIF


start_Collect;

#DO=500;
Delay=10;
_UNTILMemRead=%Var[ET_AddrItemID],DWORD,>0; // wait till collecting has started


_IFMemRead=%Var[ET_AddrItemID],DWORD,=152003057; // If is Ultimate Peridot
#DO=60000;
Delay=333;
_UNTILMemPtrRead=%TargetBase,%OffsetName,WCHAR[64],=;
#ELSE
SendKey=0x1B;
Delay=15;
SendKey=0x1B;
Delay=15;
SendKey=0x1B;
Delay=15;
#ENDIF

end_Collect;




start_GetEssenceTappingAddr;

_MemReadVar=%AddrFreeMem8,DWORD,cache;
MemWrite=%AddrFreeMem8,%AddrFoV,DWORD;
_MemReadVar=%AddrFreeMem8,DWORD,temp;
MemWrite=%AddrFreeMem8,%Var[cache],DWORD;
_Calc[ET_AddrItemID]=%Var[temp]-5256;
_Calc[ET_AddrAmount]=%Var[temp]-5248;
_Calc[ET_AddrSuccess]=%Var[temp]-5232;
_Calc[ET_AddrFailure]=%Var[temp]-5228;
_Calc[ET_AddrComplete]=%Var[temp]-5224;
_MemPattern=3275000032750000................FFFFFFFFFFFFFFFF..........000000................0E000000000000000F00000000000000000000000000000000000000000000001500000000......00000000..........000000010000000000000000000000000000000000000000000000..000000..000000,116,False,0x10000000/0x17F000000;
#IF=%Var[PatternFound],>0;
_SetVar=ET_AddrLevel,%Var[PatternRet_1];
#ENDIF

end_GetEssenceTappingAddr;
Page 167 of 175 « First 67117157165166 167 168169 Last »