You last visited: Today at 07:44
Advertisement
Para's Script Library
Discussion on Para's Script Library within the Aion forum part of the MMORPGs category.
View Poll Results: You want the scripts for any client language?
Yes, surely!
273 37.09%
No, english and german are enough for me.
463 62.91%
07/17/2020, 04:31
#2491
elite*gold: 0
Join Date: Nov 2014
Posts: 79
Received Thanks: 2
Quote:
Originally Posted by
Paraly
working fine here
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
#2492
elite*gold: 0
Join Date: Dec 2013
Posts: 31
Received Thanks: 2
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
#2493
elite*gold: 27
Join Date: Sep 2009
Posts: 5,609
Received Thanks: 1,597
Quote:
Originally Posted by
Na.Q
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
#2494
elite*gold: 0
Join Date: Jun 2009
Posts: 26
Received Thanks: 0
Hi Paraly.
The Udas Xp script doesn't work for me. I wlak to the lava then nothing
07/27/2020, 12:28
#2495
elite*gold: 27
Join Date: Sep 2009
Posts: 5,609
Received Thanks: 1,597
Quote:
Originally Posted by
xfallen33
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
#2496
elite*gold: 0
Join Date: Jun 2009
Posts: 26
Received Thanks: 0
Thank you for the fast reply
07/29/2020, 22:20
#2497
elite*gold: 0
Join Date: Dec 2013
Posts: 31
Received Thanks: 2
Do you have anyway to check energy of respose?
07/29/2020, 22:22
#2498
elite*gold: 27
Join Date: Sep 2009
Posts: 5,609
Received Thanks: 1,597
Quote:
Originally Posted by
Na.Q
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
#2499
elite*gold: 0
Join Date: Dec 2013
Posts: 31
Received Thanks: 2
Quote:
Originally Posted by
Paraly
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
#2500
elite*gold: 0
Join Date: Jun 2009
Posts: 26
Received Thanks: 0
Hi
What script is the best to make kinah ?
Have a good day
07/30/2020, 10:13
#2501
elite*gold: 27
Join Date: Sep 2009
Posts: 5,609
Received Thanks: 1,597
Quote:
Originally Posted by
Na.Q
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
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
#2502
elite*gold: 0
Join Date: Jun 2009
Posts: 26
Received Thanks: 0
Just the daily and weekly luna script ?
I don't know how earn kinah with that
07/30/2020, 15:55
#2503
elite*gold: 27
Join Date: Sep 2009
Posts: 5,609
Received Thanks: 1,597
Quote:
Originally Posted by
xfallen33
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
#2504
elite*gold: 0
Join Date: Dec 2013
Posts: 31
Received Thanks: 2
Hi Paraly
08/09/2020, 16:26
#2505
elite*gold: 0
Join Date: Dec 2013
Posts: 31
Received Thanks: 2
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
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;
Script para todos os Lastchaos - Autohokey
01/29/2012 - Last Chaos - 1 Replies
I got a script that clicks several times with the click right mouse clicks when monster picks up the tarjeta. so he just throws the skill.
I used AutoHotkey program. in AutoHotkey - Free Mouse and Keyboard Macro Program with Hotkeys and AutoText
Needs improvement.
I accept any help.
I'm from Brazil.
------------------------------------------------- --------------------------
[Release]Big Script Library
07/25/2010 - SRO PServer Guides & Releases - 0 Replies
I think its a good idea to open this Topic.
I need Your Help.
Sent me your own made Scripts and i upload them here.
It does not matter if there is already a script by the mob.
Only Self made scripts!!!
What To Post?
Post me not the text file.Post me the script!!!
Scorpion 1 by Th3Stalker
All times are GMT +2. The time now is 07:44 .
