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( '妤兼