Pokemon Fishing System

[Paulix 0]

[b]Nome:[/b] Fishing System
[b]Função:[/b] Pesca pokemons da agua, incluindo os shinys.
[b]Autor:[/b] Paulix
[b]Versão Testada:[/b] Pokemon Server v4.0

 

Bom pessoal... depois de um bom tempo sem criar scripts, achei um server de pokemon aki na otnet. O server possui muitos bugs, mais aos poucos da pra ir arrumando.

Fiz o sistema de Fishing, ja testei, e esta funcionando perfeitamente, toda pesca tem 20% de chance de pescar um pokemon... e 1% de chance dele vim shiny.

Enfim... vamos ao script:

function rnd(n)
a = math.random(1,n)
return a
end

function onUse(cid, item, fromPos, itemEx, toPos)


local s1 = {"Shiny Magikarp"}
local s2 = {"Shiny Magikarp","Shiny Krabby"}
local s3 = {"Shiny Magikarp","Shiny Krabby","Shiny Tentacool"}
local s4 = {"Shiny Magikarp","Shiny Krabby","Shiny Tentacool","Shiny Kingler","Shiny Seadra"}
local s5 = {"Shiny Magikarp","Shiny Krabby","Shiny Tentacool","Shiny Kingler","Shiny Seadra","Shiny Tentacruel"}
local s6 = {"Shiny Magikarp","Shiny Krabby","Shiny Tentacool","Shiny Kingler","Shiny Seadra","Shiny Tentacruel","Shiny Blastoise","Shiny Gyarados"}

local t1 = {"Magikarp"}
local t2 = {"Magikarp","Poliwag","Horsea","Krabby","Goldeen"}
local t3 = {"Magikarp","Poliwag","Horsea","Krabby","Goldeen","Tentacool","Psyduck","Staryu","Slowpoke","Squirtle","Seaking","Poliwhirl"}
local t4 = {"Magikarp","Poliwag","Horsea","Krabby","Goldeen","Tentacool","Psyduck","Staryu","Slowpoke","Squirtle","Seaking","Poliwhirl","Kingler","Wartortle","Starmie","Slowbro","Seadra","Golduck"}
local t5 = {"Magikarp","Poliwag","Horsea","Krabby","Goldeen","Tentacool","Psyduck","Staryu","Slowpoke","Squirtle","Seaking","Poliwhirl","Kingler","Wartortle","Starmie","Slowbro","Seadra","Golduck","Vaporeon","Poliwrath","Tentacruel"}
local t6 = {"Magikarp","Poliwag","Horsea","Krabby","Goldeen","Tentacool","Psyduck","Staryu","Slowpoke","Squirtle","Seaking","Poliwhirl","Kingler","Wartortle","Starmie","Slowbro","Seadra","Golduck","Vaporeon","Poliwrath","Tentacruel","Lapras","Blastoise","Gyarados"}

local config = {
waters = {4614, 4615, 4616, 4617, 4618, 4619, 4608, 4609, 4610, 4611, 4612, 4613, 7236, 4614, 4615, 4616, 4617, 4618, 4619, 4620, 4621, 4622, 4623, 4624, 4625, 4665, 4666, 4820, 4821, 4822, 4823, 4824, 4825},
}

local skill = getPlayerSkillLevel(cid, 6)
local playerpos = getCreaturePosition(cid)
local rand = math.random(0, 100)

if(isInArray(config.waters, itemEx.itemid)) then
	doSendMagicEffect(toPos, CONST_ME_LOSEENERGY)
	doPlayerAddSkillTry(cid, 6, 1)

if skill >= 100 then
	if rand == 1 then
		doSummonCreature(s6[rnd(#s6)], playerpos)
	elseif rand <= 20 then
		doSummonCreature(t6[rnd(#t6)], playerpos)
	end
elseif skill >= 80 then		
	if rand == 1 then
		doSummonCreature(s5[rnd(#s5)], playerpos)
	elseif rand <= 20 then
		doSummonCreature(t5[rnd(#t5)], playerpos)
	end
elseif skill >= 60 then
	if rand == 1 then
		doSummonCreature(s4[rnd(#s4)], playerpos)
	elseif rand <= 20 then
		doSummonCreature(t4[rnd(#t4)], playerpos)
	end
elseif skill >= 40 then
	if rand == 1 then
		doSummonCreature(s3[rnd(#s3)], playerpos)
	elseif rand <= 20 then
		doSummonCreature(t3[rnd(#t3)], playerpos)
	end
elseif skill >= 20 then
	if rand == 1 then
		doSummonCreature(s2[rnd(#s2)], playerpos)
	elseif rand <= 20 then
		doSummonCreature(t2[rnd(#t2)], playerpos)
	end
elseif skill >= 0 then
	if rand == 1 then
		doSummonCreature(s1[rnd(#s1)], playerpos)
	elseif rand <= 20 then
		doSummonCreature(t1[rnd(#t1)], playerpos)
	end
end
return true
end
end

 

Depois no actions.xml vc coloca assim:

<action itemid="2580" event="script" value="fishing.lua" allowfaruse="1"/>

Muitos usuários iram dizer:

Nossa... dava pra fazer de um geito muito mais facil.

 

Eu sei q dava pra fazer, mais como sou novo nessa area, criei do geito que eu consegui...

Espero ter ajudado o pessoal ai que gosta de servers de pokemon.

Até a proxima! OiaeuMae

Editado 2 Dezembro, 2010 por Paulix

[Oneshot 24]

Nada mal para quem está iniciando na área.

 

Aprovado e Movido.