Skocz do zawartości
  • 👋 Witaj na MPCForum!

    Przeglądasz forum jako gość, co oznacza, że wiele świetnych funkcji jest jeszcze przed Tobą! 😎

    • Pełny dostęp do działów i ukrytych treści
    • Możliwość pisania i odpowiadania w tematach
    • System prywatnych wiadomości
    • Zbieranie reputacji i rozwijanie swojego profilu
    • Członkostwo w jednej z największych społeczności graczy

    👉 Dołączenie zajmie Ci mniej niż minutę – a zyskasz znacznie więcej!

    Zarejestruj się teraz

Nie mogę znaleźć skryptu Master Ball, pomożesz?


Mumia57

Rekomendowane odpowiedzi

Opublikowano

Witam, chciałem dodać Master Ball'a na swój serwer Pokemon. Natomiast nigdzie nie mogę znaleźć jego skryptu, czy ktoś potrafiłby pomóc ?

 

Pozdrawiam.

Opublikowano

W folderze mods nie posiadam takiego pliku jak "catch.lua"

 

W data/lib mam jedynie "catch system.lua"

  • 2 miesiące temu...
Opublikowano
function onUse(cid, item, fromPosition, itemEx, toPosition)
function getPokemonMaxLife(name)
		local file = io.open('data/monster/monsters.xml','r')
		local arquivo = file:read(-1):lower():match('<monster name="'..name:lower()..'" file="(.-)"/>')
		file:close()
		local data = io.open('data/monster/'..(arquivo or ''),'r')
		if not data then
			return 100
		end
		local maximo = data:read(-1):match('max%s*=%s*"(%d+)"')
		data:close()
		return maximo
end
----- Config -----
local MaximoSummon = 1
local nome = getItemName(item.uid)
local poke_name = nome:match('(.-) Masterball')
local summons = getCreatureSummons(cid)
local action_id = getItemAttribute(item.uid, "aid")
----- Config -----
	if getPlayerStorageValue(cid, 25000) == 5 then       
	return doPlayerSendCancel(cid, "You are riding.")
	end
	if getPlayerStorageValue(cid, 23000) == 5 then
	return doPlayerSendCancel(cid, "You are flying.")
	end
	if getItemAttribute(item.uid, "aid") == -1 then
	return doPlayerSendCancel(cid, "Your Pokemon Is Dead.")
	end	
local summons = getCreatureSummons(cid)
if item.uid ~= getPlayerSlotItem(cid, CONST_SLOT_FEET).uid then
doPlayerSendCancel(cid, "Sorry, you must put your pokeball in the pokeball place.")
return TRUE
end
if(table.maxn(summons) < MaximoSummon) then -- no summons
creature = doSummonCreature(poke_name, getCreaturePosition(cid))
doConvinceCreature(cid, creature)
registerCreatureEvent(creature, "Masterball")
registerCreatureEvent(cid, "PlayerPokeDeath")
registerCreatureEvent(cid, "LogoutPoke")
doPlayerSay(cid, "Go,"..poke_name.."!!", TALKTYPE_ORANGE_1)
doSendMagicEffect(getCreaturePosition(creature), 196)
doTransformItem(getPlayerSlotItem(cid,8).uid, 2523, 1)
doItemSetAttribute(getPlayerSlotItem(cid,8).uid,"name", poke_name .." Masterball")
		if action_id ~= 0 then
doCreatureAddHealth(creature, -(tonumber(getPokemonMaxLife(poke_name) - action_id)))
		else
		doCreatureAddHealth(creature, getPokemonMaxLife(poke_name))
		end
else
for _, pid in ipairs(summons) do
if (table.maxn(summons) >= 1) then
doItemSetAttribute(item.uid, "aid", getCreatureHealth(summons[1]))
doSendMagicEffect(getCreaturePosition(getCreatureSummons(cid)[1]), 196)
doPlayerSay(cid,"Back, "..poke_name.."", TALKTYPE_ORANGE_1)
doRemoveCreature(pid)
doTransformItem(getPlayerSlotItem(cid,8).uid, 2195, 1)
doItemSetAttribute(getPlayerSlotItem(cid,8).uid,"name", poke_name .." Masterball")
end
end
end
return true
end

Znalazłem tylko tyle :X

Zarchiwizowany

Ten temat przebywa obecnie w archiwum. Dodawanie nowych odpowiedzi zostało zablokowane.

×
×
  • Dodaj nową pozycję...