I take a look already on them by searching and that coding is for 1.3+ not for 2.4. The coding in 2.4 for that section as per below.
function begin_forge_item(...)
-- Notice("½øÈ뾫Á¶")
local Check_CanForge = 0
Check_CanForge = can_forge_item_main ( arg )
if Check_CanForge == 0 then
return 0
end
local role = 0
local ItemBag = {} --µÀ¾ß±³°üλÖÃ
local ItemCount = {} --µÀ¾ßÊýÁ¿
local ItemBagCount = {} --µÀ¾ß¶ÔÏóÊýÁ¿
local Get_Count = 4
local ItemReadCount = 0
local ItemReadNow = 1
local ItemReadNext = 0
local ItemBag_Num = 0
local ItemCount_Num = 0
local ItemBagCount_Num = 0
role , ItemBag , ItemCount , ItemBagCount , ItemBag_Num , ItemCount_Num , ItemBagCount_Num = Read_Table ( arg )
local ItemBag_Jinglian = ItemBag [0]
local Item_Jinglian = GetChaItem ( role , 2 , ItemBag_Jinglian )
local Item_Stone1 = GetChaItem ( role , 2 , ItemBag [1] )
local Item_Stone2 = GetChaItem ( role , 2 , ItemBag [2] )
local Check_Jinglian_Item = 0
local Money_Need = getforge_money_main ( arg )
local Money_Have = GetChaAttr ( role , ATTR_GD )
-- Notice ("Ä¿Ç°ÓÐ"..Money_Have.."Õâô¶àµÄÇ®")
-- Notice ("Òª¿Û³ý"..Money_Need.."Õâô¶àµÄÇ®")
Money_Have = Money_Have - Money_Need
SetCharaAttr ( Money_Have , role , ATTR_GD )
ALLExAttrSet( role )
local ItemID_Jinglian = GetItemID ( Item_Jinglian )
----------------
local Jinglian_Lv_Now = GetItem_JinglianLv ( Item_Jinglian )
----------------
local Num = GetItemForgeParam ( Item_Jinglian , 1 )
Num = TansferNum ( Num )
local Stone1Type = GetItemType ( Item_Stone1 )
local Stone2Type = GetItemType ( Item_Stone2 )
local Baoshi = 0
if Stone1Type == 49 then
Baoshi = Item_Stone1
elseif Stone2Type == 49 then
Baoshi = Item_Stone2
end
local Item_Stone = {}
local Item_StoneLv = {}
local Baoshi_NeedLv = 1
Item_Stone[0] = GetNum_Part2 ( Num )
Item_Stone[1] = GetNum_Part4 ( Num )
Item_Stone[2] = GetNum_Part6 ( Num )
Item_StoneLv[0] = GetNum_Part3 ( Num )
Item_StoneLv[1] = GetNum_Part5 ( Num )
Item_StoneLv[2] = GetNum_Part7 ( Num )
BaoshiType = GetStone_TypeID ( Baoshi )
for i = 0 , 2 ,1 do
if BaoshiType == Item_Stone then
Baoshi_NeedLv = Item_StoneLv + 1
end
end
----------------
local Sklv = 1
local StateLv = GetChaStateLv ( role , STATE_JLGLJB )
local State100 = GetChaStateLv ( role , STATE_JLBYS )
Sklv = Sklv + StateLv
local ZBforgeXG=ZBforge(role )
local Check_A = math.max ( 0.02 , math.min ( 1 , ( 1.1 - Baoshi_NeedLv * 0.1 + Sklv * 0.15 +ZBforgeXG ) ) )
--Notice("Check_A"..Check_A)
if Baoshi_NeedLv == 3 or Baoshi_NeedLv == 4 or Baoshi_NeedLv == 5 or Baoshi_NeedLv == 6 or Baoshi_NeedLv ==7 or Baoshi_NeedLv == 8 or Baoshi_NeedLv== 9 then ---------¾«Á¶½µµÍ°Ù·Ö֮ʮ
Check_A=Check_A - 0.33
end
--Notice("Check_A"..Check_A)
local CheckFaild = Percentage_Random ( Check_A )
if State100 == 10 then
if Baoshi_NeedLv < 8 then
CheckFaild = 1
CALCULATE_FORGE_LUA_000025 = GetResString("CALCULATE_FORGE_LUA_000025")
SystemNotice( role , CALCULATE_FORGE_LUA_000025)
end
end
if State100 == 11 then
if Baoshi_NeedLv > 7 then
CheckFaild = 1
CALCULATE_FORGE_LUA_000025 = GetResString("CALCULATE_FORGE_LUA_000025")
SystemNotice( role , CALCULATE_FORGE_LUA_000025)
end
end
if Baoshi_NeedLv < 6 then
CheckFaild = 1
end
local ItemID_Stone1 = GetItemID ( Item_Stone1 )
local ItemID_Stone2 = GetItemID ( Item_Stone2 )
local Stone1_Lv = Get_StoneLv ( Item_Stone1 )
local Stone2_Lv = Get_StoneLv ( Item_Stone2 )
local Jinglianshi_Lv = 0
local Jinglian_Lv = GetItem_JinglianLv ( Item_Jinglian )
if Stone1_Lv > Stone2_Lv then
Jinglianshi_Lv = Stone1_Lv
else
Jinglianshi_Lv = Stone2_Lv
end
local R1 = 0
local R2 = 0
if CheckFaild == 1 then
Check_Jinglian_Item = Jinglian_Item ( Item_Jinglian , Item_Stone1 , Item_Stone2 )
SynChaKitbag(role,13)
R1 = RemoveChaItem ( role , ItemID_Stone1 , 1 , 2 , ItemBag [1] , 2 , 1 , 0 ) --ÒƳý±¦Ê¯1
R2 = RemoveChaItem ( role , ItemID_Stone2 , 1 , 2 , ItemBag [2] , 2 , 1 , 0 ) --ÒƳý±¦Ê¯2
if R1 == 0 or R2 == 0 then
CALCULATE_FORGE_LUA_000026 = GetResString("CALCULATE_FORGE_LUA_000026")
LG( "Jinglian" , CALCULATE_FORGE_LUA_000026 )
end
ReSetForgeAttr ( Item_Jinglian )
-- Notice("¾«Á¶½áÊø")
local cha_name = GetChaDefaultName ( role )
local Item_Jinglian_name = GetItemName ( ItemID_Jinglian )
CALCULATE_FORGE_LUA_000027 = GetResString("CALCULATE_FORGE_LUA_000027")
CALCULATE_EXP_AND_LEVEL_LUA_000040 = GetResString("CALCULATE_EXP_AND_LEVEL_LUA_000040")
LG( "JingLian_ShiBai" , CALCULATE_EXP_AND_LEVEL_LUA_000040..cha_name..CALCULATE_FORGE_LUA_000027..Item_Jinglian_name )
return 1
else
local cha_name = GetChaDefaultName ( role )
local Item_Jinglian_name = GetItemName ( ItemID_Jinglian )
CALCULATE_FORGE_LUA_000028 = GetResString("CALCULATE_FORGE_LUA_000028")
CALCULATE_EXP_AND_LEVEL_LUA_000040 = GetResString("CALCULATE_EXP_AND_LEVEL_LUA_000040")
LG( "JingLian_ShiBai" , CALCULATE_EXP_AND_LEVEL_LUA_000040..cha_name..CALCULATE_FORGE_LUA_000028..Item_Jinglian_name )
CALCULATE_FORGE_LUA_000029 = GetResString("CALCULATE_FORGE_LUA_000029")
SystemNotice ( role , CALCULATE_FORGE_LUA_000029 )
R1 = RemoveChaItem ( role , ItemID_Stone1 , 1 , 2 , ItemBag [1] , 2 , 1 , 0 ) --ÒƳý±¦Ê¯1
R2 = RemoveChaItem ( role , ItemID_Stone2 , 1 , 2 , ItemBag [2] , 2 , 1 , 0 ) --ÒƳý±¦Ê¯2
if R2 == 0 then
CALCULATE_FORGE_LUA_000026 = GetResString("CALCULATE_FORGE_LUA_000026")
LG( "Jinglian" , CALCULATE_FORGE_LUA_000026 )
end
ReSetForgeAttr ( Item_Jinglian )
return 2
end
------------------
-- SystemNotice(role , "·µ»Øʧ°Ü")
-- local a = 0.75
local b = Check_CG_Jinglian ( Jinglian_Lv , Jinglianshi_Lv , Sklv )
if b == 0 then
i = RemoveChaItem ( role , ItemID_Jinglian , 1 , 2 , ItemBag [0] , 2 , 1 , 0) --ÒƳý±¦Ê¯
if i == 0 then
CALCULATE_FORGE_LUA_000009 = GetResString("CALCULATE_FORGE_LUA_000009")
LG( "Hecheng_BS" , CALCULATE_FORGE_LUA_000009 )
end
local cha_name = GetChaDefaultName ( role )
local Item_Jinglian_name = GetItemName ( ItemID_Jinglian )
CALCULATE_FORGE_LUA_000030 = GetResString("CALCULATE_FORGE_LUA_000030")
CALCULATE_EXP_AND_LEVEL_LUA_000040 = GetResString("CALCULATE_EXP_AND_LEVEL_LUA_000040")
LG( "JingLian_ShiBai" , CALCULATE_EXP_AND_LEVEL_LUA_000040..cha_name..CALCULATE_FORGE_LUA_000030..Item_Jinglian_name )
CALCULATE_FORGE_LUA_000031 = GetResString("CALCULATE_FORGE_LUA_000031")
SystemNotice( role , CALCULATE_FORGE_LUA_000031)
return 2
end
end