?? start.tbl
字號:
<?xml version="1.0" encoding="utf-8"?>
<vg version="723" gridsize="32" activesheetIndex="1" range="0,0,416,416" borderstyle="1" scrollbars="0" backcolor="$0" paperbounds="0,0,827,1169" papervisible="false">
<sheet name="Base" visible="false">
<programe>
<!--
public function AddNote(Msg)
NoteBook[NoteBook.Count] = Msg
end function
public function Ask(Msg)
MsgWin = Create( Handle, 'Msg.tbl', false, false )
MsgWin.ActiveSheet = MsgWin.SheetByName( 'Ask' )
MsgWin.ActiveSheet.Text1.Text = Msg
b = ( MsgWin.ShowModal() = 1 )
MsgWin.Free()
Focused = true
return b
end function
public function ChangeSheet(d,Dir)
n = ActiveSheetIndex + Dir
if( n >= 0 ) and ( n < SheetCount ) then
if Dir < 0 then
stair = Sheets[n].UnitByName( 'Upstair' )
else
stair = Sheets[n].UnitByName( 'Downstair' )
end if
if stair <> 0 then
s = ActiveSheet
ActiveSheetIndex = n
u=ActiveSheet.CopyUnit( d )
u.MoveTo( stair.Left, stair.Top )
s.DeleteUnit( d )
SheetChanged()
end if
end if
end function
public function Finish(win)
if win then
ActiveSheet = 鑳滃埄
else
ActiveSheet = 澶辮觸
end if
end function
private function GetNote()
return NoteBook.SaveToBuffer()
end function
private function Initialize(Sender)
FMaxFloor = 0
FMainWindow=0
FSound = true
FUpgradeCount = 0
NoteBook = Array( 10 )
extern void=PlaySoundW(string,int,int) in winmm.dll name PlaySoundW
end function
public function KeyDown(Key)
if ( Key = 33 ) or ( Key = 34 ) then
d = ActiveSheet.鑻遍泟
if 49 = d.Bao[2] then
if( Key = 33 ) and ( ActiveSheetIndex >= MaxFloor )
return
end if
u1 = ActiveSheet.UnitAtPoint( d.Left + d.Width / 2, d.Top + d.Height / 2, d )
u2 = ActiveSheet.UnitAtPoint( d.Left - d.Width / 2, d.Top + d.Height / 2, 0 )
u3 = ActiveSheet.UnitAtPoint( d.Left + d.Width / 2, d.Top - d.Height / 2, 0 )
u4 = ActiveSheet.UnitAtPoint( d.Left + 3 * d.Width / 2, d.Top + d.Height / 2, 0 )
u5 = ActiveSheet.UnitAtPoint( d.Left + d.Width / 2, d.Top + 3 * d.Height / 2, 0 )
s = u1.Type + ' ' + u2.Type + ' ' + u3.Type + ' ' + u4.Type + ' ' + u5.Type
if At( '妤兼
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -