String 在图灵中将分数系统显示为字符串
我正在编程课上做一个大型的扫雷舰克隆游戏。我知道如何制作记分系统,但我在显示它时遇到了困难。 我这样做,当用户按下一个按钮,它会增加10分。最初变量“score”是一个整数,但我将其更改为字符串,因为我使用“Draw.Text”来显示它。否则,如果我不这样做,它将无法正常显示,因为它会删除我的一行背景,并且不会使用我的字体预设。下面是它的外观和代码的图片(我可能对它做了一点修改,所以它可能与我描述的不完全一样。开始时的“你的分数是多少”是我试图尝试的。)String 在图灵中将分数系统显示为字符串,string,text,integer,turing-lang,String,Text,Integer,Turing Lang,我正在编程课上做一个大型的扫雷舰克隆游戏。我知道如何制作记分系统,但我在显示它时遇到了困难。 我这样做,当用户按下一个按钮,它会增加10分。最初变量“score”是一个整数,但我将其更改为字符串,因为我使用“Draw.Text”来显示它。否则,如果我不这样做,它将无法正常显示,因为它会删除我的一行背景,并且不会使用我的字体预设。下面是它的外观和代码的图片(我可能对它做了一点修改,所以它可能与我描述的不完全一样。开始时的“你的分数是多少”是我试图尝试的。) import GUI setscreen
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.