Verdadeiro Cassino

[Jovial 2]

Ola, eu vi o cassino do rogui, ai lembrei do que eu havia feito mes passado para um amigo, é muito mais completo...

Crie um arquivo chamado papa nikel.lua e coloque isto dentro:

--- Cassino By -Jovial- ---

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

grana = {x=127, y=57, z=5, stackpos=1}

tela1pos = {x=127, y=58, z=5, stackpos=1}

tela2pos = {x=128, y=58, z=5, stackpos=1}

tela3pos = {x=129, y=58, z=5, stackpos=1}

getgrana = getThingfromPos(grana)

tela1 = getThingfromPos(tela1pos)

tela2 = getThingfromPos(tela2pos)

tela3 = getThingfromPos(tela3pos)

storage = 12345

if getgrana.itemid == 2160 then

if getgrana.type > 1 then

 doChangeTypeItem(getgrana.uid, getgrana.type-1)

 gasto = getPlayerStorageValue(cid, storage)

     if gasto == nil then

 	gasto = 0

 	end

 gasto = gasto - 1

 setPlayerStorageValue(cid, storage, gasto)



else

 doRemoveItem(getgrana.uid, 1)

 gasto = getPlayerStorageValue(cid, storage)

     if gasto == nil then

 	gasto = 0

 	end

 gasto = gasto - 1

 setPlayerStorageValue(cid, storage, gasto)



end

win = 0

doRemoveItem(tela1.uid,1)

doRemoveItem(tela2.uid,1)

doRemoveItem(tela3.uid,1)

t1math = math.random(1,3)

t2math = math.random(1,3)

t3math = math.random(1,3)

t4math = math.random(1,100)

 if t1math == 1 then

 	doCreateItem(2326,1,tela1pos)

 elseif t1math == 2 then

 	doCreateItem(2679,1,tela1pos)	

 elseif t1math == 3 then

 	doCreateItem(2134,1,tela1pos)	

 end

 

 if t2math == 1 then

 	doCreateItem(2326,1,tela2pos)

 elseif t2math == 2 then

 	doCreateItem(2679,1,tela2pos)	

 elseif t2math == 3 then

 	doCreateItem(2134,1,tela2pos)	

 end

 

 if t3math == 1 then

 	doCreateItem(2326,1,tela3pos)

 elseif t3math == 2 then

 	doCreateItem(2679,1,tela3pos)	

 elseif t3math == 3 then

 	doCreateItem(2134,1,tela3pos)	

 end

if t1math == 1 and t2math == 1 and t3math == 1 then

 doPlayerAddItem(cid,2160,2)

 doSendAnimatedText(getPlayerPosition(cid), "Win!!", TEXTCOLOR_RED)	

 gasto = getPlayerStorageValue(cid, storage)

 gasto = gasto + 2

 setPlayerStorageValue(cid, storage, gasto)

 	win = 1

elseif t1math == 2 and t2math == 2 and t3math == 2 then

 doPlayerAddItem(cid,2160,3)	

 doSendAnimatedText(getPlayerPosition(cid), "Win!!", TEXTCOLOR_RED)	

 gasto = getPlayerStorageValue(cid, storage)

 gasto = gasto + 3

 setPlayerStorageValue(cid, storage, gasto)

 	win = 1

elseif t1math == 3 and t2math == 3 and t3math == 3 then

 doPlayerAddItem(cid,2160,4)

 doSendAnimatedText(getPlayerPosition(cid), "Win!!", TEXTCOLOR_RED)

 gasto = getPlayerStorageValue(cid, storage)

 gasto = gasto + 4

 setPlayerStorageValue(cid, storage, gasto)

 	win = 1

else

 doSendAnimatedText(getPlayerPosition(cid), "Lose!!", TEXTCOLOR_RED)	

end

if win == 1 and t4math == 50 then

 doPlayerAddItem(cid,2160,100)

 gasto = getPlayerStorageValue(cid, storage)

 gasto = gasto + 100

 setPlayerStorageValue(cid, storage, gasto)

 posx = getPlayerPosition(cid)

 pos1 = {x=posx.x+1, y=posx.y+1, z=posx.z}

 pos2 = {x=posx.x+1, y=posx.y, z=posx.z}

 pos3 = {x=posx.x, y=posx.y+1, z=posx.z}

 pos4 = {x=posx.x-1, y=posx.y-1, z=posx.z}

 pos5 = {x=posx.x-1, y=posx.y, z=posx.z}

 pos6 = {x=posx.x, y=posx.y-1, z=posx.z}

 pos7 = {x=posx.x-1, y=posx.y+1, z=posx.z}

 pos8 = {x=posx.x+1, y=posx.y-1, z=posx.z}

 cores = {5, 35, 30, 172, 180, 198, 215, 255}

   n = math.random(1,table.getn(cores)) 

   doSendAnimatedText(posx, "$$$", n)

   n = math.random(1,table.getn(cores)) 

   doSendAnimatedText(pos1, "$$$", n)

   n = math.random(1,table.getn(cores)) 

   doSendAnimatedText(pos2, "$$$", n)

   n = math.random(1,table.getn(cores)) 

   doSendAnimatedText(pos3, "$$$", n)

   n = math.random(1,table.getn(cores)) 

   doSendAnimatedText(pos4, "$$$", n)

   n = math.random(1,table.getn(cores)) 

   doSendAnimatedText(pos5, "$$$", n)

   n = math.random(1,table.getn(cores)) 

   doSendAnimatedText(pos6, "$$$", n)

   n = math.random(1,table.getn(cores)) 

   doSendAnimatedText(pos7, "$$$", n)

   n = math.random(1,table.getn(cores)) 

   doSendAnimatedText(pos8, "$$$", n)

end

else

doPlayerSendTextMessage(cid,22,"Trabalhamos so com crystal coin.") 

end

return 1

end

Adicionei no actions.xml isto:

<action actionid="7537" script="papa nikel.lua"  />

Faça uma sala parecida com esta:

E coloque na alavanca actionid 7537.

grana = {x=127, y=57, z=5, stackpos=1} Coloque a posiçao da basin = na foto que é onde o dinheiro devera estar.

tela1pos = {x=127, y=58, z=5, stackpos=1} posiçao do primeiro item (itens que servem de infeite, se fikar os 3 iguais vc ganha, no caso é a cereja o bear e o broch)

tela2pos = {x=128, y=58, z=5, stackpos=1} posiçao do segundo item (itens que servem de infeite, se fikar os 3 iguais vc ganha, no caso é a cereja o bear e o broch)

tela3pos = {x=129, y=58, z=5, stackpos=1} posiçao do terceiro item (itens que servem de infeite, se fikar os 3 iguais vc ganha, no caso é a cereja o bear e o broch)

 

Pronto essa aprte acabou..

 

Vamos agora fazer o que ira te falar quanto voçe ja gastou no cassino...

 

Crie um arquivo chamado perdas.lua e coloque isso:

--- Cassino By -Jovial- ---

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

storage = 12345

gasto = getPlayerStorageValue(cid, storage)

if gasto > 0 then

doSetItemText(item.uid,"Voce teve um lucro de " .. gasto .. "0 k em nossos jogos.")

elseif gasto < 0 then

gasto = gasto*(-1)

doSetItemText(item.uid,"Voce teve um prejuiso de " .. gasto .. "0 k em nossos jogos.") 

elseif gasto == 0 then

doSetItemText(item.uid,"Voce nao teve nem lucro nem prejuiso em nossos jogos.") 

else

doSetItemText(item.uid,"Voce ainda nao jogou em nosso cassino.") 

end





end

E adicione no actions.xml isso:

<action itemid="4854" script="perdas.lua"  />

e Pronto, agora é so jogar e fazer o item 4854 para saber quanto voçe ja gastou ou lucrou com o cassino..

 

Espero que gostem.. qualquer duvida manda um mp, flw

Comentem ai

 

-Jovial-

[Rogui 0]

Bem mais completo mesmo ^^

 

Aquele meu lá era só para zuar, mas esse ficou bem legal

[Vufusuf 1]

Boa Jow (Jowvial? ^^)

Muito completa essa action.

Já testei e funciona direitinho.

 

Espero que o pessoal faça um bom proveito.

 

Parabéms ae, bem explicado o tópico

 

See Ya!

[LordPHMF1992 0]

Muito massa esse cassino adorei.. recomendo para todos, cuidado é viciante heuahuea

[Armageddom 0]

Mano ficou muito Show de bola esses seus Script's

do cassino, testado e aprovado.

Esse seu Cassino é muito bom para um Otserver sério, porém

que tenha muita diversão para que os players não fiquem

so jogando para pegar level e sim também para tentar ganhar

uma graninha heheh.

Valeu mesmo mano e continue assim com esse seu

jeito de querer ajudar nos usuários do fórum.

APROVADO.

Falo e até logo! :wink:

[Deitri 0]

Não vi o outro script de cassino, mas, esse esta muito bom

 

Criatividade: 7.5

Action: 9.0

Tópico: 7.0

NOTA: 8.5

[Jovial 2]

Originally posted by Deitri

Não vi o outro script de cassino, mas, esse esta muito bom

 

Criatividade: 7.5

Action: 9.0

Tópico: 7.0

NOTA: 8.5

Oia o kara =D vlw pelas notas =D

[Sakz 0]

DELETA AQUI.

 

Deu frezza na NET e sem quere postei 2 vezez

 

Peço desculpas mesmo, se algum moderador puder excluir aqui, fico grato.

 

Desculpas.

 

Sakz~

[Sakz 0]

Nossa, consegui fazer.

 

Muito bom, perfectê.

 

Já vi outro script seu e é tão bom quanto esse.

 

Parabéns e continua assim

 

Abraços,

 

Sakz~

[KaKoO 0]

Esse Vale Apena Baxa Pessoal!!Muito Legal!!!

AproVadO

[KaKoO 0]

Esse Vale Apena Baxa Pessoal!!Muito Legal!!!

AproVadO

[KaKoO 0]

Esse Vale Apena Baxa Pessoal!!Muito Legal!!!

AproVadO

 

 

OTNetWorks Peço Desculpas Por Postar 3 Vezes...Mais é Que Aki em Casa Toda Hora Da Erro...E Não Consigo Apagar As Mensagens Da Muito Erro Aki...Intaum Peço Desculpas...Não Sei Se Acontece Com Otras Pessoas Mais Aki Da Erro Direto Quando Eu Posto,Se For Um Erro Do Cite Pesso Que Pelo Menos Tentem Concertar isso,Mais Se Não For Pessoa Desculpas Obrigado

[kosicki123 0]

Realmente fikei mto tempo jogando junto com os players no meu ot, funfa q eh uma blz esse cassino kkkkkk =) parabens pela criatividade e pelo trabalho duro =) continue assim e obrigado pela action ;D

[Elwyn Akan 0]

boa veiu

se eu desse a nota seria entre 9 e 10

mas eu criei um ot bem antigao so pra zua e n funciona =P

[Snap 0]

Gostei muito vei soh tenho uma duvida onde eu edito as chances de ganhar e perder

 

pq cada 10 vc perde 9 auhu xD

[Albinex 0]

eh pra q versao?

funfa na 7.92?

[Light 0]

Muito boa xD

Parabens e vlw pela ajuda ok ?

Flws !

[Nery 0]

mto rox... gratz

[Asterisco 0]

Po cara mto bomm msm velho

ParaBenS!!

[Suboras 0]

Huehue... Mt lgl esse casino ;X

Eu ateh tive umas ideias lokas com ele ;D

 

Flws!