Code:
#IF=%FirstTime,;
#SmoothBackground
#EXECUTE=SetResolution;
Delay=500;
#NeedResolution=816,638;
Delay=500;
#NeedResolution=816,638;
#UseLoop
UseSpeed=1;
WaitForResponse=Be sure you have 100% UI size/nBe sure all windows are reseted to default position/nBe sure Auto-Arrange windows is disabled/nBe sure click-to-move is disabled/n/nBe sure you stay next to Gogorunerk;
#SetVar2=How much characters you have?;
#SetVar1=Enter your PIN/nexample: "1|2|3|4|5|6"/n/n(the seperators are no "i" and no "L";
#SetVar3=Do you have an Instance Boost Pack?/n/n(1 = Yes)/n(0 = No);
_SetVar4=0; <- char counter
#SetVar5=How do you want to use the big keys?/n/n(0 = use them with the toon himself)/n(1 = Send them by mail)/n(2 = Keep them in inventory);
_SetVar7=0; <- item counter
MemWrite=%AddrFreeMem5,%Var5,BYTE;
_IFMemRead=%AddrFreeMem5,BYTE,=1;
#SetVar6=Enter the charactername you want to send the keys to;
#ENDIF
_IFMemPtrRead=%PlayerBase,%OffsetLevel,BYTE,>9;
#EXECUTE=Enter;
#ENDIF
MemWrite=%AddrFreeMem5,%Var5,BYTE; <- mail status
_IFMemRead=%AddrFreeMem5,BYTE,=1;
_IFMemPtrRead=%PlayerBase,%OffsetLevel,BYTE,>50;
_IFInventoryContains=185000319; ornate key
#EXECUTE=Mail;
#ENDIF
MemWrite=%AddrFreeMem1,%Var2,BYTE;
_IFMemRead=%AddrFreeMem1,BYTE,>1;
#EXECUTE=ChangeCharacter;
_Calc4=%Var4+1;
#ENDIF
MemWrite=%AddrFreeMem3,%Var4,BYTE;
_IFMemRead=%AddrFreeMem3,BYTE,=%Var2;
WaitForResponse=Finished;
#UseNoLoop
#EndScript
#ENDIF
start_Mail;
_IFMemPtrRead=%PlayerBase,%OffsetData/0x10C0,CHAR[1],=L; <-- Elyos
FlySmooth=1420.528,1264.053,336.66;
FlySmooth=1416.913,1275.82,336.438;
FlySmooth=1416.913,1275.82,336.438;
FlySmooth=1392.873,1266.345,339.819;
FlySmooth=1392.873,1266.345,339.819;
#EXECUTE=SendMail;
FlySmooth=1392.873,1266.345,339.819;
FlySmooth=1416.913,1275.82,336.438;
FlySmooth=1416.913,1275.82,336.438;
FlySmooth=1420.528,1264.053,336.66;
FlySmooth=1420.528,1264.053,336.66;
_MemPtrReadVar=%PlayerBase,%OffsetName,WCHAR[32],8;
TrayInfo=%Var8 has send %VarItemAmount Ornate Treasure Keys to %Var6, total keys send: %Var7;
#ENDIF
_IFMemPtrRead=%PlayerBase,%OffsetData/0x10C0,CHAR[1],=D; <-- Asmo
FlySmooth=1811.884,1961.294,199.197;
FlySmooth=1803.919,1979.276,197.804;
FlySmooth=1803.919,1979.276,197.804;
FlySmooth=1819.842,1986.981,199.197;
FlySmooth=1819.842,1986.981,199.197;
#EXECUTE=SendMail;
FlySmooth=1819.842,1986.981,199.197;
FlySmooth=1803.919,1979.276,197.804;
FlySmooth=1803.919,1979.276,197.804;
FlySmooth=1811.884,1961.294,199.197;
FlySmooth=1811.884,1961.294,199.197;
_MemPtrReadVar=%PlayerBase,%OffsetName,WCHAR[32],8;
TrayInfo=%Var8 has send %VarItemAmount Ornate Treasure Keys to %Var6, total keys send: %Var7;
#ENDIF
end_Mail;
start_SendMail;
Delay=250;
Command=/select Mailbox;
Delay=500;
Command=/select Mailbox;
Delay=500;
Command=/attack;
Delay=1500;
Mouse=87,109;
Delay=750;
SendKey=%Var6; <-- playername
Delay=1500;
_GetInventoryItemHandle=185000319; <-- itemID
MemPtrWrite=%AddrMail,0x5E0/0x3B8/0x0/0x9C,%VarItemID,DWORD;
MemPtrWrite=%AddrMail,0x5E0/0x3B8/0x0/0x94,%VarItemHandle,DWORD;
MemPtrWrite=%AddrMail,0x5E0/0x3B8/0x0/0xA8,%VarItemAmount,DWORD;
MemPtrWrite=%AddrMail,0x5E0/0x3B8/0x0/0x98,1,DWORD;
MemPtrWrite=%AddrMail,0x5E0/0x3B8/0x0/0xAC,0,DWORD;
_Calc7=%Var7+%VarItemAmount;
Mouse=188,393;
Delay=1000;
Mouse=442,344;
Delay=5;
Mouse=442,344;
Delay=500;
SendKey=0x1B;
Delay=5;
SendKey=0x1B;
Delay=5;
SendKey=0x1B;
Delay=5;
MemPtrWrite=%AddrESChwnd,%OffsetESChwnd,142,BYTE;
Command=;
end_SendMail;
start_Enter;
#EXECUTE=InstancePart1;
Delay=2500;
#EXECUTE=InstancePart1;
MemWrite=%AddrFreeMem2,%Var3,BYTE;
_IFMemRead=%AddrFreeMem2,BYTE,=1;
#EXECUTE=InstancePart1;
Delay=2500;
#EXECUTE=InstancePart1;
#ENDIF
end_Enter;
start_ChangeCharacter;
Command=/logout;
Delay=15000;
#EXECUTE=SelectSlot;
Delay=1500;
Mouse=400,571; <-- Start
Delay=2000;
_IFFrameVisible=567; PIN window
#EXECUTE=PINCheck;
#ENDIF
Delay=6000;
end_ChangeCharacter;
start_SelectSlot;
MemWrite=%AddrFreeMem1,%Var2,BYTE;
_IFMemRead=%AddrFreeMem1,BYTE,=2;
Mouse=675,200;
#ENDIF
_IFMemRead=%AddrFreeMem1,BYTE,=3;
Mouse=675,241;
#ENDIF
_IFMemRead=%AddrFreeMem1,BYTE,=4;
Mouse=675,276;
#ENDIF
_IFMemRead=%AddrFreeMem1,BYTE,=5;
Mouse=675,313;
#ENDIF
_IFMemRead=%AddrFreeMem1,BYTE,=6;
Mouse=675,357;
#ENDIF
_IFMemRead=%AddrFreeMem1,BYTE,=7;
Mouse=675,397;
#ENDIF
_IFMemRead=%AddrFreeMem1,BYTE,=8;
Mouse=675,436;
#ENDIF
end_SelectSlot;
start_PINCheck;
MemWrite=%AddrFreeMem10,1,BYTE;
#DO=999999999;
_IFFrameVisible=567; PIN window
#EnterPIN=%Var1;
Delay=1000;
#ELSE
MemWrite=%AddrFreeMem10,0,BYTE;
#ENDIF
Delay=750;
_UNTILMemRead=%AddrFreeMem10,BYTE,=0;
end_PINCheck;
start_InstancePart1;
_IFMemPtrRead=%PlayerBase,%OffsetLevel,BYTE,>50;
Command=/select Gogorunerk;
Delay=125;
_IFMemPtrRead=%PlayerBase,%OffsetName,WCHAR[32],=Gogorunerk;
Command=/attack;
Delay=4500;
_IFFrameVisible=170;
DialogClick=;
Delay=1000;
DialogClick=;
Delay=1000;
DialogClick=;
Delay=1000;
DialogClick=;
Delay=1000;
DialogClick=;
Delay=1000;
Mouse=194,391;
#ENDIF
MemWrite=%AddrFreeMem10,0,BYTE;
#DO=20000;
_IFFrameVisible=325; instance entry list
MemWrite=%AddrFreeMem10,1,BYTE;
Delay=2000;
Mouse=696,443; OK
Delay=2000;
#ENDIF
_IFFrameVisible=329; quick entry
MemWrite=%AddrFreeMem10,1,BYTE;
#ENDIF
_IFMemRead=%AddrFreeMem10,BYTE,=0;
Mouse=628,489; quick entry icon
Delay=4500;
#ENDIF
_UNTILMemRead=%AddrFreeMem10,BYTE,=1;
FrameAction=329,XPOS,0;
FrameAction=329,YPOS,0;
Delay=2500;
MemWrite=%AddrFreeMem10,0,BYTE;
#DO=20000;
_IFFrameVisible=508; confirm
MemWrite=%AddrFreeMem10,1,BYTE;
#ELSE
Mouse=98,129; quick entry
#ENDIF
Delay=2500;
_UNTILMemRead=%AddrFreeMem10,BYTE,=1;
FrameAction=508,XPOS,0;
FrameAction=508,YPOS,0;
Delay=2500;
_IFFrameVisible=508; confirm
#EXECUTE=InstancePart2;
#ENDIF
end_InstancePart1;
start_InstancePart2;
MemWrite=%AddrFreeMem10,0,BYTE;
#DO=20000;
_IFFrameVisible=330; search
MemWrite=%AddrFreeMem10,1,BYTE;
#ELSE
Mouse=161,73; <--
#ENDIF
Delay=2500;
_UNTILMemRead=%AddrFreeMem10,BYTE,=1;
Delay=2500;
MemWrite=%AddrFreeMem10,0,BYTE;
#DO=7200000; <-- 120 min timeout
_IFFrameVisible=331; search
MemWrite=%AddrFreeMem10,1,BYTE;
#ENDIF
#IF=%Timer=999,120000;
SendAction=3,2; anti afk jump
CreateTimer=999;
#ENDIF
Delay=2500;
_UNTILMemRead=%AddrFreeMem10,BYTE,=1;
FrameAction=331,XPOS,0;
FrameAction=331,YPOS,0;
Delay=2500;
MemWrite=%AddrFreeMem10,0,BYTE;
#DO=30000;
_IFFrameVisible=442; race
MemWrite=%AddrFreeMem10,1,BYTE;
#ELSE
Mouse=109,90; enter
#ENDIF
Delay=2500;
_UNTILMemRead=%AddrFreeMem10,BYTE,=1;
Delay=2500;
FrameAction=309,STATE,HIDE;
<-- optional: add a small path here so you win against full AFK teams
MemWrite=%AddrFreeMem10,0,BYTE;
#DO=1080000; <-- 18 min timeout
_IFFrameVisible=309; rewards
MemWrite=%AddrFreeMem10,1,BYTE;
#ENDIF
#IF=%Timer=999,120000;
SendAction=3,2; anti afk jump
CreateTimer=999;
#ENDIF
Delay=2500;
_UNTILMemRead=%AddrFreeMem10,BYTE,=1;
FrameAction=309,XPOS,0;
FrameAction=309,YPOS,0;
Delay=500;
Mouse=333,298; ok
Delay=150;
Mouse=333,298; ok
Delay=150;
Mouse=333,298; ok
Delay=2150;
FlySmooth=133.022,349.152,124.814;
FlySmooth=125.085,345.75,124.781;
_IFMemPtrRead=%PlayerBase,%OffsetLevel,BYTE,>50;
Command=/select Gogorunerk;
Delay=125;
_IFMemPtrRead=%PlayerBase,%OffsetName,WCHAR[32],=Gogorunerk;
Command=/attack;
Delay=4500;
_IFFrameVisible=170;
DialogClick=;
Delay=1000;
DialogClick=;
Delay=1000;
DialogClick=;
Delay=1000;
#ENDIF
FlySmooth=127.902,356.226,125.028;
MemWrite=%AddrFreeMem10,0,BYTE;
#DO=90000;
Command=/select Common Treasure Chest;
Delay=125;
Command=/attack;
Delay=4500;
_IFInventoryContains=185000320;
#ELSE
MemWrite=%AddrFreeMem10,1,BYTE;
#ENDIF
_UNTILMemRead=%AddrFreeMem10,BYTE,=1;
_IFInventoryContains=188058635; Big key box
FlySmooth=125.863,352.742,124.787;
UseID=188058635;
Delay=500;
FrameAction=433,XPOS,0;
FrameAction=433,YPOS,0;
Delay=500;
Mouse=67,68;
Delay=500;
Mouse=93,205;
Delay=500;
FrameAction=508,XPOS,0;
FrameAction=508,YPOS,0;
Delay=500
Mouse=161,71;
Delay=2500;
MemWrite=%AddrFreeMem5,%Var5,BYTE; <- mail status
_IFMemRead=%AddrFreeMem5,BYTE,=0;
Command=/select Ornate Treasure Chest;
Delay=125;
Command=/attack;
Delay=5500;
#ENDIF
MemPtrWrite=%PlayerBase,%OffsetAnim,0,WORD; <-- Activate NoAnim
#DO=30000;
Command=/leave;
Delay=1250;
_UNTILMemPtrRead=%PlayerBase,%OffsetAnim,WORD,>0;
Delay=9500;
_IFMemPtrRead=%PlayerBase,%OffsetLevel,BYTE,>50;
Command=/select Gogorunerk;
Delay=125;
_IFMemPtrRead=%PlayerBase,%OffsetName,WCHAR[32],=Gogorunerk;
Command=/attack;
Delay=4500;
_IFFrameVisible=170;
DialogClick=;
Delay=1000;
DialogClick=;
Delay=1000;
DialogClick=;
Delay=1000;
Mouse=194,391;
#ENDIF
end_InstancePart2;
start_SetResolution; <-- resizes client without using real mouse
Console=\r_Height 600;
Console=\r_Width 800;
end_SetResolution;