Show Posts
|
Pages: [1] 2 3
|
13
|
Conquer Online / Scripts / Market Controller
|
on: December 03, 2007, 06:33:08 pm
|
Made by Spare2 big thanks to him! 45: begin case OptionID of 0: begin AddNPCDialog('Would you like to exit market? '); AddNPCOption('Yes'1); AddNPCOption('Nothing, Just passing by', 255); NPCFinish; end; 1: begin TeleportPlayer(1002, 400 400); NPCFinish; end; end; end;
|
|
|
14
|
Conquer Online / Scripts / Some Spellbooks
|
on: December 03, 2007, 06:31:48 pm
|
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;
|
|
|
15
|
Conquer Online / Scripts / Adv.Cure
|
on: December 03, 2007, 06:29:34 pm
|
Made by tanelipe Big thanks to him 1175: case SpellLevel of 0: ReqMp := 160; 1: ReqMp := 190; 2: ReqMp := 215; 3: ReqMp := 235; 4: ReqMp := 255; end;
if Client.Character.CurrentMP < ReqMP then Exit; Client.Character.CurrentMP := Client.Character.CurrentMP - ReqMP; Client.SendPacket(StatTypePacket(Client.Character, Client.Character.CurrentMP, ST_MP));
ReqMP := Client.Character.MagicAttack; case SpellLevel of 0: ReqMP := ReqMP + 500; 1: ReqMP := ReqMP + 600; 2: ReqMP := ReqMP + 700; 3: ReqMP := ReqMP + 800; 4: ReqMP := ReqMP + 900; end;
ReqMP := Max(StackMagicDamage(ReqMP, Defender), 1); Defender.Character.CurrentHP := Defender.Character.CurrentHP + ReqMP; Defender.SendPacket(StatTypePacket(Client.Character, Client.Character.CurrentHP, ST_HP)); StatCheck(Defender, Attacker);
Targets := THashtable.Create; Targets.Add(Defender.Character.CharacterID, ReqMP); Packet := MAttackPacket(Attacker.Character.CharacterID, Attacker.Character.Location.X, Attacker.Character.Location.Y, SpellID, Lvl, Targets); Attacker.SendPacket(Packet); SendRangePacket(Attacker.Character, MaxViewDistance, MaxViewDistance, Packet); Targets.Free; end;
|
|
|
|