Made by Joedake Big thanks to him!
[Flying Moon]
150243: // FlyingMoon
begin
for i := 0 to Length(Client.Character.WeaponProfs)-1 do
begin
if (Client.Character.Profession >= 23) and (Client.Character.Profession <= 25) then
begin
for i := 0 to Length(Client.Character.Spells)-1 do
begin
if Character.Spells[i].ID = 1320 then
begin
Client.SendPacket(MessagePacket('SYSTEM', Client.Character.Name, 'You already know this spell.', Client.MessageID, CT_TOP, clRed));
Exit;
end;
end;
Client.SendPacket(LearnSpellPacket(1320, 0, 0));
SetLength(Client.Character.Spells, Length(Client.Character.Spells)+1);
eb := Length(Client.Character.Spells)-1;
Client.Character.Spells[eb].ID := 1320;
Client.Character.Spells[eb].Level :=0;
Client.Character.Spells[eb].Exp := 0;
end else
begin
GiveItem(Item.ItemID, 0, 0, 0, 0, 0);
Client.SendPacket(MessagePacket('SYSTEM', Client.Character.Name, 'You are not a warrior.', Client.MessageID, CT_CENTER, clRed));
end;
end;
[Thunder]
150243: // Thunder
begin
for i := 0 to Length(Client.Character.WeaponProfs)-1 do
begin
if (Client.Character.Profession >= 130) and (Client.Character.Profession <= 145) then
begin
for i := 0 to Length(Client.Character.Spells)-1 do
begin
if Character.Spells[i].ID = 100 then
begin
Client.SendPacket(MessagePacket('SYSTEM', Client.Character.Name, 'You already know this spell.', Client.MessageID, CT_TOP, clRed));
Exit;
end;
end;
if (Client.Character.Mana => 20) then
begin
Client.SendPacket(LearnSpellPacket(1000, 0, 0));
SetLength(Client.Character.Spells, Length(Client.Character.Spells)+1);
eb := Length(Client.Character.Spells)-1;
Client.Character.Spells[eb].ID := 1000;
Client.Character.Spells[eb].Level :=0;
Client.Character.Spells[eb].Exp := 0;
end else
begin
GiveItem(Item.ItemID, 0, 0, 0, 0, 0);
Client.SendPacket(MessagePacket('SYSTEM', Client.Character.Name, 'You do not have enough mana', Client.MessageID, CT_CENTER, clRed));
end;
end;