Zebron Dice System

[eng442 0]

Pra quem joga tibia, tem um npc em baixo do dp de Venore chamado Zebron. Ele aposta dinheiro contigo em um jogo de azar.

Pra quem gosta de programação (simples) fiz um batch que simula o que o Zebron faz.

 

APOSTADORES DE PLANTÃO! ISSO VICIA!

 

Copie e cole em um bloco de notas e salve como título.bat

 

@echo off
title DICE
color 2e
echo ############ B E M - V I N D O ! ############
echo.
echo Bem-vindo, %username% ao DICE
echo.
pause
cls
echo ############ R E G R A S ############
echo.
echo Voce aposta um valor, o computador joga o dado,
echo se cair 6, voce ganha 6 vezes o valor apostado, qulauqer
echo outro valor, voce paga o valor apostado.
echo.
echo Pressione qualquer tecla para INICIAR...
pause>nul
cls
set /a inicio=10000
echo Voce comeca com 10.000
pause
set rrr=1
:rot
cls
color 2e
set/p troco=Aposta quanto?(numeros sem virugulas):
if %rrr% equ 1 set player=%inicio%
set rrr=2
:1
cls
set /a rnd1=%random%%%7
echo %rnd1%
set /a rnd1c=%random%%%600
if %rnd1% == %rnd1c% goto 2
goto 1
:2
if %rnd1% equ 0 goto 1
if %rnd1% equ 6 goto ganhou
cls
color 0c
echo --- P E R D E U ---
echo.
echo Caiu %rnd1%!!!
echo.
set /a pf=%player%-%troco%
echo Seu dinheiro: %pf%
set player=%pf%
echo.
echo Pressione qualquer tecla para TENTAR NOVAMENTE...
pause>nul
goto rot
:ganhou
color 2e
cls
echo --- G A N H O U ---
echo.
echo Caiu %rnd1%!!!
echo.
set /a pf=%player%+(6*%troco%)
echo Seu dinheiro: %pf%
echo.
echo Pressione qualquer tecla para TENTAR NOVAMENTE...
pause>nul
goto rot

Editado Dezembro 10, 2008 por ITsuport