เกมนี้ยังไม่เสร็จ จุดประสงค์คือเพียงเพื่อแสดงให้คุณเห็นว่าคุณสามารถทำสิ่งกราฟิกบางอย่างโดยไม่ต้องใช้รูปภาพภายนอก
หากคุณต้องการพัฒนาเกมนี้โปรดส่งการอัปเดตของคุณ
ชื่อไฟล์: htanoid.hta
ข้อกำหนด: เช่น 6?
ผู้แต่ง: Jean-Luc Antoine
ส่ง: 17/05/2002
หมวดหมู่: อื่น ๆ
效果图：
实现代码：
代码如下:
<html xmlns: v = "urn: schemas-microsoft-com: vml" xmlns: t = "urn: schemas-microsoft-com: เวลา">
<head>
<HTA: แอปพลิเคชัน
ApplicationName = "Htanoid"
ชายแดน = "หนา" | "กล่องโต้ตอบ" | "ไม่มี" | "บาง"
Borderstyle = "ปกติ" | "ซับซ้อน" | "ยก" | "คงที่" | "จม"
caption = "ใช่" contextMenu = "ใช่"
id = การแจ้งเตือน "OHTA" (OHTA.ApplicationName);
innerBorder = "ใช่" maximizeButton = "ใช่" minimizeButton = "ใช่"
Navigable = "no" scroll = "no" scrollflat = "no"
selection = "ใช่" showintaskbar = "ใช่" singleinstance = "ไม่"
sysmenu = "ใช่" เวอร์ชัน = "0.5"
WindowState = "ปกติ" | "ขยายสูงสุด" | "ย่อเล็กสุด">
<ภาษาสคริปต์ = vbscript>
ตัวเลือกอย่างชัดเจน
const c_screenw = 400
const c_nbx = 12
const c_nby = 10
ภูมิประเทศสลัว (10,12)
Dim Raqx, Raqw, เล่น, Ballex, Balley
DIM DIRBX, dirby'direction balle x, y
สลัว borddroit
borddroit = c_screenw-32
sub document_onkeypress ()
เลือก Case Ucase (Chr (window.event.keycode)))
กรณี "P"
msgbox "หยุดชั่วคราว"
'window.cleartimeout
สิ้นสุดเลือก
สิ้นสุดย่อย
sub document_onclick ()
เล่น = จริง
'document.title = "คลิก" & window.event.button
สิ้นสุดย่อย
sub document_onmousemove ()
raqx = window.event.clientx-raqw'.shiftkey .KeyCode .Ctrlkey .Button .ALTKEY
ถ้า raqx <16 แล้ว raqx = 16'mur gauche
ถ้า raqx+raqw> borddroit แล้ว raqx = borddroit-raqw
raquette.style.left = raqx
ถ้าไม่เล่นแล้ว
ballex = raqx+raqw/2
balle.style.left = ballex
สิ้นสุดถ้า
สิ้นสุดย่อย
Sub Drawlevel (n)
Dim K, X, Y
ตั้งค่า k = document.getElementById ("Raquette")
สำหรับ y = 0 ถึง c_nby
สำหรับ x = 0 ถึง c_nbx
ภูมิประเทศ (y, x) = 0'nb de รัฐประหาร reatant à porter
ต่อไป
ต่อไป
เลือกเคส n
กรณีที่ 1
'อิฐ
สำหรับ y = 0 ถึง 5
สำหรับ x = 0 ถึง c_nbx
K.insertadjacenthtml "beferbegin", "<table style = 'ตำแหน่ง: Absolute; top =" & 102+14*y & "; left =" & 16+27*x _
& "; width = 25; ความสูง = 10; ' bgColor = "& Array (" Silver "," Red "," Yellow "," Blue "," Magenta "," LightGreen ") (y) &"> <tr> <td> </td> </tr> </table>
ต่อไป
ต่อไป
สิ้นสุดเลือก
สุ่ม
Balley = 400
dirbx = int (rnd ()*3) +1
dirby = 0- (int (rnd ()*4) +1)
สิ้นสุดย่อย
เริ่มต้น
สลัว x, y, k