Nowe funkcje do otsa by Gelio. HIT! [8.x]

Gelio · 07-11-2008, 15:51

Witam. Postanowiłem napisać kilka nowych funkcji, które mam nadzieję użyjecie w swoim otsie. Wszystkie funkcje są zrobione w całości przeze mnie. Zabraniam rozpowszechniania tych funkcji bez mojej zgody. No więc zaczynamy:

1. Na początku otwórz plik global.lua, który znajduje się w folderze otsa/data.
2. Teraz zjedź na sam dół.

Lista funkcji:

Kod:

Dodawanie maksymalnej many gracza
Dodawanie maksymalnego hp gracza
Dodawanie danego skilla (skillów) graczowi.
doSearchCreatureInRoom(posx1, posy1, posx2, posy2, posz)  -- Szuka, czy w pomiedzy tymi pozycjami jest jakiś potwór. Zwraca ilość potwórów. Jeżeli nie znalazło żadnych potworów zwraca 0

Jak dodać te funkcje?
We wcześniej otwartym pliku global.lua na samym dole dodaj odpowiednie funkcje. Reszte trzeba dorzucić do skryptów ;/ Inaczej się nie dało niestety.
Dla doSearchCreatureInRoom:

Kod:

function doSearchCreatureInRoom(posx1, posy1, posx2, posy2, posz)
local position1 = {x=posx1, y=posy1, z=posz}
local position2 = {x=posx2, y=posy2, z=posz}
ile_monsterow = 0
for x=position1.x, position2.x do
	for y=position1.y, position2.y do
		local monsterpos = {x=x, y=y, z=posz, stackpos=253}
		local monster = getThingfromPos(monsterpos)
		if (monster > 0) then
		if (isPlayer(monster) == 0) then
			ile_monsterow = ile_monsterow+1
		end
		end
	end
end
return ile_monsterow
end

Następnie zapisujemy plik i zamykamy.

Przykłady użycia każdej z tych funkcji:
doPlayerAddMaxHealth:

Kod:

local ile_godzin = 5
local ile_hp = 100
local combat = createCombatObject()
setCombatParam(combat, COMBAT_PARAM_AGGRESSIVE, 0)
setCombatParam(combat, COMBAT_PARAM_EFFECT, CONST_ME_MAGIC_GREEN)
local condition = createConditionObject(CONDITION_ATTRIBUTES)
setConditionParam(condition, CONDITION_PARAM_TICKS, ile_godzin*1000*60*60)
setConditionParam(condition, CONDITION_PARAM_STAT_MAXHITPOINTS, ile_hp)
setCombatCondition(combat, condition)
function onUse(cid, item, frompos, item2, topos)
return doCombat(cid, combat, numberToVariant(cid))
end

doPlayerAddMaxMana:

Kod:

local ile_godzin = 5
local ile_many = 100
local combat = createCombatObject()
setCombatParam(combat, COMBAT_PARAM_AGGRESSIVE, 0)
setCombatParam(combat, COMBAT_PARAM_EFFECT, CONST_ME_MAGIC_GREEN)
local condition = createConditionObject(CONDITION_ATTRIBUTES)
setConditionParam(condition, CONDITION_PARAM_TICKS, ile_godzin*1000*60*60)
setConditionParam(condition, CONDITION_PARAM_STAT_MAXMANAPOINTS, ile_many)
setCombatCondition(combat, condition)
function onUse(cid, item, frompos, item2, topos)
return doCombat(cid, combat, numberToVariant(cid))
end
end

doPlayerAddSkill:

Kod:

local skillid = 1   -- Id skila. Mozliwe: 1-melee, 2-fist, 3-club, 4-sword, 5-axe, 6-distance, 7-shielding, 8-fishing
local ile = 10   -- Ile skil dodaje
local na_ile = 60*1000   -- Ile ma dzialac w sekundach
local combat = createCombatObject()
setCombatParam(combat, COMBAT_PARAM_AGGRESSIVE, 0)
setCombatParam(combat, COMBAT_PARAM_EFFECT, CONST_ME_MAGIC_GREEN)
local condition = createConditionObject(CONDITION_ATTRIBUTES)
setConditionParam(condition, CONDITION_PARAM_TICKS, na_ile)
if (skillid == 1) then
setConditionParam(condition, CONDITION_PARAM_SKILL_MELEE, ile)
elseif (skillid == 2) then
setCondituonParam(condition, CONDITION_PARAM_SKILL_FIST, ile)
elseif (skillid == 3) then
setConditionParam(condition, CONDITION_PARAM_SKILL_CLUB, ile)
elseif (skillid == 4) then
setConditionParam(condition, CONDITION_PARAM_SKILL_SWORD, ile)
elseif (skillid == 5) then
setConditionParam(condition, CONDITION_PARAM_SKILL_AXE, ile)
elseif (skillid == 6) then
setConditionParam(condition, CONDITION_PARAM_SKILL_DISTANCE, ile)
elseif (skillid == 7) then
setConditionParam(condition, CONDITION_PARAM_SKILL_SHIELD, ile)
elseif (skillid == 8) then
setConditionParam(condition, CONDITION_PARAM_SKILL_FISHING, ile)
end
setCombatCondition(combat, condition)
function onCastSpell(cid, var)
return doCombat(cid, combat, var)
end

doSearchCreatureInRoom:

Kod:

function onUse(cid, item, frompos, item2, topos)
local search = doSearchCreatureInRoom(500, 500, 600, 600, 7)
if (search == 0) then
	doPlayerAddItem(cid, 1111, 1)
	doPlayerSendTextMessage(cid,22,"Na tych pozycjach nie ma zadnego stwora. Dostajesz item o id 1111.")
else
	doPlayerSendTextMessage(cid,22,"Na tej pozycji jest jeszcze ".. search .." potworow.")
end
end

Mam nadzieję, że funkcje okażą się pomocne. Zostały testowane i działały.

Pozdro,
Gelio

P.S.: Użyjesz (albo nie) = skomentuj.

@down
Jak u ciebie jest to powiedz co to za silnik. Bo jakoś nigdzie nie widziałem skryptu, który dodawał max mane/hp.