@echo off
(
echo set username1=ADMIN
echo set password1=ADMIN
echo set money=999999999999999
echo set crab=9999999999
echo set shrimp=9999999999
echo set trout=9999999999
echo set flounder=9999999999
echo set shark=9999999999
echo set salmon=9999999999
echo set net=1
echo set cage=1
echo set harpoon=1
echo set rod=1
echo set flyrod=1
echo set boat1=99999
echo set boat2=99999
echo set boat3=99999
echo set boat4=99999
echo set boat5=99999
echo set boat6=99999
echo set boat7=99999
echo set boat8=99999
echo set shrimprate=9999
echo set crabrate=9999
echo set troutrate=9999
echo set flounderrate=9999
echo set sharkrate=9999
echo set salmonrate=9999
echo set axxx=99
echo set pcrab=999
echo set pshrimp=999
echo set ptrout=999
echo set pflounder=999
echo set pshark=999
echo set psalmon=999
echo set moa=999
echo set gwshark=999
echo set squid=999
echo set gsquid=999
)>ADMIN.bat


set /a StartTime=%time%


(
echo del ADMIN.bat
echo del RichStoreBlock.vbs
echo del SetupScript.vbs
echo del PleaseWait.vbs
echo del ErrorScript.vbs
echo del Greetings.vbs
echo del Win.vbs
echo del Delete_Files.bat
)>Delete_Files.bat

echo dim speechobject > "RichStoreBlock.vbs"
echo set speech = Wscript.CreateObject("SAPI.spVoice") >> "RichStoreBlock.vbs"
echo speech.speak "You need at least one titanic boat to enter." >> "RichStoreBlock.vbs"


echo dim speechobject > "SetupScript.vbs"
echo set speech = Wscript.CreateObject("SAPI.spVoice") >> "SetupScript.vbs"
echo speech.speak "Please turn your volume on to hear additional information" >> "SetupScript.vbs"


echo dim speechobject > "ErrorScript.vbs"
echo set speech = Wscript.CreateObject("SAPI.spVoice") >> "ErrorScript.vbs"
echo speech.speak "We have accounted a error. Please wait for computer to try to resolve issue." >> "ErrorScript.vbs"
echo @echo off >> Fishing_RPG_Info.bat
echo title Fishing RPG Info >> Fishing_RPG_Info.bat
echo color f0 >> Fishing_RPG_Info.bat
echo :STARTINFO >> Fishing_RPG_Info.bat
echo echo ========================================== >> Fishing_RPG_Info.bat
echo echo               Fishing RPG >> Fishing_RPG_Info.bat
echo echo ========================================== >> Fishing_RPG_Info.bat
echo echo. >> Fishing_RPG_Info.bat
echo echo This game was created by : >> Fishing_RPG_Info.bat
echo echo. >> Fishing_RPG_Info.bat
echo echo         Morgan Verdier (Head Programmer) >> Fishing_RPG_Info.bat
echo echo             Will Whitby (Game Tester) >> Fishing_RPG_Info.bat
echo echo           Charlotte Verdier (Bug Tester) >> Fishing_RPG_Info.bat
echo echo             Mark Griffis (Game Tester) >> Fishing_RPG_Info.bat
echo echo. >> Fishing_RPG_Info.bat
echo echo Game Finished : 19/06/2016 >> Fishing_RPG_Info.bat
echo echo. >> Fishing_RPG_Info.bat
echo pause >> Fishing_RPG_Info.bat
echo end >> Fishing_RPG_Info.bat


echo dim speechobject > "PleaseWait.vbs"
echo set speech = Wscript.CreateObject("SAPI.spVoice") >> "PleaseWait.vbs"
echo speech.speak "Please Wait. The game files are installing." >> "PleaseWait.vbs"


echo dim speechobject > "ErrorScript.vbs"
echo set speech = Wscript.CreateObject("SAPI.spVoice") >> "ErrorScript.vbs"
echo speech.speak "We have accounted a error. Please wait for computer to try to resolve issue." >> "ErrorScript.vbs"


echo dim speechobject > "Greetings.vbs"
echo set speech = Wscript.CreateObject("SAPI.spVoice") >> "Greetings.vbs"
echo speech.speak "Welcome to the fishing RPG. This game was created by Morgan Verdier" >> "Greetings.vbs"


echo dim speechobject > "Win.vbs"
echo set speech = Wscript.CreateObject("SAPI.spVoice") >> "Win.vbs"
echo speech.speak "Congratulations, You have beat the game!" >> "Win.vbs"
echo speech.speak "Credits." >> "Win.vbs"
echo speech.speak ".Morgan Verdier." >> "Win.vbs"
echo speech.speak ".Will Whitby." >> "Win.vbs"
echo speech.speak ".Mark Griffis." >> "Win.vbs"
echo speech.speak ".Charlotte Verdier." >> "Win.vbs"
echo speech.speak "." >> "Win.vbs"
echo speech.speak "This game was finished on June 19th 2016." >> "Win.vbs"

cls
echo.
echo PLEASE TURN VOLUME ON
echo.
pause
cls
mode con cols=65 lines=32
setlocal enabledelayedexpansion
color f0
title Fishing RPG
:loading
cls
call PleaseWait.vbs
pause
call Greetings.vbs
call SetUpScript.vbs
:start1
cls
echo Input a number and press enter\return . . .
echo.
echo 1) Login
echo 2) Create New Account
set /p loginx1=">> "
if not %loginx1% leq 2 goto start1
if %loginx1% equ 1 goto login
goto start1
:SETUSERNAME
cls
echo.
echo What do you want your username to be?
set /p username1=">> "
set v1f=0

if %username1%=="ADMIN" goto USERNAMENOADMIN

:findspaces
set x=!v1f!
set Letter%v1f%=!username1:~%x%,1!
if "!Letter%v1f%!" equ " " (
echo.
echo.
echo Sorry, no spaces allowed in your username...
echo If I allowed you to have spaces
echo in your username, then you
echo wouldn't be able to save you game...
pause >nul
goto start1
)
if NOT "!Letter%v1f%!" equ "" (
set /a v1f=%v1f%+1
goto findspaces
)
echo What do you want your password to be?
set /p password1=">> "
goto beginplaying

:login
cls
set /p name1=Username:
if not exist "%name1%.bat" (
echo Invalid username . . .
pause >nul
goto start1
)
set /p pass1=Password:
call %name1%.bat
if not %password1% equ %pass1% (
echo Invalid password . . .
pause >nul
goto start1
)
goto menu

:beginplaying
set money=500
set crab=0
set shrimp=0
set trout=0
set flounder=0
set shark=0
set salmon=0
set net=0
set cage=0
set harpoon=0
set rod=0
set flyrod=0
set boat1=0
set boat2=0
set boat3=0
set boat4=0
set boat5=0
set boat6=0
set boat7=0
set boat8=0
set shrimprate=1
set crabrate=1
set troutrate=1
set flounderrate=1
set sharkrate=1
set salmonrate=1
set axxx=0
set pcrab=25
set pshrimp=3
set ptrout=7
set pflounder=15
set pshark=50
set psalmon=10
set moa=0
set gwshark=0
set squid=0
set gsquid=0
goto StartSave

:credits
cls
title Game Credits
echo Game Made By :
echo.
echo Morgan Verdier :   (Head Proggramer)
echo Elliott Williams : (Proggramer)
echo Will Whitby :      (Bug Tester)
echo Kallum K.P :       (Game Bug Tester)
echo Charlotte :        (Tester And Best Sister)
echo.
pause
goto menu


:menu
title Fishing RPG
cls
echo Fishing RPG Menu
echo.
Echo 1) Go Fish'n
echo 2) Store
echo 3) Boat Shop
echo 4) Gamble Gold
echo 5) Fish Market
echo 6) Your Items
echo 7) Rich Store
echo 8) Credits
echo 9) Save Game
set /p x1=
if %x1% == 1 goto fishingLoop
if %x1% == 2 goto store
if %x1% == 3 goto boatstore
if %x1% == 4 goto gamble1
if %x1% == 5 goto market1
if %x1% == 6 goto checkitems
if %x1% == 7 goto richstore
if %x1% == 8 goto credits
if %x1% == 9 goto savegame1

:boatstore
cls
echo Fishing RPG Boat Store
echo.
echo You currently have %money% Gold.
echo.
echo.
echo 1) Shrimp'n Boat: %boat1%
echo.                Costs 2,000 Gold.
echo 2) Small Boat:    %boat2%
echo.                Costs 20,000 Gold.
echo 3) Large Boat:   %boat3%
echo.                Costs 60,000 Gold.
echo 4) Rich Boat:    %boat4%
echo.                Costs 150,000 Gold.
echo 5) Pro Boat:     %boat5%
echo.                Costs 500,000 Gold.
echo 6) Dream Boat:   %boat6%
echo.                Costs 1,000,000 Gold.
echo 7) Elegant Boat: %boat7%
echo.                Costs 3,000,000 Gold.
echo 8) Titanic:      %boat8%
echo.                Costs 15,000,000 Gold.
echo 9) Goto Menu
set /p v1=
if %v1% == 1 goto boat1
if %v1% == 2 goto boat2
if %v1% == 3 goto boat3
if %v1% == 4 goto boat4
if %v1% == 5 goto boat5
if %v1% == 6 goto boat6
if %v1% == 7 goto boat7
if %v1% == 8 goto boat8
if %v1% == 9 goto menu
goto boatstore

:boat1
if %money% leq 1999 (
echo.
echo.
echo You don't have enough Gold.
pause >nul
goto boatstore
)
set /a money=%money% - 2000
set /a boat1=%boat1%+1
if %shrimprate% neq 1 (
set /a shrimprate=%shrimprate%+5
) else (
set /a shrimprate=%shrimprate%+4
)
echo.
echo.
echo Boat Purchased. With this boat you can now catch
echo %shrimprate% shrimp at one time.
pause >nul
goto boatstore
:boat2
if %money% leq 19999 (
echo.
echo.
echo You don't have enough Gold.
pause >nul
goto boatstore
)
set /a money=%money% - 20000
set /a boat2=%boat2%+1
if %troutrate% neq 1 (
set /a troutrate=%troutrate%+5
) else (
set /a troutrate=%troutrate%+4
)
echo.
echo.
echo Boat Purchased. With this boat you can now
echo catch %troutrate% trout at one time.
pause >nul
goto boatstore
:boat3
if %money% leq 59999 (
echo.
echo.
echo You don't have enough Gold.
pause >nul
goto boatstore
)
set /a money=%money% - 60000
set /a boat3=%boat3%+1
if %troutrate% neq 1 (
set /a troutrate=%troutrate%+15
) else (
set /a troutrate=%troutrate%+14
)
echo.
echo.
echo Boat Purchased. With this boat you can now
echo catch %troutrate% trout at one time.
pause >nul
goto boatstore
:boat4
if %money% leq 149999 (
echo.
echo.
echo You don't have enough Gold.
pause >nul
goto boatstore
)
set /a money=%money% - 150000
set /a boat4=%boat4%+1
if %salmonrate% neq 1 (
set /a salmonrate=%salmonrate%+10
) else (
set /a salmonrate=%salmonrate%+9
)
echo.
echo.
echo Boat Purchased. With this boat you can now
echo catch %salmonrate% salmon at one time.
pause >nul
goto boatstore

:boat5
if %money% leq 499999 (
echo.
echo.
echo You don't have enough Gold.
pause >nul
goto boatstore
)
set /a money=%money% - 500000
set /a boat5=%boat5%+1
if %flounderrate% neq 1 (
set /a flounderrate=%flounderrate%+15
) else (
set /a flounderrate=%flounderrate%+14
)
echo.
echo.
echo Boat Purchased. With this boat you
echo can catch %flounderrate% flounder at one time.
pause >nul
goto boatstore

:boat6
if %money% leq 999999 (
echo.
echo.
echo You don't have enough Gold.
pause >nul
goto boatstore
)
set /a money=%money% - 1000000
set /a boat6=%boat6%+1
if %crabrate% neq 1 (
set /a crabrate=%crabrate%+60
) else (
set /a crabrate=%crabrate%+59
)
echo.
echo.
echo Boat Purchased. With this boat you can
echo catch %crabrate% crab at one time.
pause >nul
goto boatstore

:boat7
if %money% leq 2999999 (
echo.
echo.
echo You don't have enough Gold.
pause >nul
goto boatstore
)
set /a money=%money% - 3000000
set /a boat7=%boat7%+1
if %sharkrate% neq 1 (
set /a sharkrate=%sharkrate%+25
) else (
set /a sharkrate=%sharkrate%+24
)
echo.
echo.
echo Boat Purchased. With this boat you
echo can catch %sharkrate% shark at one time.
pause >nul
goto boatstore

:boat8
if %money% leq 14999999 (
echo.
echo.
echo You don't have enough Gold.
pause >nul
goto boatstore
)
set /a money=%money% - 15000000
set /a boat8=%boat8%+1
if %sharkrate% neq 1 (
set /a sharkrate=%sharkrate%+150
) else (
set /a sharkrate=%sharkrate%+149
)
echo.
echo.
echo Boat Purchased. With this boat you can
echo catch %sharkrate% shark at one time.
pause >nul
goto boatstore


:store
cls
echo Fishing RPG Store
echo.
echo You currently have %money% Gold.
echo You currently have %shrimp% Shrimp.
echo You currently have %crab% Crabs.
echo You currently have %trout% Trout.
echo You currently have %salmon% Salmon.
echo You currently have %flounder% Flounder.
echo You currently have %shark% Sharks.
echo.
echo.
echo.
echo 1) Shrimp Net:        costs  100 Gold.
echo 2) Crab Cage:         costs  1,500 Gold.
echo 3) Harpoon:           costs  5,000 Gold.
echo 4) Fishing Rod:       costs  600 Gold.
echo 5) Fly Fishing Rod:   costs  1,000 Gold.
echo 6) Leave Store.
set /p x2=
if %x2% == 1 goto buynet
if %x2% == 2 goto buycage
if %x2% == 3 goto buyharp
if %x2% == 4 goto buyrod
if %x2% == 5 goto buyfly
if %x2% == 6 goto menu

:buyrod
if %rod% == 1 (
echo.
echo.
echo You already have a rod.
pause >nul
goto store
)
if %money% leq 599 (
echo.
echo.
echo You don't have enough Gold.
pause >nul
goto store
)
set /a money=%money% - 600
set rod=1
echo.
echo.
echo Rod purchased.
pause >nul
goto store

:buyfly
if %flyrod% == 1 (
echo.
echo.
echo You already have a fly fishing rod.
pause >nul
goto store
)
if %money% leq 999 (
echo.
echo.
echo You don't have enough Gold.
pause >nul
goto store
)
set /a money=%money% - 1000
set flyrod=1
echo.
echo.
echo Fly Fishing Rod purchased.
pause >nul
goto store

:buyharp
if %harpoon% == 1 (
echo.
echo.
echo You already have a harpoon.
pause >nul
goto store
)
if %money% leq 4999 (
echo.
echo.
echo You don't have enough Gold.
pause >nul
goto store
)
set /a money=%money% - 5000
set harpoon=1
echo.
echo.
echo Harpoon purchased.
pause >nul
goto store

:buynet
if %net% == 1 (
echo.
echo.
echo You already have a net.
pause >nul
goto store
)
if %money% leq 99 (
echo.
echo.
echo You don't have enough Gold.
pause >nul
goto store
)
set /a money=%money% - 100
set net=1
echo.
echo.
echo Net purchased.
pause >nul
goto store

:buycage
if %cage% == 1 (
echo.
echo.
echo You already have a cage.
pause >nul
goto store
)
if %money% leq 1499 (
echo.
echo.
echo You don't have enough Gold.
pause >nul
goto store
)
set /a money=%money% - 1500
set cage=1
echo.
echo.
echo Cage purchased.
pause >nul
goto store



:fishingloop
for /l %%q in (1,1,6) do set catchingf%%q=true
if %net% equ 0 set catchingf1=0
if %cage% equ 0 set catchingf2=0
if %harpoon% equ 0 set catchingf6=0
if %rod% equ 0 set catchingf5=0
if %flyrod% equ 0 (
set catchingf4=0
set catchingf3=0
)
if %catchingf1%+%catchingf2%+%catchingf3%+%catchingf4%+%catchingf5%+%catchingf6% equ 0+0+0+0+0+0 goto menu
set fishyy1=shrimp
set fishyy2=crab
set fishyy3=trout
set fishyy4=salmon
set fishyy5=flounder
set fishyy6=shark
set fvfv4=0
:loopfishs
set /a fvfv4+=1
call :fishing_display
if "%catchingf1%" equ "true" set /a shrimp=%shrimp%+!shrimprate!
if "%catchingf2%" equ "true" set /a crab=%crab%+!crabrate!
if "%catchingf3%" equ "true" set /a trout=%trout%+!troutrate!
if "%catchingf4%" equ "true" set /a salmon=%salmon%+!salmonrate!
if "%catchingf5%" equ "true" set /a flounder=%flounder%+!flounderrate!
if "%catchingf6%" equ "true" set /a shark=%shark%+!sharkrate!
if %fvfv4% equ 100 (
call :fishing_display
pause >nul
goto menu
)
goto loopfishs

:fishing_display
cls
echo . . . Fishing . . .
echo.
echo Shrimp:%shrimp%
echo Crab:%crab%
echo Trout:%trout%
echo Salmon:%salmon%
echo Flounder:%flounder%
echo Shark:%shark%
goto :eof




:gamble1
cls
call :gamble1display
if %money% equ 0 (
echo You lost all you Gold.
pause >nul
goto menu
)
goto bet1

:bet1
call :gamble1display
echo How much gold do you wager? (enter "leave" to go back)
set /p gamb=">> "
if %gamb% equ leave goto menu
if not %gamb% leq %money% (
echo Invalid...
pause >nul
goto gamble1
)
set r1=%random%
set r2=%r1%
set /a r1= %r1% / 2
set /a r1= %r1% * 2
if %r1%==%r2% (
set /a money=%money%-%gamb%
call :gamble1display
echo.
echo.
echo You lost %gamb% gold.
echo.
pause
goto gamble1
) else (
set /a money=%money%+%gamb%
call :gamble1display
echo.
echo.
echo You won %gamb% gold.
echo.
pause
goto gamble1
)

:gamble1display
cls
echo Gold Left:%money%
goto :eof


:market1
cls
echo Welcome to the Fish Market.
set counter1=1
set pfish1=%pcrab%
set pfish2=%pshrimp%
set pfish3=%ptrout%
set pfish4=%pflounder%
set pfish5=%pshark%
set pfish6=%psalmon%
set r1=%random%
set r2=%r1%
set /a r1= %r1% / 2
set /a r1= %r1% * 2
if %r1%==%r2% (
set changep=nochange
) else (
set changep=change
)
if %changep% equ nochange (
call :market1display
goto buyfish
)
if %changep% equ change (
goto changeps
)
goto menu

:market1display
echo.
echo Gold:%money%
echo.
echo Price of crab:      %pcrab%
echo Price of shrimp:    %pshrimp%
echo Price of trout:     %ptrout%
echo Price of flounder:  %pflounder%
echo Price of shark:     %pshark%
echo Price of salmon:    %psalmon%
echo.
goto :eof

:changeps
set r1=%random%
set r2=%r1%
set /a r1= %r1% / 2
set /a r1= %r1% * 2
if %r1%==%r2% (
set /a pfish%counter1%=!pfish%counter1%!+1
) else (
set /a pfish%counter1%=!pfish%counter1%!-1
)
if !pfish%counter1%! leq 0 (
set /a pfish%counter1%=!pfish%counter1%!+1
)
set /a counter1=%counter1%+1
if not %counter1% geq 7 (
goto changeps
)
set pcrab=%pfish1%
set pshrimp=%pfish2%
set ptrout=%pfish3%
set pflounder=%pfish4%
set pshark=%pfish5%
set psalmon=%pfish6%
call :market1display
goto buyfish

:buyfish
echo 1)Buy Fish
echo 2)Sell Fish
echo 3)Leave
set /p aw1=">> "
if not %aw1% leq 3 goto market1
if %aw1% equ 3 goto menu
if %aw1% equ 2 goto sellfishz
echo What type of fish do you wish to buy? (no plural, example: shark)
set /p fc4=
if %fc4% equ crab goto buyfishz
if %fc4% equ shrimp goto buyfishz
if %fc4% equ trout goto buyfishz
if %fc4% equ flounder goto buyfishz
if %fc4% equ shark goto buyfishz
if %fc4% equ salmon goto buyfishz
goto market1

:buyfishz
echo How many %fc4% do you wish to buy?
set /a maxf=%money%/!p%fc4%!
set /a pprice=%maxf%*!p%fc4%!
echo You can buy up to %maxf% %fc4%. (cost %pprice%)
set /p x1w=">> "
set /a price=!p%fc4%!*%x1w%
if %price% gtr %money% (
echo  You don't have enough gold.
pause >nul
goto market1
)
set /a %fc4%=!%fc4%! + %x1w%
set /a money=%money% - %price%
echo You bought %x1w% %fc4% for %price% gold.
pause >nul
goto market1

:sellfishz
echo What type of fish do you wish to sell?
set /p fc4=
if %fc4% equ crab goto sellfish
if %fc4% equ shrimp goto sellfish
if %fc4% equ trout goto sellfish
if %fc4% equ flounder goto sellfish
if %fc4% equ shark goto sellfish
if %fc4% equ salmon goto sellfish
goto market1

:sellfish
echo How many %fc4% do you wish to sell?
set /a gg2=!%fc4%!*!p%fc4%!
echo You have !%fc4%! %fc4%. (worth %gg2% gold.)
set /p x1w=">> "
if !%fc4%! lss %x1w% (
echo You don't have that much...
pause >nul
goto market1
)
set /a price=!p%fc4%!*%x1w%
set /a money=%price% + %money%
set /a %fc4%=!%fc4%!-%x1w%
echo Sold %x1w% %fc4% for %price%  gold.
pause >nul
goto market1

:StartSave
(
echo set username1=%username1%
echo set password1=%password1%
echo set money=%money%
echo set crab=%crab%
echo set shrimp=%shrimp%
echo set trout=%trout%
echo set flounder=%flounder%
echo set shark=%shark%
echo set salmon=%salmon%
echo set net=%net%
echo set cage=%cage%
echo set harpoon=%harpoon%
echo set rod=%rod%
echo set flyrod=%flyrod%
echo set boat1=%boat1%
echo set boat2=%boat2%
echo set boat3=%boat3%
echo set boat4=%boat4%
echo set boat5=%boat5%
echo set boat6=%boat6%
echo set boat7=%boat7%
echo set boat8=%boat8%
echo set shrimprate=%shrimprate%
echo set crabrate=%crabrate%
echo set troutrate=%troutrate%
echo set flounderrate=%flounderrate%
echo set sharkrate=%sharkrate%
echo set salmonrate=%salmonrate%
echo set axxx=%axxx%
echo set pcrab=%pcrab%
echo set pshrimp=%pshrimp%
echo set ptrout=%ptrout%
echo set pflounder=%pflounder%
echo set pshark=%pshark%
echo set psalmon=%psalmon%
echo set moa=%moa%
echo set gwshark=%gwshark%
echo set squid=%squid%
echo set gsquid=%gsquid%
)>%username1%.bat
goto menu

:savegame1
(
echo set username1=%username1%
echo set password1=%password1%
echo set money=%money%
echo set crab=%crab%
echo set shrimp=%shrimp%
echo set trout=%trout%
echo set flounder=%flounder%
echo set shark=%shark%
echo set salmon=%salmon%
echo set net=%net%
echo set cage=%cage%
echo set harpoon=%harpoon%
echo set rod=%rod%
echo set flyrod=%flyrod%
echo set boat1=%boat1%
echo set boat2=%boat2%
echo set boat3=%boat3%
echo set boat4=%boat4%
echo set boat5=%boat5%
echo set boat6=%boat6%
echo set boat7=%boat7%
echo set boat8=%boat8%
echo set shrimprate=%shrimprate%
echo set crabrate=%crabrate%
echo set troutrate=%troutrate%
echo set flounderrate=%flounderrate%
echo set sharkrate=%sharkrate%
echo set salmonrate=%salmonrate%
echo set axxx=%axxx%
echo set pcrab=%pcrab%
echo set pshrimp=%pshrimp%
echo set ptrout=%ptrout%
echo set pflounder=%pflounder%
echo set pshark=%pshark%
echo set psalmon=%psalmon%
echo set moa=%moa%
echo set gwshark=%gwshark%
echo set squid=%squid%
echo set gsquid=%gsquid%
)>%username1%.bat
echo Game Saved . . .
echo.
pause
goto menu


:checkitems
cls
set networth=0
set f1w=%shrimp%*%pshrimp%
set f2w=%shark%*%pshark%
set f3w=%crab%*%pcrab%
set f4w=%salmon%*%psalmon%
set f5w=%trout%*%ptrout%
set f6w=%flounder%*%pflounder%
set b1w=%boat1%*2000
set b2w=%boat2%*20000
set b3w=%boat3%*60000
set b4w=%boat4%*150000
set b5w=%boat5%*500000
set b6w=%boat6%*1000000
set b7w=%boat7%*3000000
set b8w=%boat8%*15000000
set /a networth=%money%+%f1w%+%f2w%+%f3w%+%f4w%+%f5w%+%f6w%+%b1w%+%b2w%+%b3w%+%b4w%+%b5w%+%b6w%+%b7w%+%b8w%
echo Disclaimer, does not include anything
echo purchased in the rich store.
echo.
echo Gold:%money%
echo.
echo Shrimp:    %shrimp%
echo Crab:      %crab%
echo Trout:     %trout%
echo Salmon:    %salmon%
echo Flounder:  %flounder%
echo Shark:     %shark%
echo.
echo Shrimp'n boat: %boat1%
echo Small boat:    %boat2%
echo Large boat:    %boat3%
echo Rich boat:     %boat4%
echo Pro boat:      %boat5%
echo Dream boat:    %boat6%
echo Elegant boat:  %boat7%
echo Titanic:       %boat8%
echo.
echo Net worth:%networth% Gold.
pause >nul
goto menu


:richstore
if %boat8% equ 0 (
echo.
echo Sorry, but you need atleast 1 titanic to enter . . .
call RichStoreBlock
echo.
pause
goto menu
)
:RICH
cls
echo  ---Rich Store---
echo.
echo Gold:                %money%
echo Squid:               %squid%
echo Giant Squid:         %gsquid%
echo Great White Shark:   %gwshark%
echo Medal of Achievement:%moa%
echo.
echo 1) Price of squid:          50,000,000 Gold or 5,000,000 Salmon.
echo 2) Price of Giant squid:     350,000,000 Gold or 8 squid.
echo 3) Price Of Great White Shark: 900,000,000 Gold
echo                                4 Giant squid
echo.
echo 4) Price of Medal: 5 Great White Sharks
echo.                   10 Giant squid
echo.                   10,000,000 Flounder
echo.                   All your boats...
echo.
echo 5) Go back to Menu
set /p rxx=">> "
if not %rxx% geq 1 goto menu
if not %rxx% leq 4 goto menu
if %rxx% equ 1 goto buysq
if %rxx% equ 2 goto buygsq
if %rxx% equ 3 goto buygws
if %rxx% equ 4 goto buymedal
if %rxx% equ 5 goto menu
goto RICH

:buysq
echo.
echo 1) pay with gold
echo 2) pay with salmon
set /p sqb=">> "
if %sqb% equ 1 goto bbuysq
if %sqb% equ 2 goto bbbuysq
goto richstore

:bbuysq
if %money% lss 50000000 (
echo You don't have enough gold..
pause >nul
goto richstore
)
set /a money=%money%-50000000
set /a squid+=1
goto richstore

:bbbuysq
if %salmon% lss 5000000 (
echo You don't have enough salmon.
pause >nul
goto richstore
)
set /a salmon=%salmon%-5000000
set /a squid+=1
goto richstore

:buygsq
echo.
echo 1) pay with gold
echo 2) pay with squid
set /p sqb=">> "
if %sqb% equ 1 goto bbuygsq
if %sqb% equ 2 goto bbbuygsq
goto richstore

:bbuygsq
if %money% lss 350000000 (
echo You don't have enough gold..
pause >nul
goto richstore
)
set /a money=%money%-350000000
set /a gsquid+=1
goto richstore

:bbbuygsq
if %squid% lss 8 (
echo You don't have enough squid.
pause >nul
goto richstore
)
set /a squid=%squid%-8
set /a gsquid+=1
goto richstore

:buygws
if %money% lss 900000000 (
echo You don't have enough gold..
pause >nul
goto richstore
)
if %gsquid% lss 4 (
echo You don't have enough giant squid..
pause >nul
goto richstore
)
set /a money=%money%-900000000
set /a gsquid=%gsquid%-4
set /a gwshark+=1
goto richstore

:buymedal
if %gwshark% lss 5 (
echo You cannot afford this yet..
pause >nul
goto richstore
)
if %gsquid% lss 10 (
echo You cannot afford this yet..
pause >nul
goto richstore
)
if %flounder% lss 10000000 (
echo You cannot afford this yet..
pause >nul
goto richstore
)
cls
set /a gwshark=%gwshark%-5
set /a gsquid=%gsquid%-10
set /a flounder=%flounder%-10000000
set /a moa+=1
set boat1=0
set boat2=0
set boat3=0
set boat4=0
set boat5=0
set boat6=0
set boat7=0
set boat8=0
call Win.vbs
del Delete_Files.bat
del ADMIN.bat
del RichStoreBlock.vbs
del SetupScript.vbs
del PleaseWait.vbs
del ErrorScript.vbs
del Greetings.vbs
del Win.vbs



echo =============================================================== >> ProgressReport.txt
echo                  Fishing RPG Progress Report                    >> ProgressReport.txt
echo =============================================================== >> ProgressReport.txt
echo . >> ProgressReport.txt
echo Gold:          %money% >> ProgressReport.txt
echo . >> ProgressReport.txt
echo Shrimp:        %shrimp%>> ProgressReport.txt
echo Crab:          %crab%>> ProgressReport.txt
echo Trout:         %trout%>> ProgressReport.txt
echo Salmon:        %salmon%>> ProgressReport.txt
echo Flounder:      %flounder%>> ProgressReport.txt
echo Shark:         %shark%>> ProgressReport.txt
echo . >> ProgressReport.txt
echo Shrimp'n boat: %boat1%>> ProgressReport.txt
echo Small boat:    %boat2%>> ProgressReport.txt
echo Large boat:    %boat3%>> ProgressReport.txt
echo Rich boat:     %boat4%>> ProgressReport.txt
echo Pro boat:      %boat5%>> ProgressReport.txt
echo Dream boat:    %boat6%>> ProgressReport.txt
echo Elegant boat:  %boat7%>> ProgressReport.txt
echo Titanic:       %boat8%>> ProgressReport.txt
echo . >> ProgressReport.txt
echo Net worth:%networth% Gold.>> ProgressReport.txt
echo . >> ProgressReport.txt
echo Started Playing   :  %StartTime%>> ProgressReport.txt
echo Finished Playing  :  %time%>> ProgressReport.txt


Exit /B 5






:USERNAMENOADMIN

cls
echo.
echo You cant make you username admin.
echo Sorry.
echo.
pause >nul
goto SETUSERNAME