Hai lagi semua! di postingan yang ini, saya akan share sebuah program pengunci file yang diberi nama "File Locker". Saya yang membuat program ini sendiri.
Berikut adalah kodenya. Copy ke Notepad dan simpan sebagai File Locker.bat
File Locker.bat
@echo off
set "p=>nul ping localhost -n "
set /a "n=987654321*987654321"
title File Locker
mode 65,30
color 8
%p%2
echo.
echo _______ __ __ __
echo / ____(_) /__ / / ____ _____/ /_____ _____
echo / /_ / / / _ \ / / / __ \/ ___/ //_/ _ \/ ___/
echo / __/ / / / __// /__/ /_/ / /__/ ,^< / __/ /
echo /_/ /_/_/\___//_____^|____/\___/_/^|_^|\___/_/
echo -= apis =-
echo -= apis0.blogspot.com =-
%p%2
color 7
%p%2
color f
%p%2
if exist "%n%%n%%n%%n%%n%-" goto `1
if not exist "$File_Locker_data$" goto `2
echo.
echo Folder "$File_Locker_data$" ditemukan.
echo Masukkan password untuk menguncinya.
echo.
set /p k1=Password:
echo.
cd "$File_Locker_data$"
attrib -s -h "$File_Locker$._xt"
<$File_Locker$._xt set /p "k2="
attrib +s +h "$File_Locker$._xt"
%p%3
if "%k1%"=="%k2%" (cd ..
ren "$File_Locker_data$" "%n%%n%%n%%n%%n%-"
attrib +s +h "%n%%n%%n%%n%%n%-"
%p%2
echo Folder terkunci.
pause>nul
exit) else (echo Password salah!
pause>nul
exit)
:`1
echo.
echo Folder pengaman terkunci.
echo Masukkan password untuk membukanya.
echo.
set /p k1=Password:
echo.
cd "%n%%n%%n%%n%%n%-"
attrib -s -h "$File_Locker$._xt"
<$File_Locker$._xt set /p "k2="
attrib +s +h "$File_Locker$._xt"
%p%3
if "%k1%"=="%k2%" (cd ..
attrib -s -h "%n%%n%%n%%n%%n%-"
ren "%n%%n%%n%%n%%n%-" "$File_Locker_data$"
%p%2
echo Folder terbuka.
pause>nul
exit) else (echo Password salah!
pause>nul
exit)
:`2
echo.
echo Folder pengaman ($File_Locker_data$) belum dibuat.
echo Apakah kamu ingin membuatnya?
echo [Y/N]
choice>nul
echo.
if "%errorlevel%"=="1" (%p%3
md $File_Locker_data$
%p%2
echo Masukkan password untuk mengunci atau membuka folder pengaman.
set /p pass=Password:
echo.
%p%2
rem --- Ada sedikit masalah disini ---
call :fix
copy temp.txt $File_Locker_data$\$File_Locker$._xt >nul
del /f /q temp.txt >nul
cd "$File_Locker_data$"
attrib +s +h "$File_Locker$._xt"
echo Folder $File_Locker_data$ berhasil dibuat.
pause>nul
exit)
:fix
echo %pass%>>temp.txt
Program ini cocok untuk menyimpan file-file anda jika tidak ingin dilihat oleh orang lain.
Sebaiknya anda harus berhati-hati menggunakan program ini. Bisa-bisa file anda hilang karena program ini atau karena program lain. Jika anda lupa passwordnya, silakan komentar di bawah supaya saya kasih tau cara mendapatkan passwordnya kembali.
Baiklah, setelah saya post Bagaimana Cara Membuat Game Dengan Notepad, saya akan post contoh-contoh game yang dibuat dengan Notepad.
Langsung saja, berikut adalah contoh-contoh game yang dibuat dengan Notepad. Semua game dibawah saya buat sendiri.
Ini cara menyimpan code dibawah: buka Notepad, copy code yang diinginkan, klik File -> Save As -> di kotak file name tulis apaSaja.bat, save.
Pencarian Harta Karun.bat
@echo off
title Pencarian Harta Karun.
color 18
cls
echo Pencarian Harta Karun
echo oleh: apis.
pause
cls
echo Kamu adalah seorang petualang yang sangat terkenal, kamu sudah pernah melakukan
echo petualangan mencari harta karun 2 kali. Sekarang, kamu akan melakukannya lagi.
echo.
echo Kemarin kamu mendengar berita bahwa ada ditemukanya beberepa koin emas di
echo tengah-tangah dalam laut Atlantik. Diperkirakan bahwa ada harta karun di dekat
echo tempat ditemukanya koin-koin itu.
echo.
echo 2 hari setelah berita itu, kamu sepakat untuk melakukan pencarian harta karun itu.
pause
:a
cls
echo Kamu sudah siap untuk melakukan pencarian. Kamu diantar ke tengah-tengah laut
echo Atlantik. Saat itu cuaca sedang turun hujan deras. Area disekitar tengah laut sangat
echo gelap. Maukah kamu turun pertama atau para ahli renang pertama?
echo.
echo 1.Turun duluan
echo 2.Para perenang duluan
set pilih=
set /p pilih="1/2:"
if "%pilih%"=="1" goto a1
if "%pilih%"=="2" goto b1
goto a
:a1
cls
echo Kamu memilih untuk turun pertama. Kamu turun ke laut dengan tali. Saat kamu sedang
echo turun ke laut, tiba-tiba talinya putus. Kamu terjatuh ke bawah. Orang lain dalam
echo helikopter tidak bisa menolong kamu karena tidak ada tali dan mereka tidak bisa
echo lompat dengan bebas. Sebenarnya ada tali lain di dalam helikopter, tetapi mereka
echo tidak tahu dimana kamu menyimpanya. Karena mereka tidak bisa berbuat apa-apa, mereka
echo kembali pulang tanpa menolongmu.
echo.
echo GAME OVER.
pause
exit
:b1
cls
echo Kamu memilih para perenang turun pertama. Lalu mereka turun ke laut dengan tali. Saat
echo mereka sedang turun, tiba-tiba talinya putus. Meraka meminta tolong, lalu kamu
echo mengambil tali yang lain di bawah kursi belakang. Kamu memasang talinya, lalu semuanya
echo turun ke laut. Saat semua sudah turun, helikopternya pergi untuk mengisi bahan bakar.
echo.
echo Semuanya berenang ke dasar laut, air terasa sangat dingin sekali. Di kejauhan, kamu
echo melihat benda bersilau-silau. Itu adalah koin emas, kamu menyimpan koin itu.
echo.
echo Kamu berenang ke dalam gua di laut. Ada 2 lubang di gua itu. Apakah kamu ingin jalan
echo kekiri atau jalan kekanan?
echo.
echo 1.Kiri
echo 2.Kanan
set pilih=
set /p pilih="1/2:"
if "%pilih%"=="1" goto b2
if "%pilih%"=="2" goto a2
goto b1
:a2
cls
echo Kamu jalan ke kanan bersama yang lainnya. Tiba-tiba kamu menyenggol sesuatu di dinding.
echo Guanya runtuh. Kamu semuanya mati di dalam.
echo.
echo GAME OVER.
pause
exit
:b2
cls
echo Kamu memilih jalan ke kiri. Kamu berenang perlahan-lahan, setelah 10 menit\,
echo ikan hiu tiba-tiba muncul. Apa yang akan kamu lakukan?
echo.
echo 1.Melawanya
echo 2.Lari
set pilih=
set /p pilih="1/2:"
if "%pilih%"=="1" goto b3
if "%pilih%"=="2" goto a3
goto b2
:a3
cls
echo Semuanya berlari. Tetapi ikan hiu itu bergerak dengan cepat. Satu per satu orang mati.
echo Kamu tetap berlari dan bersembunyi. Ikan hiu itu sudah pergi. Kamu tinggal sendiri.
echo Apakah kamu tetap akan mencari atau pergi kembali?
echo.
echo 1.Tetap mencari
echo 2.Kembali
set pilih=
set /p pilih="1/2:"
if "%pilih%"=="1" goto c1
if "%pilih%"=="2" goto c2
goto a3
:c1
cls
echo Kamu sangat ketakutan. Tetapi dengan terpaksa kamu tetap pergi mencari.
echo Ikan hiunya kembali dan mengejarmu. Kamu berlari dan masuk ke dalam sebuah lubang.
echo lubang itu adalah jalan buntu.
echo Kamu mati dimakan oleh hiu itu.
pause
color 4c
echo.
echo GAME OVER.
pause
exit
:c2
cls
echo Kamu keluar dari gua itu. Kamu naik ke helikopter lagi dan kembali pulang dengan
echo tangan kosong.
pause
color 5d
echo.
echo THE END.
pause
exit
:b3
cls
echo Kamu mengambil senjata pembius. Kamu menembak ikan hiu itu sebanyak 4 kali, tidak kena
echo sasaran. Saat tembakan kelima, hiu itu mati perlahan-lahan. 2 orang mati saat melawan.
echo.
echo Sekarang tinggal 3 orang yang tersisa dan kamu masih belum mendapatkan harta karun.
echo Kamu menemukan beberapa koin emas lagi di dekat bebatuan. Dan koin emas juga ada di
echo dekat lubang. Apakah kamu akan melihat yang di dekat bebatuan atau dekat lubang?
echo.
echo 1.Lihat di bebatuan
echo 2.Lihat di lubang
set pilih=
set /p pilih="1/2:"
if "%pilih%"=="1" goto a4
if "%pilih%"=="2" goto b4
goto b3
:a4
cls
echo Saat kamu mengangkat batu-batu itu, beberapa ikan piranha kecil keluar dan menggigitmu.
echo Kamu keracunan dan mati.
echo.
echo GAME OVER
pause
exit
:b4
cls
echo Masuk ke dalam lubang dan melihat sangat banyak koin emas! Tetapi, sebuah makhluk
echo aneh muncul dari dalam emas-emas itu! Kedua temanmu hilang tiba-tiba dibelakang!
echo.
echo Melawan: -= BOSS =-
pause
set "darahBoss=100"
set "darahPemain=30"
:boss
color 4e
if %darahBoss% lss 1 (goto menang)
if %darahPemain% lss 1 (goto kalah)
cls
echo.
echo -= BOSS =- - %darahBoss%%% / -= PEMAIN =- - %darahPemain%%%
echo.
echo Tembak dengan sejata bius atau serang dengan pisau?
echo.
echo 1.Tembak
echo 2.Serang
set pilih=
set /p pilih="1/2:"
if "%pilih%"=="1" goto tembak1
if "%pilih%"=="2" goto serang1
goto boss
:tembak1
echo Kamu menembaknya...
:l1
set /a "tembak=%random% %% 180"
if "%tembak%"=="1" goto tembak2
if "%tembak%"=="10" goto tembak3
if "%tembak%"=="20" goto tembak3
if "%tembak%"=="30" goto tembak2
if "%tembak%"=="40" goto tembak3
goto :l1
:tembak2
color 4a
set /a "habis=%random% %% 50"
set /a darahBoss-=%habis%
echo.
echo Kamu menembak dan kena BOSS. Darah BOSS berkurang sebanyak %habis%%!
pause
goto boss
:tembak3
color 4c
set /a "habis=%random% %% 10"
set /a darahPemain-=%habis%
echo.
echo Kamu menembak dan tidak kena BOSS. BOSS menyarangmu!
echo Darah kamu berkurang sebanyak %habis%%!
pause
goto boss
:serang1
echo Kamu menyerangnya...
:l2
set /a "serang=%random% %% 210"
if "%serang%"=="1" goto serang2
if "%serang%"=="10" goto serang2
if "%serang%"=="20" goto serang3
if "%serang%"=="30" goto serang2
if "%serang%"=="40" goto serang2
if "%serang%"=="50" goto serang3
if "%serang%"=="60" goto serang3
if "%serang%"=="70" goto serang2
goto l2
:serang2
color 4a
set /a "habis=%random% %% 20"
set /a darahBoss-=%habis%
echo.
echo Kamu menyerang BOSS. Darah BOSS berkurang sebanyak %habis%%!
pause
goto boss
:serang3
color 4c
set /a "habis=%random% %% 5"
set /a darahPemain-=%habis%
echo.
echo Kamu menembak dan tidak kena BOSS. BOSS menyerangmu!
echo Darah kamu berkurang sebanyak %habis%%!
pause
goto boss
:menang
color 18
cls
echo Akhirnya kamu menang juga! Makhluk aneh itu menghilang. Kamu tidak merasa takut.
echo Kamu mengambil emas-emas itu seberapa bisa dan membawanya kembali.
echo.
echo Sampai di rumah, kamu memberikan emas itu kepada pihak yang berwenang. Kamu
echo juga menceritakan bagaimana kejadian-kejadian saat mencari harta karun itu.
echo Sekarang pemerirah mengirim pasukan untuk mencari harta katun itu di tempat
echo yang kamu ceritakan.
echo.
echo Sekali lagi, KAMU BERHASIL MENEMUKAN HARTA KARUN!!!
echo.
pause
cls
color 0f
echo Terima kasih telah memainkan game ini! Anda boleh mengedit game ini sesuka hati
echo anda! Membuat cerita gamenya lebih panjang lagi.
echo Semoga game ini bisa menjadi inspirasi anda untuk membuat game yang lain
echo yang mirip seperti game ini!
echo.
echo Sampai jumpa!~
pause
cls
echo Tambahan: ingin mengunjungi blog pemilik?
set /p pilih="ya/tidak:"
if "%pilih%"=="ya" start http://apis0.blogspot.com/
exit
@echo off
title MATEMATIKA
color 0f
echo.
echo --- Anda harus belajar MATEMATIKA!!! ---
echo ---15 soal---
echo.
pause
set per=0
set benar=0
set salah=0
:r
color 0e
cls
set /a "per+=1"
set /a "angka1=%random% %% 50"
set /a "angka2=%random% %% 30"
set /a "hasil=%angka1%+%angka2%"
if "%per%"=="16" goto lihathasil
echo.
echo -= Pertanyaan #%per% =-
echo.
echo Berapakah hasil %angka1%+%angka2%?
echo.
set /p masuk="Hasil:"
if "%masuk%"=="%hasil%" (color 0a
echo.
echo Benar!
pause
set /a benar+=1
goto r) else (color 0c
echo.
echo Salah!!
set /a salah+=1
pause
goto r)
:lihathasil
set /a "nilai=%benar%*100/15"
color f0
cls
echo.
echo Nilai!!!
echo -======-
echo.
echo Benar: %benar%
echo Salah: %salah%
echo Nilai anda adalah: %nilai%.
echo.
echo Pak guru bilang:
if %nilai% geq 90 (echo Anda benar-benar orang yang sangat pandai!
goto akhir)
if %nilai% geq 70 (echo Nilai anda sudah cukup! Hampir bagus. Belajar lagi ya!
goto akhir)
if %nilai% geq 50 (echo Apakah anda tidak pandai dengan MATEMATIKA?! HAH!
goto akhir)
if %nilai% geq 30 (echo Anda memang betul-betul bodoh sekali... Tidak tahu harus bilang apa...
goto akhir)
if %nilai% geq 0 (echo Hancur masa depan, hancur...
goto akhir)
:akhir
echo.
pause
exit
Dan ada beberapa lagi contoh. Tetapi ini bukan game.
Informasi Anda.bat
@echo off
title Informasi anda.
echo Informasi Anda
echo -============-
echo.
echo Anda akan ditanyakan beberapa pertanyaan tentang informasi anda.
pause
cls
echo Pertanyaan #1
echo.
echo Siapakah nama anda?
set /p set1=">"
cls
echo Pertanyaan #2
echo.
echo Dimana anda tinggal?
set /p set2=">"
cls
echo Pertanyaan #3
echo.
echo Tempat/tanggal lahir anda?
set /p set3=">"
cls
echo Pertanyaan #4
echo.
echo Apakah hobi anda?
set /p set4=">"
cls
echo Pertanyaan #5
echo.
echo Apa warna kesukaan anda?
set /p set5=">"
cls
echo Pertanyaan #6
echo.
echo Apa olahraga kesukaan anda?
set /p set6=">"
cls
echo Pertanyaan #7
echo.
echo Apa makanan kesukaan anda?
set /p set7=">"
:r
cls
echo Selesai. Ingin melihat hasilnya?
set /p tn="Ya/Tidak:"
if "%tn%"=="ya" goto ya
if "%tn%"=="tidak" exit
goto r
:ya
cls
echo Inilah hasilnya!
echo.
echo Nama: %set1% %set1%
echo.
echo Tinggal di: %set2%rik
echo.
echo Ttl: %set3% %set3%
echo.
echo Hobi: %set4% rusak
echo.
echo Warna kesukaan: %set5% %set5% pink
echo.
echo Olahraga: %set6% mainan
echo.
echo Makanan: %set7% basi
echo.
echo Informasi anda serba aneh.
pause
exit
Matrix.bat
@echo off
color 0a
title The Matrix
echo.
echo ____----''''----____----''''----____
echo / \
echo I Selamat datang di "The Matrix" I
echo \ /
echo ''''----____----''''----____----''''
pause>nul
rem -pause di atas tidak akan menampilkan pesan.
cls
:re
set /p "=%random%%random%%random%%random%%random%%random%%random%%random%%random%%random%%random%%random%%random%%random%%random%%random%" <nul
goto re
rem -kode diatas akan berjalan terus tanpa henti.
rem -%random% adalah sebuah variabel yang sudah ada yang akan membuat angka asal-asal
rem -set /p diatas akan menampilkan pesan tanpa meng-enterkan setelah pesan. <nul akan menelesaikan pertanyaan set /p
Hanya itu yang dapat saya sampaikan. Terima Kasih!
