renannmtm 0 Postado Abril 25, 2011 Share Postado 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... Link para o comentário https://xtibia.com/forum/topic/155633-actionajuda-casino-system/ Compartilhar em outros sites More sharing options...
thalia 280 Postado Abril 25, 2011 Share Postado 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! Link para o comentário https://xtibia.com/forum/topic/155633-actionajuda-casino-system/#findComment-1027995 Compartilhar em outros sites More sharing options...
renannmtm 0 Postado Abril 26, 2011 Autor Share Postado 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 Link para o comentário https://xtibia.com/forum/topic/155633-actionajuda-casino-system/#findComment-1028159 Compartilhar em outros sites More sharing options...
joaohd 200 Postado Abril 26, 2011 Share Postado Abril 26, 2011 (editado) 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 Editado Abril 26, 2011 por apocarai Link para o comentário https://xtibia.com/forum/topic/155633-actionajuda-casino-system/#findComment-1028161 Compartilhar em outros sites More sharing options...
Posts Recomendados