~Per4x' - 2008-06-01 17:07:17

Witam chcialbym dac skrypt ktory od dawna uzywalem moze wam sie przyda ;) (kumpel dal mi go dawno a on nie wiem skad ma ale w kazdym razie nie jest moj)

W data/actions/scripts robimy plik kasyno.lua i wklejamy

function onUse(cid, item, frompos, item2, topos)

if ((item.actionid == 4334) and (item.itemid == 1945)) then

local kasapos = {x=frompos.x-1, y=frompos.y, z=frompos.z, stackpos=255}
local kasa = getThingfromPos(kasapos)
local wygrana = (kasa.type * 10)
local rand = math.random(1, 5)

    if kasa.itemid == 2152 or kasa.itemid == 2148 or kasa.itemid == 2160 then
        if kasa.type <= 10 then
            if rand == 1 then
            doRemoveItem(kasa.uid,kasa.type)
            doCreateItem(kasa.itemid,wygrana,kasapos)
            doSendMagicEffect(kasapos,31)
            doPlayerSendTextMessage(cid,22,"Wygrales!!!")
            doTransformItem(item.uid,item.itemid+1)
            else
            doPlayerSendCancel(cid,"Straciles tylko kase...")
            doRemoveItem(kasa.uid,kasa.type)
            doSendMagicEffect(kasapos,2)
            doTransformItem(item.uid,item.itemid+1)
            end
        else
        doPlayerSendCancel(cid,"Maksymalna kwota zakladu to 10!")
        end
    else
    doPlayerSendCancel(cid,"Poloz obok pieniadze!")
    end


elseif ((item.actionid == 4334) and (item.itemid == 1946)) then
local kasapos = {x=frompos.x-1, y=frompos.y, z=frompos.z, stackpos=255}
local kasa = getThingfromPos(kasapos)
local wygrana = (kasa.type * 10)
local rand = math.random(1, 5)

    if kasa.itemid == 2152 or kasa.itemid == 2148 or kasa.itemid == 2160 then
        if kasa.type <= 10 then
            if rand == 1 then
            doRemoveItem(kasa.uid,kasa.type)
            doCreateItem(kasa.itemid,wygrana,kasapos)
            doSendMagicEffect(kasapos,31)
            doPlayerSendTextMessage(cid,22,"Wygrales!!!")
            doTransformItem(item.uid,item.itemid-1)
            else
            doPlayerSendCancel(cid,"Straciles tylko kase...")
            doRemoveItem(kasa.uid,kasa.type)
            doSendMagicEffect(kasapos,2)
            doTransformItem(item.uid,item.itemid-1)
            end
        else
        doPlayerSendCancel(cid,"Maksymalna kwota zakladu to 10!")
        end
    else
    doPlayerSendCancel(cid,"Poloz obok pieniadze!")
    end


else
return 0
end
return 1
end

Potem do data/actions/actions.xml wklejamy

<action itemid="4334" script="kasyno.lua" />

Nie oczekuje na +

PzDr

Legolas - 2008-06-01 17:27:01

Skrypt jest dobry 8/10. ale prawie w każdym Evo jest ten skrypt więc twój kolega nie namęczył się kopiowaniem..

Sashar - 2008-06-01 17:32:00

Hmmm... Skrypt dobry 9/10 Kopia ale loozik :)

Ziele - 2008-06-01 18:28:33

Nom..powiem ze skrypt fajny :P 8/10

Pozdroo

Reebok - 2008-06-01 22:25:33

Fajne fajne widzlem to juz gdzes ale mimo to 9/10

Sura - 2008-08-14 07:35:31

fajny skrypt 9/10

Skatten - 2008-08-14 08:05:26

No Fajny Nawet Skrypt 8/10.... =X

Konieczko - 2008-08-14 08:50:15

Panowie up odswierzacie temat z 2 miesiecy leci -

Dantez - 2008-08-14 10:22:09

Dobra jak juz odswiezone to dam.

8/10 Fajny
OTSHazard ;p

adix1310 - 2008-10-08 22:20:59

Mam problem. Dodałem to do servera i jak otwieram server to pisze can not open data/actions/scripts/automat.lau             w pliku actions podpisałem dobrze nie wiem co jest

Poriq - 2008-10-08 22:38:11

po 1wsze - NIE ODSWIEZAJ STARYCH TEMATOW

Widze ze ci na koncie nie zalezy tylko chcesz zalatwic SWOJA sprawe ...

po 2gie na pewno cos musiales zrobic zle

po 3cie wypowiedz sie szczegolowiej ... nie czuje o co ci chodzi ...

adix1310 - 2008-10-09 07:36:31

Nic nie ma do wytłumaczenia. Poprostu nie wiem czemu nie che otworzyć tego pliku. Dodawałem inne skrypty i też nie chciało otworzyć. Podpisany plik jest dobry i w actions też dobrze napisany nie wiem co jest.

Dane323 - 2008-10-09 21:50:30

sprobuj zrobic
<action itemid="4334" script="kasyno.lua" />
powinno bzc dobrye

adix1310 - 2008-10-10 15:42:39

Dobra pomyślałem zrobiłem i działa dzienx

Jesteśmy producentem i dystrybutorem szamb blachy gatunkowe