匿名使用者2010.09.20 回答

UserVar DpiX=1024 解析度［X］UserVar DpiY=768 解析度［Y］UserVar J=0 撿金UserVar CZ=1 撿創造UserVar MY=1 撿瑪雅UserVar TZ=1 撿套裝UserVar G=1 右鍵掛機Rem 開始Delay 100If G=1 RightDown 1EndIf Delay 100//撿金If J=1 VBSCall FindPic（0，0，DpiX，DpiY，“Attachment：\金錢。bmp”，0。9，x1，y1） If x1>=0 and y1>=0 Delay 1500 Gosub 撿金 MoveTo 520，300 EndIf EndIf Delay 100//撿創造If CZ=1 VBSCall FindPic（0，0，DpiX，DpiY，“Attachment：\創造寶石。bmp”，0。9，x2，y2） If x2>=0 and y2>=0 Delay 1500 Gosub 撿創造 MoveTo 520，300 EndIf EndIf Delay 100//撿瑪雅If MY=1 VBSCall FindPic（0，0，DpiX，DpiY，“Attachment：\瑪雅之石。bmp”，0。9，x3，y3） If x3>=0 and y3>=0 Delay 1500 Gosub 撿瑪雅 MoveTo 520，300 EndIf EndIf Delay 100//撿套裝If TZ=1 VBSCall FindPic（0，0，DpiX，DpiY，“Attachment：\套裝。bmp”，0。9，x4，y4） If x4>=0 and y4>=0 Delay 1500 Gosub 撿套裝 MoveTo 520，300 EndIf EndIf Delay 100Goto 開始EndScript //============================子程式開始============================Sub 撿金 VBSCall FindPic（0，0，DpiX，DpiY，“Attachment：\金錢。bmp”，0。9，jx，jy） If jx>=0 and jy>=0 VBS jx=jx+44 VBS jy=jy+33 RightUp 1 Delay 100 MoveTo jx jy Delay 100 LeftClick 1 Delay 1500 KeyPress 32，1 Delay 100 EndIf Return 撿金Sub 撿創造 VBSCall FindPic（0，0，DpiX，DpiY，“Attachment：\創造寶石。bmp”，0。9，czx，czy） If czx>=0 and czy>=0 VBS czx=czx+44 VBS czy=czy+33 RightUp 1 Delay 100 MoveTo czx czy Delay 100 LeftClick 1 Delay 1500 KeyPress 32，1 Delay 100 EndIf Return 撿創造Sub 撿瑪雅 VBSCall FindPic（0，0，DpiX，DpiY，“Attachment：\瑪雅之石。bmp”，0。9，myx，myy） If myx>=0 and myy>=0 VBS myx=myx+44 VBS myy=myy+33 RightUp 1

rihei962014.05.27 回答

嗯，推薦你一個

網頁遊戲

平臺吧，很有意思的一個平臺，裡面玩的人很多，都是很

火爆

的網頁遊戲，遊戲可玩性很高，畫面也很好，現在註冊還能獲得了一個

超級大禮包

，十分不錯，比其他地方的有意思多了，推薦你去玩玩：^^

一道菜2014.03.30 回答

痴授碘嫂周卵寬/////////////////現在好像都在用這個，效果還不錯，分享給大家！