I am trying to write a recuring action for a small game i am playing
It is supposed to work like this:Code:var i: integer; procedure Walk(Sq: LongInt); var r: integer; begin SendKeysvb('m', False); SendKeysvb('{DEL}{DEL}{DEL}{DEL}{DEL}{DEL}{DEL}{DEL}{DEL}{DEL}', False); Writeln(Sq); ClickMouse(1020, 40, True); SendKeysvb('~', False); r:= 0; repeat r: = r + 1; ClickMouse(130, 60, True); Wait(1000); until(r >= 10) Wait(1000); SendKeysvb('i', False); Wait(500); ClickMouse(470, 200, False); ClickMouse(475, 210, True); SendKeysvb('~', False); end; begin i:= 0; repeat i:= i + 1; Walk(3468); until(i >= 5); end.
the 3468 is a map grid that gets entered into the map text box after "SendKeysvb('m', False);" (m opens the map)
"SendKeysvb('{DEL}..." deletes the previous grid number.
What I am trying to do with the "Walk(3468);" procedure is to somehow att that "3468" integer into the map text box
So all I need to do is add a whole bunch of Walk(####); at the bottom of the script so I dont have to repeat writing the exact function all the time.
Any suggestions?


Reply With Quote


