範例五 代木篇(精密版)
//pos1箱子位置
//pos2包包裡木頭位置
//1
while nowx!=1213
sendkey(36)
delay(500)
wend
while Nowy!=647
SendKey(33)
Delay(500)
wend
sendmacro(14)
delay(var1)
//2
While Nowy!=644
SendKey(33)
Delay(500)
Wend
sendmacro(14)
delay(var1)
//3
While Nowy!=641
SendKey(33)
Delay(500)
Wend
sendmacro(14)
delay(var1)
//4
While Nowy!=635
SendKey(33)
Delay(500)
Wend
sendmacro(14)
delay(var1)
//5
While Nowx!=1215
SendKey(34)
Delay(500)
Wend
sendmacro(13)
delay(var1)
//6
While Nowy!=638
SendKey(35)
Delay(500)
Wend
sendmacro(13)
delay(var1)
//7
While Nowy!=647
SendKey(35)
Delay(500)
Wend
sendmacro(13)
delay(var1)
//8
While Nowx!=1219
SendKey(34)
Delay(500)
Wend
While Nowy!=644
SendKey(33)
Delay(500)
Wend
sendmacro(13)
delay(var1)
//9
While Nowy!=638
SendKey(33)
Delay(500)
Wend
sendmacro(13)
delay(var1)
//10
While Nowy!=635
SendKey(33)
Delay(500)
Wend
sendmacro(13)
delay(var1)
//11
While Nowy!=626
SendKey(33)
Delay(500)
Wend
sendmacro(14)
delay(var1)
//12
While Nowy!=625
SendKey(33)
Delay(500)
Wend
While Nowx!=1221
SendKey(34)
Delay(500)
Wend
sendmacro(13)
delay(var1)
//13
While Nowy!=621
SendKey(33)
Delay(500)
Wend
sendmacro(13)
delay(var1)
//14
While Nowy!=617
SendKey(33)
Delay(500)
Wend
sendmacro(13)
delay(var1)
//15
While Nowy!=614
SendKey(33)
Delay(500)
Wend
sendmacro(14)
delay(var1)
//16
While Nowy!=611
SendKey(33)
Delay(500)
Wend
sendmacro(13)
delay(var1)
//17
While Nowx!=1220
SendKey(36)
Delay(500)
Wend
While Nowy!=610
SendKey(33)
Delay(500)
Wend
sendmacro(13)
delay(var1)
//18
While Nowy!=601
SendKey(33)
Delay(500)
Wend
While Nowx!=1217
SendKey(36)
Delay(500)
Wend
sendmacro(13)
delay(var1)
//19
While Nowx!=1221
SendKey(34)
Delay(500)
Wend
sendmacro(13)
delay(var1)
//20
While Nowx!=1230
SendKey(34)
Delay(500)
Wend
While Nowy!=603
SendKey(35)
Delay(500)
Wend
sendmacro(14)
delay(var1)
//21
While Nowy!=607
SendKey(35)
Delay(500)
Wend
sendmacro(14)
delay(var1)
//22
While Nowy!=609
SendKey(35)
Delay(500)
Wend
sendmacro(14)
delay(var1)
//23
While Nowy!=617
SendKey(35)
Delay(500)
Wend
sendmacro(14)
delay(var1)
//24
While Nowy!=620
SendKey(35)
Delay(500)
Wend
sendmacro(13)
delay(var1)
//25
While Nowx!=1237
SendKey(34)
Delay(500)
Wend
While Nowy!=616
SendKey(33)
Delay(500)
Wend
While Nowx!=1239
SendKey(34)
Delay(500)
wend
While Nowy!=617
SendKey(35)
Delay(500)
Wend
sendmacro(13)
delay(var1)
//26
While Nowx!=1241
SendKey(34)
Delay(500)
Wend
sendmacro(13)
delay(var1)
//27
While Nowy!=626
SendKey(35)
Delay(500)
Wend
While Nowx!=1236
SendKey(36)
Delay(500)
Wend
sendmacro(13)
delay(var1)
//28
While Nowy!=629
SendKey(35)
Delay(500)
Wend
While Nowx!=1233
SendKey(36)
Delay(500)
Wend
sendmacro(13)
delay(var1)
//29
While Nowy!=632
SendKey(35)
Delay(500)
Wend
sendmacro(14)
delay(var1)
//30
While Nowx!=1229
SendKey(36)
Delay(500)
Wend
sendmacro(14)
delay(var1)
//31
While Nowy!=635
SendKey(35)
Delay(500)
Wend
sendmacro(14)
delay(var1)
//32
While Nowx!=1225
SendKey(36)
Delay(500)
Wend
sendmacro(14)
delay(var1)
//33
While Nowx!=1223
SendKey(36)
Delay(500)
Wend
sendmacro(13)
delay(var1)
//34
While Nowy!=641
SendKey(35)
Delay(500)
Wend
sendmacro(13)
delay(var1)
//走回去
While Nowy!=648
SendKey(35)
Delay(500)
Wend
While Nowx!=1224
SendKey(34)
Delay(500)
Wend
//放木頭
if user1>5
var8 = user1 - 2
drag var8 from pos2 to pos1
delay(2000)
end if
EZS II 範例
-
- 高級玩家
- 文章: 837
- 註冊時間: 週日 7月 01, 2001 8:00 am
-
- 高級玩家
- 文章: 837
- 註冊時間: 週日 7月 01, 2001 8:00 am
誰在線上
正在瀏覽這個版面的使用者:沒有註冊會員 和 2 位訪客