[Action/ajuda] Casino System

Por renannmtm

abril 25, 2011 em Lixeira Pública

renannmtm

Campones

INFOS

Grupo: Campones

Registrado: 15/04/10

Posts: 12

Postado em abril 25, 2011

Ae ae galera, eu queria perguntar se alguem tem o script do Casino que utiliza Slot Machine

Veja a Imagen

Eu vih esse tipo de Casino num Poketibia Mexicano, onde vc clicava consumia 1 Scarab q no caso era o Casino Coin

Ai era na sorte uma hora ganha outra perdia etc...

P.S: Ja tenho Casino System da Alavanca do Pokemon Dash

Alguem ai tem desse Casino que usa a Slot Machine?

No Pokemon POD, vem um script desse Casino, mas acho q está incompleto da uma olhada:

function onUse(cid, item, frompos, item2, topos)
if item.itemid == 3719 then

rand = math.random(1,15)

if rand  1 and  7 and doPlayerRemoveMoney (cid,100) == 1 then
doPlayerRemoveMoney(cid,100)
doPlayerSendTextMessage(cid,22, "Aff... Que azar!")
doRemoveItem(item.uid,1)

elseif rand  7 and  15 and doPlayerRemoveMoney (cid,100) == 1 then
doPlayerRemoveMoney (cid,100)
doPlayerSendTextMessage(cid,22, "Aff... Que azar!")
doRemoveItem(item.uid,1)

elseif rand == 15 and doPlayerRemoveMoney (cid,100) == 1 then
doPlayerAddItem(cid,2152,100)
doPlayerSendTextMessage(cid,22, "HuHuHu money!")
doRemoveItem(item.uid,1)
end

end
return 1
end

Eu adiciono no Script.xml, mas quando ligo o ot aparece isso:

[25/04/2011 11:48:38] [Error - LuaScriptInterface::loadFile] data/actions/scripts/casino.lua:6: 'then' expected near '1'
[25/04/2011 11:48:38] [Warning - Event::loadScript] Cannot load script (data/actions/scripts/casino.lua)

Alguem pode me ajudar e dizer o que tem de errado nele?

Achei um outro script feito pelo [ sejameuamigo ], mas nele os premius vem seguidos um atras do outro

a chance de ganhar o premio é mto facil...

thalia

Avatar Legends Online

Artesão

INFOS

Grupo: Artesão

Registrado: 03/07/07

Posts: 104

Postado em abril 25, 2011

Tenta assim:

function onUse(cid, item, frompos, item2, topos)
if item.itemid == 3719 then

rand = math.random(1,15)

if rand ~= 15 and doPlayerRemoveMoney (cid,100) == TRUE then
doPlayerRemoveMoney(cid,100)
doPlayerSendTextMessage(cid,22, "Aff... Que azar!")
doRemoveItem(item.uid,1)

elseif rand == 15 and doPlayerRemoveMoney (cid,100) == 1 then
doPlayerAddItem(cid,2152,100)
doPlayerSendTextMessage(cid,22, "HuHuHu money!")
doRemoveItem(item.uid,1)
end
else
doPlayerSendCancel(cid, 'You dont have money')
end
return 1
end

Eu fiz aqui correndo, se tiver errado dá um toque!

World of Avatar Online

NWGameShoW

renannmtm

Campones

INFOS

Grupo: Campones

Registrado: 15/04/10

Posts: 12

Postado em abril 26, 2011

Funcionar funcionou, mas não estava retirando o "Dinheiro" so dava a msg

"You dont have money"

Modei o ID do iten que removia, ai começou a consumir o iten mas o iten errado,

pois add a id da Cassino Coin (Scarab Coin) mas esta consumindo os Dollar's (Platinum Coin),

e tb só está perdendo, gasta 2 Dollar pra jogar, ja gastei mais de 200 e nada de ganhar :S

joaohd

Neox Boy

Visconde

INFOS

Grupo: Visconde

Registrado: 03/02/09

Posts: 361

Char no Tibia: Fearless Man

Postado em abril 26, 2011

Tente assim:

function onUse(cid, item)

local config = {
WinChance = 50,
Price = {
	Type = "Money", -- Se for "Money", não precisa do Id, mas recomendo que coloque
	Id = 0000,
	Count = 100
	},
Reward = {
	Id = 2152,
	Count = 100
	}
}

if (config.Price.Type == "Money") then
	if  (doPlayerRemoveMoney(cid, config.Price.Count)) then
		if (math.random(100) >= config.WinChance) then
			doPlayerSendTextMessage(cid, 25, "You win! There is your reward.")
			doPlayerAddItem(cid, config.Reward.Id, config.Reward.Count)
		else
			doPlayerSendTextMessage(cid, 25, "=x you got nothing.")
	else
		doPlayerSendCancel(cid, "You dont have money.")
	end

else
	if (doPlayerRemoveItem(cid, config.Price.Id, config.Price.Count)) then 
		if (math.random(100) >= config.WinChance) then
			doPlayerSendTextMessage(cid, 25, "You win! There is your reward.")
			doPlayerAddItem(cid, config.Reward.Id, config.Reward.Count)
		else
			doPlayerSendTextMessage(cid, 25, "=x you got nothing.")
	else
		doPlayerSendCancel(cid, "You dont have money.")
	end

end
return true
end

flw