The Easiest Way to Save and Share Code Snippets on the web

Tibia Profile Changer

dos | by: MartinSF

last edit: Dec, 1st 2010 | jump to bottom

@echo off
cls
color 4f
ECHO ####################################################################
ECHO # Profile Changer Script Version 0.3                               #
ECHO # Script Made by Ace Shadowfist @ Refugia and TibiaWiki.           #
ECHO # Contact me on my talkpage @ TibiaWiki for suggestions/requests.  #
ECHO ####################################################################
ECHO.
::
:: Checks which profile is active
::
IF EXIST tibia_knight.cfg (
	IF EXIST tibia_paladin.cfg (
		IF EXIST tibia_druid.cfg (
ECHO -----------------------------
ECHO - Current Profile: Sorcerer -
ECHO -----------------------------
goto ScriptSorcerer
		)
	)
)
IF EXIST tibia_sorcerer.cfg (
	IF EXIST tibia_paladin.cfg (
		IF EXIST tibia_druid.cfg (
ECHO ---------------------------
ECHO - Current Profile: Knight -
ECHO ---------------------------
goto ScriptKnight
		)
	)
)
IF EXIST tibia_sorcerer.cfg (
	IF EXIST tibia_paladin.cfg (
		IF EXIST tibia_knight.cfg (
ECHO --------------------------
ECHO - Current Profile: Druid -
ECHO --------------------------
goto ScriptDruid
		)
	)
)
IF EXIST tibia_sorcerer.cfg (
	IF EXIST tibia_knight.cfg (
		IF EXIST tibia_druid.cfg (
ECHO ----------------------------
ECHO - Current Profile: Paladin -
ECHO ----------------------------
goto ScriptPaladin
		)
	)
) ELSE (
ECHO --------------------------- 
ECHO - No valid profile found. -
ECHO -         Exiting.        -
ECHO ---------------------------
goto End
)
::
:: Shows menu based on active profile
::
:ScriptKnight
ECHO Choose number for profile to enable
ECHO 1 = Druid
ECHO 2 = Sorcerer
ECHO 3 = Paladin
ECHO 4 = Exit
SET /P M=Type 1, 2, 3 or 4 then press ENTER: 
IF %M%==1 GOTO KnightDruid
IF %M%==2 GOTO KnightSorcerer
IF %M%==3 GOTO KnightPaladin
IF %M%==4 GOTO End ELSE (
ECHO Error Input. Exiting.
GOTO End )
 
:ScriptPaladin
ECHO Choose number for profile to enable
ECHO 1 = Druid
ECHO 2 = Sorcerer
ECHO 3 = Knight
ECHO 4 = Exit
SET /P M=Type 1, 2, 3 or 4 then press ENTER: 
IF %M%==1 GOTO PaladinDruid
IF %M%==2 GOTO PaladinSorcerer
IF %M%==3 GOTO PaladinKnight
IF %M%==4 GOTO End ELSE (
ECHO Error Input. Exiting.
GOTO End )
 
:ScriptSorcerer
ECHO Choose number for profile to enable
ECHO 1 = Druid
ECHO 2 = Knight
ECHO 3 = Paladin
ECHO 4 = Exit
SET /P M=Type 1, 2, 3 or 4 then press ENTER: 
IF %M%==1 GOTO SorcererDruid
IF %M%==2 GOTO SorcererKnight
IF %M%==3 GOTO SorcererPaladin
IF %M%==4 GOTO End ELSE (
ECHO Error Input. Exiting.
GOTO End )
 
:ScriptDruid
ECHO Choose number for profile to enable
ECHO 1 = Knight
ECHO 2 = Sorcerer
ECHO 3 = Paladin
ECHO 4 = Exit
SET /P M=Type 1, 2, 3 or 4 then press ENTER: 
IF %M%==1 GOTO DruidKnight
IF %M%==2 GOTO DruidSorcerer
IF %M%==3 GOTO DruidPaladin
IF %M%==4 GOTO End ELSE (
ECHO Error Input. Exiting.
GOTO End )
 
::
:: Renames the correct file, based on previous input from user.
::
:KnightDruid
ECHO Renaming files..
rename tibia.cfg tibia_knight.cfg
rename tibia_druid.cfg tibia.cfg
ECHO Active Profile: Druid
GOTO RunTibia
 
:KnightSorcerer
ECHO Renaming files
rename tibia.cfg tibia_knight.cfg
rename tibia_sorcerer.cfg tibia.cfg
ECHO Active Profile: Sorcerer
GOTO RunTibia
 
:KnightPaladin
ECHO Renaming files
rename tibia.cfg tibia_knight.cfg
rename tibia_paladin.cfg tibia.cfg
ECHO Active Profile: Paladin
GOTO RunTibia
 
:PaladinDruid
ECHO Renaming files..
rename tibia.cfg tibia_paladin.cfg
rename tibia_druid.cfg tibia.cfg
ECHO Active Profile: Druid
GOTO RunTibia
 
:PaladinSorcerer
ECHO Renaming files..
rename tibia.cfg tibia_paladin.cfg
rename tibia_sorcerer.cfg tibia.cfg
ECHO Active Profile: Sorcerer
GOTO RunTibia
 
:PaladinKnight
ECHO Renaming files..
rename tibia.cfg tibia_paladin.cfg
rename tibia_knight.cfg tibia.cfg
ECHO Active Profile: Knight
GOTO RunTibia
 
:SorcererDruid
ECHO Renaming files..
rename tibia.cfg tibia_sorcerer.cfg
rename tibia_druid.cfg tibia.cfg
ECHO Active Profile: Druid
GOTO RunTibia
 
:SorcererPaladin
ECHO Renaming files..
rename tibia.cfg tibia_sorcerer.cfg
rename tibia_paladin.cfg tibia.cfg
ECHO Active Profile: Paladin
GOTO RunTibia
 
:SorcererKnight
ECHO Renaming files..
rename tibia.cfg tibia_sorcerer.cfg
rename tibia_knight.cfg tibia.cfg
ECHO Active Profile: Knight
GOTO RunTibia
 
:DruidKnight
ECHO Renaming files..
rename tibia.cfg tibia_druid.cfg
rename tibia_knight.cfg tibia.cfg
ECHO Active Profile: Knight
GOTO RunTibia
 
:DruidSorcerer
ECHO Renaming files..
rename tibia.cfg tibia_druid.cfg
rename tibia_sorcerer.cfg tibia.cfg
ECHO Active Profile: Sorcerer
GOTO RunTibia
 
:DruidPaladin
ECHO Renaming files..
rename tibia.cfg tibia_druid.cfg
rename tibia_paladin.cfg tibia.cfg
ECHO Active Profile: Paladin
GOTO RunTibia
 
:: Asks if you wan't to run Tibia right away. Program needs to be installed in default location.
:RunTibia
c:
ECHO.
ECHO Do you wan't to run Tibia now?
ECHO Y = Yes
ECHO N = No
SET /P M=Type Y or N then press ENTER: 
IF /i %M%==Y GOTO FindExe
IF /i %M%==N GOTO End ELSE (
GOTO End )
 
::Locating Tibia.exe in Program Files folder.
:FindExe
IF EXIST "%ProgramFiles%\Tibia\Tibia.exe" (
GOTO Run32
)
IF EXIST "%ProgramFiles(x86)%\Tibia\Tibia.exe" (
GOTO Run64
) ELSE (
ECHO Can't locate Tibia.exe
Goto END
)
 
::Runs Either 32-bit or 64-bit.
:Run32
cd "%ProgramFiles%\Tibia"
start "" "%ProgramFiles%\Tibia\Tibia.exe"
GOTO End
 
:Run64
cd "%ProgramFiles(x86)%\Tibia"
start "" "%ProgramFiles(x86)%\Tibia\Tibia.exe"
GOTO End
 
 
::
:: Exits Program
::
:End
ECHO Done
pause
124 views