[Common]
Description=ʾαдԼĺ
HotKeyStart=119
HotKeyStop=122
HotKeyPause=0
Enabled=0
RunOnce=1

[Script]
//֮ǰ汾Уӳ()ЯҲֿ֧ɷֵĺ
//7.2汾ʼűʦִ֧Զ庯
//********************
//ͱԵĹ涨ƣɷΪȫֱ;ֲ
//ֲֻĳڲʹãȫֱκεطʹ
//ֲȫֱʱӳڲʹþֲȫֱ
//********************
//űʦű涨ȫֱӦκ//(main: ... End)֮
//ں//(Main: ... End) ֮ڵκαΪֲֻ/̵ķΧ
//********************
//Զ庯̵ڹûзֵǿԷֵ
//űʦúͲһԶ庯ȫ޷úͲʹýбʽ㡣
//********************
//Զ庯ķֵʹרõķֵ<result>
//ֵresultǾֲԶģִ귵ֵԶͷš
//ע⣬Զ庯ʹͬķֵresultụӰ졣
//һԶ庯ʱʹ˱ôķء
//Զ庯͹̵Ĳֵ֧
//********************
//ԭеĵӳCALLúdo7.2ȻԷֱCALLDOû
//********************
//¶ȫֱ
var x=2
var y=3
Array v 20    //һ[0..19]
//
main:
  call Test(x,y)  //ù, Ҳdo Test(x,y), Чһ
  do ShowMsg("x="+inttostr(x)+"; y="+inttostr(y))
  set v[0]=100
  set v[1]=200
  //ºTestArrayֵΪһ飬ִкv鷶Χܸı䣬Ӻڲ
  set v=TestArray(v)
  do ShowMsg("v[0]="+inttostr(v[0])+"; v[1]="+inttostr(v[1]))
endmain

//һӳ(), ùx,y
sub Test(x,y)
  //ע⣬ڲx,yӳУxyԲx,yȫֱеxy
  //ʾڹУһԶ庯MyGetSubStr
  //ע⣬Զ庯ͨú/÷ʽһ£Իʹ
  //Ҫע⣬xMyGetSubStrΪIndex޸ˣ޸ĻᱻӳTEST
  do ShowMsg(MyGetSubStr('abcde',x,y))
Endsub

//һú3Str,Index,Count
function MyGetSubStr(Str,Index,Count)
  //ע⣬Զ庯ķֵҪ浽result
  set result=GetSubStr(Str,Index,Count)
  //ʾԶ庯У޸ĺӰߵı
  set Index=Index+1
  //ʾֲȫֱʱ򣬿ֱӶдȫֱ
  set y=y+1
endfunction

//һʾںĲֵʹ
function TestArray(v)
  //ʹһάģʽԱֵʱ±ᶯ̬ı
  //άά޷̬ıά±
  set result[0]=v[0]+1
  set result[1]=v[1]+1
endfunction
