按键精灵在屏幕上显示文本渐开脚本代码

//上=0，右=1，下=2，左=3
/*
上：y-1
右：x + 1 
下：y + 1 
左：x-1
*/

方向 = - 1 
x = 0
y = 0
颜色=Array("DC143C","FF00FF","FF00FF","E6E6FA","FF00FF","708090","00FA9A","FFFFE0","FF00FF")
//Dim 颜色(9)
//颜色(0)="DC143C"
//颜色(1) = "FF1493"
//颜色(2) = "FF00FF"
//颜色(3) = "FF00FF"
//颜色(4) = "E6E6FA"
//颜色(5) = "FF00FF"
//颜色(6) = "708090"
//颜色(7) = "00FA9A"
//颜色(8) = "FFFFE0"
//颜色(9) = "FF00FF"
For i = 1 To 20
	TracePrint i
	
	For 2
		方向 = 方向 + 1
		
		For i
		
		
		Select Case 方向 Mod 4
			Case 0
				y = y - 1
				TracePrint "↑"
			Case 1
				x = x + 1
				TracePrint "→"
			Case 2
				y = y + 1
				TracePrint "↓"
			Case 3
				x = x - 1
				TracePrint "←"
		End Select
		Call Plugin.Msg.ShowScrTXT(200 + (x * 12), 200 + (y * 12), 2000, 2000, "*", 颜色(i))
//MoveTo 500+(x * 12), 500 + (y * 12)
Delay 500
		Next



	Next
Next

//PU=0
//For 10
//    //下面这句是直接对屏幕进行刷新清除
//    Call Plugin.Msg.HideScrTXT()
//    //延迟半秒等待刷新完毕
//    Delay 500
//    //下面这句是在屏幕上范围位置(0, 0, 1024, 100)进行输出内容("屏幕内容填写")
//    Call Plugin.Msg.ShowScrTXT(0, 0, 1024, 100, "屏幕内容填写  "&PU, "0000FF")
//    //延迟半秒可以让你看的清楚
//    Delay 500
//    PU=PU+1
//Next