<?xml version="1.0" encoding="utf-8"?>
<vg version="800" gridsize="4" range="0,0,288,221" borderstyle="1" scrollbars="0" backcolor="$8000000F" paperbounds="0,0,827,1169" papervisible="false">
<sheet name="Sheet1" bounds="0,0,288,220">
<Framea name="Framea1" origin="88,60" bounds="0,0,288,220" lock="true">
<line name="Line1" origin="88,60" linecolor="$80000014" points="0,220,6 0,0,2 288,0,2"/>
<line name="Line2" origin="88,60" linecolor="$80000010" points="0,220,6 288,220,2 288,0,2"/>
</Framea>
<button name="Button1" origin="57,100.5" bounds="16,88,272,113">
<rect name="Rect2" origin="46,113" bounds="16,88,272,113" backcolor="$8000000F" pattern="1"/>
<rect name="Rect1" origin="47,114" bounds="16,88,272,113" visible="false" backcolor="$8000000F" pattern="1" linecolor="$80000010"/>
<text name="Text1" origin="31,105" bounds="103,92.5,185,108.5" fontname="宋体" fontsize="12" text="L、增加生命值" autosize="true"/>
<programe>
<!--
private function Initialize(Sender)
FLabel = Text1
end function
property label read FLabel
published function OnClick(Sender)
Value=Sender.Tag
Close(1)
end function
private function OnLButtonDown(Sender,X,Y)
end function
private function OnLButtonUp(Sender,X,Y)
end function
private function OnMouseEnter(Sender)
Rect2.BackColor = $80
Text1.FontColor = $FFFF
end function
private function OnMouseExit(Sender)
Rect2.BackColor = $8000000F
Text1.FontColor = 0
end function
private function OnResize(Sender)
end function
-->
</programe>
</button>
<button name="Button2" origin="57,132.5" bounds="16,120,272,145">
<rect name="Rect2" origin="46,145" bounds="16,120,272,145" backcolor="$8000000F" pattern="1"/>
<rect name="Rect1" origin="47,146" bounds="16,120,272,145" visible="false" backcolor="$8000000F" pattern="1" linecolor="$80000010"/>
<text name="Text1" origin="31,137" bounds="103,124.5,185,140.5" fontname="宋体" fontsize="12" text="A、增加攻击力" autosize="true"/>
<programe>
<!--
private function Initialize(Sender)
FLabel = Text1
end function
property label read FLabel
published function OnClick(Sender)
Value=Sender.Tag
Close(3)
end function
private function OnLButtonDown(Sender,X,Y)
end function
private function OnLButtonUp(Sender,X,Y)
end function
private function OnMouseEnter(Sender)
Rect2.BackColor = $80
Text1.FontColor = $FFFF
end function
private function OnMouseExit(Sender)
Rect2.BackColor = $8000000F
Text1.FontColor = 0
end function
private function OnResize(Sender)
end function
-->
</programe>
</button>
<button name="Button3" origin="57,164.5" bounds="16,152,272,177">
<rect name="Rect2" origin="46,177" bounds="16,152,272,177" backcolor="$8000000F" pattern="1"/>
<rect name="Rect1" origin="47,178" bounds="16,152,272,177" visible="false" backcolor="$8000000F" pattern="1" linecolor="$80000010"/>
<text name="Text1" origin="31,169" bounds="103,156.5,185,172.5" fontname="宋体" fontsize="12" text="D、增加防御力" autosize="true"/>
<programe>
<!--
private function Initialize(Sender)
FLabel = Text1
end function
property label read FLabel
published function OnClick(Sender)
Value=Sender.Tag
Close(4)
end function
private function OnLButtonDown(Sender,X,Y)
end function
private function OnLButtonUp(Sender,X,Y)
end function
private function OnMouseEnter(Sender)
Rect2.BackColor = $80
Text1.FontColor = $FFFF
end function
private function OnMouseExit(Sender)
Rect2.BackColor = $8000000F
Text1.FontColor = 0
end function
private function OnResize(Sender)
end function
-->
</programe>
</button>
<button name="Button4" origin="57,196.5" bounds="16,184,272,209">
<rect name="Rect2" origin="46,209" bounds="16,184,272,209" backcolor="$8000000F" pattern="1"/>
<rect name="Rect1" origin="47,210" bounds="16,184,272,209" visible="false" backcolor="$8000000F" pattern="1" linecolor="$80000010"/>
<text name="Text1" origin="31,201" bounds="103,188.5,185,204.5" fontname="宋体" fontsize="12" text="Q、下次再说吧" autosize="true"/>
<programe>
<!--
private function Initialize(Sender)
FLabel = Text1
end function
property label read FLabel
published function OnClick(Sender)
Close(2)
end function
private function OnLButtonDown(Sender,X,Y)
end function
private function OnLButtonUp(Sender,X,Y)
end function
private function OnMouseEnter(Sender)
Rect2.BackColor = $80
Text1.FontColor = $FFFF
end function
private function OnMouseExit(Sender)
Rect2.BackColor = $8000000F
Text1.FontColor = 0
end function
private function OnResize(Sender)
end function
-->
</programe>
</button>
<text name="Text1" origin="144,48" bounds="16,16,272,80" backcolor="$8000000F" pattern="1" fontname="宋体" fontsize="12" text="神啊，请你赐给我力量吧！
提升到下一等级需要金钱
"/>
<programe>
<!--
private function Initialize(Sender)
FLevel = 0
FMoney = 0
FValue = 0
end function
property level read FLevel write FLevel
property money read FMoney write FMoney
private function OnKeyDown(Sender,Key)
if ( Key = asc( 'l' ) ) or ( Key = asc( 'L' ) ) then
  Button1.OnClick( Button1 )
else if ( Key = asc( 'a' ) ) or ( Key = asc( 'A' ) ) then
  Button2.OnClick( Button2 )
else if ( Key = asc( 'd' ) ) or ( Key = asc( 'D' ) ) then
  Button3.OnClick( Button3 )
else if ( Key = asc( 'q' ) ) or ( Key = asc( 'Q' ) ) then
  Button4.OnClick( Button4 )
end if
end function
private function OnLoad(Sender)
end function
public function SetUpgradeLevel(AValue)
Money = 10 * ( AValue * AValue + AValue + 2 )
Blood = 100 + 100 * AValue
if Level = 0 then
  Offense = 2
  Defense = 4
else if Level = 1 then
  Offense = 4
  Defense = 8
else if Level = 2 then
  Offense = 8
  Defense = 16
end if
Text1.Text = Text1.Text + str( Money, 0 )
Button1.Label.Text = Button1.Label.Text + str( Blood, 0 )
Button1.Tag=Blood
Button2.Label.Text = Button2.Label.Text + str( Offense, 0 )
Button2.Tag=Offense
Button3.Label.Text = Button3.Label.Text + str( Defense, 0 )
Button3.Tag=Defense
end function
property value read FValue write FValue
-->
</programe>
</sheet>
</vg>
