Lineage 2 Tower Forum

Full Version: WTB craft script code
You're currently viewing a stripped down version of our content. View the full version with proper formatting.
Pages: 1 2 3 4
Kerb, that valiance page with this info is brokem,
do you by chance have it saved?
I just need those Rgrade Id's to test it .. thxSmile
(05-29-2015 16:28 PM)plixplox Wrote: [ -> ]Kerb, that valiance page with this info is brokem,
do you by chance have it saved?
I just need those Rgrade Id's to test it .. thxSmile
link is still working, i don't know why it doesn't work for you.
anyway i reuploaded it, check 2nd post:
http://forum.l2tower.eu/thread-wtb-craft...8#pid90638
it loaded the 1st, just says error loading additional pages...
I will check yours..

Sweet, I can finally sit back and craft!!!!
Just tried it and successfully crafted SSR, SSS, BSSS, BSSR. here are the codes I used

CraftItem(327); --SSS=24 ; SSR=1125 ; BSSS=327 ; BSSR=1127

+2 rep me if it helped you...!
Capucine,
did you put in a mana check?
Everytime I try it either doesn't work, or it crash instantly ..
try this:
if (GetMe():GetMp() >= 258) then

or this:

if (GetMe():GetMpPercent() > 10) then
(05-29-2015 17:45 PM)plixplox Wrote: [ -> ]Capucine,
did you put in a mana check?
Everytime I try it either doesn't work, or it crash instantly ..

no, I did not ad mana check...
(05-30-2015 01:09 AM)capucine Wrote: [ -> ]
(05-29-2015 17:45 PM)plixplox Wrote: [ -> ]Capucine,
did you put in a mana check?
Everytime I try it either doesn't work, or it crash instantly ..

no, I did not ad mana check...

ok now with checks
    LUA Programming
me = GetMe();
crystals = "Crystal (R-grade)";
stone = "Soulstone";
 
function CraftItem(RecipeId)
 if (type(RecipeId) == "number" and RecipeId > 0) then
 local packet = PacketBuilder();
 packet:AppendInt(0xB8, 1);
 packet:AppendInt(RecipeId, 4);
 SendPacket(packet);
 end;
end;
 
function GetItemAmountByName(name)
 local invList = GetInventory();
 for item in invList.list do
 if (item.Name == name) then
 ShotsDisId = item.displayId;
 return item.ItemNum;
 end;
 end;
 return 0;
end;
 
 
 
repeat
 if (me:GetMp() > 258) then
if (GetItemAmountByName(crystals) > 2) then
 if (GetItemAmountByName(stone) > 80) then
 CraftItem(1125);
 Sleep(1000);
 end;
 end;
 end;
until false

didn't test it, but just by looking at it, its wrong because your checking for crystal count twice... the one with >80 should be soulstones...

if (GetItemAmountByName(crystals) > 2) then
if (GetItemAmountByName(crystals) > 80) then




(05-30-2015 01:16 AM)schubbel2208 Wrote: [ -> ]
(05-30-2015 01:09 AM)capucine Wrote: [ -> ]
(05-29-2015 17:45 PM)plixplox Wrote: [ -> ]Capucine,
did you put in a mana check?
Everytime I try it either doesn't work, or it crash instantly ..

no, I did not ad mana check...

ok now with checks
    LUA Programming
me = GetMe();
crystals = "Crystal (R-grade)";
stone = "Soulstone";
 
function CraftItem(RecipeId)
 if (type(RecipeId) == "number" and RecipeId > 0) then
 local packet = PacketBuilder();
 packet:AppendInt(0xB8, 1);
 packet:AppendInt(RecipeId, 4);
 SendPacket(packet);
 end;
end;
 
function GetItemAmountByName(name)
 local invList = GetInventory();
 for item in invList.list do
 if (item.Name == name) then
 ShotsDisId = item.displayId;
 return item.ItemNum;
 end;
 end;
 return 0;
end;
 
 
 
repeat
 if (me:GetMp() > 258) then
 if (GetItemAmountByName(crystals) > 2) then
 if (GetItemAmountByName(crystals) > 80) then
 CraftItem(1125);
 Sleep(1000);
 end;
 end;
 end;
until false

hrhr my fault it should be

    LUA Programming
if (GetItemAmountByName(crystals) > 2) then
 if (GetItemAmountByName(stone) > 80) then

Pages: 1 2 3 4
Reference URL's