5
« on: July 25, 2011, 05:28:25 PM »
I know that this is missing the TM_NGFS and the MENU code, but is what I have below even feasible? Or am I way off track?
gosub EUOMenu1
gosub TM_NGFS_InitializeScript learning_to_save_stuff
finditem QLI G_1
if #findkind = -1
Return
If #findkind > 0
set %name #findid
For #findindex 1 #findcnt
{
set #lobjectid #findid
event macro 17
repeat
wait 1
until #CONTNAME = generic_gump && #CONTKIND = CFN
gosub pxlscan 198 -86 Water #FINDID
menu Text %name 100 %loc #FINDID
gosub TM_NGFS_RegisterVariables learning_to_save_stuff std std %name
set %loc %loc + 15
}
gosub TM_NGFS_SaveVariables learning_to_save_stuff
gosub menu
halt
sub menu
gosub TM_NGFS_InitializeScript test_script
gosub TM_NGFS_LoadVariables test_script
menu show 0 0
return
sub pxlscan
set %name %3 , %4
set %tempx %1 + #CONTPOSX
set %tempy %2 + #CONTPOSY
savePix %tempx %tempy %name
return