文字列から2次パスを入力

INIファイルから2次パスを読むために作った奴
今見返すと配列が全くの無意味だった
文字列、配列の数を調べる
LENGTH( 文字列 )
文字列コピー
COPY( 文字列,　開始位置,　[コピー文字数] )




dim 二次パス[12] //12文字分の配列を宣言する マクロの先頭に書く




//二次パス画像取得
chkimg("img/ログイン/0",0,0,0,800,600)
X0=G_IMG_X
Y0=G_IMG_Y
chkimg("img/ログイン/1",0,0,0,800,600)
X1=G_IMG_X
Y1=G_IMG_Y
chkimg("img/ログイン/2",0,0,0,800,600)
X2=G_IMG_X
Y2=G_IMG_Y
chkimg("img/ログイン/3",0,0,0,800,600)
X3=G_IMG_X
Y3=G_IMG_Y
chkimg("img/ログイン/4",0,0,0,800,600)
X4=G_IMG_X
Y4=G_IMG_Y
chkimg("img/ログイン/5",0,0,0,800,600)
X5=G_IMG_X
Y5=G_IMG_Y
chkimg("img/ログイン/6",0,0,0,800,600)
X6=G_IMG_X
Y6=G_IMG_Y
chkimg("img/ログイン/7",0,0,0,800,600)
X7=G_IMG_X
Y7=G_IMG_Y
chkimg("img/ログイン/8",0,0,0,800,600)
X8=G_IMG_X
Y8=G_IMG_Y
chkimg("img/ログイン/9",0,0,0,800,600)
X9=G_IMG_X
Y9=G_IMG_Y


//二次パス入力
FOR a = 1 TO LENGTH(二次パス文字列)
二次パス[a] = COPY(二次パス文字列,a,1)
IF 二次パス[a] = 0 THEN btn(click,left,X0,Y0,200)
IF 二次パス[a] = 1 THEN btn(click,left,X1,Y1,200)
IF 二次パス[a] = 2 THEN btn(click,left,X2,Y2,200)
IF 二次パス[a] = 3 THEN btn(click,left,X3,Y3,200)
IF 二次パス[a] = 4 THEN btn(click,left,X4,Y4,200)
IF 二次パス[a] = 5 THEN btn(click,left,X5,Y5,200)
IF 二次パス[a] = 6 THEN btn(click,left,X6,Y6,200)
IF 二次パス[a] = 7 THEN btn(click,left,X7,Y7,200)
IF 二次パス[a] = 8 THEN btn(click,left,X8,Y8,200)
IF 二次パス[a] = 9 THEN btn(click,left,X9,Y9,200)
NEXT

kbd(vk_return,click,500)