Legend of Kal (Release).

[bd0rk's]

Hello dear members of RageZone. After a while open and close my server cause of some hater. I start get boring, so there is all my stuff...

Server Informations:

- Experience 50-80x
- 50x Egg EXP rate
- Costum Drop rate
- Int KalOnline Areas
- Int KalOnline Monster Stats

- Int Monster summoning scroll style
- Mission Announcer
- Welfare Bureau agent of Bedal
- Seohak (Int Like)
- Honor System
- Bead of fire, MSS...
- Skillbook
- MainSvrT AntiC (Deleted every commands inside *for less corruption by your GameMaster*)

Special:

- Snow Area by HoLLoW (Portal can be enable at fort via etc.txt)
- EGG by Gh0st
- Int Kal G70/75 Added (Only need int stats/name/icon)
- Golem Monster by S0ul666

and alot more...

Server files Fixed, Monster Sommuning scroll was spawn monster from bloodymare.

----------------------------------------

Server files:
MEGAUPLOAD - The leading online storage and file delivery service
Gamefront
Hotfile.com: One click file hosting: LoK Server Files.rar

Client:
MEGAUPLOAD - The leading online storage and file delivery service
Gamefront
Download Legend of Kal Client.7z for free on uploading.com
Deposit Files

Patch:
MEGAUPLOAD - The leading online storage and file delivery service

KOAPE (PKs normal):
Hotfile.com: One click file hosting: KOAPE.rar
Gamefront

Kal_DB:
http://www.gamefront.com/files/20245475/kal_db.rar
http://www.megaupload.com/?d=7AR0DUII

PKs: L3genDK##2011
Hex: B6C99D9F94BEB1D9D9C8CACBCB

Store Procedure:

ALTER PROCEDURE [dbo].[SetPrefix]

@prefix int,
@iid int

AS


declare @pid int
declare @index int
declare @bof_index int
declare @bofindex1 int
declare @EquipInfo int
declare @CheatInfo int
declare @PolishInfo int
declare @BoundInfo int
declare @TotalInfo int
SET @pid = (SELECT PID FROM Item WHERE [IID] = @iid)
SET @index = (SELECT [Index] FROM [Item] WHERE [IID] = @iid)
SET @bof_index = (SELECT [BofIndex] FROM [BofTable] WHERE [Index] = @index)
SET @EquipInfo = (SELECT TOP 1 Info&1 FROM Item WHERE IID = @iid)
SET @CheatInfo = (SELECT TOP 1 Info&8 FROM Item WHERE IID = @iid)
SET @PolishInfo = (SELECT TOP 1 Info&64 FROM Item WHERE IID = @iid)
SET @BoundInfo = (SELECT TOP 1 Info&128 FROM Item WHERE IID = @iid)
SET @TotalInfo = @EquipInfo + @CheatInfo + @PolishInfo + @BoundInfo

IF (@prefix = 150)
begin
--do a special thing, like make bound
UPDATE [Item] SET Info = (Info|128) WHERE IID = @iid
end

ELSE IF (@prefix = 151)
begin
--do a special thing, like make unbound
UPDATE [Item] SET Info = Info - (Info&128) WHERE IID = @iid
end

ELSE IF (@prefix = 152)
begin
--Stone of Demon Blood G3
UPDATE [Item] SET Info = @TotalInfo + 1310720 WHERE IID = @iid
end

ELSE IF (@prefix = 153)
begin
--Stone of Shadow G1
UPDATE [Item] SET Info = @TotalInfo + 524544 WHERE IID = @iid
end

ELSE IF (@prefix = 154)
begin
--Stone of Shadow G2
UPDATE [Item] SET Info = @TotalInfo + 1048832 WHERE IID = @iid
end

ELSE IF (@prefix = 155)
begin
--Stone of Holy G1
UPDATE [Item] SET Info = @TotalInfo + 524800 WHERE IID = @iid
end

ELSE IF (@prefix = 156)
begin
--Stone of Holy G2
UPDATE [Item] SET Info = @TotalInfo + 1049088 WHERE IID = @iid
end

ELSE IF (@prefix = 157)
begin
--Stone of Flame G1
UPDATE [Item] SET Info = @TotalInfo + 525312 WHERE IID = @iid
end

ELSE IF (@prefix = 158)
begin
--Stone of Flame G2
UPDATE [Item] SET Info = @TotalInfo + 1049600 WHERE IID = @iid
end

ELSE IF (@prefix = 159)
begin
--Stone of Ice G1
UPDATE [Item] SET Info = @TotalInfo + 526336 WHERE IID = @iid
end

ELSE IF (@prefix = 160)
begin
--Stone of Ice G2
UPDATE [Item] SET Info = @TotalInfo + 1050624 WHERE IID = @iid
end

ELSE IF (@prefix = 161)
begin
--Stone of Lightning G1
UPDATE [Item] SET Info = @TotalInfo + 528384 WHERE IID = @iid
end

ELSE IF (@prefix = 162)
begin
--Stone of Lightning G2
UPDATE [Item] SET Info = @TotalInfo + 1052672 WHERE IID = @iid
end

ELSE IF (@prefix = 163)
begin
--Stone of Poison G1
UPDATE [Item] SET Info = @TotalInfo + 532480 WHERE IID = @iid
end

ELSE IF (@prefix = 164)
begin
--Stone of Poison G2
UPDATE [Item] SET Info = @TotalInfo + 1056768 WHERE IID = @iid
end

ELSE IF (@prefix = 165)
begin
--Stone of Para G1
UPDATE [Item] SET Info = @TotalInfo + 540672 WHERE IID = @iid
end

ELSE IF (@prefix = 166)
begin
--Stone of Para G2
UPDATE [Item] SET Info = @TotalInfo + 1064960 WHERE IID = @iid
end

ELSE IF (@prefix = 167)
begin
--Stone of Str G1
UPDATE [Item] SET Info = @TotalInfo + 557056 WHERE IID = @iid
end

ELSE IF (@prefix = 168)
begin
--Stone of Str G2
UPDATE [Item] SET Info = @TotalInfo + 1081344 WHERE IID = @iid
end

ELSE IF (@prefix = 169)
begin
--Stone of Skill G1
UPDATE [Item] SET Info = @TotalInfo + 589824 WHERE IID = @iid
end

ELSE IF (@prefix = 170)
begin
--Stone of Skill G2
UPDATE [Item] SET Info = @TotalInfo + 1114112 WHERE IID = @iid
end

ELSE IF (@prefix = 171)
begin
--Stone of Mistery G3
UPDATE [Item] SET Info = @TotalInfo + 1179648 WHERE IID = @iid
end

ELSE IF (@prefix = 172)
begin
--10/10 Physical
UPDATE [Item] SET UpgrLevel = 10, XAttack = 10 WHERE IID = @iid
end 

ELSE IF (@prefix = 173)
begin
--10/10 Magical
UPDATE [Item] SET UpgrLevel = 10, XMagic = 10 WHERE IID = @iid
end

ELSE IF (@prefix = 174)
begin
--11/11 Physical
UPDATE [Item] SET UpgrLevel = 11, XAttack = 11 WHERE IID = @iid
end

ELSE IF (@prefix = 175)
begin
--11/11 Magical
UPDATE [Item] SET UpgrLevel = 11, XMagic = 11 WHERE IID = @iid
end

ELSE IF (@prefix = 176)
begin
--12/12 Physical
UPDATE [Item] SET UpgrLevel = 12, XAttack = 12 WHERE IID = @iid
end

ELSE IF (@prefix = 177)
begin
--12/12 Magical
UPDATE [Item] SET UpgrLevel = 12, XMagic = 12 WHERE IID = @iid
end

ELSE IF (@prefix = 178)
begin
--13/13 Physical
UPDATE [Item] SET UpgrLevel = 13, XAttack = 13 WHERE IID = @iid
end

ELSE IF (@prefix = 179)
begin
--13/13 Magical
UPDATE [Item] SET UpgrLevel = 13, XMagic = 13 WHERE IID = @iid
end

ELSE IF (@prefix = 180)
begin
--14/14 Physical
UPDATE [Item] SET UpgrLevel = 14, XAttack = 14 WHERE IID = @iid
end

ELSE IF (@prefix = 181)
begin
--14/14 Magical
UPDATE [Item] SET UpgrLevel = 14, XMagic = 14 WHERE IID = @iid
end

ELSE IF (@prefix = 182)
begin
--15/15 Physical
UPDATE [Item] SET UpgrLevel = 15, XAttack = 15 WHERE IID = @iid
end

ELSE IF (@prefix = 183)
begin
--15/15 Magical
UPDATE [Item] SET UpgrLevel = 15, XMagic = 15 WHERE IID = @iid
end

ELSE IF (@prefix = 184)
begin
--16/16 Physical
UPDATE [Item] SET UpgrLevel = 16, XAttack = 16 WHERE IID = @iid
end

ELSE IF (@prefix = 185)
begin
--16/16 Magical
UPDATE [Item] SET UpgrLevel = 16, XMagic = 16 WHERE IID = @iid
end

ELSE IF (@prefix = 186)
begin
--Eb success chance 100% - UpgradeRate -> 100
UPDATE [Item] SET UpgrRate = 100 WHERE IID = @iid
end

ELSE IF (@prefix = 188)
begin
--5/1
UPDATE [Item] SET XDefense = 5, XDodge = 1 WHERE IID = @iid
end

ELSE IF (@prefix = 189)
begin
--18/18/8 Physical
UPDATE [Item] SET UpgrLevel = 18, XHit = 8, XAttack = 18 WHERE IID = @iid
end

ELSE IF (@prefix = 190)
begin
--18/18/8 Magical
UPDATE [Item] SET UpgrLevel = 18, XHit = 8, XMagic = 18 WHERE IID = @iid
end

ELSE IF (@prefix = 220)
begin
if(@bof_index > 1)
SET @bofindex1 = @bof_index
else
SET @bofindex1 = @index

UPDATE Item SET [Index] = @bofindex1 WHERE [IID] = @iid
end

ELSE IF (@prefix = 221)
begin
if(@bof_index > 1)
SET @bofindex1 = @bof_index
else
SET @bofindex1 = @index

UPDATE Item SET [Index] = @bofindex1 WHERE [IID] = @iid
end

ELSE IF (@prefix = 222)
begin
if(@bof_index > 1)
SET @bofindex1 = @bof_index
else
SET @bofindex1 = @index

UPDATE Item SET [Index] = @bofindex1 WHERE [IID] = @iid
end

ELSE
begin
--Do the normal query
UPDATE Item SET [Prefix] = @prefix WHERE [IID] = @iid
end

ALTER PROCEDURE [dbo].[buffmagic]

@PID int,
@Type tinyint,
@Remain int

AS

declare @class int
declare @grade int
DECLARE @animal int
DECLARE @agrade int

SET @class = (select [Class] from Player WHERE [PID] = @PID)

--Guild Time Reset
IF (@Type = 58 AND @Remain = 16)
begin
    UPDATE [GuildMember] SET Date = 0 WHERE PID = @pid
end

--animal grade +5
ELSE IF (@Type = 58 AND @Remain = 17)
begin

IF ((select max([IID]) from Item WHERE [Index] = 337 AND [PID] = @PID) <> 0) --Tiger
    begin
    SET @animal = (select max([IID]) from Item WHERE [Index] = 337 AND [PID] = @PID)
    end
ELSE IF ((select max([IID]) from Item WHERE [Index] = 338 AND [PID] = @PID) <> 0) --Bird
    begin
    SET @animal = (select max([IID]) from Item WHERE [Index] = 338 AND [PID] = @PID)
    end
ELSE IF ((select max([IID]) from Item WHERE [Index] = 339 AND [PID] = @PID) <> 0) --Phanter
    begin
    SET @animal = (select max([IID]) from Item WHERE [Index] = 339 AND [PID] = @PID)
    end
ELSE IF ((select max([IID]) from Item WHERE [Index] = 340 AND [PID] = @PID) <> 0) --Eagle
    begin
    SET @animal = (select max([IID]) from Item WHERE [Index] = 340 AND [PID] = @PID)
    end


DECLARE @spieler int
SET @Spieler = (select [PID] from Item WHERE [IID] = @animal)

IF (@Spieler = @PID)
    begin
    SET @agrade = (select [MaxEnd] from Item WHERE [IID] = @animal)
    IF (@agrade <= 26)
        begin
        SET @agrade = @agrade + 5
        end
    ELSE IF (@agrade >= 27)
        begin
        SET @agrade = 31
        end
        UPDATE Item SET [MaxEnd] = @agrade WHERE [IID] = @animal
        UPDATE Item SET [CurEnd] = @agrade WHERE [IID] = @animal
    end
end

--skillbooks
ELSE IF (@Type = 58 AND @Remain = 11)
begin
    IF (@Class = 0) --knight
        begin
        SET @grade = (select [Level] from Skill WHERE [PID] = @PID AND [Index] = 2) +2
        UPDATE Skill SET [Level] = @grade WHERE [PID] = @PID AND  [Index] = 2
        end
    ELSE IF (@Class = 1) --mage
        begin
        SET @grade = (select [Level] from Skill WHERE [PID] = @PID AND [Index] = 12) +1
        UPDATE Skill SET [Level] = @grade WHERE [PID] = @PID AND  [Index] = 12
        end
    ELSE IF (@Class = 2) --archer
        begin
        SET @grade = (select [Level] from Skill WHERE [PID] = @PID AND [Index] = 2) +1
        UPDATE Skill SET [Level] = @grade WHERE [PID] = @PID AND  [Index] = 2
        end
end
ELSE IF (@Type = 58 AND @Remain = 12)
begin
    IF (@Class = 0) --knight
        begin
        SET @grade = (select [Level] from Skill WHERE [PID] = @PID AND [Index] = 12) +1
        UPDATE Skill SET [Level] = @grade WHERE [PID] = @PID AND  [Index] = 12
        end
    ELSE IF (@Class = 1) --mage
        begin
        SET @grade = (select [Level] from Skill WHERE [PID] = @PID AND [Index] = 13) +1
        UPDATE Skill SET [Level] = @grade WHERE [PID] = @PID AND  [Index] = 13
        end
    ELSE IF (@Class = 2) --archer
        begin
        SET @grade = (select [Level] from Skill WHERE [PID] = @PID AND [Index] = 12) +1
        UPDATE Skill SET [Level] = @grade WHERE [PID] = @PID AND  [Index] = 12
        end
end
ELSE IF (@Type = 58 AND @Remain = 13)
begin
    IF (@Class = 0) --knight
        begin
        SET @grade = (select [Level] from Skill WHERE [PID] = @PID AND [Index] = 6) +1
        UPDATE Skill SET [Level] = @grade WHERE [PID] = @PID AND  [Index] = 6
        end
    ELSE IF (@Class = 1) --mage
        begin
        SET @grade = (select [Level] from Skill WHERE [PID] = @PID AND [Index] = 14) +1
        UPDATE Skill SET [Level] = @grade WHERE [PID] = @PID AND  [Index] = 14
        end
    ELSE IF (@Class = 2) --archer
        begin
        SET @grade = (select [Level] from Skill WHERE [PID] = @PID AND [Index] = 5) +1
        UPDATE Skill SET [Level] = @grade WHERE [PID] = @PID AND  [Index] = 5
        end
end
ELSE IF (@Type = 58 AND @Remain = 14)
begin
    IF (@Class = 0) --knight
        begin
        SET @grade = (select [Level] from Skill WHERE [PID] = @PID AND [Index] = 5) +1
        UPDATE Skill SET [Level] = @grade WHERE [PID] = @PID AND  [Index] = 5
        end
    ELSE IF (@Class = 1) --mage
        begin
        SET @grade = (select [Level] from Skill WHERE [PID] = @PID AND [Index] = 15) +1
        UPDATE Skill SET [Level] = @grade WHERE [PID] = @PID AND  [Index] = 15
        end
    ELSE IF (@Class = 2) --archer
        begin
        SET @grade = (select [Level] from Skill WHERE [PID] = @PID AND [Index] = 8) +1
        UPDATE Skill SET [Level] = @grade WHERE [PID] = @PID AND  [Index] = 8
        end
end
ELSE IF (@Type = 58 AND @Remain = 15)
begin
    IF (@Class = 1) --mage
        begin
        SET @grade = (select [Level] from Skill WHERE [PID] = @PID AND [Index] = 26) +1
        UPDATE Skill SET [Level] = @grade WHERE [PID] = @PID AND  [Index] = 26
        end
end

ELSE
INSERT INTO BuffRemain ( [PID], [Type], [Remain] ) VALUES ( @PID, @Type, @Remain )

ALTER PROCEDURE [dbo].[CreatePlayer]

@uid int,
@name varchar(14),
@class tinyint,
@strength tinyint,
@health tinyint,
@intelligence tinyint,
@wisdom tinyint,
@dexterity tinyint,
@curhp smallint,
@curmp smallint,
@map tinyint,
@x int,
@y int,
@z int,
@face tinyint,
@hair tinyint
AS    
IF (@Class = 0)
INSERT INTO Player ( [UID], [Admin], [Name], [Class], [Strength], [Health], [Intelligence], [Wisdom], [Dexterity], [CurHP], [CurMP], [Map], [X], [Y], [Z], [Face], [Hair]) 
VALUES ( @UID, 0, @Name, @Class, @Strength, @Health, @Intelligence, @Wisdom, @Dexterity, @CurHP, @CurMP, @map, @x, @y, @z, @Face, @Hair)
ELSE IF (@Class = 1)
INSERT INTO Player ( [UID], [Admin], [Name], [Class], [Strength], [Health], [Intelligence], [Wisdom], [Dexterity], [CurHP], [CurMP], [Map], [X], [Y], [Z], [Face], [Hair]) 
VALUES ( @UID, 0, @Name, @Class, @Strength, @Health, @Intelligence, @Wisdom, @Dexterity, @CurHP, @CurMP, @map, @x, @y, @z, @Face, @Hair)
ELSE IF (@Class = 2)
INSERT INTO Player ( [UID], [Admin], [Name], [Class], [Strength], [Health], [Intelligence], [Wisdom], [Dexterity], [CurHP], [CurMP], [Map], [X], [Y], [Z], [Face], [Hair]) 
VALUES ( @UID, 0, @Name, @Class, @Strength, @Health, @Intelligence, @Wisdom, @Dexterity, @CurHP, @CurMP, @map, @x, @y, @z, @Face, @Hair)

ALTER PROCEDURE [dbo].[honor]

	@a1 varchar(14), @a2 varchar(14), @a3 varchar(14)

AS

DECLARE @lvlkiller int, @lvlopfer int, @PID int, @honor int, @APID int, @GID int, @AGID int

Set @PID = (select [PID] FROM Player where [Name] = @a2)
Set @APID = (select [PID] FROM Player where [Name] = @a3)
Set @lvlkiller = (select [Level] FROM Player where [Name] = @a2)
Set @lvlopfer = (select [Level] FROM Player where [Name] = @a3)
Set @GID= (select [GID] FROM Player where [PID] = @PID)
Set @AGID= (select [GID] FROM Player where [PID] = @APID)


--Guild Kills +1
IF EXISTS (Select [GID] FROM Guild WHERE [GID] = @GID)
	begin
	IF Not Exists (Select [GID] FROM GuildHonor WHERE [GID] = @GID)
		begin
		INSERT INTO GuildHonor ( [GID], [Kills], [Deaths], [Castle] ) VALUES ( @GID, 1, 0, 0 )
		end
	ELSE
		begin
		UPDATE GuildHonor SET [Kills] = [Kills] + 1 WHERE [GID] = @GID
		end
	end

--Guild Deaths +1
IF EXISTS (Select [GID] FROM Guild WHERE [GID] = @AGID)
	begin
	IF Exists (Select [GID] FROM GuildHonor WHERE [GID] = @AGID)
		begin
		UPDATE GuildHonor SET [Deaths] = [Deaths] + 1 WHERE [GID] = @AGID
		end
	ELSE
		begin
		INSERT INTO GuildHonor ( [GID], [Kills], [Deaths], [Castle] ) VALUES ( @AGID, 0, 1, 0 )
		end
	end


--Honor depending on lvl diff
if(@lvlkiller > @lvlopfer)
begin
	if((@lvlkiller - @lvlopfer) > 10)
	begin
		SET @honor = 0;
	end
	else if((@lvlkiller - @lvlopfer) <= 10 AND (@lvlkiller - @lvlopfer) >= 6)
	begin
		SET @honor = 2;
	end
	else if((@lvlkiller - @lvlopfer) <= 5 AND (@lvlkiller - @lvlopfer) >= 1)
	begin
		SET @honor = 4;
	end
end
else if(@lvlkiller = @lvlopfer)
	begin
		SET @honor = 6;
	end
else if(@lvlopfer > @lvlkiller)
begin
	if((@lvlopfer - @lvlkiller) >= 1 AND (@lvlopfer - @lvlkiller) <= 5)
	begin
		SET @honor = 8;
	end
	else if((@lvlopfer - @lvlkiller) >= 6 AND (@lvlopfer - @lvlkiller) <= 9)
	begin
		SET @honor = 10;
	end
	else if((@lvlopfer - @lvlkiller) >= 10 AND (@lvlopfer - @lvlkiller) <= 14)
	begin
		SET @honor = 12;
	end
	else if((@lvlopfer - @lvlkiller) >= 15 AND (@lvlopfer - @lvlkiller) <= 19)
	begin
		SET @honor = 14;
	end
	else if((@lvlopfer - @lvlkiller) > 20)
	begin
		SET @honor = 16;
	end
end

--IF KILLER IS IN ASSASSIN MODE
IF EXISTS (SELECT [Type] FROM BuffRemain WHERE [PID] = @PID AND [Type] = 104) AND EXISTS (SELECT [Type] FROM BuffRemain WHERE [PID] = @APID AND [Type] = 104)
	begin
	Set @honor = @honor * 2
	end
ELSE IF EXISTS (SELECT [Type] FROM BuffRemain WHERE [PID] = @PID AND [Type] = 104)
	begin
	Set @honor = @honor * 2
	end
ELSE IF EXISTS (SELECT [Type] FROM BuffRemain WHERE [PID] = @APID AND [Type] = 104)
	begin
	Set @honor = @honor * 3
	end

--Update Honor & Kills + Deaths
UPDATE Player SET [Honor] = [Honor] + @honor, [Kills] = [Kills] +1 WHERE [PID] = @PID
UPDATE Player SET [Deaths] = [Deaths] +1 WHERE [PID] = @APID



--Write to Assalist
INSERT INTO PKBulletin VALUES ( @a1, @a2, @a3 )

Kind Regards, bd0rk's

[MentaL]

[ASN]

[}{eLLena]

its the 3rd job dll items, but its IP Tracer and backdoored so just delete it.
Great release,

[bd0rk's]

i did delete from server files now. have fun

[Ruslan94]

god damn!

[Wo0t]

so its time now to delete this amazing server :( thats sad

well atleast you made a nice release, thanks for that

[Justei]

#Added prefix.

[Blader77]

Was an amazing server.
hackers always win - kal dies sadly..:(
thanks anyway <3

[KingForex]

Thanks was very nice server

[DjKrava]

to bad all kal servers get destroyed becouse of a jealous people and tnx for the release i hope people will use it

[SpearoX]

indeed nice release. to bad it had to end this way

gl in other stuff

greetz

[datatr]

there is 3rd job ?

[LumpeX]

I know this is old question but how can i add new store procedure?

[seoood]

thx for release

[Bobylly]

is cd hack working on it ? lol

[DjKrava]

lumpex there is a tuturial
bobylly there isnt server that cd dont work on it LoL Oo

datatrn theres no 3 rd job

[datatr]

there is srv that cd hack dont work on it

[xhethx]

lol !
why KOAPE Config.pk not full ?!

why [ Uncrypted Config ] Not Full !!!

---------- Post added at 02:18 PM ---------- Previous post was at 02:00 PM ----------

hi agine .

if i tybe my ID + PW Game dont login !
help me ...

[}{eLLena]

it's full, just cleaned korean shit...

[DjKrava]

dadatr show me i wanna see...

[datatr]

just change the cd of it , so the just the real hackers will "hack" so it seems like no1 will hack :)

[DjKrava]

lol if you change values they will find it easy..

[walid445200]

going to test it

[datatr]

read my last post again

[liplay]

what is password of Config.pk3?
used 'L3genDK##2011' but doesn't work

where is my mistake?