Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Problem with my script?
#1
Hello I have a problem with this script, can you help me with it, I tryed it but il like it work but not the positive of FindPic:

VBSCall FindPic(x201,758,x202,815,"C:\Users\Emmanuel\Desktop\MacroPicture\Blue_Up.bmp",0.9,x,y)


Sub MAIN
VBSCall FindColorEx(537,750,1171,800,"929292",0,0.8,x,y)
If x>=0 and y>=0
Goto Choose
Sub Choose
dim x201,x202
VBSCall FindColor(839,788,840,788,"FFFFFF",x,y)
If x>=0 and y>=0
x201=212
x202=269
Goto BleuHaut9
Else
x201=559
x202=616
Goto BleuHaut20
EndIf
Return Choose
EndIf
Delay 20
Goto MAIN
Return MAIN
Sub Fl20
If x201>=1473
x201=212
x202=269
Goto MAIN
Else
Goto BleuHaut20
EndIf
Sub BleuHaut20
VBSCall FindPic(x201,758,x202,815,"C:\Users\Emmanuel\Desktop\MacroPicture\Blue_Up.bmp",0.9,x,y)
If x>=0 and y>=0
x201=x201+63
x202=x202+63
KeyPress 38,1
Goto Fl20
Else
Goto BleuBas20
EndIf
Return BleuHaut20
Sub BleuBas20
VBSCall FindPic(x201,758,x202,815,"C:\Users\Emmanuel\Desktop\MacroPicture\Blue_Down.bmp",0.9,x,y)
If x>=0 and y>=0
x201=x201+63
x202=x202+63
KeyPress 40,1
Goto Fl20
Else
Goto BleuGauche20
EndIf
Return BleuBas20
Sub BleuGauche20
VBSCall FindPic(x201,758,x202,815,"C:\Users\Emmanuel\Desktop\MacroPicture\Blue_Left.bmp",0.9,x,y)
If x>=0 and y>=0
x201=x201+63
x202=x202+63
KeyPress 37,1
Goto Fl20
Else
Goto BleuDroite20
EndIf
Return BleuGauche20
Sub BleuDroite20
VBSCall FindPic(x201,758,x202,815,"C:\Users\Emmanuel\Desktop\MacroPicture\Blue_Right.bmp",0.9,x,y)
If x>=0 and y>=0
x201=x201+63
x202=x202+63
KeyPress 39,1
Goto Fl20
Else
Goto RougeHaut20
EndIf
Return BleuDroite20
Sub RougeHaut20
VBSCall FindPic(x201,758,x202,815,"C:\Users\Emmanuel\Desktop\MacroPicture\Up_Red.bmp",0.9,x,y)
If x>=0 and y>=0
x201=x201+63
x202=x202+63
KeyPress 40,1
Goto Fl20
Else
Goto RougeBas20
EndIf
Return RougeHaut20
Sub RougeBas20
VBSCall FindPic(x201,758,x202,815,"C:\Users\Emmanuel\Desktop\MacroPicture\Down_Red.bmp",0.9,x,y)
If x>=0 and y>=0
x201=x201+63
x202=x202+63
KeyPress 38,1
Goto Fl20
Else
Goto RougeGauche20
EndIf
Return RougeBas20
Sub RougeGauche20
VBSCall FindPic(x201,758,x202,815,"C:\Users\Emmanuel\Desktop\MacroPicture\Left_Red.bmp",0.9,x,y)
If x>=0 and y>=0
x201=x201+63
x202=x202+63
KeyPress 39,1
Goto Fl20
Else
Goto RougeDroite20
EndIf
Return RougeGauche20
Sub RougeDroite20
VBSCall FindPic(x201,758,x202,815,"C:\Users\Emmanuel\Desktop\MacroPicture\Right_red.bmp",0.9,x,y)
If x>=0 and y>=0
x201=x201+63
x202=x202+63
KeyPress 37,1
Goto Fl20
Else
Goto MauveHaut20
EndIf
Return RougeDroite20
Sub MauveHaut20
VBSCall FindPic(x201,758,x202,815,"C:\Users\Emmanuel\Desktop\MacroPicture\Up_Purple.bmp",0.9,x,y)
If x>=0 and y>=0
x201=x201+63
x202=x202+63
KeyPress 39,1
Goto Fl20
Else
Goto MauveBas20
EndIf
Return MauveHaut20
Sub MauveBas20
VBSCall FindPic(x201,758,x202,815,"C:\Users\Emmanuel\Desktop\MacroPicture\Down_Purple.bmp",0.9,x,y)
If x>=0 and y>=0
x201=x201+63
x202=x202+63
KeyPress 37,1
Goto Fl20
Else
Goto MauveGauche20
EndIf
Return MauveBas20
Sub MauveGauche20
VBSCall FindPic(x201,758,x202,815,"C:\Users\Emmanuel\Desktop\MacroPicture\Left_Purple.bmp",0.9,x,y)
If x>=0 and y>=0
x201=x201+63
x202=x202+63
KeyPress 38,1
Goto Fl20
Else
Goto MauveDroite20
EndIf
Return MauveGauche20
Sub MauveDroite20
VBSCall FindPic(x201,758,x202,815,"C:\Users\Emmanuel\Desktop\MacroPicture\Right_Purple.bmp",0.9,x,y)
If x>=0 and y>=0
x201=x201+63
x202=x202+63
KeyPress 40,1
Goto Fl20
Else
x201=x201+63
x202=x202+63
Goto Fl20
EndIf
Return MauveDroite20
Return Fl20
Sub Fl9
If x201>=1126
x201=559
x202=616
Goto MAIN
Else
Goto BleuHaut9
EndIf
Sub BleuHaut9
VBSCall FindPic(x201,758,x202,815,"C:\Users\Emmanuel\Desktop\MacroPicture\Blue_Up.bmp",0.9,x,y)
If x>=0 and y>=0
x201=x201+63
x202=x202+63
KeyPress 38,1
Goto Fl9
Else
Goto BleuBas9
EndIf
Return BleuHaut9
Sub BleuBas9
VBSCall FindPic(x201,758,x202,815,"C:\Users\Emmanuel\Desktop\MacroPicture\Blue_Down.bmp",0.9,x,y)
If x>=0 and y>=0
x201=x201+63
x202=x202+63
KeyPress 40,1
Goto Fl9
Else
Goto BleuGauche9
EndIf
Return BleuBas9
Sub BleuGauche9
VBSCall FindPic(x201,758,x202,815,"C:\Users\Emmanuel\Desktop\MacroPicture\Blue_Left.bmp",0.9,x,y)
If x>=0 and y>=0
x201=x201+63
x202=x202+63
KeyPress 37,1
Goto Fl9
Else
Goto BleuDroite9
EndIf
Return BleuGauche9
Sub BleuDroite9
VBSCall FindPic(x201,758,x202,815,"C:\Users\Emmanuel\Desktop\MacroPicture\Blue_Right.bmp",0.9,x,y)
If x>=0 and y>=0
x201=x201+63
x202=x202+63
KeyPress 39,1
Goto Fl9
Else
Goto RougeHaut9
EndIf
Return BleuDroite9
Sub RougeHaut9
VBSCall FindPic(x201,758,x202,815,"C:\Users\Emmanuel\Desktop\MacroPicture\Up_Red.bmp",0.9,x,y)
If x>=0 and y>=0
x201=x201+63
x202=x202+63
KeyPress 40,1
Goto Fl9
Else
Goto RougeBas9
EndIf
Return RougeHaut9
Sub RougeBas9
VBSCall FindPic(x201,758,x202,815,"C:\Users\Emmanuel\Desktop\MacroPicture\Down_Red.bmp",0.9,x,y)
If x>=0 and y>=0
x201=x201+63
x202=x202+63
KeyPress 38,1
Goto Fl9
Else
Goto RougeGauche9
EndIf
Return RougeBas9
Sub RougeGauche9
VBSCall FindPic(x201,758,x202,815,"C:\Users\Emmanuel\Desktop\MacroPicture\Left_Red.bmp",0.9,x,y)
If x>=0 and y>=0
x201=x201+63
x202=x202+63
KeyPress 39,1
Goto Fl9
Else
Goto RougeDroite9
EndIf
Return RougeGauche9
Sub RougeDroite9
VBSCall FindPic(x201,758,x202,815,"C:\Users\Emmanuel\Desktop\MacroPicture\Right_red.bmp",0.9,x,y)
If x>=0 and y>=0
x201=x201+63
x202=x202+63
KeyPress 37,1
Goto Fl9
Else
Goto MauveHaut9
EndIf
Return RougeDroite9
Sub MauveHaut9
VBSCall FindPic(x201,758,x202,815,"C:\Users\Emmanuel\Desktop\MacroPicture\Up_Purple.bmp",0.9,x,y)
If x>=0 and y>=0
x201=x201+63
x202=x202+63
KeyPress 39,1
Goto Fl9
Else
Goto MauveBas9
EndIf
Return MauveHaut9
Sub MauveBas9
VBSCall FindPic(x201,758,x202,815,"C:\Users\Emmanuel\Desktop\MacroPicture\Down_Purple.bmp",0.9,x,y)
If x>=0 and y>=0
x201=x201+63
x202=x202+63
KeyPress 37,1
Goto Fl9
Else
Goto MauveGauche9
EndIf
Return MauveBas9
Sub MauveGauche9
VBSCall FindPic(x201,758,x202,815,"C:\Users\Emmanuel\Desktop\MacroPicture\Left_Purple.bmp",0.9,x,y)
If x>=0 and y>=0
x201=x201+63
x202=x202+63
KeyPress 38,1
Goto Fl9
Else
Goto MauveDroite9
EndIf
Return MauveGauche9
Sub MauveDroite9
VBSCall FindPic(x201,758,x202,815,"C:\Users\Emmanuel\Desktop\MacroPicture\Right_Purple.bmp",0.9,x,y)
If x>=0 and y>=0
x201=x201+63
x202=x202+63
KeyPress 40,1
Goto Fl9
Else
x201=x201+63
x202=x202+63
Goto Fl9
EndIf
Return MauveDroite9
Return Fl9


Forum Jump:


Users browsing this thread: 1 Guest(s)