C.R.A.C.K.E.R. Fest Gaming Network Forums
It is currently Sat Dec 21, 2024 11:16 am

All times are UTC - 5 hours




Post new topic Reply to topic  [ 6 posts ] 
Author Message
 Post subject: Chris to port Chess from real life to PC
PostPosted: Tue Jul 04, 2006 5:21 pm 
Offline
Pimp
Pimp
User avatar

Posts: 373
Location: ATL
Joined: Mon Oct 11, 2004 8:52 pm
Batch file chess.bat i made a WHILE ago on teh uber IBM PS1 w/ l33t 486SX @ 33Mhz lawl... l33t!11!1!111 some of teh commands and spacing will be off cause the forum cuts down on spaces

@echo off
if #%1==#sub goto %2
if #%comspec%==# set comspec=command
%comspec% /e:4096 /c %0 sub shell
:start
cls
:: -begin routine-
mem /c>temp.txt
find "ANSI"<temp.txt>nul
if not errorlevel 1 goto begin
echo.
echo ANSI.SYS was not detected, you must put it in your CONFIG.SYS file
echo.
pause>nul
goto out
:begin
echo 
cls
echo.
echo.
echo CCCC HH HH EEEE SSSS SSSS
echo CCCCCC HH HH EEEEEE SSSSSS SSSSSS
echo CC HH HH EE SS SS
echo CC HHHHHH EEEEEE SSSSS SSSSS
echo CC HHHHHH EEEEEE SSSSS SSSSS
echo CC HH HH EE SS SS
echo CCCCCC HH HH EEEEEE SSSSSS SSSSSS
echo CCCC HH HH EEEE SSSS SSSS
echo.
echo.
echo Creating files...
if exist C:\data.txt set datafileexist=true
if exist C:\chess.sav set savefileexist=true
if %datafileexist%==true if %savefileexist%==true goto board_start
if %datafileexist%.==. echo datafile begin>C:\data.txt
if %savefileextist%.==. echo ::savefile start>C:\chess.sav
echo Done
echo Setting variables...
set p1=R
set p2=N
set p3=B
set p4=Q
set p5=K
set p6=B
set p7=N
set P8=R
set p9=P
set p10=P
set P11=P
set P12=P
sep P13=P
set p14=P
set p15=P
set p16=P
set p17=.
set p18=.
set p19=.
set p20=.
set p21=.
set p22=.
set p23=.
set p24=.
set p25=.
set p26=.
set p27=.
set p28=.
set p29=.
set p30=.
set p31=.
set p32=.
set p33=.
set p34=.
set p35=.
set p36=.
set p37=.
set p38=.
set p39=.
set p40=.
set p41=.
set p42=.
set p43=.
set p44=.
set p45=.
set p46=.
set p47=.
set p48=.
set p49=p
set p50=p
set p51=p
set p52=p
set p53=p
set p54=p
set p55=p
set p56=p
set p57=r
set p58=n
set p59=b
set p60=k
set p61=q
set p62=b
set p63=n
set p64=r
set r=
set b=
set bl=
set gr=
set dig1=_
set dig2=_
set dig3=_
set dig4=_
set side=White's
:board_start
cls
echo %bl%
cls
:board
echo.
echo.
echo.
echo %r% %b% %r% %b% %r% %b% %r% %b% %bl%
echo 8 %r% %p57% %b% %p58% %r% %p59% %b% %p60% %r% %p61% %b% %p62% %r% %p63% %b% %p64% %bl%
echo %r% %b% %r% %b% %r% %b% %r% %b% %bl%
echo %b% %r% %b% %r% %b% %r% %b% %r% %bl%
echo 7 %b% %p49% %r% %p50% %b% %p51% %r% %p52% %b% %p53% %r% %p54% %b% %p55% %r% %p56% %bl%
echo %b% %r% %b% %r% %b% %r% %b% %r% %bl%
echo %r% %b% %r% %b% %r% %b% %r% %b% %bl%
echo 6 %r% %p41% %b% %p42% %r% %p43% %b% %p44% %r% %p45% %b% %p46% %r% %p47% %b% %p48% %bl%
echo %r% %b% %r% %b% %r% %b% %r% %b% %bl%
echo %b% %r% %b% %r% %b% %r% %b% %r% %bl%
echo 5 %b% %p33% %r% %p34% %b% %p35% %r% %p36% %b% %p37% %r% %p38% %b% %p39% %r% %p40% %bl%
echo %b% %r% %b% %r% %b% %r% %b% %r% %bl%
echo %r% %b% %r% %b% %r% %b% %r% %b% %bl%
echo 4 %r% %p25% %b% %p26% %r% %p27% %b% %p28% %r% %p29% %b% %p30% %r% %p31% %b% %p32% %bl%
echo %r% %b% %r% %b% %r% %b% %r% %b% %bl%
echo %b% %r% %b% %r% %b% %r% %b% %r% %bl%
echo 3 %b% %p17% %r% %p18% %b% %p19% %r% %p20% %b% %p21% %r% %p22% %b% %p23% %r% %p24% %bl%
echo %b% %r% %b% %r% %b% %r% %b% %r% %bl%
echo %r% %b% %r% %b% %r% %b% %r% %b% %bl%
echo 2 %r% %p9% %b% %p10% %r% %p11% %b% %p12% %r% %p13% %b% %p14% %r% %p15% %b% %p16% %bl%
echo %r% %b% %r% %b% %r% %b% %r% %b% %bl%
echo %b% %r% %b% %r% %b% %r% %b% %r% %bl%
echo 1 %b% %p1% %r% %p2% %b% %p3% %r% %p4% %b% %p5% %r% %p6% %b% %p7% %r% %p8% %bl%
echo %b% %r% %b% %r% %b% %r% %b% %r% %bl%
echo A B C D E F G H
echo.
echo.
echo.
:menu
echo %gr% %bl%
echo %gr% %r% %bl%
echo %gr% %r% %side% move: %dig1%%dig2%-%dig3%%dig4% %bl%
echo %gr% %r% %bl%
echo %gr%
if %dig1%==_ goto choicedig1
if %dig2%==_ goto choicedig2
if %dig3%==_ goto choicedig3
if %dig4%==_ goto choicedig4
goto move
:choicedig1 %bl%
choice /cabcdefghx
if errorlevel 8 goto menu_dig1H
if errorlevel 7 goto menu_dig1G
if errorlevel 6 goto menu_dig1F
if errorlevel 5 goto menu_dig1E
if errorlevel 4 goto menu_dig1D
if errorlevel 3 goto menu_dig1C
if errorlevel 2 goto menu_dig1B
if errorlevel 1 goto menu_dig1A

choice /c12345678x
if errorlevel 8 goto menu_dig28
if errorlevel 7 goto menu_dig27
if errorlevel 6 goto menu_dig26
if errorlevel 5 goto menu_dig25
if errorlevel 4 goto menu_dig24
if errorlevel 3 goto menu_dig23
if errorlevel 2 goto menu_dig22
if errorlevel 1 goto menu_dig21

choice /cabcdefghx
if errorlevel 8 goto menu_dig3H
if errorlevel 7 goto menu_dig3G
if errorlevel 6 goto menu_dig3F
if errorlevel 5 goto menu_dig3E
if errorlevel 4 goto menu_dig3D
if errorlevel 3 goto menu_dig3C
if errorlevel 2 goto menu_dig3B
if errorlevel 1 goto menu_dig3A

choice /c12345678x
if errorlevel 8 goto menu_dig48
if errorlevel 7 goto menu_dig47
if errorlevel 6 goto menu_dig46
if errorlevel 5 goto menu_dig45
if errorlevel 4 goto menu_dig44
if errorlevel 3 goto menu_dig43
if errorlevel 2 goto menu_dig42
if errorlevel 1 goto menu_dig41

:menu_dig1A
cls
set dig1=A
goto board

:menu_dig1B
cls
set dig1=B
goto board

:menu_dig1C
cls
set dig1=C
goto board

:menu_dig1D
cls
set dig1=D
goto board

:menu_dig1E
cls
set dig1=E
goto board

:menu_dig1F
cls
set dig1=F
goto board

:menu_dig1G
cls
set dig1=G
goto board

:menu_dig1H
cls
set dig1=H
goto board

:menu_dig21
cls
set dig2=1
goto board

:menu_dig22
cls
set dig2=2
goto board

:menu_dig23
cls
set dig2=3
goto board

:menu_dig24
cls
set dig2=4
goto board

:menu_dig25
cls
set dig2=5
goto board

:menu_dig26
cls
set dig2=6
goto board

:menu_dig27
cls
set dig2=7
goto board

:menu_dig28
cls
set dig2=8
goto board

:menu_dig3A
cls
set dig3=A
goto board

:menu_dig3B
cls
set dig3=B
goto board

:menu_dig3C
cls
set dig3=C
goto board

:menu_dig3D
cls
set dig3=D
goto board

:menu_dig3E
cls
set dig3=E
goto board

:menu_dig3F
cls
set dig3=F
goto board

:menu_dig3G
cls
set dig3=G
goto board

:menu_dig3H
cls
set dig3=H
goto board

:menu_dig41
cls
set dig4=1
goto board

:menu_dig42
cls
set dig4=2
goto board

:menu_dig43
cls
set dig4=3
goto board

:menu_dig44
cls
set dig4=4
goto board

:menu_dig45
cls
set dig4=5
goto board

:menu_dig46
cls
set dig4=6
goto board

:menu_dig47
cls
set dig4=7
goto board

:menu_dig48
cls
set dig4=8
goto board

:out
del temp.txt


Top
 Profile  
Reply with quote  
 Post subject:
PostPosted: Tue Jul 04, 2006 5:22 pm 
Offline
Pimp
Pimp
User avatar

Posts: 373
Location: ATL
Joined: Mon Oct 11, 2004 8:52 pm
very low level programming FTW. assembly>DOS>(all-assembly)


Top
 Profile  
Reply with quote  
 Post subject:
PostPosted: Wed Jul 05, 2006 12:42 am 
Offline
Fragger
Fragger
User avatar

Posts: 149
Location: North Carolina
Joined: Tue Apr 25, 2006 8:56 pm
I think my brain just emptied out of my left ear in the form of a low texture goo.

_________________
Image
Image


Top
 Profile  
Reply with quote  
 Post subject:
PostPosted: Wed Jul 05, 2006 4:19 am 
Offline
Pimp
Pimp
User avatar

Posts: 373
Location: ATL
Joined: Mon Oct 11, 2004 8:52 pm


Top
 Profile  
Reply with quote  
 Post subject:
PostPosted: Wed Jul 05, 2006 1:57 pm 
Offline
Kikkoman
Kikkoman
User avatar

Posts: 2391
Location: 127.0.0.1
Joined: Fri Mar 19, 2004 3:51 pm

_________________



Top
 Profile  
Reply with quote  
 Post subject:
PostPosted: Thu Jul 06, 2006 7:08 am 
Offline
Rev. of Gnomeforest Baptist
Rev. of Gnomeforest Baptist
User avatar

Posts: 832
Location: The Forest of Gnomes
Joined: Thu Mar 25, 2004 8:04 pm

_________________
I put on my robe and wizard hat.


Top
 Profile  
Reply with quote  
Display posts from previous:  Sort by  
Post new topic Reply to topic  [ 6 posts ] 

All times are UTC - 5 hours


Who is online

Users browsing this forum: No registered users and 124 guests


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to: