Backgammon adalah permainan puzzle yang sangat familiar bagi semua orang, dan ada banyak perangkat lunak permainan terkait. Di sini saya dengan sungguh-sungguh memperkenalkan kepada Anda Backgammon versi online murni baru yang menggunakan ASP sebagai lingkungan pengembangannya, sehingga sangat populer di Internet . Tidak perlu mengunduh perangkat lunak klien saat bermain pertempuran, selama Anda memiliki browser. Anda juga dapat memainkan game ini di jaringan area lokal.
Untuk ASP saya tidak ingin menjelaskan terlalu banyak, sudah banyak yang saya sampaikan di artikel sebelumnya.
Proses permainannya seperti ini, pertama kita login, lalu kita bisa memilih medan perang. Ada lima medan perang seperti Venus, Jupiter, Merkurius, Mars, dan Saturnus Venus, jika tidak, Anda dapat memilih yang lain secara berurutan. Planet ini berfungsi sebagai medan perang. Jika tidak ada penantang di planet ini, Anda harus masuk sebagai penantang, dan orang lain dapat bersaing dengan Anda. Tentu saja, jika perang telah dimulai di semua planet, Anda hanya perlu menunggu beberapa saat.
Jika Anda masuk sebagai penantang, Anda dapat menunggu orang lain untuk melawan Anda. Jika Anda masuk sebagai penyerang, Anda dapat dengan cepat memulai pertempuran dengan penantang tersebut. Setelah pertarungan dimulai, pemimpin ring memimpin dengan warna hitam, lalu penyerang mengambil tindakan, dan seterusnya. Ketika keputusan akhir dibuat, akan ada petunjuk terkait.
Situs ini memiliki beberapa file utama:
File masuk Index.asp:
File perantara Index0.asp:
File kecocokan Match.asp:
Back0.jpg white0.jpg black0.jpg File grafik yang digunakan di tengah mengacu pada papan catur, batu putih dan batu hitam, seperti yang ditunjukkan di bawah ini:
Pada saat inisialisasi program, bagilah papan catur menjadi beberapa tabel, masukkan gambar latar belakang ke dalamnya sehingga membentuk papan catur, kemudian setelah menempatkan bidak catur, ganti gambar tersebut dengan bidak putih atau hitam yang sesuai.
Mari kita lihat file loginnya terlebih dahulu:
＜%@ Bahasa=VBScript %＞
<HTML>
＜KEPALA＞
＜NAMA META=Konten GENERATOR=Microsoft Visual Studio 6.0＞
＜title＞Kontes Star Wars: Lima Putra! ＜/judul＞
＜/KEPALA＞
＜ TUBUH ＞
＜p align=tengah＞＜ukuran font=6＞Star Wars＜/font＞＜/P＞
＜batas tabel=1 lebar=80% rata=tengah＞
＜tr＞＜td＞Planet＜/td＞＜td＞Tantangan＜/td＞＜td＞Pertempuran＜/td＞＜td＞Serangan＜/td＞＜/tr＞
＜tr＞
＜td＞Venus＜/td＞
＜td＞
<%
jika aplikasi(pertama1)= maka
%>
<form action=index0.asp?flag=First1 method=post>
＜INPUT id=teks1 nama=txtUkuran1 pertama=10＞＜INPUT id=kirim1 nama=kirim1
ketik=kirim nilai=Masuk>
＜/bentuk＞
<%
kalau tidak
respon.tulis aplikasi(pertama1)
berakhir jika
%>
＜/td＞
＜td＞Perang＜/td＞
＜td＞
<%
jika aplikasi(kedua1)= maka
%>
<bentuk aksi=index0.asp?flag=metode kedua1=posting>
＜ID INPUT=teks1 nama=txtUkuran kedua1=10＞＜ID INPUT=pengiriman1
nama=kirim1 tipe=kirim nilai=Masukkan>
＜/bentuk＞
<%
kalau tidak
respon.tulis aplikasi(Kedua1)
berakhir jika
%>
＜/td＞
＜/tr＞
＜tr＞
＜td＞Jupiter＜/td＞
＜td＞
<%
jika aplikasi(pertama2)= maka
%>
<form action=index0.asp?flag=First2 method=post>
＜INPUT id=teks1 nama=txtUkuran2 pertama=10＞＜INPUT id=kirim1 nama=kirim1
ketik=kirim nilai=Masuk>
＜/bentuk＞
<%
kalau tidak
respon.tulis aplikasi (pertama2)
berakhir jika
%>
＜/td＞
＜td＞Perang＜/td＞
＜td＞
<%
jika aplikasi(detik2)= maka
%>
<bentuk tindakan=index0.asp?flag=metode kedua2=posting>
＜ID INPUT=nama teks1=txtUkuran kedua2=10＞＜ID INPUT=pengiriman1
nama=kirim1 tipe=kirim nilai=Masukkan>
＜/bentuk＞
<%
kalau tidak
respon.tulis aplikasi(Kedua2)
berakhir jika
%>
＜/td＞
＜/tr＞
＜tr＞
＜td＞Venus＜/td＞
＜td＞
<%
jika aplikasi(pertama3)= maka
%>
<form action=index0.asp?flag=First3 method=post>
＜INPUT id=text1 nama=txtFirst3 size=10＞＜INPUT id=kirim1 nama=kirim1
ketik=kirim nilai=Masuk>
＜/bentuk＞
<%
kalau tidak
respon.tulis aplikasi (pertama3)
berakhir jika
%>
＜/td＞
＜td＞Perang＜/td＞
＜td＞
<%
jika aplikasi(kedua3)= maka
%>
<bentuk tindakan=index0.asp?flag=metode kedua3=posting>
＜ID INPUT=teks1 nama=txtUkuran kedua3=10＞＜ID INPUT=pengiriman1
nama=kirim1 tipe=kirim nilai=Masukkan>
＜/bentuk＞
<%
kalau tidak
respon.tulis aplikasi(Kedua3)
berakhir jika
%>
＜/td＞
＜/tr＞
＜tr＞
＜td＞Venus＜/td＞
＜td＞
<%
jika aplikasi(pertama4)= maka
%>
<form action=index0.asp?flag=First4 method=post>
＜INPUT id=text1 nama=txtFirst4 size=10＞＜INPUT id=kirim1 nama=kirim1
ketik=kirim nilai=Masuk>
＜/bentuk＞
<%
kalau tidak
respon.tulis aplikasi (pertama4)
berakhir jika
%>
＜/td＞
＜td＞Perang＜/td＞
＜td＞
<%
jika aplikasi(kedua4)= maka
%>
<bentuk tindakan=index0.asp?flag=metode kedua4=posting>
＜ID INPUT=teks1 nama=txtUkuran kedua4=10＞＜ID INPUT=pengiriman1
nama=kirim1 tipe=kirim nilai=Masukkan>
＜/bentuk＞
<%
kalau tidak
respon.tulis aplikasi(Kedua4)
berakhir jika
%>
＜/td＞
＜/tr＞
＜tr＞
＜td＞Venus＜/td＞
＜td＞
<%
jika aplikasi(pertama5)= maka
%>
<form action=index0.asp?flag=First5 method=post>
＜INPUT id=text1 nama=txtFirst5 size=10＞＜INPUT id=kirim1 nama=kirim1
ketik=kirim nilai=Masuk>
＜/bentuk＞
<%
kalau tidak
respon.tulis aplikasi (pertama5)
berakhir jika
%>
＜/td＞
＜td＞Perang＜/td＞
＜td＞
<%
jika aplikasi(kedua5)= maka
%>
<bentuk tindakan=index0.asp?flag=metode kedua5=posting>
＜ID INPUT=teks1 nama=txtUkuran kedua5=10＞＜ID INPUT=pengiriman1
nama=kirim1 tipe=kirim nilai=Masukkan>
＜/bentuk＞
<%
kalau tidak
respon.tulis aplikasi(Kedua5)
berakhir jika
%>
＜/td＞
＜/tr＞
＜/meja＞
＜/TUBUH＞
＜/HTML＞
File ini tidak perlu dijelaskan terlalu banyak, ini hanya sebuah tabel besar yang dapat dimasuki semua orang dari sana. Jika lokasi tertentu telah digunakan, itu akan menjadi nama pahlawan, dan login berulang kali tidak diperbolehkan. Masuk setelah masuk
index0.asp, ini adalah file pertukaran perantara, di mana beberapa variabel diproses dan ditetapkan, dan kemudian match.asp dimasukkan untuk pertandingan resmi. Mari kita lihat isi dari index0.asp:
＜%@ Bahasa=VBScript %＞
<%
jika Request.Form(txt & request.querystring(flag))＜＞ lalu
'respons.tulis!
sesi(bagus)=Permintaan.Form(txt & permintaan.querystring(bendera))
'sesi respon.write (bagus) &
'response.write application(request.querystring(flag))
jika application(request.querystring(flag))= maka
application(request.querystring(flag))=sesi(bagus)
sesi(kelas)=kanan(permintaan.querystring(bendera),1)
jika kiri(request.querystring(flag),1)=f maka
application(sesi(bagus))=salah
elseif left(request.querystring(flag),1)=s lalu
application(sesi(bagus))=salah
aplikasi(aplikasi(pertama & sesi(kelas)))=benar
berakhir jika
Respon.Redirect match.asp
berakhir jika
berakhir jika
%>
<HTML>
＜/HTML＞
Dalam program ini, sesi (bagus) digunakan untuk mencatat nama login Anda. Ini akan digunakan dalam banyak proses selanjutnya untuk membedakan banyak pengguna. Jika Anda masuk dari posisi ringmaster, hak Anda adalah
pertama, jika tidak, kedua, gunakan sesi (kelas) untuk mencatat di medan perang mana ia berada, Jinmu
Air, Api, dan Bumi masing-masing direpresentasikan sebagai 1, 2, 3, 4, dan 5, karena ada beberapa medan perang yang mungkin terjadi pada saat yang bersamaan. Jika tidak dapat dibedakan dengan benar, hal ini dapat menyebabkan kekacauan. application(session(nice)) adalah variabel logis yang menggunakan benar atau salah untuk menunjukkan apakah Anda bisa bermain catur. Jika salah, Anda harus menunggu. Jika benar, Anda bisa bermain catur. Hanya setelah dua orang di medan perang masuk, penantang dapat bermain catur, dan hanya setelah penantang menghasilkan bidak, penyerang dapat bermain catur. Setelah Anda siap, masuk ke kolom kompetisi. Silakan lihat file match.asp
<html>
＜kepala＞
＜meta http-equiv=Jenis Konten konten=teks/html; charset=gb2312＞
<nama meta=Konten GENERATOR=Microsoft FrontPage 4.0>
<meta name=ProgId content=FrontPage.Editor.Document>
＜META http-equiv=segarkan konten=3＞
＜title＞Kontes Renju...＜/title＞
＜/kepala＞
<%
Response.Write Challenger: & aplikasi (pertama & sesi (kelas))
& serangan: & aplikasi (kedua & sesi
(kelas))
jika Request.QueryString(pos)＜＞ lalu
aplikasi(pos & sesi(kelas) & Permintaan.QueryString(pos))
=benar
berakhir jika
%>
<tubuh>
<%
'Respon. Tulis aplikasi (aaa)
jika aplikasi(pertama & sesi(kelas))=sesi(bagus) maka
warna = hitam
jika Request.QueryString(pos)＜＞ lalu
jika sesi(terakhir)= maka sesi(terakhir)=abc
jika sesi(terakhir)＜＞ Request.QueryString(pos) lalu
aplikasi(aplikasi(pertama & sesi(kelas)))=salah
jika aplikasi(kedua & sesi(kelas))＜＞ maka aplikasi
(aplikasi(kedua & sesi(kelas)))=benar
sesi(terakhir)=Permintaan.QueryString(pos)
AKHIR JIKA
berakhir jika
kalau tidak
jika aplikasi(kedua & sesi(kelas))=sesi(bagus) maka
warna = putih
jika Request.QueryString(pos)＜＞ lalu
'jika sesi(terakhir)= maka sesi(terakhir)=abc
jika sesi(terakhir)＜＞ Request.QueryString(pos) lalu
aplikasi(aplikasi(pertama & sesi(kelas)))=benar
aplikasi(aplikasi(kedua & sesi(kelas)))=salah
sesi(terakhir)=Permintaan.QueryString(pos)
AKHIR JIKA
berakhir jika
kalau tidak
jika aplikasi(kedua & sesi(kelas))= maka
aplikasi(kedua & sesi(kelas))=sesi(bagus)
warna = putih
jika Request.QueryString(pos)＜＞ lalu
jika sesi(terakhir)= maka sesi(terakhir)=abc
jika sesi(terakhir)＜＞ Request.QueryString(pos) lalu
aplikasi(aplikasi(pertama & sesi(kelas)))=benar
aplikasi(aplikasi(kedua & sesi(kelas)))=salah
sesi(terakhir)=Permintaan.QueryString(pos)
AKHIR JIKA
berakhir jika
kalau tidak
warna=
berakhir jika
berakhir jika
berakhir jika
Respon.Tulis <lebar tabel=400 tinggi=400 batas=0 spasi sel=0
bantalan sel=0>
untuk i=1 sampai 16
Respon.Tulis <tr>
untuk j=1 sampai 16
jika aplikasi(pos & sesi(kelas) & cstr(i) & _ & cstr(j))=
Kemudian
aplikasi(warna & sesi(kelas) & _ & Permintaan.QueryString
(pos))=warna
Respon.Tulis <td lebar=25 tinggi=25>
'response.write application(aplikasi(pertama & sesi(kelas)))
jika application(session(bagus))=true maka
respon.tulis <a href=match.asp?pos= & cstr(i) & _ & cstr(j)
& ＞＜img border=0 src=back0.jpg lebar=25 tinggi=25＞＜/a＞
kalau tidak
respon.tulis <img border=0 src=back0.jpg lebar=25 tinggi=25>
berakhir jika
respon.tulis ＜/td＞
kalau tidak
Respon.Tulis ＜td lebar=25 tinggi=25＞＜img border=0 src= &
aplikasi(warna & sesi(kelas) & _ & cstr(i) & _ & cstr
(j)) & 0.jpg lebar=25 tinggi=25＞＜/td＞ & chr(13)
berakhir jika
Berikutnya
Respon.Tulis ＜/tr＞
Berikutnya
Respon.Tulis ＜/tabel＞
'Hakim menang atau kalah
jika aplikasi(pertama & sesi(kelas))=sesi(bagus) maka
m = hitam
h=putih
kalau tidak
h=hitam
m = putih
berakhir jika
'Penghakiman horizontal-
untuk i=1 sampai 15
menang = salah
kerugian=salah
lima_saya=0
lima_dia=0
untuk j=1 sampai 15
jika aplikasi(warna & sesi(kelas) & _ & cstr(i) & _ & cstr
(j))=m maka
lima_saya=lima_saya+1
lima_dia=0
aplikasi elseif(warna & sesi(kelas) & _ & cstr(i) & _ &
cstr(j))=h lalu
lima_saya=0
lima_dia=lima_dia+1
kalau tidak
lima_saya=0
lima_dia=0
berakhir jika
jika five_me=5 maka
menang=benar
kerugian=salah
keluar untuk
elseif five_he=5 maka
menang = salah
kerugian=benar
keluar untuk
berakhir jika
Berikutnya
jika menang atau kalah maka keluarlah
Berikutnya
jika menang maka
respon.tulis Anda menang!
aplikasi(aplikasi(pertama & sesi(kelas)))=salah
aplikasi(aplikasi(kedua & sesi(kelas)))=salah
berakhir jika
jika rugi maka
respon.tulis Maaf, Anda tersesat!
aplikasi(aplikasi(pertama & sesi(kelas)))=salah
aplikasi(aplikasi(kedua & sesi(kelas)))=salah
berakhir jika
'Penilaian arah kolom|
untuk j=1 sampai 15
menang = salah
kerugian=salah
lima_saya=0
lima_dia=0
untuk i=1 sampai 15
jika aplikasi(warna & sesi(kelas) & _ & cstr(i) & _ & cstr
(j))=m maka
lima_saya=lima_saya+1
lima_dia=0
aplikasi elseif(warna & sesi(kelas) & _ & cstr(i) & _ &
cstr(j))=h lalu
lima_saya=0
lima_dia=lima_dia+1
kalau tidak
lima_saya=0
lima_dia=0
berakhir jika
jika five_me=5 maka
menang=benar
kerugian=salah
keluar untuk
elseif five_he=5 lalu
menang = salah
kerugian=benar
keluar untuk
berakhir jika
Berikutnya
jika menang atau kalah maka keluarlah
Berikutnya
jika menang maka
respon.tulis Anda menang!
aplikasi(aplikasi(pertama & sesi(kelas)))=salah
aplikasi(aplikasi(kedua & sesi(kelas)))=salah
berakhir jika
jika rugi maka
respon.tulis Maaf, Anda kalah!
aplikasi(aplikasi(pertama & sesi(kelas)))=salah
aplikasi(aplikasi(kedua & sesi(kelas)))=salah
berakhir jika
'Penilaian miring/
untuk i=1 sampai 11
menang = salah
kerugian=salah
lima_saya=0
lima_dia=0
untuk j=i+4 hingga 1 langkah -1
jika aplikasi(warna & sesi(kelas) & _ & cstr(j) & _ & cstr
(i+5-j))=m maka
lima_saya=lima_saya+1
lima_dia=0
aplikasi elseif(warna & sesi(kelas) & _ & cstr(j) & _ &
cstr(i+5-j))=h maka
lima_saya=0
lima_dia=lima_dia+1
kalau tidak
lima_saya=0
lima_dia=0
berakhir jika
jika five_me=5 maka
menang=benar
kerugian=salah
keluar untuk
elseif five_he=5 maka
menang = salah
kerugian=benar
keluar untuk
berakhir jika
Berikutnya
jika menang atau kalah maka keluarlah
Berikutnya
jika menang maka
respon.tulis Anda menang!
aplikasi(aplikasi(pertama & sesi(kelas)))=salah
aplikasi(aplikasi(kedua & sesi(kelas)))=salah
berakhir jika
jika rugi maka
respon.tulis Maaf, Anda kalah!
aplikasi(aplikasi(pertama & sesi(kelas)))=salah
aplikasi(aplikasi(kedua & sesi(kelas)))=salah
berakhir jika
'Penilaian miring/
untuk i=1 sampai 11
menang = salah
kerugian=salah
lima_saya=0
lima_dia=0
untuk j=12-i sampai 15
jika aplikasi(warna & sesi(kelas) & _ & cstr(13-ij) & _
& cstr(j))=m lalu
lima_saya=lima_saya+1
lima_dia=0
aplikasi elseif(warna & sesi(kelas) & _ & cstr(13-ij)
& _ & cstr(j))=h lalu
lima_saya=0
lima_dia=lima_dia+1
kalau tidak
lima_saya=0
lima_dia=0
berakhir jika
jika five_me=5 maka
menang=benar
kerugian=salah
keluar untuk
elseif five_he=5 maka
menang = salah
kerugian=benar
keluar untuk
berakhir jika
Berikutnya
jika menang atau kalah maka keluarlah
Berikutnya
jika menang maka
respon.tulis Anda menang!
aplikasi(aplikasi(pertama & sesi(kelas)))=salah
aplikasi(aplikasi(kedua & sesi(kelas)))=salah
berakhir jika
jika rugi maka
respon.tulis Maaf, Anda tersesat!
aplikasi(aplikasi(pertama & sesi(kelas)))=salah
aplikasi(aplikasi(kedua & sesi(kelas)))=salah
berakhir jika
%>
＜/badan＞
＜/html＞
Jika tidak ada bidak catur pada titik tertentu, tambahkan hyper connection dan letakkan bidak catur dengan warna berbeda sesuai perbedaan antara penantang dan penyerang. Paragraf terakhir digunakan untuk menilai menang dan kalah, dan dibagi menjadi arah horizontal, kolom dan dua arah diagonal. Anda dapat memahaminya dengan melihat konten spesifiknya.
Hal terakhir yang ingin saya bicarakan adalah global.asa, yang merupakan file inti di situs tersebut. Untuk menyerahkan posisinya kepada orang lain setelah keluar dari permainan catur, Anda perlu menambahkan kode ke sesison_onend untuk diproses, sebagai berikut:
<bahasa skrip=vbscript runat=server>
sub aplikasi_onstart
sesi.waktu habis=1
sub akhir
sub sesi_onstart
jika aplikasi(angka)= maka
aplikasi(angka)=0
berakhir jika
aplikasi(angka)=aplikasi(angka)+1
sub akhir
＜/skrip＞
<bahasa skrip=vbscript runat=server>
sub sesi_onend
jika aplikasi(angka)= maka
aplikasi(angka)=0
berakhir jika
aplikasi(angka)=aplikasi(angka)-1
jika aplikasi(pertama1)=sesi(bagus) maka
aplikasi(pertama1)=
elseif application(second1)=session(bagus) lalu
aplikasi(kedua1)=
elseif application(first2)=sesi(bagus) lalu
aplikasi(pertama2)=
elseif application(second2)=session(bagus) lalu
aplikasi(kedua2)=
elseif application(first3)=sesi(bagus) lalu
aplikasi(pertama3)=
elseif application(second3)=session(bagus) lalu
aplikasi(kedua3)=
elseif application(first4)=sesi(bagus) lalu
aplikasi(pertama4)=
elseif application(second4)=session(bagus) lalu
aplikasi(kedua4)=
elseif application(first5)=sesi(bagus) lalu
aplikasi(pertama5)=
elseif application(second5)=session(bagus) lalu
aplikasi(kedua5)=
berakhir jika
untuk i=1 sampai 15
untuk j=1 sampai 15
aplikasi(warna & sesi(kelas) & _ & cstr(i) & _ & cstr
(J))=
aplikasi(pos & sesi(kelas) & cstr(i) & _ & cstr(j))=
Berikutnya
Berikutnya
aplikasi(sesi(bagus))=
sub akhir
＜/skrip＞
Di atas adalah beberapa file utama, Anda bisa mencobanya. Apa, ingin bermain Go? Ganti saja papan caturnya.