Запись - OpenVK

Код для BAT-файла типа "Симулятор рыбалки"
Конечно сам написать я не мог(ибо я не знаю как делать титульник)

@echo off
title Fishing Simulator '95
color 1F
setlocal EnableDelayedExpansion

:: Стартовые переменные
set fish=0
set gold=20
set bait=5
set rod=1

:main
cls
echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
echo 🎣 Fishing Simulator '95
echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
echo Gold: !gold! Bait: !bait! Fish: !fish! Rod Level: !rod!
echo.
echo 1. Go Fishing
echo 2. Visit Shop
echo 3. Sell Fish
echo 4. Quit
echo.
set /p act=Choose action (1-4):

if "!act!"=="1" goto fish
if "!act!"=="2" goto shop
if "!act!"=="3" goto sell
if "!act!"=="4" exit
goto main

:fish
if !bait! LEQ 0 (
echo You have no bait left!
pause
goto main
)

set /a bait-=1
cls
echo Casting your line...
ping localhost -n 2 >nul

set /a chance=%random% %% 100

if !chance! LSS 10 (
echo A golden fish appears! +50 gold!
set /a gold+=50
) else if !chance! LSS 20 (
echo The line snapped! You lost the bait.
) else if !chance! LSS 30 (
echo You caught... an old boot
) else (
set /a fish+=1
echo You caught a fish!
)

pause
goto main

:sell
if !fish! LEQ 0 (
echo No fish to sell.
pause
goto main
)
set /a sellprice=!fish! * 5
set /a gold+=sellprice
echo Sold !fish! fish for !sellprice! gold!
set fish=0
pause
goto main

:shop
cls
echo Welcome to the Fishing Shop!
echo You have !gold! gold.
echo.
echo 1. Buy Bait (5g each)
echo 2. Upgrade Rod (+10%% catch chance) (30g)
echo 3. Back
set /p shopact=Choose (1-3):

if "!shopact!"=="1" (
set /p amount=How many bait?:
set /a cost=amount * 5
if !gold! GEQ !cost! (
set /a bait+=amount
set /a gold-=cost
echo Bought !amount! bait.
) else (
echo Not enough gold!
)
pause
goto shop
)

if "!shopact!"=="2" (
if !gold! GEQ 30 (
set /a rod+=1
set /a gold-=30
echo Your rod is now level !rod!
) else (
echo Not enough gold!
)
pause
goto shop
)

goto main

Комментарии (5)

Действия