Angela JR Fixed v.6

Download as txt, pdf, or txt
Download as txt, pdf, or txt
You are on page 1of 40

this Angela Jr Fixed Scripts Angela Jr has same effect as mordo but 1.2stats and 2.

5 extra exp and 3+ psychic al defense when using poss this scripts will make Angela Jr work in your server fully with poss marriage an d items you need to edit some item effects and add some new ones

Edits in ItemInfo you can delete you older effect and adds these -----------------------------------------Rations and Fruits Edit in ItemEffect.l ua ------------------------------------------------------------Ration function ItemUse_SiLiao ( role , Item , Item_Traget ) local Cha_Boat = 0 Cha_Boat = GetCtrlBoat ( role ) if Cha_Boat ~= nil then SystemNotice( role , "Cannot use while sailing" ) UseItemFailed ( role ) return end local Item_Traget_URE=GetItemAttr(Item_Traget,ITEMATTR_URE) -- local Item_Traget_MAXURE=GetItemAttr(Item_Traget,ITEMATTR_MAXURE )-- local Item_type = GetItemType ( Item ) local Item_Traget_Type = GetItemType ( Item_Traget ) local Num = 2500 local ItemID = GetItemID ( Item_Traget ) if ItemID == 7125 or ItemID == 7126 then -- Angela and Angela jr SystemNotice(role , "Cannot feed this fruit to this fair UseItemFailed ( role ) return

ids y" )

end

if Item_type == 57 and Item_Traget_Type == 59 then if Item_Traget_URE < Item_Traget_MAXURE then Give_ElfURE ( role , Item_Traget , Num ) else SystemNotice(role , "Fairy is full" ) UseItemFailed ( role ) return end end end --------------------------------------------------------Shaitan Biscuit function ItemUse_LS_mibing ( role , Item , Item_Traget ) local Cha_Boat = 0 Cha_Boat = GetCtrlBoat ( role ) SystemNotice( role , Cha_Boat ) if Cha_Boat ~= nil then SystemNotice( role , "Cannot use while sailing" )

--

end

UseItemFailed ( role ) return local local local local local local local local Item_type = GetItemType ( Item ) Item_Traget_Type = GetItemType ( Item_Traget ) Item_Num = GetItemID ( Item ) Check_Exp = 0 Elf_MaxEXP = GetItemAttr(Item_Traget,ITEMATTR_MAXENERGY) Item_Target_ID = GetItemID ( Item_Traget ) Pet_Slot = GetChaItem ( role , 2 , 1 ) Pet_ID = GetItemID ( Pet_Slot )

if Item_Target_ID ~= Pet_ID then SystemNotice(role , "Pet Must be in The Pet Slot" ) UseItemFailed ( role ) return end local ItemID = GetItemID ( Item_Traget ) if ItemID == 7125 or ItemID == 7126 then -- Angela and Angela jr SystemNotice(role , "Cannot feed this fruit to this fair UseItemFailed ( role ) return

ids y" )

end

if Item_type == 58 and Item_Traget_Type == 59 then Check_Exp = CheckElf_EXP ( role , Item_Traget ) --Checks fairy Exp if Check_Exp == 0 then SystemNotice(role , "Growth rate is not full. Unable to feed pet with Shaitan Biscuit" ) UseItemFailed ( role ) else Lvup_Sta ( role , Item_Num , Item_Traget ) -Lvs up the fairy end --local Item_MAXENERGY = Elf_MaxEXP + 20 --SetItemAttr ( Item_Traget , ITEMATTR_MAXENERGY , Item_MAXENERGY ) end end

----------------------------------------------------------------Argent Mango function ItemUse_LS_guopu ( role , Item , Item_Traget ) local Cha_Boat = 0 Cha_Boat = GetCtrlBoat ( role ) SystemNotice( role , Cha_Boat ) if Cha_Boat ~= nil then SystemNotice( role , "Cannot use while sailing" ) UseItemFailed ( role ) return end local Item_type = GetItemType ( Item ) local Item_Traget_Type = GetItemType ( Item_Traget ) local Item_Num = GetItemID ( Item )

--

local local local local local

Check_Exp = 0 Elf_MaxEXP = GetItemAttr(Item_Traget,ITEMATTR_MAXENERGY) Item_Target_ID = GetItemID ( Item_Traget ) Pet_Slot = GetChaItem ( role , 2 , 1 ) Pet_ID = GetItemID ( Pet_Slot )

if Item_Target_ID ~= Pet_ID then SystemNotice(role , "Pet Must be in The Pet Slot" ) UseItemFailed ( role ) return end local ItemID = GetItemID ( Item_Traget ) if ItemID == 7125 or ItemID == 7126 then -- Angela and Angela jr SystemNotice(role , "Cannot feed this fruit to this fair UseItemFailed ( role ) return

ids y" )

end

--checks exp

if Item_type == 58 and Item_Traget_Type == 59 then Check_Exp = CheckElf_EXP ( role , Item_Traget )

if Check_Exp == 0 then SystemNotice(role , "Growth rate is not full. Unable to feed pet with Argent Mango" ) UseItemFailed ( role ) else Lvup_Con ( role , Item_Num , Item_Traget ) -Lvs up the fairy end end end ------------------------------------------------------------Zephyr Fish Floss function ItemUse_LS_yusi ( role , Item , Item_Traget ) local Cha_Boat = 0 Cha_Boat = GetCtrlBoat ( role ) SystemNotice( role , Cha_Boat ) if Cha_Boat ~= nil then SystemNotice( role , "Cannot use while sailing" ) UseItemFailed ( role ) return end local Item_type = GetItemType ( Item ) local Item_Traget_Type = GetItemType ( Item_Traget ) local Item_Num = GetItemID ( Item ) local Check_Exp = 0 local Elf_MaxEXP = GetItemAttr(Item_Traget,ITEMATTR_MAXENERGY) local Item_Target_ID = GetItemID ( Item_Traget ) local Pet_Slot = GetChaItem ( role , 2 , 1 ) local Pet_ID = GetItemID ( Pet_Slot ) if Item_Target_ID ~= Pet_ID then SystemNotice(role , "Pet Must be in The Pet Slot" ) UseItemFailed ( role ) return end

--

ids y" )

local ItemID = GetItemID ( Item_Traget ) if ItemID == 7125 or ItemID == 7126 then -- Angela and Angela jr SystemNotice(role , "Cannot feed this fruit to this fair UseItemFailed ( role ) return

end

--Checks Exp

if Item_type == 58 and Item_Traget_Type == 59 then Check_Exp = CheckElf_EXP ( role , Item_Traget )

if Check_Exp == 0 then SystemNotice(role , "Growth rate is not full. Unable to feed pet with Zephyr Fish Floss" ) UseItemFailed ( role ) else Lvup_Dex ( role , Item_Num , Item_Traget ) -Lvs up the fairy end end end -----------------------------------------------------------Icespire Plum function ItemUse_LS_koumei ( role , Item , Item_Traget ) local Cha_Boat = 0 Cha_Boat = GetCtrlBoat ( role ) SystemNotice( role , Cha_Boat ) if Cha_Boat ~= nil then SystemNotice( role , "Cannot use while sailing" ) UseItemFailed ( role ) return end local Item_type = GetItemType ( Item ) local Item_Traget_Type = GetItemType ( Item_Traget ) local Item_Num = GetItemID ( Item ) local Check_Exp = 0 local Elf_MaxEXP = GetItemAttr(Item_Traget,ITEMATTR_MAXENERGY) local Item_Target_ID = GetItemID ( Item_Traget ) local Pet_Slot = GetChaItem ( role , 2 , 1 ) local Pet_ID = GetItemID ( Pet_Slot ) if Item_Target_ID ~= Pet_ID then SystemNotice(role , "Pet Must be in The Pet Slot" ) UseItemFailed ( role ) return end local ItemID = GetItemID ( Item_Traget ) if ItemID == 7125 or ItemID == 7126 then -- Angela and Angela jr SystemNotice(role , "Cannot feed this fruit to this fair UseItemFailed ( role ) return

--

ids y" )

end

if Item_type == 58 and Item_Traget_Type == 59 then

--Checks Exp

Check_Exp = CheckElf_EXP ( role , Item_Traget )

if Check_Exp == 0 then SystemNotice(role , "Growth rate is not full. Unable to feed pet with Icespire Plum" ) UseItemFailed ( role ) else Lvup_Agi ( role , Item_Num , Item_Traget ) -Lvs Up the fairy end end end --------------------------------------------------------Snow Dragon Fruit function ItemUse_LS_longguo ( role , Item , Item_Traget ) local Cha_Boat = 0 Cha_Boat = GetCtrlBoat ( role ) SystemNotice( role , Cha_Boat ) if Cha_Boat ~= nil then SystemNotice( role , "Cannot use while sailing" ) UseItemFailed ( role ) return end local Item_type = GetItemType ( Item ) local Item_Traget_Type = GetItemType ( Item_Traget ) local Item_Num = GetItemID ( Item ) local Check_Exp = 0 local Elf_MaxEXP = GetItemAttr(Item_Traget,ITEMATTR_MAXENERGY) --SystemNotice(role ,Elf_MaxEXP ) local Item_Target_ID = GetItemID ( Item_Traget ) local Pet_Slot = GetChaItem ( role , 2 , 1 ) local Pet_ID = GetItemID ( Pet_Slot ) if Item_Target_ID ~= Pet_ID then SystemNotice(role , "Pet Must be in The Pet Slot" ) UseItemFailed ( role ) return end local ItemID = GetItemID ( Item_Traget ) if ItemID == 7125 or ItemID == 7126 then -- Angela and Angela jr SystemNotice(role , "Cannot feed this fruit to this fair UseItemFailed ( role ) return

--

ids y" )

end

--Checks Exp

if Item_type == 58 and Item_Traget_Type == 59 then Check_Exp = CheckElf_EXP ( role , Item_Traget )

if Check_Exp == 0 then SystemNotice(role , "Growth rate is not full. Unable to feed pet with Snow Dragon Fruit" ) UseItemFailed ( role ) else Lvup_Str ( role , Item_Num , Item_Traget ) -Lvs Up the Fairy

end

end

end

----------------------------------------------------Great Shaitan Biscuit function ItemUse_CJ_mibing ( role , Item , Item_Traget ) local Cha_Boat = 0 Cha_Boat = GetCtrlBoat ( role ) SystemNotice( role , Cha_Boat ) if Cha_Boat ~= nil then SystemNotice( role , "Cannot use while sailing" ) UseItemFailed ( role ) return end local Item_type = GetItemType ( Item ) local Item_Traget_Type = GetItemType ( Item_Traget ) local Item_Num = GetItemID ( Item ) local Check_Exp = 0 local Elf_MaxEXP = GetItemAttr(Item_Traget,ITEMATTR_MAXENERGY) local Item_Target_ID = GetItemID ( Item_Traget ) local Pet_Slot = GetChaItem ( role , 2 , 1 ) local Pet_ID = GetItemID ( Pet_Slot ) if Item_Target_ID ~= Pet_ID then SystemNotice(role , "Pet Must be in The Pet Slot" ) UseItemFailed ( role ) return end local ItemID = GetItemID ( Item_Traget ) if ItemID == 7125 or ItemID == 7126 then -- Angela and Angela jr ids SystemNotice(role , "Cannot feed this fruit to this fairy" ) UseItemFailed ( role ) return end if Item_type == 58 and Item_Traget_Type == 59 then Check_Exp = CheckElf_EXP ( role , Item_Traget ) --Checks

--

if Check_Exp == 0 then SystemNotice(role , "Growth rate is not full. Un able to feed pet with Great Shaitan Biscuit" ) UseItemFailed ( role ) else Lvup_Sta_1 ( role , Item_Num , Item_Traget ) --Lvs up the fairy by 2 end --local Item_MAXENERGY = Elf_MaxEXP + 20 --SetItemAttr ( Item_Traget , ITEMATTR_MAXENERGY , Item_ MAXENERGY ) end end ---------------------------------------------------Great Argent Mango function ItemUse_CJ_guopu ( role , Item , Item_Traget ) local Cha_Boat = 0 Cha_Boat = GetCtrlBoat ( role )

Exp

--

SystemNotice( role , Cha_Boat ) if Cha_Boat ~= nil then SystemNotice( role , "Cannot use while sailing" ) UseItemFailed ( role ) return end local Item_type = GetItemType ( Item ) local Item_Traget_Type = GetItemType ( Item_Traget ) local Item_Num = GetItemID ( Item ) local Check_Exp = 0 local Elf_MaxEXP = GetItemAttr(Item_Traget,ITEMATTR_MAXENERGY) local Item_Target_ID = GetItemID ( Item_Traget ) local Pet_Slot = GetChaItem ( role , 2 , 1 ) local Pet_ID = GetItemID ( Pet_Slot ) if Item_Target_ID ~= Pet_ID then SystemNotice(role , "Pet Must be in The Pet Slot" ) UseItemFailed ( role ) return end local ItemID = GetItemID ( Item_Traget ) if ItemID == 7125 or ItemID == 7126 then -- Angela and Angela jr ids SystemNotice(role , "Cannot feed this fruit to this fairy" ) UseItemFailed ( role ) return end if Item_type == 58 and Item_Traget_Type == 59 then Check_Exp = CheckElf_EXP ( role , Item_Traget ) --Checks

if Check_Exp == 0 then SystemNotice(role , "Growth rate is not full. Un able to feed pet with Great Argent Mango" ) UseItemFailed ( role ) else Lvup_Con_1 ( role , Item_Num , Item_Traget ) --Lvs th e Fairy by 2 end end end ------------------------------------------------------------Great Zephyr Fish Fl oss function ItemUse_CJ_yusi ( role , Item , Item_Traget ) local Cha_Boat = 0 Cha_Boat = GetCtrlBoat ( role ) SystemNotice( role , Cha_Boat ) if Cha_Boat ~= nil then SystemNotice( role , "Cannot use while sailing" ) UseItemFailed ( role ) return end local Item_type = GetItemType ( Item ) local Item_Traget_Type = GetItemType ( Item_Traget ) local Item_Num = GetItemID ( Item ) local Check_Exp = 0 local Elf_MaxEXP = GetItemAttr(Item_Traget,ITEMATTR_MAXENERGY)

exp

--

local Item_Target_ID = GetItemID ( Item_Traget ) local Pet_Slot = GetChaItem ( role , 2 , 1 ) local Pet_ID = GetItemID ( Pet_Slot ) if Item_Target_ID ~= Pet_ID then SystemNotice(role , "Pet Must be in The Pet Slot" ) UseItemFailed ( role ) return end local ItemID = GetItemID ( Item_Traget ) if ItemID == 7125 or ItemID == 7126 then -- Angela and Angela jr ids SystemNotice(role , "Cannot feed this fruit to this fairy" ) UseItemFailed ( role ) return end if Item_type == 58 and Item_Traget_Type == 59 then Check_Exp = CheckElf_EXP ( role , Item_Traget ) --Checks

if Check_Exp == 0 then SystemNotice(role , "Growth rate is not full. Un able to feed pet with Great Zephyr Fish Floss" ) UseItemFailed ( role ) else Lvup_Dex_1 ( role , Item_Num , Item_Traget ) --Lvs up the Fairy by 2 end end end ------------------------------------------------------------------Great Icespire Plum function ItemUse_CJ_koumei ( role , Item , Item_Traget ) local Cha_Boat = 0 Cha_Boat = GetCtrlBoat ( role ) -SystemNotice( role , Cha_Boat ) if Cha_Boat ~= nil then SystemNotice( role , "Cannot use while sailing" ) UseItemFailed ( role ) return end local Item_type = GetItemType ( Item ) local Item_Traget_Type = GetItemType ( Item_Traget ) local Item_Num = GetItemID ( Item ) local Check_Exp = 0 local Elf_MaxEXP = GetItemAttr(Item_Traget,ITEMATTR_MAXENERGY) local Item_Target_ID = GetItemID ( Item_Traget ) local Pet_Slot = GetChaItem ( role , 2 , 1 ) local Pet_ID = GetItemID ( Pet_Slot ) if Item_Target_ID ~= Pet_ID then SystemNotice(role , "Pet Must be in The Pet Slot" ) UseItemFailed ( role ) return end local ItemID = GetItemID ( Item_Traget ) if ItemID == 7125 or ItemID == 7126 then -- Angela and Angela jr ids

Exp

end

SystemNotice(role , "Cannot feed this fruit to this fairy" ) UseItemFailed ( role ) return

if Check_Exp == 0 then SystemNotice(role , "Growth rate is not full. Un able to feed pet with Great Icespire Plum" ) UseItemFailed ( role ) else Lvup_Agi_1 ( role , Item_Num , Item_Traget ) --Lvs up the Fairy by 2 end end end -------------------------------------------------------------Great Snow Dragon F ruit function ItemUse_CJ_longguo( role , Item , Item_Traget ) local Cha_Boat = 0 Cha_Boat = GetCtrlBoat ( role ) -SystemNotice( role , Cha_Boat ) if Cha_Boat ~= nil then SystemNotice( role , "Cannot use while sailing" ) UseItemFailed ( role ) return end local Item_type = GetItemType ( Item ) local Item_Traget_Type = GetItemType ( Item_Traget ) local Item_Num = GetItemID ( Item ) local Check_Exp = 0 local Elf_MaxEXP = GetItemAttr(Item_Traget,ITEMATTR_MAXENERGY) --SystemNotice(role ,Elf_MaxEXP ) local Item_Target_ID = GetItemID ( Item_Traget ) local Pet_Slot = GetChaItem ( role , 2 , 1 ) local Pet_ID = GetItemID ( Pet_Slot ) if Item_Target_ID ~= Pet_ID then SystemNotice(role , "Pet Must be in The Pet Slot" ) UseItemFailed ( role ) return end local ItemID = GetItemID ( Item_Traget ) if ItemID == 7125 or ItemID == 7126 then -- Angela and Angela jr ids SystemNotice(role , "Cannot feed this fruit to this fairy" ) UseItemFailed ( role ) return end if Item_type == 58 and Item_Traget_Type == 59 then Check_Exp = CheckElf_EXP ( role , Item_Traget ) --Checks

Exp

if Item_type == 58 and Item_Traget_Type == 59 then Check_Exp = CheckElf_EXP ( role , Item_Traget ) --Checks

if Check_Exp == 0 then SystemNotice(role , "Growth rate is not full. Un able to feed pet with Great Snow Dragon Fruit" )

Exp

e Fairy by 2 end end

UseItemFailed ( role ) else Lvup_Str_1 ( role , Item_Num , Item_Traget ) --Lvs up th end

SkillEffect.lua edited Fairy Body ----------------------------Fairy Body in SkillEffect.lua edit----------------------------------function SkillCooldown_JLFT( sklv ) local Cooldown = 180000 return Cooldown end function SkillSp_JLFT ( sklv ) --"Fairy body"sp local sp_reduce = 20 return sp_reduce end function Skill_JLFT_BEGIN( role , sklv ) --SystemNotice ( role , "Skill_JLFT_BEGIN" ) local item_elf = GetChaItem(role , 2, 1) --2 local item_elf_type = GetItemType ( item_elf ) --2 local item_elf_maxhp = GetItemAttr(item_elf,ITEMATTR_MAXURE) --hp local item_elf_hp = GetItemAttr(item_elf,ITEMATTR_URE) --hp local role_hp = GetChaAttr(role, ATTR_HP) local role_mxhp = GetChaAttr(role, ATTR_MXHP) local Num_JL = GetItemForgeParam ( item_elf , 1 ) local Part1 = GetNum_Part1 ( Num_JL ) --Get Num Part 1 Part 7 --SystemNotice ( role , "item_elf_type=="..item_elf_type ) --SystemNotice ( role , "item_elf_hp=="..item_elf_hp ) --SystemNotice ( role , "Part1=="..Part1 ) if item_elf_type ~= 59 then --or Part1~=1 then SkillUnable(role) SystemNotice ( role , "Current skill is only available if the ne w generation of pet is equipped!" ) return end local str = GetItemAttr( item_elf ,ITEMATTR_VAL_STR ) -- local con = GetItemAttr( item_elf ,ITEMATTR_VAL_CON ) --- local agi = GetItemAttr( item_elf ,ITEMATTR_VAL_AGI ) -- local dex = GetItemAttr( item_elf ,ITEMATTR_VAL_DEX ) -- local sta = GetItemAttr( item_elf ,ITEMATTR_VAL_STA ) -- local lv_JL = str + con + agi + dex + sta ---- if item_elf_hp<5000 then SkillUnable(role) SystemNotice ( role , "Fairy needs to have at least 100 stamina to activate this skill!" ) return end item_elf_hp=item_elf_hp-(6*lv_JL/sklv)*50 SetItemAttr ( item_elf , ITEMATTR_URE , item_elf_hp ) end

function Skill_JLFT_End ( ATKER , DEFER , sklv ) local statelv = sklv local statetime = 190 - sklv * 10 local item_elf = GetChaItem(ATKER , 2, 1) local item_elf_type = GetItemType ( item_elf ) local Item_ID = GetItemID ( item_elf ) --ID --SystemNotice ( ATKER , "Item_ID=="..Item_ID )

--2 --2

if Item_ID==231 then------ --SystemNotice ( ATKER , "Fairy of Luck=="..Item_ID ) AddState( ATKER , ATKER , STATE_JLFT1, statelv , statetime ) elseif Item_ID==232 then--------- --SystemNotice ( ATKER , "Item_ID=="..Item_ID ) AddState( ATKER , ATKER , STATE_JLFT2, statelv , statetime ) elseif Item_ID==233 then--------- --SystemNotice ( ATKER , "Fairy of Strength=="..Item_ID AddState( ATKER , ATKER , STATE_JLFT3, statelv , statetime ) elseif Item_ID==234 then--------- --SystemNotice ( ATKER , "Fairy of Spirit=="..Item_ID ) AddState( ATKER , ATKER , STATE_JLFT4, statelv , statetime ) elseif Item_ID==235 then--------- --SystemNotice ( ATKER , "Fairy of Accuracy=="..Item_ID AddState( ATKER , ATKER , STATE_JLFT5, statelv , statetime ) elseif Item_ID==236 then--------- --SystemNotice ( ATKER , "Fairy of Agility=="..Item_ID ) AddState( ATKER , ATKER , STATE_JLFT6, statelv , statetime ) elseif Item_ID==237 then--------- --SystemNotice ( ATKER , "Fairy of Evil=="..Item_ID ) AddState( ATKER , ATKER , STATE_JLFT7, statelv , statetime ) elseif Item_ID==681 then--------- --SystemNotice ( ATKER , "Mor 2="..Item_ID ) AddState( ATKER , ATKER , STATE_JLFT8, statelv , statetime ) elseif Item_ID==7126 then --angela jr id --SystemNotice ( ATKER , "Angela Junior ="..Item_ID ) AddState( ATKER , ATKER , STATE_JLFT8, statelv , statetime ) end

end function State_JLFT_Add ( role , sklv ) local Item_bg = GetChaItem ( role , 2 , 1 ) -- local Get_Item_Type = GetItemType ( Item_bg ) --Item --SystemNotice ( role , "Get_Item_Type=="..Get_Item_Type ) if Get_Item_Type==59 then --------100 local Item_ID = GetItemID ( Item_bg ) --ID local str = GetItemAttr( Item_bg ,ITEMATTR_VAL_STR ) local con = GetItemAttr( Item_bg ,ITEMATTR_VAL_CON ) local agi = GetItemAttr( Item_bg ,ITEMATTR_VAL_AGI )

--

---

-- -- -- -- --

local dex = GetItemAttr( Item_bg ,ITEMATTR_VAL_DEX ) local sta = GetItemAttr( Item_bg ,ITEMATTR_VAL_STA ) local URE = GetItemAttr( Item_bg ,ITEMATTR_URE ) local MAXURE = GetItemAttr( Item_bg ,ITEMATTR_MAXURE ) local lv_JL = str + con + agi + dex + sta ---- local Num_JL = GetItemForgeParam ( Item_bg , 1 ) local Part1 = 1 --GetNum_Part1 ( Num_JL ) --Get Num Part 1 local Part2 = GetNum_Part2 ( Num_JL ) local Part3 = GetNum_Part3 ( Num_JL ) local Part4 = GetNum_Part4 ( Num_JL ) local Part5 = GetNum_Part5 ( Num_JL ) local Part6 = GetNum_Part6 ( Num_JL ) local Part7 = GetNum_Part7 ( Num_JL) --SystemNotice ( role , "State_JLFT_Add_URE=="..URE ) --SystemNotice ( role , "State_JLFT_Add_Part1=="..Part1 ) if Part1 ==1 then ------ local star=0 local statelv=lv_JL*0.025*(sklv+1)*0.05 ----lv*1/40*(ski if Item_ID ==232 then ------------- --local star = GetChaAttr( role , ATTR_BSTR )*st local star = lv_JL SetCharaAttr(star ,role , ATTR_STATEV_STR)

Part 7

lllv+1)/2*0.1 atelv

atelv

end if Item_ID ==233 then ------------- --local star = GetChaAttr( role , ATTR_BCON )*st local star = lv_JL SetCharaAttr(star ,role , ATTR_STATEV_CON)

atelv

end if Item_ID ==234 then ------------- --local star = GetChaAttr( role , ATTR_BSTA )*st local star = lv_JL SetCharaAttr(star ,role , ATTR_STATEV_STA)

atelv

end if Item_ID ==235 then ------------- --local star = GetChaAttr( role , ATTR_BDEX )*st local star = lv_JL SetCharaAttr(star ,role , ATTR_STATEV_DEX)

atelv

end if Item_ID ==236 then ------------- --local star = GetChaAttr( role , ATTR_BAGI )*st local star = lv_JL SetCharaAttr(star ,role , ATTR_STATEV_AGI)

end --if Item_ID ==237 then ------------- --end if Item_ID ==231 or Item_ID ==681 then ------------- --local star = lv_JL local star1 = GetChaAttr( role , ATTR_BMF )

*0.02 "..star1 ) t as "..star2 )

local star = GetChaAttr( role , ATTR_BMF )*lv_JL local star2=star+star1 --SystemNotice ( role , "Character current MF is --SystemNotice ( role , "Character current MF se SetCharaAttr(star ,role , ATTR_STATEV_MF) end if Item_ID ==681 then ------------- if str~=nil and str~=0 then SetCharaAttr(str ,role , ATTR_STATEV_STR end if con~=nil and con~=0 then SetCharaAttr(con ,role , ATTR_STATEV_CON end if sta~=nil and sta~=0 then SetCharaAttr(sta ,role , ATTR_STATEV_STA end if dex~=nil and dex~=0 then SetCharaAttr(dex ,role , ATTR_STATEV_DEX end if agi~=nil and agi~=0 then SetCharaAttr(agi ,role , ATTR_STATEV_AG end end if Item_ID == 7126 then --angela jr id if str~=nil and str~=0 then local star = str*1.2 SetCharaAttr(star ,role , ATTR_STATEV_ST end if con~=nil and con~=0 then local star = con*1.2 SetCharaAttr(star ,role , ATTR_STATEV_CO end if sta~=nil and sta~=0 then local star = sta*1.2 SetCharaAttr(star ,role , ATTR_STATEV_ST end if dex~=nil and dex~=0 then local star = dex*1.2 SetCharaAttr(star ,role , ATTR_STATEV_DE end if agi~=nil and agi~=0 then local star = agi*1.2 SetCharaAttr(star ,role , ATTR_STATEV_A end local star = GetChaAttr( role, ATTR_BMF ) * lv_J local star2 = GetChaAttr( role, ATTR_BMF )

I)

R)

N)

A)

X)

GI) L * 0.02

"..star2 ) t as "..star1 ) --) + 3

--SystemNotice ( role , "Character current MF is --SystemNotice ( role , "Character current MF se SetCharaAttr(star ,role local star = GetChaAttr( SetCharaAttr(star ,role local star = GetChaAttr( , ATTR_BMF) role, ATTR_LUK ) * 2.5 , ATTR_LUK) role, ATTR_STATEV_PDEF

end

end ALLExAttrSet(role)

end --SetItemAttr ( Item_bg , ITEMATTR_URE , URE )

SetCharaAttr(star ,role , ATTR_STATEV_PDEF) end --URE=URE-4500

function State_JLFT_Rem ( role SetCharaAttr(0 ,role , SetCharaAttr(0 ,role , SetCharaAttr(0 ,role , SetCharaAttr(0 ,role , SetCharaAttr(0 ,role , SetCharaAttr(0 ,role , SetCharaAttr(0 ,role , ALLExAttrSet(role) end

, sklv ) ATTR_STATEV_STR) ATTR_STATEV_CON) ATTR_STATEV_STA) ATTR_STATEV_DEX) ATTR_STATEV_AGI) ATTR_STATEV_MF) ATTR_STATEV_PDEF)

Add these to ItemEffect.lua for improved fruits -------------------------------------------------improved fruits add or edit in ItemEffect.lua function ItemUse_Great_Strup ( role , Item , Item_Traget ) --Improved Stren ght Fruit by Lawliet for serverdev.net local ret = CheckJingLingLv2( role , Item_Traget ) if ret == 0 then SystemNotice ( role , "Fairy Lv lower than 42. Unable to use Imp roved Strenght Fruit") UseItemFailed ( role ) return end local Cha_Boat = 0 Cha_Boat = GetCtrlBoat ( role ) -SystemNotice( role , Cha_Boat ) if Cha_Boat ~= nil then SystemNotice( role , "Cannot use while sailing" ) UseItemFailed ( role ) return end local Item_type = GetItemType ( Item ) local Item_Traget_Type = GetItemType ( Item_Traget ) local Item_Num = GetItemID ( Item ) local Check_Exp = 0 local Elf_MaxEXP = GetItemAttr(Item_Traget,ITEMATTR_MAXENERGY) --SystemNotice(role ,Elf_MaxEXP ) local Item_Target_ID = GetItemID ( Item_Traget ) local Pet_Slot = GetChaItem ( role , 2 , 1 ) local Pet_ID = GetItemID ( Pet_Slot ) if Item_Target_ID ~= Pet_ID then

end --------------------------------------------------------------------------------------------------------------------local Item_bg = GetChaItem ( role , 2 , 1 ) --Improved Stren ght Fruit by Lawliet for serverdev.net --------------------------------------------------------------------------------------------------------------------if Item_type == 58 and Item_Traget_Type == 59 then Check_Exp = CheckElf_EXP ( role , Item_Traget ) --??exp? ??????? if Check_Exp == 0 then SystemNotice(role , "Growth rate is not full. Un able to feed pet with Improved Strenght Fruit" ) UseItemFailed ( role ) else Lvup_Str_1 ( role , Item_Num , Item_Traget ) --????????? end end end function ItemUse_Great_Agiup ( role , Item , Item_Traget ) ty Fruit by Lawliet for serverdev.net local ret = CheckJingLingLv2( role , Item_Traget ) --Improved Agili

SystemNotice(role , "Pet Must be in The Pet Slot" ) UseItemFailed ( role ) return

if ret == 0 then SystemNotice ( role , "Fairy Lv lower than 42. Unable to use Imp roved Agility Fruit") UseItemFailed ( role ) return end local Cha_Boat = 0 Cha_Boat = GetCtrlBoat ( role ) -SystemNotice( role , Cha_Boat ) if Cha_Boat ~= nil then SystemNotice( role , "Cannot use while sailing" ) UseItemFailed ( role ) return end local Item_type = GetItemType ( Item ) local Item_Traget_Type = GetItemType ( Item_Traget ) local Item_Num = GetItemID ( Item ) local Check_Exp = 0 local Elf_MaxEXP = GetItemAttr(Item_Traget,ITEMATTR_MAXENERGY) --SystemNotice(role ,Elf_MaxEXP ) local Item_Target_ID = GetItemID ( Item_Traget ) local Pet_Slot = GetChaItem ( role , 2 , 1 ) local Pet_ID = GetItemID ( Pet_Slot ) if Item_Target_ID ~= Pet_ID then SystemNotice(role , "Pet Must be in The Pet Slot" ) UseItemFailed ( role ) return end --------------------------------------------------------------------------------------------------------------------local Item_bg = GetChaItem ( role , 2 , 1 ) --Improved Agili ty Fruit by Lawliet for serverdev.net

--------------------------------------------------------------------------------------------------------------------if Item_type == 58 and Item_Traget_Type == 59 then Check_Exp = CheckElf_EXP ( role , Item_Traget ) --??exp? ??????? if Check_Exp == 0 then SystemNotice(role , "Growth rate is not full. Un able to feed pet with Improved Agility Fruit" ) UseItemFailed ( role ) else Lvup_Agi_1 ( role , Item_Num , Item_Traget ) --????????? end end end function ItemUse_Great_Dexup ( role , Item , Item_Traget ) rancy Fruit by Lawliet for serverdev.net local ret = CheckJingLingLv2( role , Item_Traget ) --Improved Accua

if ret == 0 then SystemNotice ( role , "Fairy Lv lower than 42. Unable to use Imp roved Accuracy Fruit") UseItemFailed ( role ) return end local Cha_Boat = 0 Cha_Boat = GetCtrlBoat ( role ) -SystemNotice( role , Cha_Boat ) if Cha_Boat ~= nil then SystemNotice( role , "Cannot use while sailing" ) UseItemFailed ( role ) return end local Item_type = GetItemType ( Item ) local Item_Traget_Type = GetItemType ( Item_Traget ) local Item_Num = GetItemID ( Item ) local Check_Exp = 0 local Elf_MaxEXP = GetItemAttr(Item_Traget,ITEMATTR_MAXENERGY) --SystemNotice(role ,Elf_MaxEXP ) local Item_Target_ID = GetItemID ( Item_Traget ) local Pet_Slot = GetChaItem ( role , 2 , 1 ) local Pet_ID = GetItemID ( Pet_Slot ) if Item_Target_ID ~= Pet_ID then SystemNotice(role , "Pet Must be in The Pet Slot" ) UseItemFailed ( role ) return end --------------------------------------------------------------------------------------------------------------------local Item_bg = GetChaItem ( role , 2 , 1 ) --Improved Accua rancy Fruit by Lawliet for serverdev.net --------------------------------------------------------------------------------------------------------------------if Item_type == 58 and Item_Traget_Type == 59 then Check_Exp = CheckElf_EXP ( role , Item_Traget ) --??exp? ??????? if Check_Exp == 0 then SystemNotice(role , "Growth rate is not full. Un

able to feed pet with Improved Accuracy Fruit" ) UseItemFailed ( role ) else Lvup_Dex_1 ( role , Item_Num , Item_Traget ) --????????? end end end function ItemUse_Great_Conup ( role , Item , Item_Traget ) itution Fruit by Lawliet for serverdev.net local ret = CheckJingLingLv2( role , Item_Traget ) --Improved Const

if ret == 0 then SystemNotice ( role , "Fairy Lv lower than 42. Unable to use Imp roved Constitution Fruit") UseItemFailed ( role ) return end local Cha_Boat = 0 Cha_Boat = GetCtrlBoat ( role ) -SystemNotice( role , Cha_Boat ) if Cha_Boat ~= nil then SystemNotice( role , "Cannot use while sailing" ) UseItemFailed ( role ) return end local Item_type = GetItemType ( Item ) local Item_Traget_Type = GetItemType ( Item_Traget ) local Item_Num = GetItemID ( Item ) local Check_Exp = 0 local Elf_MaxEXP = GetItemAttr(Item_Traget,ITEMATTR_MAXENERGY) --SystemNotice(role ,Elf_MaxEXP ) local Item_Target_ID = GetItemID ( Item_Traget ) local Pet_Slot = GetChaItem ( role , 2 , 1 ) local Pet_ID = GetItemID ( Pet_Slot ) if Item_Target_ID ~= Pet_ID then SystemNotice(role , "Pet Must be in The Pet Slot" ) UseItemFailed ( role ) return end --------------------------------------------------------------------------------------------------------------------local Item_bg = GetChaItem ( role , 2 , 1 ) --Improved Const itution Fruit by Lawliet for serverdev.net --------------------------------------------------------------------------------------------------------------------if Item_type == 58 and Item_Traget_Type == 59 then Check_Exp = CheckElf_EXP ( role , Item_Traget ) --??exp? ??????? if Check_Exp == 0 then SystemNotice(role , "Growth rate is not full. Un able to feed pet with Improved Constitution Fruit" ) UseItemFailed ( role ) else Lvup_Con_1 ( role , Item_Num , Item_Traget ) --????????? end end end

function ItemUse_Great_Staup ( role , Item , Item_Traget ) t Fruit by Lawliet for serverdev.net local ret = CheckJingLingLv2( role , Item_Traget )

--Improved Spiri

if ret == 0 then SystemNotice ( role , "Fairy Lv lower than 42. Unable to use Imp roved Spirit Fruit") UseItemFailed ( role ) return end local Cha_Boat = 0 Cha_Boat = GetCtrlBoat ( role ) -SystemNotice( role , Cha_Boat ) if Cha_Boat ~= nil then SystemNotice( role , "Cannot use while sailing" ) UseItemFailed ( role ) return end local Item_type = GetItemType ( Item ) local Item_Traget_Type = GetItemType ( Item_Traget ) local Item_Num = GetItemID ( Item ) local Check_Exp = 0 local Elf_MaxEXP = GetItemAttr(Item_Traget,ITEMATTR_MAXENERGY) --SystemNotice(role ,Elf_MaxEXP ) local Item_Target_ID = GetItemID ( Item_Traget ) local Pet_Slot = GetChaItem ( role , 2 , 1 ) local Pet_ID = GetItemID ( Pet_Slot ) if Item_Target_ID ~= Pet_ID then SystemNotice(role , "Pet Must be in The Pet Slot" ) UseItemFailed ( role ) return end --------------------------------------------------------------------------------------------------------------------local Item_bg = GetChaItem ( role , 2 , 1 ) --Improved Spiri t Fruit by Lawliet for serverdev.net --------------------------------------------------------------------------------------------------------------------if Item_type == 58 and Item_Traget_Type == 59 then Check_Exp = CheckElf_EXP ( role , Item_Traget ) --??exp? ??????? if Check_Exp == 0 then SystemNotice(role , "Growth rate is not full. Un able to feed pet with Improved Spirit Fruit" ) UseItemFailed ( role ) else Lvup_Sta_1 ( role , Item_Num , Item_Traget ) --????????? end end end Add This in function.lua function CheckJingLingLv2 ( role , Item_Traget) local ItemID = GetItemID ( Item_Traget ) local str_Traget = GetItemAttr( Item_Traget ,ITEMATTR_VAL_STR ) --Strenght local con_Traget = GetItemAttr( Item_Traget ,ITEMATTR_VAL_CON )

--Constitution local agi_Traget = GetItemAttr( Item_Traget --Agility local dex_Traget = GetItemAttr( Item_Traget --Accuarancy local sta_Traget = GetItemAttr( Item_Traget --Spirit local lv_Traget = str_Traget + con_Traget + get + sta_Traget --Stat to add for a lv ids

,ITEMATTR_VAL_AGI ) ,ITEMATTR_VAL_DEX ) ,ITEMATTR_VAL_STA ) agi_Traget + dex_Tra

if ItemID == 7125 or ItemID == 7126 then -- Angela and Angela jr return 1 end if lv_Traget <= 42 then return 0 else return 1 end

end

find this in exp_and_level.lua if Item_ID==237 and StateLv1~=0 then flag=1 end if Item_ID==681 and StateLv2~=0 then flag=1 end and edit it to this if Item_ID==237 and StateLv1~=0 then flag=1 end if Item_ID==681 and StateLv2~=0 then flag=1 end if Item_ID==7126 and StateLv2~=0 then --Angela j flag=2 end if flag==1 then if StateLv1 ~= 0 or StateLv2 ~= 0 then exp_up = exp_up*(lv_JL*0.02+1) end elseif flag==2 then if StateLv1 ~= 0 or StateLv2 ~= 0 then --SystemNotice ( role , "Charact exp_up = exp_up*2.5 --SystemNotice ( role , "Charact end end

r id

er Exp Rate was "..exp_up.." ") er Exp Rate is "..exp_up.." " )

in forge.lua edit this function jlborn_item ( Table ) all of it to function jlborn_item ( Table ) local role = 0

local ItemBag = {} -- local ItemCount = {} -- local ItemBagCount = {} -- local ItemBag_Num = 0 local ItemCount_Num = 0 local ItemBagCount_Num = 0 local ItemID_Cuihuaji = 0 role , ItemBag , ItemCount , ItemBagCount , ItemBag_Num , ItemCount_Num , ItemBagCount_Num = Read_Table ( Table ) --- local Item_EMstone = GetChaItem ( role , 2 , ItemBag [0] ) -- local Item_JLone = GetChaItem ( role , 2 , ItemBag [1] ) -- local Item_JLother = GetChaItem ( role , 2 , ItemBag [2] ) -- local Item_EMstone_ID = GetItemID ( Item_EMstone ) -- ID local Item_JLone_ID = GetItemID ( Item_JLone ) --ID local Item_JLother_ID = GetItemID ( Item_JLother ) --ID --- local str_JLone = GetItemAttr( Item_JLone ,ITEMATTR_VAL_STR ) -- local con_JLone = GetItemAttr( Item_JLone ,ITEMATTR_VAL_CON ) --- local agi_JLone = GetItemAttr( Item_JLone ,ITEMATTR_VAL_AGI ) -- local dex_JLone = GetItemAttr( Item_JLone ,ITEMATTR_VAL_DEX ) -- local sta_JLone = GetItemAttr( Item_JLone ,ITEMATTR_VAL_STA ) -- local URE_JLone = GetItemAttr( Item_JLone ,ITEMATTR_URE ) -- local MAXURE_JLone = GetItemAttr( Item_JLone ,ITEMATTR_MAXURE ) -- local lv_JLone = str_JLone + con_JLone + agi_JLone + dex_JLone + sta_JLo ne ---- --- local str_JLother = GetItemAttr( Item_JLother ,ITEMATTR_VAL_STR ) -- local con_JLother = GetItemAttr( Item_JLother ,ITEMATTR_VAL_CON ) -- local agi_JLother = GetItemAttr( Item_JLother ,ITEMATTR_VAL_AGI ) -- local dex_JLother = GetItemAttr( Item_JLother ,ITEMATTR_VAL_DEX ) -- local sta_JLother = GetItemAttr( Item_JLother ,ITEMATTR_VAL_STA ) -- local URE_JLother = GetItemAttr( Item_JLother ,ITEMATTR_URE ) -- local MAXURE_JLother = GetItemAttr( Item_JLother ,ITEMATTR_MAXURE ) -- local lv_JLother = str_JLother + con_JLother + agi_JLother + dex_JLother + sta_JLother ---- ----7

local Num_JLone = GetItemForgeParam ( Item_JLone , 1 ) local Part1_JLone = GetNum_Part1 ( Num_JLone ) --Get Num Part 1 Part 7 local Part2_JLone = GetNum_Part2 ( Num_JLone ) local Part3_JLone = GetNum_Part3 ( Num_JLone ) local Part4_JLone = GetNum_Part4 ( Num_JLone ) local Part5_JLone = GetNum_Part5 ( Num_JLone ) local Part6_JLone = GetNum_Part6 ( Num_JLone ) local Part7_JLone= GetNum_Part7 ( Num_JLone ) ----7 local Num_JLother = GetItemForgeParam ( Item_JLother , 1 ) local Part1_JLother = GetNum_Part1 ( Num_JLother ) --Get Num Part 1 Part 7 local Part2_JLother = GetNum_Part2 ( Num_JLother ) local Part3_JLother = GetNum_Part3 ( Num_JLother ) local Part4_JLother = GetNum_Part4 ( Num_JLother ) local Part5_JLother = GetNum_Part5 ( Num_JLother ) local Part6_JLother = GetNum_Part6 ( Num_JLother ) local Part7_JLother= GetNum_Part7 ( Num_JLother ) ----- local new_str = math.floor ((str_JLone+str_JLother)*0.125 ) local new_con = math.floor ((con_JLone+con_JLother)*0.125 ) local new_agi = math.floor ((agi_JLone+agi_JLother)*0.125 ) local new_dex = math.floor ((dex_JLone+dex_JLother)*0.125 ) local new_sta = math.floor ((sta_JLone+sta_JLother)*0.125 ) local new_lv = new_str + new_con + new_agi + new_dex + new_sta local new_MAXENERGY = 240 * ( new_lv + 1 ) if new_MAXENERGY > 6480 then new_MAXENERGY = 6480 end local new_MAXURE = 5000 + 1000*new_lv if new_MAXURE > 32000 then new_MAXURE = 32000 end if new_MAXURE ==25000 then new_MAXURE = 25000+1 end -------- if Item_EMstone_ID ==3918 then --- local j1 = TakeItem( role, 0,4530, 10 ) --- local j2 = TakeItem( role, 0,3434, 10 ) ---- if j1==0 or j2==0 then SystemNotice ( role ,"Deletion of pet fairy reborn tools return end local rad = math.random ( 1, 100 ) local r1 = 0 local r2 = 0

failed")

if Item_JLone_ID ==680 and Item_JLother_ID ==7125 or Item_JLone_ ID ==7125 and Item_JLother_ID ==680 then if lv_JLone>=20 and lv_JLone<25 and lv_JLother >=20 and lv_JLother<25 and rad>=91 then --9% That you will have 70% to get Angela Jr local rad = math.random ( 1, 100) if rad > 70 then r1,r2 =MakeItem ( role , 681 , 1 , 4 ) else r1,r2 =MakeItem ( role , 7126 , 1 , 4 )

end elseif lv_JLone>=25 and lv_JLone<35 and lv_JLother >=25 and lv_JLother<35 and rad>=63 then --37% Chance That you will have 70% to g et Angela Jr local rad = math.random ( 1, 100) if rad > 70 then r1,r2 =MakeItem ( role , 681 , 1 , 4 ) else r1,r2 =MakeItem ( role , 7126 , 1 , 4 ) end elseif lv_JLone>=35 and lv_JLother >=35 and rad>=35 then --65% Chance That you will have 70% to get Angela Jr local rad = math.random ( 1, 100) if rad > 70 then r1,r2 =MakeItem ( role , 681 , 1 , 4 ) else r1,r2 =MakeItem ( role , 7126 , 1 , 4 ) end else r1,r2 =MakeItem ( role , 681 , 1 , 4 ) end elseif Item_JLone_ID ==680 or Item_JLother_ID ==680 then if Item_JLone_ID==Item_JLother_ID then r1,r2 =MakeItem ( role , 681 , 1 , 4 ) elseif lv_JLone>=20 and lv_JLone<25 and lv_JLother >=20 and lv_JLother<25 and rad>=88 then --12% Chance of Mordo JR r1,r2 =MakeItem ( role , 681 , 1 , 4 ) elseif lv_JLone>=25 and lv_JLone<35 and lv_JLother >=25 and lv_JLother<35 and rad>=50 then --50% Chance of Mordo JR r1,r2 =MakeItem ( role , 681 , 1 , 4 ) elseif lv_JLone>=35 and lv_JLother >=35 and rad>=10 then --90% Chance of Mordo JR r1,r2 =MakeItem ( role , 681 , 1 , 4 ) --Mordo JR end elseif Item_JLone_ID ==7125 or Item_JLother_ID ==7125 then if Item_JLone_ID==Item_JLother_ID then r1,r2 =MakeItem ( role , 7126 , 1 , 4 ) elseif lv_JLone>=20 and lv_JLone<25 and lv_JLother >=20 and lv_JLother<25 and rad>=94 then --6% Chance of Angela JR r1,r2 =MakeItem ( role , 7126 , 1 , 4 ) elseif lv_JLone>=25 and lv_JLone<35 and lv_JLother >=25 and lv_JLother<35 and rad>=75 then --25% Chance of Angela JR r1,r2 =MakeItem ( role , 7126 , 1 , 4 ) elseif lv_JLone>=35 and lv_JLother >=35 and rad>=60 then --40% Chance of Angela Jr r1,r2 =MakeItem ( role , 7126 , 1 , 4 ) --Angela Jr end else r1,r2 =MakeItem ( role , 231 , 1 , 4 ) --Fairy of Luck end local Item_newJL = GetChaItem ( role , 2 , r2 ) -- local Item_newJL_ID = GetItemID ( Item_newJL ) local Num_newJL = GetItemForgeParam ( Item_newJL , 1 ) local Part1_newJL = GetNum_Part1 ( Num_newJL ) --Get Num Part 1 Part 7 local Part2_newJL = GetNum_Part2 ( Num_newJL ) local Part3_newJL = GetNum_Part3 ( Num_newJL )

local Part4_newJL = GetNum_Part4 ( Num_newJL local Part5_newJL = GetNum_Part5 ( Num_newJL local Part6_newJL = GetNum_Part6 ( Num_newJL local Part7_newJL = GetNum_Part7 ( Num_newJL if lv_JLone>=20 and lv_JLother >=20 then Part2_newJL = 6 -- Part3_newJL = 1 --------- end if lv_JLone>=25 and lv_JLother >=25 then Part2_newJL = 6 -- Part3_newJL = 2 --------- end if lv_JLone>=35 and lv_JLother >=35 then Part2_newJL = 6 -- Part3_newJL = 3 --------- end local rad1 = math.random ( 1, 100 ) if Part3_newJL==3 then GiveItem ( role , 0 , 609 , 1 , 4 ) ossession GiveItem ( role , 0 , 612 , 1 , 4 ) struct end if Part3_newJL==2 then if rad1 <=95 then GiveItem ( role , 0 , 608 , rd Fairy Possession GiveItem ( role , 0 , 611 , rd Self Destruct elseif rad1 > 95 and rad1 <=100 then GiveItem ( role , 0 , 609 , Fairy Possession GiveItem ( role , 0 , 612 , Self Destruct end end if Part3_newJL==1 then if rad1 <=90 then GiveItem ( role , 0 , 239 , Fairy Possession GiveItem ( role , 0 , 610 , Self Destruct elseif rad1 > 90 and rad1 <=98 then GiveItem ( role , 0 , 608 , rd Fairy Possession GiveItem ( role , 0 , 611 , rd Self Destruct elseif rad1 > 98 and rad1 <=100 then GiveItem ( role , 0 , 609 , Fairy Possession GiveItem ( role , 0 , 612 , Self Destruct end end

) ) ) ) -------

-------

-------

--Expert Fairy P --Expert Self De

1 , 4 ) 1 , 4 ) 1 , 4 ) 1 , 4 )

--Standa --Standa --Expert --Expert

1 , 4 ) 1 , 4 ) 1 , 4 ) 1 , 4 ) 1 , 4 ) 1 , 4 )

--Novice --Novice --Standa --Standa --Expert --Expert

Num_newJL = SetNum_Part1 ( Num_newJL Num_newJL = SetNum_Part2 ( Num_newJL Num_newJL = SetNum_Part3 ( Num_newJL Num_newJL = SetNum_Part4 ( Num_newJL Num_newJL = SetNum_Part5 ( Num_newJL Num_newJL = SetNum_Part6 ( Num_newJL Num_newJL = SetNum_Part7 ( Num_newJL SetItemForgeParam ( Item_newJL , 1 , SetItemAttr SetItemAttr SetItemAttr SetItemAttr SetItemAttr SetItemAttr SetItemAttr ( ( ( ( ( ( ( Item_newJL Item_newJL Item_newJL Item_newJL Item_newJL Item_newJL Item_newJL , , , , , , ,

, 1 ) ---------- , Part2_newJL ) , Part3_newJL ) , Part4_newJL ) , Part5_newJL ) , Part6_newJL ) , Part7_newJL ) Num_newJL )

end if Item_EMstone_ID ==3919 then --- ---- local j1 = TakeItem( role, 0,4531, 10 ) --- local j2 = TakeItem( role, 0,3435, 10 ) ---- if j1==0 or j2==0 then SystemNotice ( role ,"Deletion of pet fairy reborn tools failed") return end local rad = math.random ( 1, 100 ) local r1 = 0 local r2 = 0 if Item_JLone_ID ==680 and Item_JLother_ID ==7125 or Item_JLone_ ID ==7125 and Item_JLother_ID ==680 then if lv_JLone>=20 and lv_JLone<25 and lv_JLother >=20 and lv_JLother<25 and rad>=91 then --9% That you will have 70% to get Angela Jr local rad = math.random ( 1, 100) if rad > 70 then r1,r2 =MakeItem ( role , 681 , 1 , 4 ) else r1,r2 =MakeItem ( role , 7126 , 1 , 4 ) end elseif lv_JLone>=25 and lv_JLone<35 and lv_JLother >=25 and lv_JLother<35 and rad>=63 then --37% Chance That you will have 70% to g et Angela Jr local rad = math.random ( 1, 100) if rad > 70 then r1,r2 =MakeItem ( role , 681 , 1 , 4 ) else r1,r2 =MakeItem ( role , 7126 , 1 , 4 ) end elseif lv_JLone>=35 and lv_JLother >=35 and rad>=35 then --65% Chance That you will have 70% to get Angela Jr local rad = math.random ( 1, 100) if rad > 70 then r1,r2 =MakeItem ( role , 681 , 1 , 4 ) else r1,r2 =MakeItem ( role , 7126 , 1 , 4 ) end else r1,r2 =MakeItem ( role , 681 , 1 , 4 ) end elseif Item_JLone_ID ==680 or Item_JLother_ID ==680 then if Item_JLone_ID==Item_JLother_ID then

ITEMATTR_VAL_STR , new_str ) ITEMATTR_VAL_DEX , new_dex ) ITEMATTR_VAL_STA , new_sta ) ITEMATTR_VAL_AGI , new_agi ) ITEMATTR_VAL_CON , new_con ) ITEMATTR_MAXENERGY , new_MAXENERGY ) ITEMATTR_MAXURE , new_MAXURE )

r1,r2 =MakeItem ( role , 681 , 1 , 4 ) elseif lv_JLone>=20 and lv_JLone<25 and lv_JLother >=20 and lv_JLother<25 and rad>=88 then --12% Chance of Mordo JR r1,r2 =MakeItem ( role , 681 , 1 , 4 ) elseif lv_JLone>=25 and lv_JLone<35 and lv_JLother >=25 and lv_JLother<35 and rad>=50 then --50% Chance of Mordo JR r1,r2 =MakeItem ( role , 681 , 1 , 4 ) elseif lv_JLone>=35 and lv_JLother >=35 and rad>=10 then --90% Chance of Mordo JR r1,r2 =MakeItem ( role , 681 , 1 , 4 ) --Mordo JR end elseif Item_JLone_ID ==7125 or Item_JLother_ID ==7125 then if Item_JLone_ID==Item_JLother_ID then r1,r2 =MakeItem ( role , 7126 , 1 , 4 ) elseif lv_JLone>=20 and lv_JLone<25 and lv_JLother >=20 and lv_JLother<25 and rad>=94 then --6% Chance of Angela JR r1,r2 =MakeItem ( role , 7126 , 1 , 4 ) elseif lv_JLone>=25 and lv_JLone<35 and lv_JLother >=25 and lv_JLother<35 and rad>=75 then --25% Chance of Angela JR r1,r2 =MakeItem ( role , 7126 , 1 , 4 ) elseif lv_JLone>=35 and lv_JLother >=35 and rad>=60 then --40% Chance of Angela Jr r1,r2 =MakeItem ( role , 7126 , 1 , 4 ) --Angela Jr end else r1,r2 =MakeItem ( role , 233 , 1 , 4 ) --Fairy of Const itution end local Item_newJL = GetChaItem ( role , 2 , r2 ) -- local Num_newJL = GetItemForgeParam ( Item_newJL , 1 ) local Part1_newJL = GetNum_Part1 ( Num_newJL ) --Get Num Part 1 Part 7 local Part2_newJL = GetNum_Part2 ( Num_newJL ) local Part3_newJL = GetNum_Part3 ( Num_newJL ) local Part4_newJL = GetNum_Part4 ( Num_newJL ) local Part5_newJL = GetNum_Part5 ( Num_newJL ) local Part6_newJL = GetNum_Part6 ( Num_newJL ) local Part7_newJL = GetNum_Part7 ( Num_newJL ) if lv_JLone>=20 and lv_JLother >=20 then Part2_newJL = 7 -------- Part3_newJL = 1 -------- end if lv_JLone>=25 and lv_JLother >=25 then Part2_newJL = 7 -------- Part3_newJL = 2 -------- end if lv_JLone>=35 and lv_JLother >=35 then Part2_newJL = 7 -------- Part3_newJL = 3 -------- end local rad1 = math.random ( 1, 100 )

ossession struct

if Part3_newJL==3 then GiveItem ( role , 0 , 609 , 1 , 4 ) GiveItem ( role , 0 , 612 , 1 , 4 )

--Expert Fairy P --Expert Self De

end if Part3_newJL==2 then if rad1 <=95 then GiveItem ( role , 0 , 608 , 1 , 4 ) --Standa rd Fairy Possession GiveItem ( role , 0 , 611 , 1 , 4 ) --Standa rd Self Destruct elseif rad1 > 95 and rad1 <=100 then GiveItem ( role , 0 , 609 , 1 , 4 ) --Expert Fairy Possession GiveItem ( role , 0 , 612 , 1 , 4 ) --Expert Self Destruct end end if Part3_newJL==1 then if rad1 <=90 then GiveItem ( role , 0 , 239 , 1 , 4 ) --Novice Fairy Possession GiveItem ( role , 0 , 610 , 1 , 4 ) --Novice Self Destruct elseif rad1 > 90 and rad1 <=98 then GiveItem ( role , 0 , 608 , 1 , 4 ) --Standa rd Fairy Possession GiveItem ( role , 0 , 611 , 1 , 4 ) --Standa rd Self Destruct elseif rad1 > 98 and rad1 <=100 then GiveItem ( role , 0 , 609 , 1 , 4 ) --Expert Fairy Possession GiveItem ( role , 0 , 612 , 1 , 4 ) --Expert Self Destruct end end Num_newJL = SetNum_Part1 ( Num_newJL , 1 ) ---------- Num_newJL = SetNum_Part2 ( Num_newJL , Part2_newJL ) Num_newJL = SetNum_Part3 ( Num_newJL , Part3_newJL ) Num_newJL = SetNum_Part4 ( Num_newJL , Part4_newJL ) Num_newJL = SetNum_Part5 ( Num_newJL , Part5_newJL ) Num_newJL = SetNum_Part6 ( Num_newJL , Part6_newJL ) Num_newJL = SetNum_Part7 ( Num_newJL , Part7_newJL ) SetItemForgeParam ( Item_newJL , 1 , Num_newJL ) SetItemAttr ( Item_newJL , ITEMATTR_VAL_STR , new_str ) SetItemAttr( Item_newJL , ITEMATTR_VAL_DEX , new_dex ) SetItemAttr ( Item_newJL , ITEMATTR_VAL_STA , new_sta ) SetItemAttr( Item_newJL , ITEMATTR_VAL_AGI , new_agi ) SetItemAttr ( Item_newJL , ITEMATTR_VAL_CON , new_con ) SetItemAttr ( Item_newJL , ITEMATTR_MAXENERGY , new_MAXENERGY ) SetItemAttr ( Item_newJL , ITEMATTR_MAXURE , new_MAXURE )

end if Item_EMstone_ID ==3920 then --- ---- local j1 =TakeItem( role, 0, 1196, 10 ) --- local j2 = TakeItem( role, 0,3436, 10 ) ---- if j1==0 or j2==0 then SystemNotice ( role ,"Deletion of pet fairy reborn tools failed")

return end local rad = math.random ( 1, 100 ) local r1 = 0 local r2 = 0 if Item_JLone_ID ==680 and Item_JLother_ID ==7125 or Item_JLone_ ID ==7125 and Item_JLother_ID ==680 then if lv_JLone>=20 and lv_JLone<25 and lv_JLother >=20 and lv_JLother<25 and rad>=91 then --9% That you will have 70% to get Angela Jr local rad = math.random ( 1, 100) if rad > 70 then r1,r2 =MakeItem ( role , 681 , 1 , 4 ) else r1,r2 =MakeItem ( role , 7126 , 1 , 4 ) end elseif lv_JLone>=25 and lv_JLone<35 and lv_JLother >=25 and lv_JLother<35 and rad>=63 then --37% Chance That you will have 70% to g et Angela Jr local rad = math.random ( 1, 100) if rad > 70 then r1,r2 =MakeItem ( role , 681 , 1 , 4 ) else r1,r2 =MakeItem ( role , 7126 , 1 , 4 ) end elseif lv_JLone>=35 and lv_JLother >=35 and rad>=35 then --65% Chance That you will have 70% to get Angela Jr local rad = math.random ( 1, 100) if rad > 70 then r1,r2 =MakeItem ( role , 681 , 1 , 4 ) else r1,r2 =MakeItem ( role , 7126 , 1 , 4 ) end else r1,r2 =MakeItem ( role , 681 , 1 , 4 ) end elseif Item_JLone_ID ==680 or Item_JLother_ID ==680 then if Item_JLone_ID==Item_JLother_ID then r1,r2 =MakeItem ( role , 681 , 1 , 4 ) elseif lv_JLone>=20 and lv_JLone<25 and lv_JLother >=20 and lv_JLother<25 and rad>=88 then --12% Chance of Mordo JR r1,r2 =MakeItem ( role , 681 , 1 , 4 ) elseif lv_JLone>=25 and lv_JLone<35 and lv_JLother >=25 and lv_JLother<35 and rad>=50 then --50% Chance of Mordo JR r1,r2 =MakeItem ( role , 681 , 1 , 4 ) elseif lv_JLone>=35 and lv_JLother >=35 and rad>=10 then --90% Chance of Mordo JR r1,r2 =MakeItem ( role , 681 , 1 , 4 ) --Mordo JR end elseif Item_JLone_ID ==7125 or Item_JLother_ID ==7125 then if Item_JLone_ID==Item_JLother_ID then r1,r2 =MakeItem ( role , 7126 , 1 , 4 ) elseif lv_JLone>=20 and lv_JLone<25 and lv_JLother >=20 and lv_JLother<25 and rad>=94 then --6% Chance of Angela JR r1,r2 =MakeItem ( role , 7126 , 1 , 4 ) elseif lv_JLone>=25 and lv_JLone<35 and lv_JLother >=25 and lv_JLother<35 and rad>=75 then --25% Chance of Angela JR r1,r2 =MakeItem ( role , 7126 , 1 , 4 ) elseif lv_JLone>=35 and lv_JLother >=35 and rad>=60 then --40% Chance of Angela Jr

--Angela Jr else gth -- Part 7

r1,r2 =MakeItem ( role , 7126 , 1 , 4 ) end r1,r2 =MakeItem ( role , 232 , 1 , 4 ) --Fairy of Stren

end local Item_newJL = GetChaItem ( role , 2 , r2 ) local Num_newJL = GetItemForgeParam ( Item_newJL , 1 ) local Part1_newJL = GetNum_Part1 ( Num_newJL ) --Get Num Part 1 ) ) ) ) ) )

local Part2_newJL = GetNum_Part2 ( Num_newJL local Part3_newJL = GetNum_Part3 ( Num_newJL local Part4_newJL = GetNum_Part4 ( Num_newJL local Part5_newJL = GetNum_Part5 ( Num_newJL local Part6_newJL = GetNum_Part6 ( Num_newJL local Part7_newJL = GetNum_Part7 ( Num_newJL if lv_JLone>=20 and lv_JLother >=20 then Part2_newJL = 8 --------- Part3_newJL = 1 --------- end if lv_JLone>=25 and lv_JLother >=25 then Part2_newJL = 8 --------- Part3_newJL = 2 --------- end if lv_JLone>=35 and lv_JLother >=35 then Part2_newJL = 8 --------- Part3_newJL = 3 --------- end local rad1 = math.random ( 1, 100 ) if Part3_newJL==3 then GiveItem ( role , 0 , 609 , 1 , 4 ) ossession GiveItem ( role , 0 , 612 , 1 , 4 ) struct end if Part3_newJL==2 then if rad1 <=95 then GiveItem ( role , 0 , 608 , rd Fairy Possession GiveItem ( role , 0 , 611 , rd Self Destruct elseif rad1 > 95 and rad1 <=100 then GiveItem ( role , 0 , 609 , Fairy Possession GiveItem ( role , 0 , 612 , Self Destruct end end if Part3_newJL==1 then if rad1 <=90 then GiveItem ( role , 0 , 239 , Fairy Possession

--Expert Fairy P --Expert Self De

1 , 4 ) 1 , 4 ) 1 , 4 ) 1 , 4 )

--Standa --Standa --Expert --Expert

1 , 4 )

--Novice

Self Destruct rd Fairy Possession rd Self Destruct Fairy Possession Self Destruct

GiveItem ( role , 0 , 610 , 1 , 4 ) elseif rad1 > 90 and rad1 <=98 then GiveItem ( role , 0 , 608 , 1 , 4 ) GiveItem ( role , 0 , 611 , 1 , 4 ) elseif rad1 > 98 and rad1 <=100 then GiveItem ( role , 0 , 609 , 1 , 4 ) GiveItem ( role , 0 , 612 , 1 , 4 )

--Novice --Standa --Standa --Expert --Expert

end end Num_newJL = SetNum_Part1 ( Num_newJL Num_newJL = SetNum_Part2 ( Num_newJL Num_newJL = SetNum_Part3 ( Num_newJL Num_newJL = SetNum_Part4 ( Num_newJL Num_newJL = SetNum_Part5 ( Num_newJL Num_newJL = SetNum_Part6 ( Num_newJL Num_newJL = SetNum_Part7 ( Num_newJL SetItemForgeParam ( Item_newJL , 1 , SetItemAttr SetItemAttr SetItemAttr SetItemAttr SetItemAttr SetItemAttr SetItemAttr ( ( ( ( ( ( ( Item_newJL Item_newJL Item_newJL Item_newJL Item_newJL Item_newJL Item_newJL , , , , , , ,

, 1 ) ---------- , Part2_newJL ) , Part3_newJL ) , Part4_newJL ) , Part5_newJL ) , Part6_newJL ) , Part7_newJL ) Num_newJL )

end if Item_EMstone_ID ==3921 then --- local j1 =TakeItem( role, 0, 4533, 10 ) --- local j2 = TakeItem( role, 0,3437, 10 ) ---- if j1==0 or j2==0 then SystemNotice ( role ,"Deletion of pet fairy reborn tools

ITEMATTR_VAL_STR , new_str ) ITEMATTR_VAL_DEX , new_dex ) ITEMATTR_VAL_STA , new_sta ) ITEMATTR_VAL_AGI , new_agi ) ITEMATTR_VAL_CON , new_con ) ITEMATTR_MAXENERGY , new_MAXENERGY ) ITEMATTR_MAXURE , new_MAXURE )

return end local rad = math.random ( 1, 100 ) local r1 = 0 local r2 = 0 if Item_JLone_ID ==680 and Item_JLother_ID ==7125 or Item_JLone_ ID ==7125 and Item_JLother_ID ==680 then if lv_JLone>=20 and lv_JLone<25 and lv_JLother >=20 and lv_JLother<25 and rad>=91 then --9% That you will have 70% to get Angela Jr local rad = math.random ( 1, 100) if rad > 70 then r1,r2 =MakeItem ( role , 681 , 1 , 4 ) else r1,r2 =MakeItem ( role , 7126 , 1 , 4 ) end elseif lv_JLone>=25 and lv_JLone<35 and lv_JLother >=25 and lv_JLother<35 and rad>=63 then --37% Chance That you will have 70% to g et Angela Jr local rad = math.random ( 1, 100) if rad > 70 then r1,r2 =MakeItem ( role , 681 , 1 , 4 ) else

failed")

r1,r2 =MakeItem ( role , 7126 , 1 , 4 ) end elseif lv_JLone>=35 and lv_JLother >=35 and rad>=35 then --65% Chance That you will have 70% to get Angela Jr local rad = math.random ( 1, 100) if rad > 70 then r1,r2 =MakeItem ( role , 681 , 1 , 4 ) else r1,r2 =MakeItem ( role , 7126 , 1 , 4 ) end else r1,r2 =MakeItem ( role , 681 , 1 , 4 ) end elseif Item_JLone_ID ==680 or Item_JLother_ID ==680 then if Item_JLone_ID==Item_JLother_ID then r1,r2 =MakeItem ( role , 681 , 1 , 4 ) elseif lv_JLone>=20 and lv_JLone<25 and lv_JLother >=20 and lv_JLother<25 and rad>=88 then --12% Chance of Mordo JR r1,r2 =MakeItem ( role , 681 , 1 , 4 ) elseif lv_JLone>=25 and lv_JLone<35 and lv_JLother >=25 and lv_JLother<35 and rad>=50 then --50% Chance of Mordo JR r1,r2 =MakeItem ( role , 681 , 1 , 4 ) elseif lv_JLone>=35 and lv_JLother >=35 and rad>=10 then --90% Chance of Mordo JR r1,r2 =MakeItem ( role , 681 , 1 , 4 ) --Mordo JR end elseif Item_JLone_ID ==7125 or Item_JLother_ID ==7125 then if Item_JLone_ID==Item_JLother_ID then r1,r2 =MakeItem ( role , 7126 , 1 , 4 ) elseif lv_JLone>=20 and lv_JLone<25 and lv_JLother >=20 and lv_JLother<25 and rad>=94 then --6% Chance of Angela JR r1,r2 =MakeItem ( role , 7126 , 1 , 4 ) elseif lv_JLone>=25 and lv_JLone<35 and lv_JLother >=25 and lv_JLother<35 and rad>=75 then --25% Chance of Angela JR r1,r2 =MakeItem ( role , 7126 , 1 , 4 ) elseif lv_JLone>=35 and lv_JLother >=35 and rad>=60 then --40% Chance of Angela Jr r1,r2 =MakeItem ( role , 7126 , 1 , 4 ) --Angela Jr end else r1,r2 =MakeItem ( role , 234 , 1 , 4 ) --Fairy of Spiri t end local Item_newJL = GetChaItem ( role , 2 , r2 ) -- local Num_newJL = GetItemForgeParam ( Item_newJL , 1 ) local Part1_newJL = GetNum_Part1 ( Num_newJL ) --Get Num Part 1 Part 7 local Part2_newJL = GetNum_Part2 ( Num_newJL ) local Part3_newJL = GetNum_Part3 ( Num_newJL ) local Part4_newJL = GetNum_Part4 ( Num_newJL ) local Part5_newJL = GetNum_Part5 ( Num_newJL ) local Part6_newJL = GetNum_Part6 ( Num_newJL ) local Part7_newJL = GetNum_Part7 ( Num_newJL ) if lv_JLone>=20 and lv_JLother >=20 then Part2_newJL = 9 --------- Part3_newJL = 1

---------

end if lv_JLone>=25 and lv_JLother >=25 then Part2_newJL = 9 --------- Part3_newJL = 2 --------- end if lv_JLone>=35 and lv_JLother >=35 then Part2_newJL = 9 --------- Part3_newJL = 3 --------- end local rad1 = math.random ( 1, 100 ) if Part3_newJL==3 then GiveItem ( role , 0 , 609 , 1 , 4 ) --Expert Fairy P ossession GiveItem ( role , 0 , 612 , 1 , 4 ) --Expert Self De struct end if Part3_newJL==2 then if rad1 <=95 then GiveItem ( role , 0 , 608 , 1 , 4 ) --Standa rd Fairy Possession GiveItem ( role , 0 , 611 , 1 , 4 ) --Standa rd Self Destruct elseif rad1 > 95 and rad1 <=100 then GiveItem ( role , 0 , 609 , 1 , 4 ) --Expert Fairy Possession GiveItem ( role , 0 , 612 , 1 , 4 ) --Expert Self Destruct end end if Part3_newJL==1 then if rad1 <=90 then GiveItem ( role , 0 , 239 , 1 , 4 ) --Novice Fairy Possession GiveItem ( role , 0 , 610 , 1 , 4 ) --Novice Self Destruct elseif rad1 > 90 and rad1 <=98 then GiveItem ( role , 0 , 608 , 1 , 4 ) --Standa rd Fairy Possession GiveItem ( role , 0 , 611 , 1 , 4 ) --Standa rd Self Destruct elseif rad1 > 98 and rad1 <=100 then GiveItem ( role , 0 , 609 , 1 , 4 ) --Expert Fairy Possession GiveItem ( role , 0 , 612 , 1 , 4 ) --Expert Self Destruct end end Num_newJL = SetNum_Part1 ( Num_newJL , 1 ) ---------- Num_newJL = SetNum_Part2 ( Num_newJL , Part2_newJL ) Num_newJL = SetNum_Part3 ( Num_newJL , Part3_newJL ) Num_newJL = SetNum_Part4 ( Num_newJL , Part4_newJL ) Num_newJL = SetNum_Part5 ( Num_newJL , Part5_newJL ) Num_newJL = SetNum_Part6 ( Num_newJL , Part6_newJL ) Num_newJL = SetNum_Part7 ( Num_newJL , Part7_newJL ) SetItemForgeParam ( Item_newJL , 1 , Num_newJL )

end if Item_EMstone_ID ==3922 then --- local j1 =TakeItem( role, 0,4537, 10 )

SetItemAttr SetItemAttr SetItemAttr SetItemAttr SetItemAttr SetItemAttr SetItemAttr

( ( ( ( ( ( (

Item_newJL Item_newJL Item_newJL Item_newJL Item_newJL Item_newJL Item_newJL

, , , , , , ,

ITEMATTR_VAL_STR , new_str ) ITEMATTR_VAL_DEX , new_dex ) ITEMATTR_VAL_STA , new_sta ) ITEMATTR_VAL_AGI , new_agi ) ITEMATTR_VAL_CON , new_con ) ITEMATTR_MAXENERGY , new_MAXENERGY ) ITEMATTR_MAXURE , new_MAXURE ) ---

return end local rad = math.random ( 1, 100 ) local r1 = 0 local r2 = 0 if Item_JLone_ID ==680 and Item_JLother_ID ==7125 or Item_JLone_ ID ==7125 and Item_JLother_ID ==680 then if lv_JLone>=20 and lv_JLone<25 and lv_JLother >=20 and lv_JLother<25 and rad>=91 then --9% That you will have 70% to get Angela Jr local rad = math.random ( 1, 100) if rad > 70 then r1,r2 =MakeItem ( role , 681 , 1 , 4 ) else r1,r2 =MakeItem ( role , 7126 , 1 , 4 ) end elseif lv_JLone>=25 and lv_JLone<35 and lv_JLother >=25 and lv_JLother<35 and rad>=63 then --37% Chance That you will have 70% to g et Angela Jr local rad = math.random ( 1, 100) if rad > 70 then r1,r2 =MakeItem ( role , 681 , 1 , 4 ) else r1,r2 =MakeItem ( role , 7126 , 1 , 4 ) end elseif lv_JLone>=35 and lv_JLother >=35 and rad>=35 then --65% Chance That you will have 70% to get Angela Jr local rad = math.random ( 1, 100) if rad > 70 then r1,r2 =MakeItem ( role , 681 , 1 , 4 ) else r1,r2 =MakeItem ( role , 7126 , 1 , 4 ) end else r1,r2 =MakeItem ( role , 681 , 1 , 4 ) end elseif Item_JLone_ID ==680 or Item_JLother_ID ==680 then if Item_JLone_ID==Item_JLother_ID then r1,r2 =MakeItem ( role , 681 , 1 , 4 ) elseif lv_JLone>=20 and lv_JLone<25 and lv_JLother >=20 and lv_JLother<25 and rad>=88 then --12% Chance of Mordo JR r1,r2 =MakeItem ( role , 681 , 1 , 4 ) elseif lv_JLone>=25 and lv_JLone<35 and lv_JLother >=25 and lv_JLother<35 and rad>=50 then --50% Chance of Mordo JR r1,r2 =MakeItem ( role , 681 , 1 , 4 )

failed")

local j2 = TakeItem( role, 0,3444, 10 ) ---- if j1==0 or j2==0 then SystemNotice ( role ,"Deletion of pet fairy reborn tools

--90% Chance of Mordo JR JR

elseif lv_JLone>=35 and lv_JLother >=35 and rad>=10 then r1,r2 =MakeItem ( role , 681 , 1 , 4 ) --Mordo

end elseif Item_JLone_ID ==7125 or Item_JLother_ID ==7125 then if Item_JLone_ID==Item_JLother_ID then r1,r2 =MakeItem ( role , 7126 , 1 , 4 ) elseif lv_JLone>=20 and lv_JLone<25 and lv_JLother >=20 and lv_JLother<25 and rad>=94 then --6% Chance of Angela JR r1,r2 =MakeItem ( role , 7126 , 1 , 4 ) elseif lv_JLone>=25 and lv_JLone<35 and lv_JLother >=25 and lv_JLother<35 and rad>=75 then --25% Chance of Angela JR r1,r2 =MakeItem ( role , 7126 , 1 , 4 ) elseif lv_JLone>=35 and lv_JLother >=35 and rad>=60 then --40% Chance of Angela Jr r1,r2 =MakeItem ( role , 7126 , 1 , 4 ) --Angela Jr end else r1,r2 =MakeItem ( role , 235 , 1 , 4 ) --Fairy of Accuracy end local Item_newJL = GetChaItem ( role , 2 , r2 ) -- local Num_newJL = GetItemForgeParam ( Item_newJL , 1 ) local Part1_newJL = GetNum_Part1 ( Num_JLother ) --Get Nu m Part 1 Part 7 local Part2_newJL = GetNum_Part2 ( Num_newJL ) local Part3_newJL = GetNum_Part3 ( Num_newJL ) local Part4_newJL = GetNum_Part4 ( Num_newJL ) local Part5_newJL = GetNum_Part5 ( Num_newJL ) local Part6_newJL = GetNum_Part6 ( Num_newJL ) local Part7_newJL = GetNum_Part7 ( Num_newJL ) if lv_JLone>=20 and lv_JLother >=20 then Part2_newJL = 10 --------- Part3_newJL = 1 --------- end if lv_JLone>=25 and lv_JLother >=25 then Part2_newJL = 10 --------- Part3_newJL = 2 --------- end if lv_JLone>=35 and lv_JLother >=35 then Part2_newJL = 10 --------- Part3_newJL = 3 --------- end local rad1 = math.random ( 1, 100 ) if Part3_newJL==3 then GiveItem ( role , 0 , 609 , 1 , 4 ) --Expert Fairy P ossession GiveItem ( role , 0 , 612 , 1 , 4 ) --Expert Self De struct end if Part3_newJL==2 then

rd Fairy Possession rd Self Destruct Fairy Possession Self Destruct

if rad1 <=95 then GiveItem ( role , 0 , 608 , 1 , 4 ) GiveItem ( role , 0 , 611 , 1 , 4 ) elseif rad1 > 95 and rad1 <=100 then GiveItem ( role , 0 , 609 , 1 , 4 ) GiveItem ( role , 0 , 612 , 1 , 4 )

--Standa --Standa --Expert --Expert

end end if Part3_newJL==1 then if rad1 <=90 then GiveItem ( role , 0 , 239 , 1 , 4 ) Fairy Possession GiveItem ( role , 0 , 610 , 1 , 4 ) Self Destruct elseif rad1 > 90 and rad1 <=98 then GiveItem ( role , 0 , 608 , 1 , 4 ) rd Fairy Possession GiveItem ( role , 0 , 611 , 1 , 4 ) rd Self Destruct elseif rad1 > 98 and rad1 <=100 then GiveItem ( role , 0 , 609 , 1 , 4 ) Fairy Possession GiveItem ( role , 0 , 612 , 1 , 4 ) Self Destruct end end Num_newJL = SetNum_Part1 ( Num_newJL , 1 ) ---------- Num_newJL = SetNum_Part2 ( Num_newJL , Part2_newJL ) Num_newJL = SetNum_Part3 ( Num_newJL , Part3_newJL ) Num_newJL = SetNum_Part4 ( Num_newJL , Part4_newJL ) Num_newJL = SetNum_Part5 ( Num_newJL , Part5_newJL ) Num_newJL = SetNum_Part6 ( Num_newJL , Part6_newJL ) Num_newJL = SetNum_Part7 ( Num_newJL , Part7_newJL ) SetItemForgeParam ( Item_newJL , 1 , Num_newJL ) SetItemAttr SetItemAttr SetItemAttr SetItemAttr SetItemAttr SetItemAttr SetItemAttr ( ( ( ( ( ( ( Item_newJL Item_newJL Item_newJL Item_newJL Item_newJL Item_newJL Item_newJL , , , , , , ,

--Novice --Novice --Standa --Standa --Expert --Expert

end if Item_EMstone_ID ==3924 then --- local j1 = TakeItem( role, 0,4540, 10 ) ---

ITEMATTR_VAL_STR , new_str ) ITEMATTR_VAL_DEX , new_dex ) ITEMATTR_VAL_STA , new_sta ) ITEMATTR_VAL_AGI , new_agi ) ITEMATTR_VAL_CON , new_con ) ITEMATTR_MAXENERGY , new_MAXENERGY ) ITEMATTR_MAXURE , new_MAXURE )

failed")

local j2 = TakeItem( role, 0,3443, 10 ) ---- if j1==0 or j2==0 then SystemNotice ( role ,"Deletion of pet fairy reborn tools return end local rad = math.random ( 1, 100 ) local r1 = 0 local r2 = 0 if Item_JLone_ID ==680 and Item_JLother_ID ==7125 or Item_JLone_

ID ==7125 and Item_JLother_ID ==680 then if lv_JLone>=20 and lv_JLone<25 and lv_JLother >=20 and lv_JLother<25 and rad>=91 then --9% That you will have 70% to get Angela Jr local rad = math.random ( 1, 100) if rad > 70 then r1,r2 =MakeItem ( role , 681 , 1 , 4 ) else r1,r2 =MakeItem ( role , 7126 , 1 , 4 ) end elseif lv_JLone>=25 and lv_JLone<35 and lv_JLother >=25 and lv_JLother<35 and rad>=63 then --37% Chance That you will have 70% to g et Angela Jr local rad = math.random ( 1, 100) if rad > 70 then r1,r2 =MakeItem ( role , 681 , 1 , 4 ) else r1,r2 =MakeItem ( role , 7126 , 1 , 4 ) end elseif lv_JLone>=35 and lv_JLother >=35 and rad>=35 then --65% Chance That you will have 70% to get Angela Jr local rad = math.random ( 1, 100) if rad > 70 then r1,r2 =MakeItem ( role , 681 , 1 , 4 ) else r1,r2 =MakeItem ( role , 7126 , 1 , 4 ) end else r1,r2 =MakeItem ( role , 681 , 1 , 4 ) end elseif Item_JLone_ID ==680 or Item_JLother_ID ==680 then if Item_JLone_ID==Item_JLother_ID then r1,r2 =MakeItem ( role , 681 , 1 , 4 ) elseif lv_JLone>=20 and lv_JLone<25 and lv_JLother >=20 and lv_JLother<25 and rad>=88 then --12% Chance of Mordo JR r1,r2 =MakeItem ( role , 681 , 1 , 4 ) elseif lv_JLone>=25 and lv_JLone<35 and lv_JLother >=25 and lv_JLother<35 and rad>=50 then --50% Chance of Mordo JR r1,r2 =MakeItem ( role , 681 , 1 , 4 ) elseif lv_JLone>=35 and lv_JLother >=35 and rad>=10 then --90% Chance of Mordo JR r1,r2 =MakeItem ( role , 681 , 1 , 4 ) --Mordo JR end elseif Item_JLone_ID ==7125 or Item_JLother_ID ==7125 then if Item_JLone_ID==Item_JLother_ID then r1,r2 =MakeItem ( role , 7126 , 1 , 4 ) elseif lv_JLone>=20 and lv_JLone<25 and lv_JLother >=20 and lv_JLother<25 and rad>=94 then --6% Chance of Angela JR r1,r2 =MakeItem ( role , 7126 , 1 , 4 ) elseif lv_JLone>=25 and lv_JLone<35 and lv_JLother >=25 and lv_JLother<35 and rad>=75 then --25% Chance of Angela JR r1,r2 =MakeItem ( role , 7126 , 1 , 4 ) elseif lv_JLone>=35 and lv_JLother >=35 and rad>=60 then --40% Chance of Angela Jr r1,r2 =MakeItem ( role , 7126 , 1 , 4 ) --Angela Jr end else r1,r2 =MakeItem ( role , 236 , 1 , 4 ) --Fairy of Agili ty

-- Part 7

end local Item_newJL = GetChaItem ( role , 2 , r2 ) local Num_newJL = GetItemForgeParam ( Item_newJL , 1 ) local Part1_newJL = GetNum_Part1 ( Num_newJL ) --Get Num Part 1 ) ) ) ) ) )

local Part2_newJL = GetNum_Part2 ( Num_newJL local Part3_newJL = GetNum_Part3 ( Num_newJL local Part4_newJL = GetNum_Part4 ( Num_newJL local Part5_newJL = GetNum_Part5 ( Num_newJL local Part6_newJL = GetNum_Part6 ( Num_newJL local Part7_newJ L= GetNum_Part7 ( Num_newJL if lv_JLone>=20 and lv_JLother >=20 then Part2_newJL = 11 --------- Part3_newJL = 1 --------- end if lv_JLone>=25 and lv_JLother >=25 then Part2_newJL = 11 --------- Part3_newJL = 2 --------- end if lv_JLone>=35 and lv_JLother >=35 then Part2_newJL = 11 --------- Part3_newJL = 3 --------- end local rad1 = math.random ( 1, 100 ) if Part3_newJL==3 then GiveItem ( role , 0 , 609 , 1 , 4 ) ossession GiveItem ( role , 0 , 612 , 1 , 4 ) struct end if Part3_newJL==2 then if rad1 <=95 then GiveItem ( role , 0 , 608 , rd Fairy Possession GiveItem ( role , 0 , 611 , rd Self Destruct elseif rad1 > 95 and rad1 <=100 then GiveItem ( role , 0 , 609 , Fairy Possession GiveItem ( role , 0 , 612 , Self Destruct end end if Part3_newJL==1 then if rad1 <=90 then GiveItem ( role , 0 , 239 , Fairy Possession GiveItem ( role , 0 , 610 , Self Destruct elseif rad1 > 90 and rad1 <=98 then GiveItem ( role , 0 , 608 , rd Fairy Possession GiveItem ( role , 0 , 611 ,

--Expert Fairy P --Expert Self De

1 , 4 ) 1 , 4 ) 1 , 4 ) 1 , 4 )

--Standa --Standa --Expert --Expert

1 , 4 ) 1 , 4 ) 1 , 4 ) 1 , 4 )

--Novice --Novice --Standa --Standa

rd Self Destruct Fairy Possession Self Destruct

elseif rad1 > 98 and rad1 <=100 then GiveItem ( role , 0 , 609 , 1 , 4 ) GiveItem ( role , 0 , 612 , 1 , 4 )

--Expert --Expert

end end Num_newJL = SetNum_Part1 ( Num_newJL Num_newJL = SetNum_Part2 ( Num_newJL Num_newJL = SetNum_Part3 ( Num_newJL Num_newJL = SetNum_Part4 ( Num_newJL Num_newJL = SetNum_Part5 ( Num_newJL Num_newJL = SetNum_Part6 ( Num_newJL Num_newJL = SetNum_Part7 ( Num_newJL SetItemForgeParam ( Item_newJL , 1 , SetItemAttr SetItemAttr SetItemAttr SetItemAttr SetItemAttr SetItemAttr SetItemAttr ( ( ( ( ( ( ( Item_newJL Item_newJL Item_newJL Item_newJL Item_newJL Item_newJL Item_newJL , , , , , , ,

, 1 ) ---------- , Part2_newJL ) , Part3_newJL ) , Part4_newJL ) , Part5_newJL ) , Part6_newJL ) , Part7_newJL ) Num_newJL )

end if Item_EMstone_ID ==3925 then --- local j1 = TakeItem( role, 0,1253, 10 ) --- local j2 = TakeItem( role, 0,3442, 10 ) ---- if j1==0 or j2==0 then SystemNotice ( role ,"Deletion of pet fairy reborn tools failed") return end local rad = math.random ( 1, 100 ) local r1 = 0 local r2 = 0 if Item_JLone_ID ==680 and Item_JLother_ID ==7125 or Item_JLone_ ID ==7125 and Item_JLother_ID ==680 then if lv_JLone>=20 and lv_JLone<25 and lv_JLother >=20 and lv_JLother<25 and rad>=91 then --9% That you will have 70% to get Angela Jr local rad = math.random ( 1, 100) if rad > 70 then r1,r2 =MakeItem ( role , 681 , 1 , 4 ) else r1,r2 =MakeItem ( role , 7126 , 1 , 4 ) end elseif lv_JLone>=25 and lv_JLone<35 and lv_JLother >=25 and lv_JLother<35 and rad>=63 then --37% Chance That you will have 70% to g et Angela Jr local rad = math.random ( 1, 100) if rad > 70 then r1,r2 =MakeItem ( role , 681 , 1 , 4 ) else r1,r2 =MakeItem ( role , 7126 , 1 , 4 ) end elseif lv_JLone>=35 and lv_JLother >=35 and rad>=35 then --65% Chance That you will have 70% to get Angela Jr local rad = math.random ( 1, 100) if rad > 70 then r1,r2 =MakeItem ( role , 681 , 1 , 4 )

ITEMATTR_VAL_STR , new_str ) ITEMATTR_VAL_DEX , new_dex ) ITEMATTR_VAL_STA , new_sta ) ITEMATTR_VAL_AGI , new_agi ) ITEMATTR_VAL_CON , new_con ) ITEMATTR_MAXENERGY , new_MAXENERGY ) ITEMATTR_MAXURE , new_MAXURE )

r1,r2 =MakeItem ( role , 681 , 1 , 4 ) end elseif Item_JLone_ID ==680 or Item_JLother_ID ==680 then if Item_JLone_ID==Item_JLother_ID then r1,r2 =MakeItem ( role , 681 , 1 , 4 ) elseif lv_JLone>=20 and lv_JLone<25 and lv_JLother >=20 and lv_JLother<25 and rad>=88 then --12% Chance of Mordo JR r1,r2 =MakeItem ( role , 681 , 1 , 4 ) elseif lv_JLone>=25 and lv_JLone<35 and lv_JLother >=25 and lv_JLother<35 and rad>=50 then --50% Chance of Mordo JR r1,r2 =MakeItem ( role , 681 , 1 , 4 ) elseif lv_JLone>=35 and lv_JLother >=35 and rad>=10 then --90% Chance of Mordo JR r1,r2 =MakeItem ( role , 681 , 1 , 4 ) --Mordo JR end elseif Item_JLone_ID ==7125 or Item_JLother_ID ==7125 then if Item_JLone_ID==Item_JLother_ID then r1,r2 =MakeItem ( role , 7126 , 1 , 4 ) elseif lv_JLone>=20 and lv_JLone<25 and lv_JLother >=20 and lv_JLother<25 and rad>=94 then --6% Chance of Angela JR r1,r2 =MakeItem ( role , 7126 , 1 , 4 ) elseif lv_JLone>=25 and lv_JLone<35 and lv_JLother >=25 and lv_JLother<35 and rad>=75 then --25% Chance of Angela JR r1,r2 =MakeItem ( role , 7126 , 1 , 4 ) elseif lv_JLone>=35 and lv_JLother >=35 and rad>=60 then --40% Chance of Angela Jr r1,r2 =MakeItem ( role , 7126 , 1 , 4 ) --Angela Jr end else r1,r2 =MakeItem ( role , 237 , 1 , 4 ) --Fairy of Evil end local Item_newJL = GetChaItem ( role , 2 , r2 ) -- local Num_newJL = GetItemForgeParam ( Item_newJL , 1 ) local Part1_newJL = GetNum_Part1 ( Num_newJL ) --Get Num Part 1 Part 7 local Part2_newJL = GetNum_Part2 ( Num_newJL ) local Part3_newJL = GetNum_Part3 ( Num_newJL ) local Part4_newJL = GetNum_Part4 ( Num_newJL ) local Part5_newJL = GetNum_Part5 ( Num_newJL ) local Part6_newJL = GetNum_Part6 ( Num_newJL ) local Part7_newJL = GetNum_Part7 ( Num_newJL ) if lv_JLone>=20 and lv_JLother >=20 then Part2_newJL = 12 --------- Part3_newJL = 1 --------- end if lv_JLone>=25 and lv_JLother >=25 then Part2_newJL = 12 --------- Part3_newJL = 2 --------- end

else

else r1,r2 =MakeItem ( role , 7126 , 1 , 4 ) end

if lv_JLone>=35 and lv_JLother >=35 then Part2_newJL = 12 --------- Part3_newJL = 3 --------- end local rad1 = math.random ( 1, 100 ) if Part3_newJL==3 then GiveItem ( role , 0 , 609 , 1 , 4 ) --Expert Fairy P ossession GiveItem ( role , 0 , 612 , 1 , 4 ) --Expert Self De struct end if Part3_newJL==2 then if rad1 <=95 then GiveItem ( role , 0 , 608 , 1 , 4 ) --Standa rd Fairy Possession GiveItem ( role , 0 , 611 , 1 , 4 ) --Standa rd Self Destruct elseif rad1 > 95 and rad1 <=100 then GiveItem ( role , 0 , 609 , 1 , 4 ) --Expert Fairy Possession GiveItem ( role , 0 , 612 , 1 , 4 ) --Expert Self Destruct end end if Part3_newJL==1 then if rad1 <=90 then GiveItem ( role , 0 , 239 , 1 , 4 ) --Novice Fairy Possession GiveItem ( role , 0 , 610 , 1 , 4 ) --Novice Self Destruct elseif rad1 > 90 and rad1 <=98 then GiveItem ( role , 0 , 608 , 1 , 4 ) --Standa rd Fairy Possession GiveItem ( role , 0 , 611 , 1 , 4 ) --Standa rd Self Destruct elseif rad1 > 98 and rad1 <=100 then GiveItem ( role , 0 , 609 , 1 , 4 ) --Expert Fairy Possession GiveItem ( role , 0 , 612 , 1 , 4 ) --Expert Self Destruct end end Num_newJL = SetNum_Part1 ( Num_newJL , 1 ) ---------- Num_newJL = SetNum_Part2 ( Num_newJL , Part2_newJL ) Num_newJL = SetNum_Part3 ( Num_newJL , Part3_newJL ) Num_newJL = SetNum_Part4 ( Num_newJL , Part4_newJL ) Num_newJL = SetNum_Part5 ( Num_newJL , Part5_newJL ) Num_newJL = SetNum_Part6 ( Num_newJL , Part6_newJL ) Num_newJL = SetNum_Part7 ( Num_newJL , Part7_newJL ) SetItemForgeParam ( Item_newJL , 1 , Num_newJL ) SetItemAttr SetItemAttr SetItemAttr SetItemAttr SetItemAttr SetItemAttr SetItemAttr ( ( ( ( ( ( ( Item_newJL Item_newJL Item_newJL Item_newJL Item_newJL Item_newJL Item_newJL , , , , , , , ITEMATTR_VAL_STR , new_str ) ITEMATTR_VAL_DEX , new_dex ) ITEMATTR_VAL_STA , new_sta ) ITEMATTR_VAL_AGI , new_agi ) ITEMATTR_VAL_CON , new_con ) ITEMATTR_MAXENERGY , new_MAXENERGY ) ITEMATTR_MAXURE , new_MAXURE )

end -------------- LG local cha_name = GetChaDefaultName ( role ) --LG( "star_JLZS_lg" ,cha_name,Item_JLone_ID , lv_JLone , str_JLone , co n_JLone , agi_JLone , dex_JLone , sta_JLone , Item_JLother_ID , lv_JLother , st r_JLother , con_JLother , agi_JLother , dex_JLother , sta_JLother ) LG( "star_JLZS_lg" ,cha_name, Item_EMstone_ID , Item_JLone_ID , lv_JLone , Item_JLother_ID , lv_JLother , Item_newJL_ID ) 1 , 0 ) R1 = RemoveChaItem ( role , Item_EMstone_ID , 1 , 2 , ItemBag [0] , 2 , -- if R1 == 0 then SystemNotice( role , "Deletion of Demonic Fruit failed") return end Elf_Attr_cs ( role , Item_JLone , Item_JLother )

end

You might also like