Game ini belum selesai. Tujuannya adalah hanya untuk menunjukkan kepada Anda bahwa Anda dapat melakukan beberapa hal grafis tanpa harus menggunakan gambar eksternal.
Jika Anda ingin mengembangkan game ini, silakan kirim pembaruan Anda.
Nama File: htanoid.hta
Persyaratan: yaitu 6?
Penulis: Jean-Luc Antoine
Dikirim: 17/05/2002
Kategori: Lainnya
效果图 :
实现代码 :
代码如下:
<html xmlns: v = "urn: schemas-microsoft-com: vml" xmlns: t = "urn: schemas-microsoft-com: waktu">
<head>
<HTA: Aplikasi
ApplicationName = "htanoid"
Border = "tebal" | "Dialog" | "Tidak ada" | "tipis"
Borderstyle = "Normal" | "Kompleks" | "Dibesarkan" | "Statis" | "cekung"
Keterangan = "Ya" ContextMenu = "Ya"
ID = "OHTA" ALERT (OHTA.ApplicationName);
Innerborder = "Ya" MaximizeButton = "Ya" MinimizeButton = "Ya"
Navigable = "no" scroll = "no" scrollflat = "no"
Seleksi = "ya" showInkBar = "ya" singleinstance = "tidak"
Sysmenu = "ya" versi = "0.5"
WindowState = "Normal" | "Maksimalkan" | "Minimalkan">
<bahasa skrip = vbscript>
Opsi eksplisit
Const c_screenw = 400
Const c_nbx = 12
Const c_nby = 10
Redup medan (10,12)
Dimx Dim, Raqw, Playing, Ballex, Balley
Redup dirbx, dirby'direction balle x, y
Redup borddroit
Borddroit = c_screenw-32
Sub document_onkeypress ()
SELECT CASE UCASE (CHR (window.event.keycode))
Kasus "p"
Msgbox "jeda"
'Window.cleartimeout
Akhiri Pilih
Akhir sub
Sub document_onclick ()
Bermain = benar
'document.title = "klik" & window.event.button
Akhir sub
Sub document_onmouseMove ()
Raqx = window.event.clientx-raqw'.shiftkey .keycode .ctrlkey .button .Altkey
Jika raqx <16 maka raqx = 16'mur gauche
Jika raqx+raqw> borddroit maka raqx = borddroit-raqw
Raquette.style.left = raqx
Jika tidak bermain lalu
BALLEX = RAQX+RAQW/2
Balle.style.left = Ballex
Akhiri jika
Akhir sub
Sub Drawlevel (N)
Redup k, x, y
set k = document.geteLementById ("raquette")
Untuk y = 0 hingga c_nby
Untuk x = 0 ke c_nbx
Medan (y, x) = 0'nb de coups restant à porter
Berikutnya
Berikutnya
Pilih Kasus N.
Kasus 1
'Batu bata
Untuk y = 0 hingga 5
Untuk x = 0 ke c_nbx
K.InSertAdJacentHtml "sebelum Bobregin", "<Table Style = 'Posisi: Absolute; Top =" & 102+14*y & "; kiri =" & 16+27*x _
& "; lebar = 25; tinggi = 10; ' bgcolor = "& array (" silver "," red "," yellow "," blue "," magenta "," lightgreen ") (y) &"> <tr> <td> </td> </tr> </able> "
Berikutnya
Berikutnya
Akhiri Pilih
Mengacak
Balley = 400
Dirbx = int (rnd ()*3) +1
Dirby = 0- (int (rnd ()*4) +1)
Akhir sub
Sub init
Redup x, y, k