Elĩţέ Găмέrś™
March 28, 2024, 06:17:37 am
Welcome, Guest. Please login or register.

Login with username, password and session length
News: Welcome to Elite Gamers Community have fun and contribute to the community and be Rewarded.
 
  Home Help Search Arcade Gallery Links Staff List Login Register  

Some Spellbooks

Pages: [1]
  Print  
Author Topic: Some Spellbooks  (Read 34 times)
Knightraider
Administrator
New Comer
*

Karma: +105/-0
Posts: 44



View Profile WWW
« on: December 03, 2007, 06:31:48 pm »

Made by Joedake Big thanks to him!

[Flying Moon]

Code:
    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]

Code:
    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;
Report Spam   Logged

Share on Facebook Share on Twitter



Pages: [1]
  Print  
 
Jump to:  

Bookmark this site! | Upgrade This Forum
SMF For Free - Create your own Forum

Powered by SMF | SMF © 2016, Simple Machines
Privacy Policy