1

我正在开发一个扫雷克隆游戏，作为我编程课上的一个大型项目。我知道如何制作评分系统，但我无法显示它。我这样做是为了当用户按下按钮时，它会增加 10 分。最初变量“score”是一个整数，但我将其更改为字符串，因为我使用“Draw.Text”来显示它。否则，如果我不这样做，它将无法正确显示，因为它会擦除我的背景行并且不会使用我的字体预设。这是它的外观和代码的图片（我可能已经对其进行了一些更改，因此可能与我描述的不完全一样。一开始的“你的分数是多少”是我试图进行的实验。）

import GUI
setscreen ("graphics:800;800,title:TrapSweeper,nocursor")

var mypic :int := Pic.FileNew ("interface.bmp")
var safepic : int := Pic.FileNew ("safe.bmp")
var trappic : int := Pic.FileNew ("trap.bmp")
var font := Font.New ("Orator Std:27")
var font2 := Font.New ("Orator Std:10")
var score : int := 0
var username : string
loop
put "Welcome to TrapSweeper! What's your username? (Maximum 28 characters)"
get username
if length (username) > 28 then
put "The maximum characters for your username is 28."
delay(2000)
cls
elsif length (username) <= 28 then
put "What is your starting score?"
get score
exit
end if
end loop

cls 

procedure safe
Pic.Draw (safepic, maxx div 30, maxy div 30, picMerge)
score += 10
end safe

procedure trap
Pic.Draw (trappic, maxx div 30, maxy div 30, picMerge)
end trap 

Pic.Draw (mypic, maxx div 30, maxy div 30, picMerge)
Draw.Text (username, 280, 677, font, 55)
Draw.Text (intstr(score), 280, 727, font, 55)
var SAFE:int:=GUI.CreateButton(25,50,0,"safe",safe)
var TRAP:int:=GUI.CreateButton(25,25,0,"trap",trap) 

loop 
exit when GUI.ProcessEvent
end loop

在此处输入图像描述

     ^ The "safe" and "trap" buttons on the bottom left are experimental.
4

0 回答 0