dedy's blog : 2013

oke tanpa basa basi langsung aja ke TKP

Bagikan ke Teman! : digg

Game Seru Di Notepad

@echo off

color b4

:menu

cls

echo Hai! Selamat Datang Di Game! Selamat bermain!

echo Game Ini Di Buat oleh:Rizky Aditya Putra Hermawan

echo Link blog : http://aditmadzs.blogspot.com

echo 1) Mulai!

echo 2) cara main

echo 3) Keluar

set /p number=

if %number% == 1 goto Mulai!

if %number% == 2 goto cara main

if %number% == 3 goto keluar

:Mulai!

cls

echo Siapa Nama Mu:

set /p name=

echo Halo %name%!

echo Apakah Kamu akan mulai quiz? (ya/tidak)

set /p start=

if %start% == ya goto level1

if %start% == tidak goto menu

goto Mulai!

:cara main

cls

echo pencet pilihan lalu ketik enter

echo pergi ke menu? (ya/tidak)

set /p menugoto=

if %menugoto% == ya goto menu

if %menugoto% == tidak goto exit

goto cara main

:keluar

cls

echo apakah anda yaking ingin keluar game?(y/t)

set /p keluargoto=

if %keluargoto% == y goto exit

if %keluargoto% == t goto menu

goto keluar

:level1

cls

echo ok sekarang mulai.

echo berapa hasil 10 + 10?

echo a) 1

echo b) 20

echo c) 500

set /p answer1=

if %answer1% == a goto wrong1

if %answer1% == b goto correct1

if %answer1% == c goto wrong1

goto level1

:correct1

echo betul mau lanjut level 2?(ya/tidak)

set /p NL1=

if %NL1% == ya goto level2

if %NL1% == tidak goto menu

goto correct1

:Wrong1

Echo salah mau ulang? (ya/tidak)

set /p WA1=

if %WA1% == ya goto level1

if %WA1% == tidak goto menu

goto wrong1

:level2

cls

echo Siapa yang ada di uang 100 dollar?

echo a) Ben Franklin

echo b) Tommy King

echo c) Thomas Train

echo d) Jeff Dunham

set /p aa=

if %aa% == a goto correct2

if %aa% == b goto wrong2

if %aa% == c goto wrong2

if %aa% == d goto wrong2

goto level2

:correct2

echo Kamu betul mau Lanjut level 3?(ya/tidak)

set /p NL1=

if %NL1% == ya goto level3

if %NL1% == tidak goto menu

goto correct2

:wrong2

cls

echo SALAH!Mau ulang? (ya/tidak)

set/p retry=

if %retry% == ya goto level1

if %retry% == tidak goto exit

goto wrong2

:level3

cls

echo berapa 5x5?

echo a) 30

echo b) 89

echo c) 25

set /p answer3=

if %answer3% == a goto wrong3

if %answer3% == b goto wrong3

if %answer3% == c goto correct3

goto level3

:correct3

echo betul mau lanjut level 4?(ya/tidak)

set /p NL1=

if %NL1% == ya goto level4

if %NL1% == tidak goto menu

goto correct3

:wrong3

cls

echo salah mau ulang?(ya/tidak)

set/p retry=

if %retry% == ya goto level3

if %retry% == tidak goto exit

goto wrong3

:level4

cls

echo siapa penemu lampu?

echo a)Thomas Alvadison

echo b)Johan Edvard

echo c)John Shore

echo d)Samuel Miller

set /p aa=

if %aa% == a goto correct4

if %aa% == b goto wrong4

if %aa% == c goto wrong4

if %aa% == d goto wrong4

goto level4

:correct4

echo betul mau lanjut level 5?(ya/tidak)

set /p NL1=

if %NL1% == ya goto level5

if %NL1% == tidak goto menu

goto correct4

:wrong4

cls

echo salah mau ulang?(ya/tidak)

set/p retry=

if %retry% == ya goto level4

if %retry% == tidak goto exit

goto wrong4

:level5

cls

echo berapa hasil -20:(-2)?

echo a)10

echo b)5

echo c)20

set /p answer5=

if %answer5% == a goto correct5

if %answer5% == b goto wrong5

if %answer5% == c goto wrong5

goto level5

:correct5

echo betul mau lanjut level 6?(ya/tidak)

set/p NL1=

if %NL1% == ya goto level6

if %NL1% == tidak goto menu

goto correct1

:wrong5

cls

echo Salah mau ulang?(ya/tidak)

set/p retry=

if %retry% == ya goto level5

if %retry% == tidak goto exit

goto wrong5

:level6

cls

echo Siapa Penemu Bakteri?

echo a)Orang Gila

echo b)Alexander Fleming

echo c)Alexander Grahambell

echo d)Muhammad Faqih`

set /p aa=

if %aa% == a goto wrong6

if %aa% == b goto correct6

if %aa% == c goto wrong6

if %aa% == d goto wrong

goto level6

:correct6

echo betul mau lanjut level7?(ya/tidak)

set/p NL1=

if %NL1% == ya goto level7

if %NL1% == tidak goto menu

goto correct7

:wrong6

cls

echo Salah mau ulang?(ya/tidak)

set/p retry=

if %retry% == ya goto level7

if %retry% == tidak goto exit

goto wrong7

:level7

cls

echo berapa hasil -40:2:(-4)?

echo a)13

echo b)20

echo c)5

set/p answer7=

if %answer7% == a goto wrong7

if %answer7% == b goto wrong7

if %answer7% == c goto correct7

goto level7

:correct7

echo betul mau lanjut level8? (ya/tidak)

set/p NL1=

if %NL1% == ya goto level8

if %NL1% == tidak goto menu

goto correct7

:wrong7

cls

echo Salah mau ulang?(ya/tidak)

set/p retry=

if %retry% == ya goto level7

if %retry% == tidak goto exit

goto wrong7

:level8

cls

echo Siapa Presiden Amerika

echo a)Barrak Obama

echo b)SBY

echo c)Soekarano

echo d)Moh.Hatta

set /p aa=

if %aa% == a goto correct8

if %aa% == b goto wrong8

if %aa% == c goto wrong8

if %aa% == d goto wrong8

:correct8

echo betul mau lanjut level9?(ya/tidak)

set/p NL1=

if %NL1% == ya goto level9

if %NL1% == tidak goto menu

goto correct8

:wrong8

cls

echo Salah mau ulang?(ya/tidak)

set/p retry=

if %retry% == ya goto level8

if %retry% == tidak goto exit

goto wrong8

:level9

echo berapa hasil 3x(-2)=

echo a)-100

echo b)400

echo c)-6

set /p answer9=

if %answer9% == a goto wrong9

if %answer9% == b goto wrong9

if %answer9% == c goto correct9

goto level9

:correct9

echo betul mau lanjut level 10?(ya/tidak)

set/p NL1=

if %NL1% == ya goto level10

if %NL1% == tidak goto menu

goto correct1

:wrong9

cls

echo Salah mau ulang?(ya/tidak)

set/p retry=

if %retry% == ya goto

if %retry% == tidak goto exit

goto wrong9

:level10

cls

echo Siapa penemu telepon?

echo a)Orang Gembel

echo b)Muhammad Faqih

echo c)Alexander Grahambell

echo d)SBY

set /p aa=

if %aa% == a goto wrong10

if %aa% == b goto wrong10

if %aa% == c goto correct10

if %aa% == d goto wrong10

goto level10

:correct10

cls

echo SELAMAT KAMU MENANG!

echo KEEP VISIT : www.rolandjak23.blogspot.com

goto correct10

:wrong10

cls

echo KAMU KALAH MAU ULANG GAME!?(y/n)

set/p retry=

if %retry% == y goto level1

if %retry% == n goto exit

goto wrong10

Save Dengan Format Bat , Dan Jadinya Seperti Ini

Game Taruhan

@echo off

title Super Taruhan!

set mny=0

set nbg=0

set asli=100000

set not=0

set jwl=5000

set bli=10000

taskkill /im nopengine_touched.exe>>hidden

taskkill /im "Cheat Engine.exe">>hidden

:awal

cls

if %not%==0 echo Please don't be cheat!

if %not%==1 echo You're using my cheat! You're lazy! :'(

echo Cash mu adalah %mny%

echo Tabunganmu adalah %nbg%

echo Uangmu adalah Rp %asli%

set var=%random%

set/p "cho=Pilih menu? (1=Main 2=Buy Cash M=Nabung A=Ambil tabungan J=Jual Cash G=Give Friends Cash Y=Give Friends Money E=Exit)"

if %cho%==1 goto chk

if %cho%==2 goto bli

if %cho%==m goto nbg

if %cho%==M goto nbg

if %cho%==A goto anb

if %cho%==a goto anb

if %cho%==J goto sll

if %cho%==j goto sll

if %cho%==G goto gfc

if %cho%==g goto gfc

if %cho%==y goto gfm

if %cho%==Y goto gfm

if %cho%==E goto exit

if %cho%==e goto exit

if %cho%==iamrichman goto cit1

if %cho%==youmustgivememuchmoney goto cit2

if %cho%==noloseman goto cit3

if %cho%==iamstingkyman goto cit4

if %cho%==loseallmycash goto cit5

if %cho%==ifyouareapoorman goto cit6

if %cho%==ilikehackingatm goto cit7

echo Wrong input!

pause

goto exit

:chk

cls

if %mny%==0 goto fail

echo Taruhan berapa (1 sampai %mny%)?

set/p "inp=>"

cls

if %inp% gtr %mny% goto fail

set /a mny=%mny%-%inp%

echo %var%!

set aaa=0

set bbb=0

set ccc=0

set ddd=0

set eee=0

set fff=0

if %var%==32767 set /a aaa=%inp%*10>>hidden

if %var% gtr 30000 set /a bbb=%inp%*7>>hidden

if %var% gtr 25000 set /a ccc=%inp%*5>>hidden

if %var% gtr 20000 set /a ddd=%inp%*3>>hidden

if %var% gtr 15000 set /a eee=%inp%*2>>hidden

if %var% gtr 10000 set /a fff=%inp%*1>>hidden

if %var% LEQ 10000 goto raw

set /a law=%aaa%+%bbb%+%ccc%+%ddd%+%eee%+%fff%>>hidden

set /a mny=%mny%+%law%>>hidden

echo Selamat kamu mendapatkan cash sebesar %law%!

echo Now your cash is %mny%!

pause

goto awal

:raw

cls

echo %var%!

echo Maaf, anda belum beruntung.

pause

goto awal

:fail

cls

echo You don't have enough cash!

echo Buy cash press enter, exit if not.

pause

goto bai

:bai

cls

echo Beli berapa? (1 Cash= Rp10000)

echo Your money is Rp %asli%

echo 1 Cash

echo 2 Cash

echo 3 Cash

echo 4 Cash

echo 5 Cash

echo 6 Cash

echo 7 Cash

echo 8 Cash

echo 9 Cash

echo 10 Cash

set/p "inp=Or more"

set /a sem=%inp%*%bli%

if %sem% gtr %asli% goto nomo

set /a asli=%asli%-%sem%

set /a mny=%mny%+%inp%

echo Now, your cash is %mny%.

set/p "cho=Beli lagi? (1=Yes 2=No M=Nabung A=Ambil tabngan)"

if %cho%==1 goto bai

if %cho%==2 goto awal

if %cho%==m goto nbg

if %cho%==M goto nbg

if %cho%==A goto anb

if %cho%==a goto anb

echo Wrong input!

goto exit

:nbg

cls

set/p "tab=Nabung berapa?"

set /a nbg=%nbg%+%tab%>>hidden

set /a mny=%mny%-%tab%>>hidden

echo Tabungan selesai

goto awal

:anb

set/p "tab=Ambil berapa?"

set /a nbg=%nbg%-%tab%>>hidden

set /a mny=%mny%+%tab%>>hidden

:nomo

echo Sorry, you don't have enough money!

echo Current money Rp %asli%

echo Tabungan selesai

goto awal

:sll

cls

echo Current money Rp %asli%

set/p "inp=Jual berapa?"

if %inp% gtr %mny% goto fail

set /a temp=%inp%*%jwl%

set /a asli=%asli%+%temp%

set /a mny=%mny%-%inp%

goto awal

:gfc

cls

set/p "tab=Beri berapa?"

set /a mny=%mny%-%tab%>>hidden

goto awal

:gfm

cls

set/p "tab=Beri berapa?"

set /a asli=%asli%-%tab%>>hidden

goto awal

:bli

if not %asli%==0 goto bai

echo You don't have money!!! You lose.

echo Current money Rp %asli%

set/p "cho=Solution? (1. Sell more cash 2. Exit)"

if %cho%==1 goto sll

if %cho%==2 goto exit

:exit

echo %mny%>>cashlog.sts

echo %asli%>>moneylog.sts

echo %nbg%>>savedcashlog.sts

echo ----------------------------------------------------------

echo All player cash

type cashlog.sts

echo ----------------------------------------------------------

echo All player MOney

type moneylog.sts

echo ----------------------------------------------------------

echo All Player Savings Money

type savedcashlog.sts

echo ----------------------------------------------------------

pause

exit

:cit1

set not=1

set /a mny=%mny%+250000

echo Cheat actived!

goto awal

:cit2

set not=1

set jwl=50000

echo Cheat actived!

goto awal

:cit3

set not=1

set random=32767

echo Cheat actived!

:cit4

set not=1

set bli=0

echo Cheat actived!

goto awal

:cit5

set not=1

set mny=0

echo Cheat actived!

goto awal

:cit6

set not=1

set /a asli=%asli%+%random%

echo Here is my money! So, I don't have more money again!

pause

goto awal

:cit7

set not=1

set /a nbg=%nbg%+2500000

echo Cheat actived!

goto awal

Simpan Dengan .bat Dan Jadinya Seperti Ini

Attacker

@echo off

set darah=300

set a=100

set b=25

set c=10

set d=5

goto train

:train

set musuh=50

goto mudah

:mudah

cls

IF %darah% lss 1 goto lose

echo Level 1

echo Nyawa Musuh %musuh%

echo Nyawa karakter anda %darah%

echo 1. Attack (%a%) 2. Deep atack (%b%) 3. Killing Death (%c%) 4. Super deep killing death (%d%)

set/p "cho=>"

if %cho%==1 goto a

if %cho%==2 goto b

if %cho%==3 goto c

if %cho%==4 goto d

echo Kau terlewatkan!

goto lawan

:a

cls

if %a%==0 goto lawan

set /a musuh=%musuh%-5

set /a a=%a%-1

echo You damage me in 5!

pause

goto lawan

:b

cls

if %b%==0 goto lawan

set /a musuh=%musuh%-15

set /a b=%b%-1

echo You damage me in 15!

pause

goto lawan

:c

cls

if %c%==0 goto lawan

set /a musuh=%musuh%-25

set /a c=%c%-1

echo You damage me in 25!

pause

goto lawan

:d

cls

if %d%==0 goto lawan

set /a d=%d%-1

set /a musuh=%musuh%-50

echo You damage me in 50!

pause

goto lawan

:lawanIF %musuh% lss 1 goto duax

set /a tmp=32767/10

set /a sem=%random%/%tmp%

set /a darah=%darah%-%sem%

echo I damage you in %sem%!

pause

goto mudah

:duax

set musuh=75

set /a darah=%darah%+25

goto sedang

:sedang

cls

IF %darah% lss 1 goto lose

echo Level 2

echo Nyawa Musuh %musuh%

echo Nyawa karakter anda %darah%

echo 1. Attack (%a%) 2. Deep atack (%b%) 3. Killing Death (%c%) 4. Super deep killing death (%d%)

set/p "cho=>"

if %cho%==1 goto e

if %cho%==2 goto f

if %cho%==3 goto g

if %cho%==4 goto h

echo Kau terlewatkan!

goto etek

:e

cls

if %a%==0 goto lawan

set /a musuh=%musuh%-5

set /a a=%a%-1

echo You damage me in 5!

pause

goto etek

:f

cls

if %b%==0 goto lawan

set /a b=%b%-1

set /a musuh=%musuh%-15

echo You damage me in 15!

pause

goto etek

:g

cls

if %c%==0 goto lawan

set /a musuh=%musuh%-25

set /a c=%c%-1

echo You damage me in 25!

pause

goto etek

:h

cls

if %d%==0 goto lawan

set /a musuh=%musuh%-50

set /a d=%d%-1

echo You damage me in 50!

pause

goto etek

:etek

IF %musuh% lss 1 goto tigax

set /a tmp=32767/25

set /a sem=%random%/%tmp%

set /a darah=%darah%-%sem%

echo I damage you in %sem%!

pause

goto sedang

:tigax

set /a darah=%darah%+50

set musuh=100

goto above

:above

cls

IF %darah% lss 1 goto lose

echo Level 3

echo Nyawa Musuh %musuh%

echo Nyawa karakter anda %darah%

echo 1. Attack (%a%) 2. Deep atack (%b%) 3. Killing Death (%c%) 4. Super deep killing death (%d%)

set/p "cho=>"

if %cho%==1 goto i

if %cho%==2 goto j

if %cho%==3 goto k

if %cho%==4 goto l

echo Kau terlewatkan!

goto demek

:i

cls

if %a%==0 goto lawan

set /a musuh=%musuh%-5

set /a a=%a%-1

echo You damage me in 5!

pause

goto demek

:j

cls

if %b%==0 goto lawan

set /a b=%b%-1

set /a musuh=%musuh%-15

echo You damage me in 15!

pause

goto demek

:k

cls

if %c%==0 goto lawan

set /a c=%c%-1

set /a musuh=%musuh%-25

echo You damage me in 25!

pause

goto demek

:l

cls

if %d%==0 goto lawan

set /a d=%d%-1

set /a musuh=%musuh%-50

echo You damage me in 50!

pause

goto demek

:demek

IF %musuh% lss 1 goto empat

set /a tmp=32767/30

set /a sem=%random%/%tmp%

set /a darah=%darah%-%sem%

echo I damage you in %sem%!

pause

goto above

:empat

set /a darah=%darah%+50

set musuh=125

goto susah

:susah

cls

IF %darah% lss 1 goto lose

echo Level 4

echo Nyawa Musuh %musuh%

echo Nyawa karakter anda %darah%

echo 1. Attack (%a%) 2. Deep atack (%b%) 3. Killing Death (%c%) 4. Super deep killing death (%d%)

set/p "cho=>"

if %cho%==1 goto m

if %cho%==2 goto n

if %cho%==3 goto o

if %cho%==4 goto p

echo Kau terlewatkan!

goto ancur

:m

cls

if %a%==0 goto lawan

set /a c=%c%-1

set /a musuh=%musuh%-5

echo You damage me in 5!

pause

goto ancur

:n

cls

if %b%==0 goto lawan

set /a b=%b%-1

set /a musuh=%musuh%-15

echo You damage me in 15!

pause

goto ancur

:o

cls

if %c%==0 goto lawan

set /a c=%c%-1

set /a musuh=%musuh%-25

echo You damage me in 25!

pause

goto ancur

:p

cls

if %d%==0 goto lawan

set /a d=%d%-1

set /a musuh=%musuh%-50

echo You damage me in 50!

pause

goto ancur

:ancur

IF %musuh% lss 1 goto boss

set /a tmp=32767/35

set /a sem=%random%/%tmp%

set /a darah=%darah%-%sem%

echo I damage you in %sem%!

pause

goto susah

:boss

set /a darah=%darah%+100

set musuh=150

goto raja

:raja

cls

IF %darah% lss 1 goto lose

echo Boss Battle!

echo Nyawa Musuh %musuh%

echo Nyawa karakter anda %darah%

echo 1. Attack (%a%) 2. Deep atack (%b%) 3. Killing Death (%c%) 4. Super deep killing death (%d%)

set/p "cho=>"

if %cho%==1 goto q

if %cho%==2 goto r

if %cho%==3 goto s

if %cho%==4 goto t

echo Kau terlewatkan!

goto mati

:q

cls

if %a%==0 goto lawan

set /a musuh=%musuh%-5

set /a a=%a%-1

echo You damage me in 5!

pause

goto mati

:r

cls

if %b%==0 goto lawan

set /a b=%b%-1

set /a musuh=%musuh%-15

echo You damage me in 15!

pause

goto mati

:s

cls

if %c%==0 goto lawan

set /a c=%c%-1

set /a musuh=%musuh%-25

echo You damage me in 25!

pause

goto mati

:t

cls

if %d%==0 goto lawan

set /a d=%d%-1

set /a musuh=%musuh%-50

echo You damage me in 50!

pause

goto mati

:mati

IF %musuh% lss 1 goto win

set /a tmp=32767/50

set /a sem=%random%/%tmp%

set /a darah=%darah%-%sem%

echo I damage you in %sem%!

pause

goto raja

:lose

echo You has been defeated! You lose. Press enter to exit

pause

exit

:win

echo You win! Conguralations!

pause

exit

dedy's blog

bintang

Minggu, 26 Mei 2013

cara membuat game dengan notepad

Jumat, 24 Mei 2013

Unik, Nonton film Star Wars lewat Command Prompt

Unik, bermain game SNAKE / ULAR di youtube

16 keunikan google

JAM DIGITAL