Nie tylko o Tibii i OTS...
- Nie jesteś zalogowany.
#1 2010-11-14 23:50:45
- Robert
- Skąd: Las Vegas
- Zarejestrowany: 2008-07-01
- Posty: 1488
Mock fly system v1.0
Jest to już dosyć stary skrypt wykonany przez wspaniałego skryptera jakim jest Mock. (z otlandu).
* Autor: Mock the bear
* Testowane na: TFS 0.3.6
1) doklej do functions (folder lib) :
Kod:
function doCreateTile(id,pos)
doAreaCombatHealth(0,0,pos,0,0,0,255)
doCreateItem(id,1,pos)
end2) zrób plik flylib.lua w data/lib:
Kod:
CONST_FLYVOID = 460
CONT_FLYOUTFIT = 239
IGNORED = {6495,7096,7099,5167,5162,5163,405,7100,
5315,5521,5316,5193,5192,5191,945,5048,923,950,951,
952,953,3623,954,955,949,9101,3352,9106,9103,1524,
1111,437,433,443,434,442,436,445,941,444,435,943,
1027,925,930,926,928,922,921,1112,406,904,931,934,
932,933,5319} --- Config here
up = {}
down = {}
fly = {}
fly.win = function(cid)-- Script by mock
setPlayerStorageValue(cid, 102015,1)
doPlayerSendTextMessage(cid,27,'Now you can fly.')
end
fly.add = function(cid)-- Script by mock
if getPlayerStorageValue(cid, 102015) == -1 or getPlayerStorageValue(cid,13241) == 1 then
return false
end
if getPlayerStorageValue(cid, 102059) <= 0 then
local outfit = getCreatureOutfit(cid)
outfit.lookType = CONT_FLYOUTFIT
doSetCreatureOutfit(cid, outfit, -1)
setPlayerStorageValue(cid, 102059,1)
doChangeSpeed(cid, 390)
doPlayerSendTextMessage(cid,27,'Fale \'up\' e \'down\'.' )
return true
else
doPlayerSendTextMessage(cid,27, "Você ja esta voando.")
return false
end
end
function doSetItemActionId(uid,aid)
doItemSetAttribute(uid,'aid',aid)
end
function hasSqm(pos)-- by Mock
return getTileThingByPos({x=pos.x,y=pos.y,z=pos.z,stackpos=0}).itemid ~= 0
end
function isWalkable(pos, creature, proj, pz)-- by Nord
if getTileThingByPos({x = pos.x, y = pos.y, z = pos.z, stackpos = 0}).itemid == 0 then return false end
if getTopCreature(pos).uid > 0 and creature then return false end
if getTileInfo(pos).protection and pz then return false, true end
local n = not proj and 3 or 2
for i = 0, 255 do
pos.stackpos = i
local tile = getTileThingByPos(pos)
if tile.itemid ~= 0 and not isCreature(tile.uid) then
if hasProperty(tile.uid, n) or hasProperty(tile.uid, 7) then
return false
end
end
end
return true
end
fly.using=function(cid)-- Script by mock
return getPlayerStorageValue(cid, 102059) > 0
end
fly.logout = function(cid)-- Script by mock
if fly.using(cid) then
local p = getCreaturePosition(cid)
setPlayerStorageValue(cid, 102010,1)
setPlayerStorageValue(cid, 102011,p.x)
setPlayerStorageValue(cid, 102012,p.y)
setPlayerStorageValue(cid, 102013,p.z)
deletarEmVolta(p)
fly.del(cid)
end
return true
end
fly.login = function(cid)-- Script by mock
if getPlayerStorageValue(cid, 102010) ~= -1 then
setPlayerStorageValue(cid, 102010,-1)
local p = {}
p.x = getPlayerStorageValue(cid, 102011)
p.y = getPlayerStorageValue(cid, 102012)
p.z = getPlayerStorageValue(cid, 102013)
if not checkAround(p) then
fly.add(cid)
down.gerarEmVolta(p)
doTeleportThing(cid,p)
end
end
return true
end
fly.die = function(cid)-- Script by mock
if fly.using(cid) then
local p = getCreaturePosition(cid)
setPlayerStorageValue(cid, 102011,-1)
setPlayerStorageValue(cid, 102012,-1)
setPlayerStorageValue(cid, 102013,-1)
deletarEmVolta(p)
fly.del(cid)
end
return true
end
fly.del = function(cid)-- Script by mock
if getPlayerStorageValue(cid, 102059) > 0 then
if getSqmId(getCreaturePosition(cid)).itemid == CONST_FLYVOID then
return false
end
doRemoveCondition(cid, CONDITION_OUTFIT)
setPlayerStorageValue(cid, 102059,-1)
doChangeSpeed(cid, -390)
return true
end
end
function hasSqm2(pos)-- Script by mock
local f = getTileThingByPos(pos)
if f.itemid ~= 0 and f.itemid ~= 1 and (not isWalkable(pos) and not isInArray(IGNORED,f.itemid)) then
return true
end
return false
end
function hasSqm3(pos)-- Script by mock
local f = getTileThingByPos(pos)
if f.itemid ~= 0 and f.itemid ~= 1 and f.itemid ~= CONST_FLYVOID and not isInArray(IGNORED,f.itemid) then
return true
end
return false
end
function deletar(pos)-- Script by mock
if hasSqm(pos) then
local sqm = getSqmId(pos)
if sqm.itemid == CONST_FLYVOID then
doRemoveItem(sqm.uid,1)
end
end
end
function deletarEmVolta(pos)
for x=-1,1 do
for y=-1,1 do
deletar({x=pos.x+x,y=pos.y+y,z=pos.z})
end
end
end
function checkAround(pos)-- Script by mock
for x=-1,1 do
for y=-1,1 do
if hasSqm2({x=pos.x+x,y=pos.y+y,z=pos.z}) then
return true
end
end
end
return false
end
function fly.checkAround(pos)-- Script by mock
local n = 0
for x=-1,1 do
for y=-1,1 do
local g = getTileThingByPos({x=pos.x+x,y=pos.y+y,z=pos.z})
if g.itemid == CONST_FLYVOID then
n = n+1
end
if isCreature(getTopCreature({x=pos.x+x,y=pos.y+y,z=pos.z}).uid) then
return false
end
end
end
if n == 9 then
return true
end
return false
end
function up.checkAround(pos)-- Script by mock
for x=-1,1 do
for y=-1,1 do
local g = getTileThingByPos({x=pos.x+x,y=pos.y+y,z=pos.z})
if hasSqm3({x=pos.x+x,y=pos.y+y,z=pos.z}) or g.itemid == CONST_FLYVOID then
return true
end
end
end
return false
end
function down.checkAround(pos,f)-- Script by mock
for x=-1,1 do
for y=-1,1 do
local g = getTileThingByPos({x=pos.x+x,y=pos.y+y,z=pos.z})
if (not f and hasSqm2({x=pos.x+x,y=pos.y+y,z=pos.z})) or g.itemid == CONST_FLYVOID then
return true
end
end
end
return false
end
function gerarEmVolta(pos)-- Script by mock
local n = 30000
for x=-1,1 do
for y=-1,1 do
n =n+1
doItem({x=pos.x+x,y=pos.y+y,z=pos.z},n)
end
end
end
function doItem(pos,a,d)-- Script by mock
if not hasSqm2(pos) then
doCreateTile(CONST_FLYVOID,pos)
pos.stackpos = 0
local c = getTileThingByPos(pos)
doSetItemActionId(c.uid, a)
end
end
function getSqmId(pos,t)-- Script by mock
if hasSqm(pos) or t then
pos.stackpos = 0
local i = getTileThingByPos(pos)
return i
end
return nil
end
function down.doItem(pos,a)-- Script by mock
if not hasSqm(pos) then
doCreateTile(CONST_FLYVOID,pos)
pos.stackpos = 0
local c = getTileThingByPos(pos)
doSetItemActionId(c.uid, a)
end
end
function down.gerarEmVolta(pos)-- Script by mock
local n = 30000
for x=-1,1 do
for y=-1,1 do
n =n+1
down.doItem({x=pos.x+x,y=pos.y+y,z=pos.z},n)
end
end
end
function doCreateTile(id,pos) -- Script by mock
doAreaCombatHealth(0,0,pos,0,0,0,255)
doCreateItem(id,1,pos)
endCreaturescripts
1) w login.lua doklej:
Kod:
fly.login(cid)
2) to w logout.lua:
Kod:
fly.logout(cid)
3) i w playerdeath:
Kod:
fly.die(cid)
Movements
1) w movements.xml:
Kod:
<movevent type="StepIn" actionid="30001" event="script" value="fly.lua"/>
<movevent type="StepIn" actionid="30002" event="script" value="fly.lua"/>
<movevent type="StepIn" actionid="30003" event="script" value="fly.lua"/>
<movevent type="StepIn" actionid="30004" event="script" value="fly.lua"/>
<movevent type="StepOut" actionid="30005" event="script" value="fly.lua"/>
<movevent type="StepIn" actionid="30006" event="script" value="fly.lua"/>
<movevent type="StepIn" actionid="30007" event="script" value="fly.lua"/>
<movevent type="StepIn" actionid="30008" event="script" value="fly.lua"/>
<movevent type="StepIn" actionid="30009" event="script" value="fly.lua"/>
<movevent type="AddItem" tileitem="1" itemid="460" event="script" value="fly.lua"/>2) zrób plik fly.lua:
Kod:
---Script by mock the bear
function doCopyItem(item,pos) ---Script by mock the bear
for i=1,6 do
pos.z = pos.z+1
if hasSqm(pos) and getSqmId(pos).itemid ~= 10217 then
local i = doCreateItem(item.itemid,item.type,pos)
if item.actionid ~= 0 then
doSetItemActionid(i,item.actionid)
end
doSendMagicEffect(pos,9)
return i
else
local p2 = {x=pos.x+1,y=pos.y+1,z=pos.z}
doSendDistanceShoot(pos,p2,40)
doSendMagicEffect(pos,2)
end
end
end
function onAddItem(item,pos,k) ---Script by mock the bear
doCopyItem(item,k)
doRemoveItem(item.uid,item.type == 0 and 1 or item.type)
end
function onStepIn(cid, item, position, fromPosition) ---Script by mock the bear
local dir = {
[30004] = {0,6,7},
[30007] = {7,0,6,1,5},
[30008] = {1,5,7},
[30009] = {5,4,2,1,7},
[30006] = {2,5,4},
[30003] = {4,3,6,2,5},
[30002] = {3,4,6},
[30001] = {6,0,7,3,4},
}
if isPlayer(cid) then
local chkps = {x=position.x,y=position.y,z=position.z}
local ig = false
for i,b in pairs(dir[item.actionid]) do
local nw = getPosByDir(chkps,b)
local g = getTileThingByPos(nw)
if hasSqm3(nw) or g.itemid == CONST_FLYVOID or nw.x < 35 or nw.y < 35 then
ig = true
break
end
end
if not ig then
deletarEmVolta(fromPosition)
gerarEmVolta(getCreaturePosition(cid))
else
doTeleportThing(cid,fromPosition,false)
doPlayerSendTextMessage(cid,27, "Sorry, you cannot fly here.")
end
end
end
function onStepOut(cid, item, position, fromPosition,q)
addEvent(function(pos) if fly.checkAround(pos) then deletarEmVolta(pos) end end,10000,position)
endTalkactions
1) w talkactions.xml:
Kod:
<talkaction words="up" case-sensitive="no" event="script" value="flyup.lua"/>
<talkaction words="down" case-sensitive="no" event="script" value="flydown.lua"/>
<talkaction words="!fly" case-sensitive="no" event="script" value="fly.lua"/>2) zrób plik fly.lua:
Kod:
function onSay(cid, words, param) --- By moc kthe bear (MTB)
if param ~= '' and getPlayerGroupId(cid) > 3 then
local cida = getPlayerByName(param)
if cida and isPlayer(cida) then
fly.win(cida)
end
return true
end
if fly.using(cid) then
local p = getCreaturePosition(cid)
p.stackpos = 0
local f = getTileThingByPos(p)
if fly.del(cid) then
if f.itemid ~= 0 and f.itemid ~= 1 and f.itemid ~= CONST_FLYVOID then
return true
else
setPlayerStorageValue(cid,10941,1)
local p = getCreaturePosition(cid)
setPlayerStorageValue(cid, 102011,p.x)
setPlayerStorageValue(cid, 102012,p.y)
setPlayerStorageValue(cid, 102013,p.z)
return true
end
else
doPlayerSendTextMessage(cid,27,'You cannot turn off the fly here.')
end
else
if fly.add(cid) then
local pos = getCreaturePosition(cid)
if getSqmId(pos).itemid == 10217 then
down.gerarEmVolta(pos)
end
return true
else
doPlayerSendTextMessage(cid,27,'You cannot fly.')
return true
end
end
return true
end3) zrób plik flyup.lua:
Kod:
function onSay(cid)--- By moc kthe bear (MTB)
local time = os.time()
if time < getPlayerStorageValue(cid, 102054) then
doPlayerSendCancel(cid, "You are exhausted.")
return true
end
if not fly.using(cid) then
return false
end
local pos = getCreaturePosition(cid)
pos.z = pos.z-1
if hasSqm(pos) or pos.z < 0 or up.checkAround(pos) then
doPlayerSendTextMessage(cid,27,'You cannot fly higger.')
return true
else
gerarEmVolta(pos)
doTeleportThing(cid,pos)
pos.z = pos.z+1
deletarEmVolta(pos)
end
return true
end4) zrób plik flydown.lua:
Kod:
function onSay(cid)--- By moc kthe bear (MTB)
local time = os.time()
if time < getPlayerStorageValue(cid, 102054) then
doPlayerSendCancel(cid, "You are exhausted.")
return true
end
if not fly.using(cid) then
return false
end
local pos = getCreaturePosition(cid)
pos.stackpos = 0
local g = getTileThingByPos(pos)
pos.z = pos.z+1
local f = getTileThingByPos(pos)
if getSqmId(getCreaturePosition(cid)).itemid ~= CONST_FLYVOID
or down.checkAround(pos)
or (g.itemid ~= CONST_FLYVOID and f.itemid ~= CONST_FLYVOID and f.itemid ~= 0 and f.itemid ~= 1)
or (not isWalkable(pos,true,false,false) and hasSqm(pos))
or (hasSqm(pos) and not getTileHouseInfo(pos)) == 0 then
doPlayerSendTextMessage(cid,27,'You cannot go to down here.')
return true
else
down.gerarEmVolta(pos)
doTeleportThing(cid,pos)
pos.z = pos.z-1
deletarEmVolta(pos)
end
return true
endI gotowe! (tam gdzie trzeba zrobić nowy plik, to oczywiście dodajemy to z kodu)
Żeby latać musisz mieć 'pozwolenie'. Aby dodać takie zezwolenie wpisz na gmie+ !fly nick.
A żeby latać wpisz !fly i wpisuj up/down aby się poruszać po poziomach.
Jest jeszcze ver. 2.0 tego skryptu (w 99% taka sama jak na pokemon br) jak znajdę, to umieszczę.
gg; 7837377, kto coś ode mnie chce, to pisać. Na te forum wchodzę raz na rok. ^^
Na botach się nie znam, to samo na skryptach ots. W tibie nie gram, serwera nie mam.
btw, zapraszam na Jargam.es (serwer wow: wotlk, cod 4, minecraft i w przyszłości wow: cata./ ja gram póki co tylko na wotlku ;d)
Offline
Stopka forum
Powered by PunBB
© Copyright 2002–2008 PunBB
Wersja Lo-Fi