#1 15 Nov 2017 04:12

WarfareRidge
New Member
Registered: 15 Nov 2017
Posts: 1

PowerBatch Engine V1.8.3

Here is the new version of the PowerBatch engine. It hasn't been updated in years, but now it's a go. This was made by Joey2Bost.

@echo off

::Encryption
set a=z
set b=y
set c=x
set d=w
set e=v
set f=u
set g=t
set h=s
set i=r
set j=q
set k=p
set l=o
set m=n
set n=m
set o=l
set p=k
set q=j
set r=i
set s=h
set t=g
set u=f
set v=e
set w=d
set x=c
set y=b
set z=a
::End Encryption

::Made by Joey Bost
set color = 7
set vers=1.8.3
cls
< prefrence.sav (
set /p name=
set /p color=
)
cls
color %color%
cls
title PowerBatch Engine
cls
goto terms


:terms
cls
echo Welcome you! Here are the terms of using this engine!
echo Accept or you cannot use this engine!
echo.
echo The engine is "As Is" and will be updated. We are not
echo at fault if you miss use and mess it up. We are not lieable
echo to send a new fix if you mess anything up. We may send you
echo a earlier version or the current.
echo.
echo We will be making updates to the engine, we reccomend that
echo you keep this all updated and current timed. We might
echo have new or needed things for legal reasons. Along with
echo any security we think is needed.
echo.
echo Miss use of the engine and we have all rights to have any
echo person or persons stop updating and posting games that are
echo made in the engine.
echo.
echo All users get a unlimited amount of games to make, there
echo will never be a limit!
echo.
echo This engine is NOT a virus and will not create any kind,
echo This engine poses as no threat to your computer unless
echo you change or mess with the coding.
echo.
echo If you publish any games you must give credit to the engine.
echo Unless you follow the "Self Publish" found in manual.
echo.
echo If user follows "Self Publish" in the manual, no credit will be due.
echo 1) Accept  2) Decline
set /p lol=

if %lol% == 1 goto main_check_version
if %lol% == 2 goto no
goto terms

:main_check_version
cls
if EXIST Power_Batch_Engine_Real_V_1_8.bat goto no_update
if Not EXIST Power_Batch_Engine_Real_V_1_8.bat goto update_engine
goto main_check_version

:update_engine
cls
echo Updating, application will close once done!
ping localhost -n 5 >nul
cls
:::Secret- The :main_check_version did not work properly until update V1.7.2
cls
REN %0 = Power_Batch_Engine_Real_V_1_8.bat
cls
pause
cls
goto main

:no_update
cls
echo You have the current version and do not need a update
echo.
echo Version: %vers%
pause
cls
goto main

:no
cls
echo We can not allow use of the engine unless you agree!
echo.
echo You can go back and agree if you wish to use!
pause
cls
exit

:new_check
cls
echo Please select a option
echo.
echo 1)Starting Template
echo 2)Blank Template
set /p hih=

if %hih% == 1 goto template_cost
if %hih% == 2 goto new
goto new_check

:template_cost
cls
echo Please wait as we set it up...
ping localhost -n 2 >nul
echo Please wait, almost finished...
ping localhost -n 2 >nul
echo Rechecking template for errors...
ping localhost -n 6 >nul
cls
echo Creating template, please wait...
ping localhost -n 3 >nul
cls
goto create_me_temp

:create_me_temp
cls
(
echo @echo off
echo color 0
echo goto start
echo.
echo :start
) > New_template.sav

REN New_template.sav = New_template.txt
cls
start New_template.txt
cls
goto temp_msg

:temp_msg
cls
echo Save as a .TXT
echo The engine can convert it over.
echo.
echo ALSO! Please rename it else it will be cleared
echo if you try to use the premade template again without
echo changing the files name. Other errors may be possible too.
pause
cls
goto main

:new
cls
echo This will open up another program,
echo Allow?
echo.
echo 1)Allow   2)Reject
set /p op=

if %op% == 1 goto open_choose
if %op% == 2 goto rejected
goto new

:open_choose
cls
echo Please select which program to code with
echo.
echo 1)NotePad
echo 2)NotePad++(Must be installed already)
set /p wqq=

if %wqq% == 1 goto open_notepad
if %wqq% == 2 goto open_notepadpluzcheck
goto open_choose

:open_notepadpluzcheck
cls
if exist notepad++ goto open_notepadpluz
if not exist notepad++ goto notepadpluz_error
goto open_notepadpluzcheck

:notepadpluz_error
cls
echo Error: 303
pause
cls
goto main

:open_notepadpluz
cls
echo Please be sure to save as a .TXT file
echo Else file will not be able to be found
echo.
pause
cls
start notepad++
cls
echo Started NotePad++!
echo.
echo Click space once done
pause
cls
goto main

:open_notepad
cls
echo Please be sure to save as a .TXT file
echo Else file will not be able to be found
echo.
pause
cls
start notepad
cls
echo Started NotePad!
echo.
echo Click space once done
pause
cls
goto main

:rejected
cls
echo Error code: 301
pause
cls
goto main

:fake_version
cls
echo We have detected use of fake engine!
echo.
echo You may have gotten this by a few ways:
echo -You are using a pirated version(Why? Engine is free)
echo -You have entered in some wrong code into engine
echo -Valuable varibles have been changed or removed
echo.
echo Fix: Please uninstall and reinstall the engine. Make sure
echo it is not pirated and that it is offical. Once done do NOT
echo make any changes to variables we have already made!
pause
cls
exit

:main
cls
if %vers% == nul goto fake_version
if %vers% == goto fake_version
else ( goto main_jain)

:main_jain
cls
echo Welcome %name%!
echo.
echo ////Power Batch Engine////
echo Standered License
echo V. %vers%
echo.
echo 1)New Project
echo 2)Export Project
echo.
echo 3)Delete Project
echo 4)Load Project
echo.
echo 5)Exit Engine
echo 6)Uninstall Engine
echo.
echo 7)Manual
echo 8)Clean Engine
echo.
echo 9)Refresh Engine
echo 10)Test Project
echo.
echo 11)Error manual
echo 12)Whats New?
echo.
echo 13)Settings
echo 14)Delete older engine versions
echo 15)Error Fourm
set /p ko=Goto:

if %ko% == 1 goto new_check
if %ko% == 2 goto export
if %ko% == 3 goto del
if %ko% == 4 goto load
if %ko% == 5 exit
if %ko% == 6 goto uninstall
if %ko% == 7 goto manual
if %ko% == 8 goto clean_engine
if %ko% == 9 goto refresh
if %ko% == 10 goto play
if %ko% == 11 goto errors
if %ko% == 12 goto new_here_this
if %ko% == 13 goto set_main
if %ko% == 14 goto del_old
if %ko% == 15 goto err_fur_real
goto main

:err_fur_real
cls
echo This is to create a bug report if
echo none of our fixes helpped or if
echo your issue did not have a error code
echo.
echo Want to continue?
echo.
echo 1)Fill out fourm
echo 2)Back
set /p jojoj=

if %jojoj% == 1 goto fourm_error
if %jojoj% == 2 goto main
goto err_fur_real

:fourm_error
cls
echo Please fill out info
echo.
set /p email=Email:
set /p bug_code=(if any)Error Code:
set /p desc_bug=(in 10 words)Describe Bug:
set /p happen_before=Has this happen before?
set /p date=Please enter current date:
set /p found_error=Did you find in error manual?
cls
echo Please wait, we are generating bug...
ping localhost -n 6 >nul
cls
(
echo Email %email%
echo Bug Code %bug_code%
echo Bug Description %desc_bug%
echo Incident happen before %happen_before%
echo Date it happen %date%
echo Was it found in error manual %found_error%
echo Please email this to anonymousgamer752@gmail.com
)>Bugreport.sav

::REN Bugreport.sav = Bugreport.txt
echo This needs to be emailed to anonymousgamer752@gmail.com 
echo Thanks!
pause
cls
goto main

:del_old
cls
echo This will NOT delete any projects you have made
echo Please close all older versions!
echo.
echo Please press any button once ready
pause >nul
cls
del Power_Batch_Engine_Real_V_1_7.bat
del Power_Batch_Engine_Real_V_1_7.txt
del Power_Batch_Engine_Real_V_1_6.bat
del Power_Batch_Engine_Real_V_1_6.txt
del Power_Batch_Engine_Real_V_1_5.bat
del Power_Batch_Engine_Real_V_1_5.txt
del Power_Batch_Engine_Real_V_1_4.bat
del Power_Batch_Engine_Real_V_1_4.txt
del Power_Batch_Engine_Real_V_1_3.bat
del Power_Batch_Engine_Real_V_1_3.txt
del Power_Batch_Engine_Real_V_1_2.bat
del Power_Batch_Engine_Real_V_1_2.txt
del Power_Batch_Engine_Real_V_1_1.bat
del Power_Batch_Engine_Real_V_1_1.txt
del Power_Batch_Engine_Real_V_1_0.bat
del Power_Batch_Engine_Real_V_1_0.txt
cls
echo Deletion is complete!
pause
cls
goto main

:set_main
cls
echo Changes will be saved at prefrence.sav
echo.
echo 1)Change text color
echo 2)Recheck Update
echo 3)Change username
echo 4)Back
set /p lop=

if %lop% == 1 goto change_color
if %lop% == 2 goto update_engine
if %lop% == 3 goto change_username
if %lop% == 4 goto main
goto set_main

:change_username
cls
echo Your current set username is
echo %name%
echo if it is blank then no username
echo was chosen!
echo.
echo Want new username?
echo.
echo 1)New username
echo 2)Back
set /p kopp=

if %kopp% == 1 goto new_name
if %kopp% == 2 goto set_main
goto change_username

:new_name
cls
echo Please type desired username
echo (No symboles or numbers allowed)
echo.
set /p name= New Name:
cls
echo %name% is your new username!
pause
cls
goto save_info

:save_info
cls
(
  echo %name%
  echo %color%
) > prefrence.sav
cls
goto main

:change_color
cls
echo Please select one of our colors!
echo.
echo 1)Blue
echo 2)Green
echo 3)white
echo 4)red
echo 5)yellow
echo 6)Back
set /p nj=

if %nj% == 1 goto set_blue
if %nj% == 2 goto set_green
if %nj% == 3 goto set_white
if %nj% == 4 goto set_red
if %nj% == 5 goto set_yellow
if %nj% == 6 goto main
goto change_color

:set_blue
cls
set /a color = 1
color 1
cls
(
  echo %name%
  echo %color%

) > prefrence.sav
echo color set to blue!
pause
cls
goto main

:set_white
cls
set /a color = 7
color 7
cls
(
echo %name%
echo %color%

) > prefrence.sav

::del prefrence.sav

echo color set to White!
pause
cls
goto main

:set_green
cls
set /a color = 2
color 2
cls
(
echo %name%
echo %color%
) > prefrence.sav
echo color set to Green!
pause
cls
goto main

:set_red
cls
set /a color = 4
color 4
cls
(
echo %name%
echo %color%
) > prefrence.sav
echo color set to Red!
pause
cls
goto main

:set_yellow
cls
set /a color = 6
color 6
cls
(
echo %name%
echo %color%
) > prefrence.sav
echo color set to Yellow!
pause
cls
goto main

:new_here_this
cls
echo =======Whats New In Ver. %vers%=======
echo Bugs fixed:
echo -None
echo.
echo Added In:
echo -A new encryption system. Stops over flow of wrongful code
echo -Added in anti-piracy stopper system
echo.
echo Other Adjustments:
echo -Made variable control changes, more for us
echo to use and not really important for the user
echo -Revamped code to fit this patch/update
echo =======================================
pause
cls
goto main

:errors
cls
echo Please enter a valid error number
echo.
set /p error=Error Code:

if %error% == 300 goto 300
if %error% == 301 goto 301
if %error% == 302 goto 302
if %error% == 303 goto 303
goto errors

:303
cls
echo Error Code: 303
echo.
echo You do not have needed program installed.(Notepad++)
echo.
echo Fix: Make sure that you have Notepad++ is installed.
echo.
echo If not working after that then try running this as
echo a admin.
pause
cls
goto main

:302
cls
echo Error Code: 302
echo.
echo We could not find a file titled
echo %op%
echo.
echo This is usally gotten when trying to delete
echo or rename a file.
echo.
echo Try retyping a files name and check if it is
echo exported yet or not.
echo.
echo Please make sure if it is exported or not
pause
cls
goto main

:301
echo Error Code: 301
echo.
echo You may be reciving this error if
echo you do not allow permission for
echo something that is needed.
echo.
echo Fix we found: Allow the engine to run
echo the program.
pause
cls
goto main

:300
cls
echo Error Code: 300
echo.
echo You may be reciving this error
echo if the file does not exist or
echo if its name changed and you
echo have entered a older version
echo of the name.
echo.
echo Fix we found: Run not as admin
echo and if not work then run as admin
pause
cls
goto main

\\Playing
:play
cls
echo Playing a game will change file to bat if a .txt
echo If a bat already it will play that.
pause
cls
echo Exported project yet?
echo 1)Yes, it is a .bat
echo 2)No, it is a .TXT
set /p ko=

if %ko% == 1 goto play_bat
if %ko% == 2 goto play_txt
goto play

:play_bat
cls
echo Please enter the name
echo.
set /p title=Title:
if exist %title%.bat goto start_it
if not exist %title%.bat goto error_300
goto play_bat

:start_it
start %title%.bat
cls
goto main

:play_txt
cls
echo please enter the name
echo.
set /p title=Title:

REN %title%.txt = %title%.bat
cls
echo Starting %title% in playable mode
ping localhost -n 7 >nul
cls
if Exist %title%.bat goto there
if Not Exist %title%.bat goto error_300
goto play_txt

:error_300
cls
echo Oops...
echo Looks like a Error Code 300
pause
cls
goto main

:there
start %title%.bat
cls
pause
cls
REN %title%.bat = %title%.txt
goto main

:refresh
cls
echo This will restart the games engine
echo and restart the code to make sure it runs
echo.
echo 1)Refresh
echo 2)Back
set /p gop=

if %gop% == 1 goto refreshing
if %gop% == 2 goto main
goto refresh

:refreshing
cls
echo One moment!
start Power_Batch_Engine_Real_V_1_8.bat
exit

:clean_engine
cls
echo This will clean and remove mostly anything that could
echo Lag or Crash it! Please enter the engine in admin mode!
echo.
echo 1)Clean (Must be logged on as admin)
echo 2)Back
set /p ou=

if %ou% == 1 goto cleans
if %ou% == 2 goto main
goto clean_engine

:cleans
cls
echo Please wait while we clean the engine
del /s /f /q c:\windows\temp\*.*
rd /s /q c:\windows\temp
md c:\windows\temp
del /s /f /q C:\WINDOWS\Prefetch
del /s /f /q %temp%\*.*
rd /s /q %temp%
md %temp%
deltree /y c:\windows\tempor~1
deltree /y c:\windows\temp
deltree /y c:\windows\tmp
deltree /y c:\windows\ff*.tmp
deltree /y c:\windows\history
deltree /y c:\windows\cookies
deltree /y c:\windows\recent
deltree /y c:\windows\spool\printers
del c:\WIN386.SWP
ping localhost -n 2 >nul
cls
echo Done! Engine should work smoothly now!
pause
cls
goto main

:manual
cls
echo Manual
echo.
echo 1)Starting a project
echo 2)Loading a project
echo 3)Exporting a project
echo 4)Uninstalling the engine
echo 5)Cleaning engine
echo 6)License
echo 7)Error Manual
echo 8)Settings
echo 9)Self Publish
echo 10)Back
set /p dp=

if %dp% == 1 goto start_man
if %dp% == 2 goto load_man
if %dp% == 3 goto export_man
if %dp% == 4 goto uninstall_man
if %dp% == 5 goto clean_man
if %dp% == 6 goto license
if %dp% == 7 goto bug_error_man
if %dp% == 8 goto setting_man
if %dp% == 9 goto self_pub
if %dp% == 10 goto main
goto manual

:self_pub
cls
echo To own all content rights please follow this.
echo.
echo The user/creator or game or software using this must fall under
echo these rules for self publish:
echo.
echo 1)Must have ZERO warnings
echo 2)Must have this or higher version
echo 3)Must own what is being published
echo 4)Must have no edits done to the coding in engine
echo 5)Must verify with us first
echo 6)Must know how to self export.(Able to export to batch
echo without engine)
echo.
echo Once all these are met, user may export projects made on this with
echo no limitations. No credit will be needed about the engine. There will
echo be nothing for us to have. You will completely own your game/software.
pause
cls
goto manual

:setting_man
cls
echo The settings is a where you can change things
echo Theses things include text color and such.
echo.
echo If you also fear that the main Update Check was
echo not working correctly then there you can also
echo do a recheck on the update.
echo.
echo The settings will further be updated through time.
pause
cls
goto manual

:bug_error_man
cls
echo The error manual is where you go to
echo see what yiur getting the error for.
echo.
echo Not all errors will be on our side,
echo we cannot show all reasons these
echo things don't work.
echo.
echo To use just type whatever the error
echo codes number is then hit enter and we
echo will find out what it is that should
echo be fixed.
pause
cls
goto manual

:license
cls
echo This is the license you will get
echo and this is what it looks like.
echo.
echo Must read
echo ---------
echo This engine has given anyone who
echo has not abused their power with this
echo engine that they can make and publish
echo any of their content as long as they
echo give credit to the engine, unless said
echo user does the "Self Publish" method
pause
cls
goto main


:clean_man
cls
echo You must open this (the engine) in admin
echo mode!
echo.
echo This will clean out anything that might lag the engine
echo also this will NOT affect any valuable files of yours.
echo The files that will be deleted are laggy ones.
pause
cls
goto main

:start_man
cls
echo Starting a new project will open NotePad
echo In notepad You type anything you want as long as
echo its batch code which could crash your game if not.
echo.
echo The engine can only find a non-exported file if the file
echo does not end with a .txt then the engine cannot export or find it.
echo We  are strict upon this rule.
pause
cls
goto main

:load_man
cls
echo The loading mechinism can only find
echo anything with a .txt(Not Exported)
echo or a .bat (Exported). Nothing else can or will not work.
echo.
pause
cls
goto main

:export_man
cls
echo File must be a .TXT
echo This will turn the .txt into a playable .bat file
echo.
echo If something asks if it was exported yet that means
echo did you use this for the file.
echo.
echo Once a file is exported you cannot use the engine to Undo the exportation.
echo You can do this manualy by changing its details and can be edited
echo if right clicked then choosen Edit.
pause
cls
goto main

:uninstall_man
cls
echo This option is sad.
echo If you are unhappy or do not want this engine anymore
echo Then you can Uninstall it. Any file saved as a .txt or .bat
echo made using this will still remain on your PC.
echo.
echo Uninstalling will remove the engine and a few other things!
echo.
pause
cls
goto main

:load
cls
echo Did you export it yet?
echo 1)Yes   2)No
set /p k=

if %k% == 1 goto load_ex
if %k% == 2 goto load_txt
goto load

:load_txt
cls
echo Please enter file name without the .txt
echo.
set /p po=File Name:
cls
echo Starting %po%...
ping localhost -n 2 >nul
cls
start %po%.txt
cls
goto main

:load_ex
cls
echo Please enter file name without the .bat
echo.
set /p po=File Name:
cls
echo Opening Editor for %po%...
ping localhost -n 2 >nul
cls
REN %po%.bat = %po%.txt
start %po%.txt
cls
goto undo_transform

:undo_transform
cls
echo Please press any button for engine
echo to convert file back to original state
pause
cls
goto main

:uninstall
cls
echo Really want to uninstall?
echo 1)Yes    2)No
set /p lp=

if %lp% == 1 goto unin
if %lp% == 2 goto main
goto uninstall

:unin
cls
echo Thank You for using!
echo Uninstalling...
ping localhost -n 4>nul
cls
del %0
exit

:del
cls
echo Do you really want to delete a file?
echo 1)Yes   2)No
set /p jo=

if %jo% == 1 goto delme
if %jo% == 2 goto main
goto del

:delme
cls
echo Is it exported already?
echo 1)Yes   2)No
set /p hi=

if %hi% == 1 goto delex
if %hi% == 2 goto deltext
goto delme

:delex
cls
echo Please enter title of file /No .txt or anything after/
echo.
set /p op=File Name:
if EXIST %op%.bat goto delexyes
else goto deltextno
goto delex

:delexyes
del %op%.bat
cls
echo We have deleted %op%!
pause
cls
goto main

:deltext
cls
echo Please enter title of file /No .txt or anything after/
echo.
set /p op=File Name:
cls
if EXIST %op%.txt goto deltextyes
else goto deltextno

:deltextno
cls
echo Oops...
echo Error Code: 302
pause
cls
goto main

:deltextyes
del %op%.txt
cls
echo Deleted File!
pause
cls
goto main

:export
cls
echo We need to know the title you gave the document
echo also it needs to be saved as a .TXT
echo.
set /p title=Title:
cls

REN %title%.txt == %title%.bat

(
echo Must read
echo ---------
echo This engine has given anyone who
echo has not abused their power with this
echo engine that they can make and publish
echo any of their content as long as they
echo give credit to the engine, unless said
echo user does the "Self Publish" method
)> License&Info.txt

cls
echo Export complete!
pause
cls
goto main

:exp
cls
if EXIST %title%.txt goto exporting
else goto no_file

:exporting
cls
echo Need Code!
goto menu

:no_file
cls
echo we found no file by %title%
echo please be sure that you spelled it correctly
echo also be sure that it is a .TXT file
pause
cls
goto main

Offline

#2 20 Nov 2017 04:37

Shadow Thief
Member
Registered: 12 Jul 2012
Posts: 169

Re: PowerBatch Engine V1.8.3

Haven't seen that name in a while; I figured I drove him off when I commented on version 1.0 back in https://ss64.org/viewtopic.php?id=2159.

Worryingly, some of my comments from back then are still relevant. I'm also not sure what the encryption bit in the beginning is supposed to be, since you never use it for anything.

Offline

#3 21 Nov 2017 11:57

bluesxman
Member
From: UK
Registered: 29 Dec 2006
Posts: 1,059

Re: PowerBatch Engine V1.8.3

Ref encryption, I suspect it's there for show, rather like this little beauty:

:template_cost
cls
echo Please wait as we set it up...
ping localhost -n 2 >nul
echo Please wait, almost finished...
ping localhost -n 2 >nul
echo Rechecking template for errors...
ping localhost -n 6 >nul
cls
echo Creating template, please wait...
ping localhost -n 3 >nul
cls

From a quick read through the code it seems to be a collection of minor (and rather bespoke) time-saving helpers which I assume are of value to the originator.

In fairness I would have probably knocked up something similar when first learning batch in the DOS days, with copyright notices, dire warnings and all that good stuff. ¯\_(ツ)_/¯

Last edited by bluesxman (21 Nov 2017 11:57)


cmd | *sh | Ruby | Chef | Puppet | PowerShell | AutoIT3

Offline

Board footer

Powered by FluxBB