Strony: 1

 

#1 2008-07-28 09:24:40

PanDemon

http://i37.tinypic.com/330fo7t.gif

Zarejestrowany: 2007-11-05
Posty: 605

Super Ring

Znalazłem na otfans ciekawy skrypt i chce wam go tutaj zaprezentować
Jego działanie: gdy go założysz, sprawdza czy masz wystarczającą liczbe kasy, jesli masz to podnosi Ci hp i mane o 80% (max mana i max hp) oraz podnosi skille do 120 (mlvl i fishing też)
Oprócz tego dla chłopaka (male) animacja jest inna niż dla dziewczyny (female)
Trzeba go zapisać jako chaosbangle.lua w movements/scripts/

Spoiler:


local outfitMale =
{
lookType = 12,
lookHead = 19,
lookBody = 79,
lookLegs = 3,
lookFeet = 81,
lookAddons = 0
}

local outfitFemale =
{
lookType = 12,
lookHead = 19,
lookBody = 53,
lookLegs = 92,
lookFeet = 79,
lookAddons = 0
}

local cointype = 2148 -- Id of the coin the spell will use (2148 = gold coin, 2152 = platinum coin, 2160 = crystal coin) --
local tbcw = 1000 -- coin wasting time interval (miliseconds) --
local ncws = 1 -- number of coins used up during time interval --
local ncni = 10 -- number of coins needed to trigger the transformation --
local stcn = 20 -- number of coins needed to execute script (must be higher than ncni value) --
local warn = 1 -- warns player when runing short on coins, 1 = yes --
local cwar = 20 -- number of coins that triggers the warnings --

local bmaineff = CONST_ME_YELLOW_RINGS
local bsecondeff = CONST_ME_BLOCKHIT
local bflingeff = CONST_ANI_SMALLHOLY
local blandeff = CONST_ME_HOLYAREA
local bringwaste = CONST_ME_FIREWORK_YELLOW
local bringabsorb = CONST_ME_MAGIC_GREEN

local gmaineff = CONST_ME_EXPLOSIONAREA
local gsecondeff = CONST_ME_FIREAREA
local gflingeff = CONST_ANI_FIRE
local glandeff = CONST_ME_FIREWORK_RED
local gringwaste = CONST_ME_FIREWORK_RED
local gringabsorb = CONST_ME_MAGIC_RED

-- Small config section << --

local condition1 = createConditionObject(CONDITION_ATTRIBUTES)
setConditionParam(condition1, CONDITION_PARAM_TICKS, -1)
setConditionParam(condition1, CONDITION_PARAM_SKILL_FIST, 120)
setConditionParam(condition1, CONDITION_PARAM_SKILL_FISHING, 120)
setConditionParam(condition1, CONDITION_PARAM_SKILL_CLUB, 120)
setConditionParam(condition1, CONDITION_PARAM_SKILL_SWORD, 120)
setConditionParam(condition1, CONDITION_PARAM_SKILL_AXE, 120)
setConditionParam(condition1, CONDITION_PARAM_SKILL_DISTANCE, 120)
setConditionParam(condition1, CONDITION_PARAM_SKILL_SHIELD, 120)
setConditionParam(condition1, CONDITION_PARAM_SKILL_FISHING, 120)
setConditionParam(condition1, CONDITION_PARAM_STAT_MAGICPOINTS, 120)
setConditionParam(condition1, CONDITION_PARAM_STAT_MAXHITPOINTSPERCENT, 180)
setConditionParam(condition1, CONDITION_PARAM_STAT_MAXMANAPOINTSPERCENT, 180)

local condition2 = createConditionObject(CONDITION_HASTE)
setConditionParam(condition2, CONDITION_PARAM_TICKS, -1)
setConditionFormula(condition2, 2.5, 0, 3.0, 0)

function superform1(param)
    if param.crca == 1 then

        local pos = getCreaturePosition(param.cid)
        local sex = getPlayerSex(param.cid)

        local nha = {x = pos.x, y = pos.y - 3, z = pos.z, stackpos = 255}
        local sha = {x = pos.x, y = pos.y + 3, z = pos.z, stackpos = 255}
        local wha = {x = pos.x - 3, y = pos.y, z = pos.z, stackpos = 255}
        local eha = {x = pos.x + 3, y = pos.y, z = pos.z, stackpos = 255}

        local nwa = {x = pos.x - 2, y = pos.y - 2, z = pos.z, stackpos = 255}
        local nea = {x = pos.x + 2, y = pos.y - 2, z = pos.z, stackpos = 255}
        local sea = {x = pos.x + 2, y = pos.y + 2, z = pos.z, stackpos = 255}
        local swa = {x = pos.x - 2, y = pos.y + 2, z = pos.z, stackpos = 255}

        if sex == 1 then
            doSendMagicEffect(pos, bmaineff)
            doSendMagicEffect(pos, bsecondeff)

            doSendDistanceShoot(pos, nha, bflingeff)
            doSendDistanceShoot(pos, sha, bflingeff)
            doSendDistanceShoot(pos, wha, bflingeff)
            doSendDistanceShoot(pos, eha, bflingeff)
            doSendDistanceShoot(pos, nwa, bflingeff)
            doSendDistanceShoot(pos, nea, bflingeff)
            doSendDistanceShoot(pos, sea, bflingeff)
            doSendDistanceShoot(pos, swa, bflingeff)

            doSendMagicEffect(nha, blandeff)
            doSendMagicEffect(sha, blandeff)
            doSendMagicEffect(wha, blandeff)
            doSendMagicEffect(eha, blandeff)
            doSendMagicEffect(nwa, blandeff)
            doSendMagicEffect(nea, blandeff)
            doSendMagicEffect(sea, blandeff)
            doSendMagicEffect(swa, blandeff)

            doSetCreatureOutfit(param.cid, outfitMale, -1)
        else
            doSendMagicEffect(pos, gmaineff)
            doSendMagicEffect(pos, gsecondeff)

            doSendDistanceShoot(pos, nha, gflingeff)
            doSendDistanceShoot(pos, sha, gflingeff)
            doSendDistanceShoot(pos, wha, gflingeff)
            doSendDistanceShoot(pos, eha, gflingeff)
            doSendDistanceShoot(pos, nwa, gflingeff)
            doSendDistanceShoot(pos, nea, gflingeff)
            doSendDistanceShoot(pos, sea, gflingeff)
            doSendDistanceShoot(pos, swa, gflingeff)

            doSendMagicEffect(nha, glandeff)
            doSendMagicEffect(sha, glandeff)
            doSendMagicEffect(wha, glandeff)
            doSendMagicEffect(eha, glandeff)
            doSendMagicEffect(nwa, glandeff)
            doSendMagicEffect(nea, glandeff)
            doSendMagicEffect(sea, glandeff)
            doSendMagicEffect(swa, glandeff)
            doSetCreatureOutfit(param.cid, outfitFemale, -1)
        end

        doAddCondition(param.cid, condition1)
        doAddCondition(param.cid, condition2)

        local mhp = getCreatureMaxHealth(param.cid)
        local mma = getPlayerMaxMana(param.cid)
        local chp = getCreatureHealth(param.cid)
        local cma = getPlayerMana(param.cid)

        local dhp = mhp - chp
        local dma = mma - cma

        doCreatureAddHealth(param.cid, dhp)
        doPlayerAddMana(param.cid, dma)       

        doPlayerRemoveItem(param.cid, cointype, ncni)

        param.crcb = 1
        param.sex = sex
        setPlayerStorageValue(param.cid, 50780, 1)

        addEvent(superform2, 1, param)
    end
end

function superform2(param)
    if param.crca == 1 and param.crcb == 1 and isCreature(param.cid) == TRUE and getPlayerStorageValue(param.cid, 50780) == 1 then
        local pos = getCreaturePosition(param.cid)
        doPlayerRemoveItem(param.cid, cointype, ncws)
        if param.sex == 1 then       
            doSendMagicEffect(pos, bringwaste)
            doSendMagicEffect(pos, bringabsorb)
        else
            doSendMagicEffect(pos, gringwaste)
            doSendMagicEffect(pos, gringabsorb)
        end
        local goldleft = getPlayerItemCount(param.cid, cointype)
        if goldleft < cwar and warn == 1 then
            doPlayerSendTextMessage(param.cid, MESSAGE_STATUS_CONSOLE_RED, "Coins left: " ..goldleft.. ".")
        end
        if goldleft < ncws then
            param.crca = 0
            param.crcb = 0
            setPlayerStorageValue(param.cid, 50780, 0)
            doPlayerSendTextMessage(param.cid, MESSAGE_EVENT_DEFAULT, "Your bangle has been destroyed!")
            doPlayerRemoveItem(param.cid, 2127, 1)
            local pos = getCreaturePosition(param.cid)

            local nha = {x = pos.x, y = pos.y - 3, z = pos.z, stackpos = 255}
            local sha = {x = pos.x, y = pos.y + 3, z = pos.z, stackpos = 255}
            local wha = {x = pos.x - 3, y = pos.y, z = pos.z, stackpos = 255}
            local eha = {x = pos.x + 3, y = pos.y, z = pos.z, stackpos = 255}

            local nwa = {x = pos.x - 2, y = pos.y - 2, z = pos.z, stackpos = 255}
            local nea = {x = pos.x + 2, y = pos.y - 2, z = pos.z, stackpos = 255}
            local sea = {x = pos.x + 2, y = pos.y + 2, z = pos.z, stackpos = 255}
            local swa = {x = pos.x - 2, y = pos.y + 2, z = pos.z, stackpos = 255}


            doRemoveCondition(param.cid, CONDITION_OUTFIT)
            doRemoveCondition(param.cid, CONDITION_ATTRIBUTES)
            doRemoveCondition(param.cid, CONDITION_HASTE)

            if param.sex == 1 then
                doSendMagicEffect(pos, bmaineff)
                doSendMagicEffect(pos, bsecondeff)

                doSendDistanceShoot(pos, nha, bflingeff)
                doSendDistanceShoot(pos, sha, bflingeff)
                doSendDistanceShoot(pos, wha, bflingeff)
                doSendDistanceShoot(pos, eha, bflingeff)
                doSendDistanceShoot(pos, nwa, bflingeff)
                doSendDistanceShoot(pos, nea, bflingeff)
                doSendDistanceShoot(pos, sea, bflingeff)
                doSendDistanceShoot(pos, swa, bflingeff)

                doSendMagicEffect(nha, blandeff)
                doSendMagicEffect(sha, blandeff)
                doSendMagicEffect(wha, blandeff)
                doSendMagicEffect(eha, blandeff)
                doSendMagicEffect(nwa, blandeff)
                doSendMagicEffect(nea, blandeff)
                doSendMagicEffect(sea, blandeff)
                doSendMagicEffect(swa, blandeff)
            else
                doSendMagicEffect(pos, gmaineff)
                doSendMagicEffect(pos, gsecondeff)

                doSendDistanceShoot(pos, nha, gflingeff)
                doSendDistanceShoot(pos, sha, gflingeff)
                doSendDistanceShoot(pos, wha, gflingeff)
                doSendDistanceShoot(pos, eha, gflingeff)
                doSendDistanceShoot(pos, nwa, gflingeff)
                doSendDistanceShoot(pos, nea, gflingeff)
                doSendDistanceShoot(pos, sea, gflingeff)
                doSendDistanceShoot(pos, swa, gflingeff)

                doSendMagicEffect(nha, glandeff)
                doSendMagicEffect(sha, glandeff)
                doSendMagicEffect(wha, glandeff)
                doSendMagicEffect(eha, glandeff)
                doSendMagicEffect(nwa, glandeff)
                doSendMagicEffect(nea, glandeff)
                doSendMagicEffect(sea, glandeff)
                doSendMagicEffect(swa, glandeff)
            end
        else
            addEvent(superform2, tbcw, param)
        end
    end

end

function onEquip(cid, item, slot)
    local param = {cid = cid, item = item, slot = slot}
    local gold = getPlayerItemCount(cid, cointype)
    if gold > stcn then
        param.crca = 1
        addEvent(superform1, 1, param)
    end
end

function onDeEquip(cid, item, slot)
    if isPlayer(cid) and getPlayerStorageValue(cid, 50780) == 1 then

        doRemoveCondition(cid, CONDITION_OUTFIT)
        doRemoveCondition(cid, CONDITION_ATTRIBUTES)
        doRemoveCondition(cid, CONDITION_HASTE)

        local pos = getCreaturePosition(cid)
        setPlayerStorageValue(cid, 50780, 0)
        local sex = getPlayerSex(cid)

        local nha = {x = pos.x, y = pos.y - 3, z = pos.z, stackpos = 255}
        local sha = {x = pos.x, y = pos.y + 3, z = pos.z, stackpos = 255}
        local wha = {x = pos.x - 3, y = pos.y, z = pos.z, stackpos = 255}
        local eha = {x = pos.x + 3, y = pos.y, z = pos.z, stackpos = 255}

        local nwa = {x = pos.x - 2, y = pos.y - 2, z = pos.z, stackpos = 255}
        local nea = {x = pos.x + 2, y = pos.y - 2, z = pos.z, stackpos = 255}
        local sea = {x = pos.x + 2, y = pos.y + 2, z = pos.z, stackpos = 255}
        local swa = {x = pos.x - 2, y = pos.y + 2, z = pos.z, stackpos = 255}

        if sex == 1 then
            doSendMagicEffect(pos, bmaineff)
            doSendMagicEffect(pos, bsecondeff)

            doSendDistanceShoot(pos, nha, bflingeff)
            doSendDistanceShoot(pos, sha, bflingeff)
            doSendDistanceShoot(pos, wha, bflingeff)
            doSendDistanceShoot(pos, eha, bflingeff)
            doSendDistanceShoot(pos, nwa, bflingeff)
            doSendDistanceShoot(pos, nea, bflingeff)
            doSendDistanceShoot(pos, sea, bflingeff)
            doSendDistanceShoot(pos, swa, bflingeff)

            doSendMagicEffect(nha, blandeff)
            doSendMagicEffect(sha, blandeff)
            doSendMagicEffect(wha, blandeff)
            doSendMagicEffect(eha, blandeff)
            doSendMagicEffect(nwa, blandeff)
            doSendMagicEffect(nea, blandeff)
            doSendMagicEffect(sea, blandeff)
            doSendMagicEffect(swa, blandeff)
        else
            doSendMagicEffect(pos, gmaineff)
            doSendMagicEffect(pos, gsecondeff)

            doSendDistanceShoot(pos, nha, gflingeff)
            doSendDistanceShoot(pos, sha, gflingeff)
            doSendDistanceShoot(pos, wha, gflingeff)
            doSendDistanceShoot(pos, eha, gflingeff)
            doSendDistanceShoot(pos, nwa, gflingeff)
            doSendDistanceShoot(pos, nea, gflingeff)
            doSendDistanceShoot(pos, sea, gflingeff)
            doSendDistanceShoot(pos, swa, gflingeff)

            doSendMagicEffect(nha, glandeff)
            doSendMagicEffect(sha, glandeff)
            doSendMagicEffect(wha, glandeff)
            doSendMagicEffect(eha, glandeff)
            doSendMagicEffect(nwa, glandeff)
            doSendMagicEffect(nea, glandeff)
            doSendMagicEffect(sea, glandeff)
            doSendMagicEffect(swa, glandeff)
        end
    end
end

Następnie otwórz movements.xml i dopisz tam:

Spoiler:


<movevent event="Equip" itemid="2127" function="onEquipItem" slot="ring" script="chaosbangle.lua"/>
<movevent event="DeEquip" itemid="2127" function="onDeEquipItem" slot="ring" script="chaosbangle.lua"/>

Wybaczcie proszę, to że nie przetłumaczyłem tego w kodzie, ale nie mam dziś dużo czasu i boli mnie głowa

Komentować!

PS
Link do oryginalnego tematu: %#@$#@($*#@($@*#

Offline

 

#2 2008-07-28 12:45:17

jasiu1995l

http://i49.tinypic.com/2uggx2g.jpg

Zarejestrowany: 2007-12-05
Posty: 1396

Re: Super Ring

Ladnie ladnie 9/10

Ostatnio edytowany przez jasiu1995l (2008-07-28 12:45:38)

Offline

 

#3 2008-07-28 14:33:30

Hero

http://i35.tinypic.com/71u5wo.gif

Ukradli O Ja Biedny
Skąd: Się Tu Znalazłem ?
Zarejestrowany: 2008-06-09
Posty: 1030
Nick: _CrossBow3r_ i hack =///
Profesja: Alexander-Silkroad i hack =///
Server: 54 i Hack =///
WWW

Re: Super Ring

Bardzo Fajny i Pomysłowy Skrypcik
9/10

Wejdź, zarejestruj a pomożesz mi i sobie
http://i34.tinypic.com/fdyoh4.jpg

Offline

 

#4 2008-07-28 14:47:42

 kubxx

http://i37.tinypic.com/2s9vupj.gif

status 5601911
7326611
Zarejestrowany: 2007-12-16
Posty: 498

Re: Super Ring

fajne 9/10

Offline

 

#5 2008-07-29 21:35:52

Maly Wizak

Zbanowany

Skąd: Zadupie
Zarejestrowany: 2008-06-28
Posty: 1445
WWW

Re: Super Ring

spoko 9/10 ale niedaje na ots ;] bo za duzo dodaje ;]

http://img168.imageshack.us/img168/5679/avatarmd.png

FORUM Wyro v2.
http://img180.imageshack.us/img180/9063/11111i.png

Offline

 

#6 2008-07-30 15:53:23

Clia

http://i37.tinypic.com/okc0lk.gif

Zarejestrowany: 2008-07-27
Posty: 8

Re: Super Ring

9/10 .
Troszke za duzo jak na 1 ring.
Ale pomyslowe

http://www.pokeplushies.com/images/adoptables/578403.gif
Click here to feed me a Star Fruit!

Offline

 

#7 2008-07-30 16:32:17

lukimaster

http://i36.tinypic.com/qs3v5t.gif

Zarejestrowany: 2008-07-18
Posty: 805

Re: Super Ring

raczej sie przyda na h exp ots bo na taki mniejszy exp to raczej nie ale skrypt fajny

Nakarm mnie
http://www.pokeplushies.com/images/adoptables/644321.gif

Offline

 

#8 2008-07-31 12:23:14

Seba9

http://i33.tinypic.com/2mgkoj9.gif

876408
Call me!
Skąd: Wolsztyn
Zarejestrowany: 2007-10-22
Posty: 563

Re: Super Ring

no niezle 10/10

http://www.thecrims.com/profile.php?id=13151118

klikniesz?

Offline

 

#9 2008-08-01 15:45:15

Saskuke

http://i38.tinypic.com/19pb0n.gif

Skąd: Pulawy
Zarejestrowany: 2008-05-11
Posty: 18
Nick: Pori Klocil
Profesja: Askara
Server: 23

Re: Super Ring

Mi tam sie nie przyda ale 8/10 za pomyslowosc

11.05.2008 HAKED :( Jeden z moich harow shakowany 100-120k w dupe...:<

Offline

 

#10 2008-08-01 16:09:00

.Ms?

http://i37.tinypic.com/zmmamp.gif

11493214
Skąd: Pisz
Zarejestrowany: 2008-07-30
Posty: 37
Nick: Sendros Elite
Profesja: Pandoria
Server: 9
WWW

Re: Super Ring

Nieźle 9/10 bo nie twoj ;p

Offline

 

#11 2008-08-04 13:33:12

 DaVo

http://i35.tinypic.com/71u5wo.gif

Zarejestrowany: 2008-02-03
Posty: 1053
WWW

Re: Super Ring

Nie dodam go na ots ponieważ za dużo daje =) Ale mój kumpel ma h exp ots więć mu się przyda

@Edit Ocena... Hmmmm.... 7.5/10 ***

Ostatnio edytowany przez DaVo (2008-08-04 13:33:56)

<<

http://img835.imageshack.us/img835/1563/franklampard.png

Offline

 

#12 2008-08-04 13:37:49

Poriq

http://i37.tinypic.com/2s9vupj.gif

http://www.tibiatower.pun.pl/
Call me!
Skąd: Krk
Zarejestrowany: 2008-05-24
Posty: 501
Nick: Oryginalny
Profesja: Stabilny
Server: 10 pięter
WWW

Re: Super Ring

9/10

fajny skrypt ale powiem to samo co poprzednicy - za dużo daje jak na 1 ring :>
Pzdr

Tellworld - Twoja przygoda zaczyna się właśnie tutaj!
http://s2.tibiafun.y0.pl/char.php?c=Poriqqhttp://tibia.net.pl/image.php?type=sigpic&userid=59178&dateline=1258035521

Offline

 

 

Strony: 1

Stopka forum

RSS
Powered by PunBB
© Copyright 2002–2008 PunBB
Polityka cookies - Wersja Lo-Fi


Darmowe Forum | Ciekawe Fora | Darmowe Fora
www.l2fenix.pun.pl www.fifa09manager.pun.pl www.minecraftzikoforum.pun.pl www.administracjaukw.pun.pl www.ziemsu2012.pun.pl