Jump to content

FapFap

Community
  • Content Count

    318
  • Joined

  • Last visited

  • Days Won

    3

Everything posted by FapFap

  1. How to fix this errors? i know DoString(0) is normal but is there a way to stop it? also where to find/fix the other one event_cha_lifetime
  2. function SkillUnable ( player ) local pkt = GetPacket () WriteCmd ( pkt , 1505 ) SendPacket ( player , pkt ) end Where to put this function? @Stinger
  3. sklv/4 does it mean that it gives 4 sec stun per lvl?
  4. Wondering how to make the conch stun only 1 second, heres my skill script: function SkillArea_Line_Bkcj ( sklv ) --技能"Conch Ray"的技能区域公式 local lenth = 500 + sklv * 30 local width = 100 + sklv * 10 SetSkillRange ( 1 , lenth , width ) end function SkillCooldown_Bkcj( sklv ) local Cooldown = 7000 - sklv * 500 return Cooldown end function SkillSp_Bkcj ( sklv ) local sp_reduce = 20+ sklv * 3 return sp_reduce end function SkillEnergy_Bkcj ( sklv ) local energy_reduce = math.floor ( 3 + sklv * 0.5 ) return energy_reduce end function Skill_Bkcj_Begin ( role , sklv ) local sp = Sp(role) local sp_reduce = SkillSp_Bkcj ( sklv ) if sp - sp_reduce < 0 then SkillUnable(role) return end Sp_Red (role , sp_reduce ) end function Skill_Bkcj_End ( ATKER , DEFER , sklv ) local sta_atk= Sta ( ATKER ) local sta_def = Sta ( DEFER ) local AddStateLv = 0 AddStateLv = GetChaStateLv ( ATKER , STATE_MLCH ) local dmg = math.floor( 200 + sklv*30 +sta_atk*5 ) local map_name_DEFER = GetChaMapName ( DEFER ) local agi_atker = Agi(ATKER) local Can_Pk_Garner2 = Is_NormalMonster (DEFER) local Can_Pk_Bountypk = Is_NormalMonster (DEFER) if map_name_ATKER == "garner2" or map_name_DEFER == "garner2" then if Can_Pk_Garner2 == 0 then dmg = math.floor(MAGIC_Atk_Dmg(ATKER,DEFER)+sklv*200) local rate = math.random(1,200) if rate >= Con(DEFER) then local statetime = sklv/4 local statelv = sklv AddState ( ATKER , DEFER , STATE_XY , statelv , statetime ) end end end if map_name_ATKER == "bountypk" or map_name_DEFER == "bountypk" then if Can_Pk_Bountypk == 0 then dmg = math.floor(MAGIC_Atk_Dmg(ATKER,DEFER)+sklv*200) local rate = math.random(1,200) if rate >= Con(DEFER) then local statetime = sklv/4 local statelv = sklv AddState ( ATKER , DEFER , STATE_XY , statelv , statetime ) end end end -- Jack Coral (permanent) local coralslot = GetChaItem(ATKER, 1, 6); local coralid = GetItemID(coralslot); if(coralid == StrikeCoral)then local energy = GetItemAttr(coralslot, ITEMATTR_ENERGY); local mxenergy = GetItemAttr(coralslot, ITEMATTR_MAXENERGY); SetItemAttr(coralslot, ITEMATTR_ENERGY, mxenergy) end local dmg_fin = Cuihua_Mofa ( dmg , AddStateLv ) local dmg_ElfSkill = ElfSkill_MagicAtk ( dmg , ATKER ) dmg_fin = dmg_fin + dmg_ElfSkill Hp_Endure_Dmg ( DEFER , dmg_fin ) end
  5. cha_timer: if (DoubleExp == true) then EXP_RAID = 20 -- Rates x2 MF_RAID = 30 TeamExp_RAID = 30 else EXP_RAID = 10 -- Real rates MF_RAID = 15 TeamExp_RAID = 15 end add it at end of variable.lua : DoubleExp = false to activate: with command gm lua_all &lua_all DoubleExp = true to deactivate: &lua_all DoubleExp = false Im having a problem that this function is not working.. no errors at lua_err.txt Does anyone have a better version of this? i want to activate / deactivate whenever i want with cmd
  6. FapFap

    Team Error

    @V3ct0r so it's not a big problem?
  7. Hi, @V3ct0r Here the script:
  8. FapFap

    Team Error

    pko 1.38 by kong scripts
  9. I'm having this kind of error at log folder can someone help me fix it
  10. Anyone know why this error shows?
  11. @Inuarashi For the moment the error is not showing with this one, thanks i hope it wont appear anymore
  12. @Inuarashi this is the function on function.lua: function TurnToShip ( role ) local x_role = role if ChaIsBoat ( role ) == 0 then x_role = GetCtrlBoat ( role ) if x_role == nil then LG ( "getshipid_err" , " get a nil shipid " ) end end return x_role end and this is the hook-timer: -- Ship Fuel Fixed function ResumeFuel(cha) cha = TurnToShip(cha); if(ChaIsBoat(cha) == 1)then local boat = TurnToShip(cha) local fuel,mxfuel,fuelrec = GetChaAttr(boat, ATTR_SP),GetChaAttr(boat, ATTR_MXSP),GetChaAttr(boat, ATTR_SREC) local dura,mxdura,durarec = GetChaAttr(boat, ATTR_HP),GetChaAttr(boat, ATTR_MXHP),GetChaAttr(boat, ATTR_HREC) if(fuel <= 0)then if(dura > 0)then SystemNotice(boat, 'No more fuel! ['..GetChaDefaultName(boat)..'] is slowly getting damaged.') durarec = durarec - 0.025 * mxdura dura = math.min(mxdura, dura + durarec) SetCharaAttr(dura, boat, ATTR_HP) end if(dura <= 0)then return end else fuel = math.max(0, fuel - fuelrec) SetCharaAttr(fuel, boat, ATTR_SP) end end end ResumeHook = Resume Resume = function(role) ResumeHook(role) ResumeFuel(role) end
  13. Im having this errors at log/log/getshipid_err.txt: It keeps spamming alot in each sec
  14. FapFap

    [PHP] Online HD & GM

    @V3ct0r where to put these? at pages/inc. ? and at templates/pages/site_ ?
  15. @Inuarashi function can_beuplv_item_main ( Table ) local role = 0 local ItemBag = {} local ItemCount = {} local ItemBagCount = {} local Get_Count = 4 local ItemReadCount = 0 local ItemReadNow = 1 local ItemReadNext = 0 local ItemBag_Now = 0 local ItemCount_Now = 0 local ItemBagCount_Num = 0 role , ItemBag , ItemCount , ItemBagCount , ItemBag_Now , ItemCount_Now , ItemBagCount_Num = Read_Table ( Table ) local ItemBagCount_beuplv = ItemBagCount [1] local ItemBag_beuplv = ItemBag [1] local ItemNum_beuplv = ItemCount [1] local Item_beuplv = GetChaItem ( role , 2 , ItemBag_beuplv ) local Item_beuplv_Type = GetItemType ( Item_beuplv ) local Item_beuplv_ID = GetItemID ( Item_beuplv ) local Item_ScItem = GetChaItem ( role , 2 , ItemBag [0] ) local Item_YxItem = GetChaItem ( role , 2 , ItemBag [2] ) local Item_ScItem_ID = GetItemID ( Item_ScItem ) local Item_YxItem_ID = GetItemID ( Item_YxItem ) local Item_ScItem_Type = GetItemType ( Item_ScItem ) local Item_YxItem_Type = GetItemType ( Item_YxItem ) local Item_beuplv_Lv = Get_Itembeuplv_Lv ( Item_beuplv ) local ItemAttr_Val_Fusionid = GetItemAttr ( Item_beuplv , ITEMATTR_VAL_FUSIONID ) local ItemID_Waiguan = GetItemAttr ( Item_beuplv , ITEMATTR_MAXURE ) if Item_beuplv_ID < 5001 or Item_beuplv_ID > 7000 then SystemNotice( role ,"non fusion item ") return 0 end if ItemAttr_Val_Fusionid == 0 then SystemNotice( role , "Item cannot be upgraded as item has not undergo fusion") return 0 end local oldcrystal = 456; local newcrystal = 7597; if Item_beuplv_Lv >= MaxLv_Eff then -- Apparel Upgrade SystemNotice( role ,"Item level limit max. Unable to level again") return 0 end if ItemBagCount_beuplv ~= 1 then SystemNotice( role , "Strengthening item level slot illegal ") return 0 end if Item_ScItem_Type ~= 62 then SystemNotice( role , "Invalid Strengthening scroll type ") return 0 end if Item_YxItem_Type ~= 63 then SystemNotice( role , "Strengthening gem type illegal ") return 0 end if ItemNum_beuplv ~= 1 then SystemNotice( role , "Illegal force item upgrade number") return 0 end if ItemCount [0] ~= 1 or ItemCount [2] ~= 1 or ItemBagCount [0] ~= 1 or ItemBagCount [2] ~= 1 then SystemNotice ( role ,"Item mall items or game items error") return 0 end local Money_Need = getupgrade_money_main ( Table ) local Money_Have = GetChaAttr ( role , ATTR_GD ) if Money_Need > Money_Have then SystemNotice( role ,"Insufficient gold. Unable to level up equipment") return 0 end return 1 end --开始强化升级 function begin_upgrade_item (...) local Check_Canbeuplv = 0 Check_Canbeuplv = can_beuplv_item_main ( arg ) if Check_Canbeuplv == 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_beuplv = ItemBag [1] local Item_beuplv = GetChaItem ( role , 2 , ItemBag_beuplv ) local Item_ScItem = GetChaItem ( role , 2 , ItemBag [0] ) local Item_YxItem = GetChaItem ( role , 2 , ItemBag [2] ) local Item_ScItem_ID = GetItemID ( Item_ScItem ) local Item_YxItem_ID = GetItemID ( Item_YxItem ) local Item_beuplv_Lv = Get_Itembeuplv_Lv ( Item_beuplv ) local R1 = 0 local R2 = 0 R1 = RemoveChaItem ( role , Item_ScItem_ID , 1 , 2 , ItemBag [0] , 2 , 1 , 0 ) R2 = RemoveChaItem ( role , Item_YxItem_ID , 1 , 2 , ItemBag [2] , 2 , 1 , 0 ) if R1 == 0 or R2 == 0 then LG( "beuplv" , "Delete item failed" ) end local Money_Need = getupgrade_money_main ( arg ) local Money_Have = GetChaAttr ( role , ATTR_GD ) Money_Have = Money_Have - Money_Need SetCharaAttr ( Money_Have , role , ATTR_GD ) ALLExAttrSet( role ) local a = Check_CG_beuplv ( Item_beuplv_Lv ) if a == 0 then R1 = RemoveChaItem ( role , Item_ScItem_ID , 1 , 2 , ItemBag [0] , 2 , 1 , 0 ) R2 = RemoveChaItem ( role , Item_YxItem_ID , 1 , 2 , ItemBag [2] , 2 , 1 , 0 ) if R1 == 0 or R2 == 0 then LG( "beuplv" , "Delete item failed" ) end local cha_name = GetChaDefaultName ( role ) LG( "JingLian_ShiBai" , "Player "..cha_name.." Strengthening has failed" ) SystemNotice( role , "Sorry, Strengthening has failed. Some items have disappeared!") return end local LvUpgrade = 1 if Item_YxItem_ID == 7596 then LvUpgrade = MaxLv_Eff - Item_beuplv_Lv; else if Instant110Eff ~= nil and Instant110Eff == true then LvUpgrade = MaxLv_Eff - Item_beuplv_Lv; end end Item_beuplv_Lv = Item_beuplv_Lv + LvUpgrade; SetChaKitbagChange( role , 1 ) Set_Itembeuplv_Lv ( Item_beuplv , Item_beuplv_Lv ) SynChaKitbag( role, 4 ) local LvD = GetItemAttr( Item_beuplv , ITEMATTR_VAL_LEVEL ) SynChaKitbag(role,13) SystemNotice( role , "Level up successful") local cha_name = GetChaDefaultName ( role ) LG( "JingLian_ShiBai" , "Player ["..cha_name.."] Strengthening successful" ) return 1 end
  16. thats the line that giving this error?
  17. It's website-way, its something like Guild ingame but this is at website, players can create & join clubs at website by logging they account on website, so the leader accepts them and if he lvls players to lv 45 at ingame he gets reward by club on website, also members who got lv45 gets reward (theres lv45 club, 55 club and 65 club) if 45 lower reward if 55 better if 65 even better its something like this, so new players gets help also gets reward by club, its a way to make money for players, so that old players makes club and lvl players to 45 or 55 or 65 for rewards! i hope im clear
  18. the message in system says it failed but it takes 2 crystal instead of 1 when it fails, if success its taking just one, i tried to use clean function's from pko1.38 files and pko 1.36 but still takes 2 crystals when fails
  19. I'm having this error at lua_err.txt sometimes (maybe when skill is used) this is at function.lua: and this is the skill scripts:
  20. wondering is anyone had this problem before, when trying to make 110%, when i fail the system removes 2x Strenghening Crystals instead of 1 , how to fix this bug?
  21. FapFap

    Website

    still i can load those folders/files
  22. @Stinger so you only added if (ATKER_LD ~= nil and DEFER_RYZ1 ~= nil) then if im not wrong.
×
×
  • Create New...