Subir

Resultados 1 al 5 de 5

Tema: Macros lumber ayuda

  1. 15-Jan-2010 #1
    Ravendor
    Ravendor está desconectado
    Fecha de ingreso
    January-2010
    Edad
    39
    Mensajes
    117
    Reputacion: 10
    Poder de reputación
    15

    Macros lumber ayuda

    Buenas, me gustaria saber como le podria añadir a esta macros la siguiente Accion , pues cada vez que intente talar un arbol que sea inmune o no deje talar en el , pase al siguiente , aver si alguien amable me puede decir como le añado esa accion. la macros va estupenda lo que me pasa esque al llegar a un arbol que me indica que es inmune a talar se queda en ese para siempre..
    Gracias y saludos atodos






    Macro de talar:
    -----------------------------

    :Primero usas la macro de buscar arboles y las locations las pones donde esta el comentario.
    ;La macro de buscar arboles conviene usarla en un bosque con muchos arboles como yew y donde no halla casas excesivamente grandes cerca
    ;Ya que si el obstaculo es muy grande la macro no es capaz de sobrepasarlo


    initevents

    sub seleccionar
    Seleccionarhacha:
    event SysMessage Selecciona tu hacha
    event Macro 13 4
    wait 5
    espera:
    if #targCurs = 1
    goto espera
    set %hacha #lTargetID
    return


    start:
    gosub seleccionar

    gosub ljing 2383 1082 0 3280
    gosub ljing 2388 1083 0 3281
    gosub ljing 2392 1083 0 3300
    gosub ljing 2396 1083 0 3291
    gosub ljing 2400 1083 0 3278
    gosub ljing 2408 1083 0 3284
    gosub ljing 2420 1083 0 3303
    gosub ljing 2376 1086 0 3303
    gosub ljing 2396 1086 0 3294
    gosub ljing 2404 1086 0 3300
    gosub ljing 2412 1086 0 3303
    gosub ljing 2420 1086 0 3278
    gosub ljing 2424 1086 8 3294
    gosub ljing 2310 1089 0 3302
    gosub ljing 2372 1089 0 3281
    gosub ljing 2380 1089 0 3284
    gosub ljing 2388 1089 0 3297
    gosub ljing 2396 1089 0 3278
    gosub ljing 2412 1089 3 3278
    gosub ljing 2374 1091 0 3230
    gosub ljing 2376 1092 0 3303
    gosub ljing 2380 1092 0 3278
    gosub ljing 2384 1092 0 3284
    gosub ljing 2400 1092 0 3294
    gosub ljing 2416 1092 0 3297
    gosub ljing 2420 1092 0 3281
    gosub ljing 2365 1093 0 3302
    gosub ljing 2384 1095 0 3291
    gosub ljing 2388 1095 0 3294
    gosub ljing 2392 1095 0 3294
    gosub ljing 2404 1095 0 3294
    gosub ljing 2408 1095 0 3281
    gosub ljing 2416 1095 0 3297
    gosub ljing 2420 1095 0 3300
    gosub ljing 2396 1098 0 3284
    gosub ljing 2400 1098 0 3303
    gosub ljing 2408 1098 0 3281
    gosub ljing 2316 1099 0 3290
    gosub ljing 2376 1101 0 3294
    gosub ljing 2388 1101 0 3281
    gosub ljing 2392 1101 0 3281
    gosub ljing 2404 1101 0 3278
    gosub ljing 2408 1101 0 3278
    gosub ljing 2412 1101 0 3297
    gosub ljing 2420 1101 0 3281
    gosub ljing 2420 1103 0 3230
    gosub ljing 2400 1104 0 3297
    gosub ljing 2404 1104 0 3294
    gosub ljing 2412 1104 0 3294
    gosub ljing 2416 1104 0 3300
    gosub ljing 2312 1107 0 3280
    gosub ljing 2324 1107 0 3300
    gosub ljing 2376 1107 0 3297
    gosub ljing 2384 1107 3 3300
    gosub ljing 2388 1107 0 3281
    gosub ljing 2400 1107 0 3297
    gosub ljing 2408 1107 0 3303
    gosub ljing 2416 1107 0 3281
    gosub ljing 2420 1107 0 3281
    gosub ljing 2384 1110 3 3291
    gosub ljing 2396 1110 0 3284
    gosub ljing 2400 1110 0 3284
    gosub ljing 2404 1110 0 3278
    gosub ljing 2408 1110 0 3284
    gosub ljing 2412 1110 0 3297
    gosub ljing 2324 1113 0 3303
    gosub ljing 2336 1113 0 3294
    gosub ljing 2344 1113 0 3284
    gosub ljing 2372 1113 0 3284
    gosub ljing 2384 1113 0 3300
    gosub ljing 2400 1113 0 3294
    gosub ljing 2404 1113 0 3278
    gosub ljing 2408 1113 0 3278
    gosub ljing 2412 1113 3 3300
    gosub ljing 2416 1113 0 3300
    gosub ljing 2415 1114 0 3230
    gosub ljing 2332 1116 0 3297
    gosub ljing 2336 1116 0 3278
    gosub ljing 2340 1116 3 3278
    gosub ljing 2344 1116 0 3303
    gosub ljing 2348 1116 0 3291
    gosub ljing 2360 1116 0 3281
    gosub ljing 2364 1116 0 3297
    gosub ljing 2372 1116 0 3284
    gosub ljing 2384 1116 3 3297
    gosub ljing 2388 1116 0 3294
    gosub ljing 2396 1116 0 3297
    gosub ljing 2400 1116 0 3284
    gosub ljing 2404 1116 0 3278
    gosub ljing 2412 1116 0 3281
    gosub ljing 2416 1116 0 3284
    gosub ljing 2328 1119 0 3284
    gosub ljing 2336 1119 0 3278
    gosub ljing 2340 1119 0 3284
    gosub ljing 2348 1119 0 3297
    gosub ljing 2352 1119 0 3291
    gosub ljing 2372 1119 0 3284
    gosub ljing 2392 1119 0 3303
    gosub ljing 2400 1119 0 3230
    gosub ljing 2404 1119 0 3281
    gosub ljing 2408 1119 0 3294
    gosub ljing 2416 1119 0 3303
    gosub ljing 2420 1119 5 3303
    gosub ljing 2320 1122 0 3303
    gosub ljing 2324 1122 0 3297
    gosub ljing 2328 1122 0 3294
    gosub ljing 2332 1122 0 3303
    gosub ljing 2336 1122 0 3297
    gosub ljing 2340 1122 0 3284
    gosub ljing 2344 1122 0 3284
    gosub ljing 2348 1122 0 3303
    gosub ljing 2356 1122 0 3281
    gosub ljing 2364 1122 0 3291
    gosub ljing 2368 1122 0 3294
    gosub ljing 2372 1122 0 3291
    gosub ljing 2376 1122 0 3291
    gosub ljing 2388 1122 3 3291
    gosub ljing 2416 1122 1 3281
    gosub ljing 2320 1125 0 3300
    gosub ljing 2332 1125 0 3294
    gosub ljing 2340 1125 0 3300
    gosub ljing 2348 1125 0 3303
    gosub ljing 2352 1125 0 3284
    gosub ljing 2368 1125 0 3281
    gosub ljing 2376 1125 0 3303
    gosub ljing 2388 1125 0 3291
    gosub ljing 2392 1125 0 3291
    gosub ljing 2396 1125 0 3294
    gosub ljing 2400 1125 0 3281
    gosub ljing 2412 1125 0 3297
    gosub ljing 2420 1125 5 3281
    gosub ljing 2347 1127 0 3230
    gosub ljing 2430 1127 5 3230
    gosub ljing 2320 1128 0 3294
    gosub ljing 2340 1128 0 3284
    gosub ljing 2348 1128 0 3281
    gosub ljing 2352 1128 0 3303
    gosub ljing 2356 1128 0 3294
    gosub ljing 2360 1128 0 3281
    gosub ljing 2364 1128 0 3291
    gosub ljing 2376 1128 0 3291
    gosub ljing 2380 1128 0 3297
    gosub ljing 2388 1128 0 3300
    gosub ljing 2392 1128 0 3297
    gosub ljing 2404 1128 0 3303
    gosub ljing 2424 1128 5 3284
    gosub ljing 2432 1128 5 3278
    gosub ljing 2324 1131 0 3291
    gosub ljing 2336 1131 0 3284
    gosub ljing 2340 1131 0 3303
    gosub ljing 2344 1131 0 3300
    gosub ljing 2348 1131 0 3303
    gosub ljing 2360 1131 0 3291
    gosub ljing 2368 1131 0 3291
    gosub ljing 2392 1131 0 3297
    gosub ljing 2400 1131 0 3294
    gosub ljing 2416 1131 5 3284
    gosub ljing 2424 1131 3 3300
    gosub ljing 2428 1131 5 3284
    gosub ljing 2316 1134 0 3278
    gosub ljing 2320 1134 0 3281
    gosub ljing 2328 1134 0 3297
    gosub ljing 2332 1134 0 3291
    gosub ljing 2344 1134 0 3300
    gosub ljing 2348 1134 0 3291
    gosub ljing 2352 1134 0 3291
    gosub ljing 2376 1134 0 3281
    gosub ljing 2384 1134 0 3281
    gosub ljing 2388 1134 0 3291
    gosub ljing 2416 1134 5 3284
    gosub ljing 2420 1134 5 3300
    gosub ljing 2428 1134 5 3281
    gosub ljing 2432 1134 5 3303
    gosub ljing 2373 1136 0 3230
    gosub ljing 2404 1136 0 3230
    gosub ljing 2316 1137 0 3294
    gosub ljing 2324 1137 0 3297
    gosub ljing 2332 1137 0 3303
    gosub ljing 2336 1137 0 3303
    gosub ljing 2344 1137 0 3297
    gosub ljing 2352 1137 5 3297
    gosub ljing 2356 1137 5 3294
    gosub ljing 2372 1137 0 3297
    gosub ljing 2376 1137 0 3297
    gosub ljing 2380 1137 0 3300
    gosub ljing 2384 1137 0 3284
    gosub ljing 2396 1137 0 3303
    gosub ljing 2412 1137 5 3300
    gosub ljing 2428 1137 5 3281
    gosub ljing 2312 1140 0 3281
    gosub ljing 2316 1140 0 3294
    gosub ljing 2336 1140 0 3294
    gosub ljing 2340 1140 0 3278
    gosub ljing 2348 1140 5 3303
    gosub ljing 2372 1140 0 3284
    gosub ljing 2384 1140 0 3284
    gosub ljing 2408 1140 5 3300
    gosub ljing 2420 1140 5 3297
    gosub ljing 2424 1140 5 3291
    gosub ljing 2374 1142 0 3230
    gosub ljing 2308 1143 0 3291
    gosub ljing 2348 1143 5 3291
    gosub ljing 2352 1143 5 3284
    gosub ljing 2364 1143 5 3297
    gosub ljing 2372 1143 0 3303
    gosub ljing 2380 1143 0 3291
    gosub ljing 2388 1143 0 3278
    gosub ljing 2396 1143 0 3300
    gosub ljing 2400 1143 0 3303
    gosub ljing 2404 1143 0 3303
    gosub ljing 2412 1143 5 3294
    gosub ljing 2420 1143 5 3294
    gosub ljing 2424 1143 5 3291
    gosub ljing 2428 1143 5 3294
    gosub ljing 2308 1146 0 3294
    gosub ljing 2320 1146 0 3294
    gosub ljing 2340 1146 5 3284
    gosub ljing 2348 1146 5 3278
    gosub ljing 2364 1146 5 3281
    gosub ljing 2376 1146 0 3294
    gosub ljing 2384 1146 0 3281
    gosub ljing 2388 1146 0 3297
    gosub ljing 2392 1146 0 3300
    gosub ljing 2396 1146 0 3291
    gosub ljing 2400 1146 0 3284
    gosub ljing 2412 1146 5 3278
    gosub ljing 2424 1146 5 3281
    gosub ljing 2432 1146 0 3294
    gosub ljing 2337 1148 5 3230
    gosub ljing 2312 1149 0 3281
    gosub ljing 2332 1149 5 3297
    gosub ljing 2344 1149 5 3278
    gosub ljing 2348 1149 3 3294
    gosub ljing 2352 1149 3 3281
    gosub ljing 2356 1149 3 3284
    gosub ljing 2364 1149 5 3291
    gosub ljing 2368 1149 5 3281
    gosub ljing 2380 1149 0 3281
    gosub ljing 2384 1149 0 3303
    gosub ljing 2392 1149 0 3291
    gosub ljing 2400 1149 0 3303
    gosub ljing 2416 1149 5 3278
    gosub ljing 2428 1149 0 3281
    gosub ljing 2432 1149 0 3284
    gosub ljing 2312 1152 0 3281
    gosub ljing 2320 1152 0 3300
    gosub ljing 2324 1152 0 3284
    gosub ljing 2328 1152 5 3291
    gosub ljing 2344 1152 5 3300
    gosub ljing 2348 1152 5 3281
    gosub ljing 2376 1152 0 3297
    gosub ljing 2380 1152 0 3278
    gosub ljing 2392 1152 0 3303
    gosub ljing 2416 1152 5 3297
    gosub ljing 2320 1155 0 3303
    gosub ljing 2324 1155 5 3291
    gosub ljing 2328 1155 5 3278
    gosub ljing 2332 1155 5 3281
    gosub ljing 2340 1155 5 3297
    gosub ljing 2356 1155 5 3278
    gosub ljing 2380 1155 0 3300
    gosub ljing 2392 1155 0 3291
    gosub ljing 2400 1155 0 3278
    gosub ljing 2404 1155 0 3278
    gosub ljing 2408 1155 0 3297
    gosub ljing 2416 1155 0 3303
    gosub ljing 2420 1155 0 3284
    gosub ljing 2428 1155 0 3284
    gosub ljing 2435 1156 3 3230
    gosub ljing 2410 1157 0 3230
    gosub ljing 2316 1158 0 3294
    gosub ljing 2320 1158 0 3284
    gosub ljing 2332 1158 5 3300
    gosub ljing 2336 1158 5 3303
    gosub ljing 2340 1158 5 3303
    gosub ljing 2344 1158 5 3297
    gosub ljing 2352 1158 5 3281
    gosub ljing 2360 1158 5 3291
    gosub ljing 2364 1158 5 3291
    gosub ljing 2376 1158 0 3284
    gosub ljing 2384 1158 0 3300
    gosub ljing 2388 1158 0 3300
    gosub ljing 2408 1158 0 3303
    gosub ljing 2412 1158 0 3294
    gosub ljing 2416 1158 0 3300
    gosub ljing 2387 1159 0 3230
    gosub ljing 2320 1161 1 3294
    gosub ljing 2324 1161 5 3300
    gosub ljing 2328 1161 5 3281
    gosub ljing 2336 1161 5 3284
    gosub ljing 2344 1161 5 3300
    gosub ljing 2352 1161 5 3284
    gosub ljing 2356 1161 5 3278
    gosub ljing 2376 1161 0 3291
    gosub ljing 2384 1161 0 3281
    gosub ljing 2392 1161 3 3303
    gosub ljing 2396 1161 0 3291
    gosub ljing 2400 1161 0 3278
    gosub ljing 2404 1161 0 3281
    gosub ljing 2412 1161 0 3278
    gosub ljing 2416 1161 0 3278
    gosub ljing 2379 1162 0 3230
    gosub ljing 2308 1164 0 3278
    gosub ljing 2312 1164 0 3291
    gosub ljing 2316 1164 0 3300
    gosub ljing 2320 1164 5 3303
    gosub ljing 2328 1164 5 3303
    gosub ljing 2332 1164 5 3278
    gosub ljing 2336 1164 5 3294
    gosub ljing 2340 1164 5 3281
    gosub ljing 2352 1164 10 3284
    gosub ljing 2356 1164 5 3303
    gosub ljing 2360 1164 5 3278
    gosub ljing 2364 1164 5 3294
    gosub ljing 2372 1164 5 3278
    gosub ljing 2376 1164 2 3281
    gosub ljing 2392 1164 0 3291
    gosub ljing 2396 1164 0 3278
    gosub ljing 2408 1164 0 3297
    gosub ljing 2420 1164 0 3297
    gosub ljing 2432 1164 0 3300
    gosub ljing 2328 1165 5 3230
    gosub ljing 2312 1167 0 3291
    gosub ljing 2316 1167 0 3297
    gosub ljing 2320 1167 5 3278
    gosub ljing 2326 1167 5 3230
    gosub ljing 2332 1167 3 3294
    gosub ljing 2336 1167 3 3297
    gosub ljing 2340 1167 5 3294
    gosub ljing 2344 1167 6 3303
    gosub ljing 2348 1167 10 3284
    gosub ljing 2352 1167 10 3281
    gosub ljing 2356 1167 10 3281
    gosub ljing 2360 1167 5 3281
    gosub ljing 2376 1167 5 3284
    gosub ljing 2392 1167 0 3281
    gosub ljing 2400 1167 0 3297
    gosub ljing 2424 1167 0 3281
    gosub ljing 2428 1167 0 3281
    gosub ljing 2432 1167 0 3284
    gosub ljing 2335 1169 3 3230
    gosub ljing 2312 1170 0 3300
    gosub ljing 2320 1170 5 3281
    gosub ljing 2324 1170 5 3278
    gosub ljing 2328 1170 5 3291
    gosub ljing 2332 1170 5 3291
    gosub ljing 2344 1170 10 3294
    gosub ljing 2352 1170 10 3281
    gosub ljing 2356 1170 10 3291
    gosub ljing 2364 1170 5 3303
    gosub ljing 2376 1170 5 3291
    gosub ljing 2384 1170 0 3291
    gosub ljing 2388 1170 0 3278
    gosub ljing 2392 1170 0 3300
    gosub ljing 2420 1170 0 3291
    gosub ljing 2312 1173 0 3284
    gosub ljing 2324 1173 5 3294
    gosub ljing 2328 1173 5 3278
    gosub ljing 2340 1173 5 3297
    gosub ljing 2344 1173 10 3300
    gosub ljing 2348 1173 10 3278
    gosub ljing 2352 1173 10 3281
    gosub ljing 2360 1173 10 3303
    gosub ljing 2376 1173 5 3303
    gosub ljing 2388 1173 0 3291
    gosub ljing 2396 1173 0 3294
    gosub ljing 2404 1173 0 3281
    gosub ljing 2408 1173 0 3303
    gosub ljing 2412 1173 0 3291
    gosub ljing 2416 1173 0 3281
    gosub ljing 2370 1174 5 3230
    gosub ljing 2429 1174 0 3286
    gosub ljing 2312 1176 0 3303
    gosub ljing 2352 1176 10 3294
    gosub ljing 2360 1176 10 3278
    gosub ljing 2376 1176 5 3294
    gosub ljing 2388 1176 0 3284
    gosub ljing 2392 1176 0 3291
    gosub ljing 2400 1176 0 3291
    gosub ljing 2408 1176 0 3294
    gosub ljing 2416 1176 0 3303
    gosub ljing 2422 1176 0 3277
    gosub ljing 2433 1176 0 3302
    gosub ljing 2312 1179 0 3300
    gosub ljing 2340 1179 9 3281
    gosub ljing 2348 1179 10 3297
    gosub ljing 2368 1179 10 3294
    gosub ljing 2376 1179 5 3300
    gosub ljing 2380 1179 5 3300
    gosub ljing 2404 1179 0 3291
    gosub ljing 2408 1179 0 3300
    gosub ljing 2411 1181 0 3230
    gosub ljing 2309 1182 0 3288
    gosub ljing 2312 1182 0 3284
    gosub ljing 2344 1182 10 3284
    gosub ljing 2348 1182 10 3297
    gosub ljing 2372 1182 5 3303
    gosub ljing 2376 1182 5 3284
    gosub ljing 2384 1182 5 3291
    gosub ljing 2388 1182 0 3294
    gosub ljing 2392 1182 0 3297
    gosub ljing 2412 1182 0 3300
    gosub ljing 2312 1185 0 3300
    gosub ljing 2340 1185 10 3284
    gosub ljing 2376 1185 5 3291
    gosub ljing 2384 1185 5 3294
    gosub ljing 2412 1185 0 3300
    gosub ljing 2420 1185 0 3291
    gosub ljing 2428 1185 0 3294
    gosub ljing 2432 1185 5 3297
    gosub ljing 2379 1187 5 3230
    gosub ljing 2352 1188 10 3230
    gosub ljing 2372 1188 5 3300
    gosub ljing 2376 1188 5 3291
    gosub ljing 2388 1188 0 3278
    gosub ljing 2392 1188 0 3281
    gosub ljing 2416 1188 0 3291
    gosub ljing 2420 1188 0 3297
    gosub ljing 2428 1188 5 3291
    gosub ljing 2370 1189 5 3230
    gosub ljing 2348 1191 10 3297
    gosub ljing 2352 1191 10 3300
    gosub ljing 2368 1191 5 3278
    gosub ljing 2400 1191 0 3284
    gosub ljing 2408 1191 0 3294
    gosub ljing 2420 1191 0 3297
    gosub ljing 2424 1191 5 3300
    gosub ljing 2428 1191 5 3294
    gosub ljing 2365 1192 5 3230
    gosub ljing 2340 1194 5 3294
    gosub ljing 2352 1194 10 3300
    gosub ljing 2360 1194 10 3294
    gosub ljing 2368 1194 5 3284
    gosub ljing 2388 1194 0 3303
    gosub ljing 2392 1194 0 3300
    gosub ljing 2396 1194 0 3300
    gosub ljing 2400 1194 0 3294
    gosub ljing 2404 1194 0 3297
    gosub ljing 2408 1194 0 3284
    gosub ljing 2416 1194 0 3291
    gosub ljing 2420 1194 0 3300
    gosub ljing 2428 1194 5 3300
    gosub ljing 2310 1196 0 3280
    gosub ljing 2316 1197 0 3297
    gosub ljing 2320 1197 0 3300
    gosub ljing 2328 1197 5 3297
    gosub ljing 2332 1197 5 3278
    gosub ljing 2344 1197 5 3230
    gosub ljing 2352 1197 5 3291
    gosub ljing 2372 1197 5 3297
    gosub ljing 2376 1197 5 3278
    gosub ljing 2380 1197 5 3300
    gosub ljing 2392 1197 0 3281
    gosub ljing 2396 1197 0 3297
    gosub ljing 2404 1197 0 3281
    gosub ljing 2408 1197 0 3300
    gosub ljing 2420 1197 0 3278
    gosub ljing 2424 1197 5 3281
    gosub ljing 2428 1197 5 3300
    gosub ljing 2435 1199 5 3230
    gosub ljing 2328 1200 0 3284
    gosub ljing 2332 1200 5 3300
    gosub ljing 2336 1200 5 3303
    gosub ljing 2344 1200 5 3294
    gosub ljing 2348 1200 5 3294
    gosub ljing 2356 1200 5 3284
    gosub ljing 2360 1200 5 3300
    gosub ljing 2364 1200 5 3291
    gosub ljing 2368 1200 5 3281
    gosub ljing 2372 1200 5 3303
    gosub ljing 2376 1200 5 3303
    gosub ljing 2384 1200 0 3281
    gosub ljing 2392 1200 0 3284
    gosub ljing 2396 1200 0 3297
    gosub ljing 2400 1200 0 3300
    gosub ljing 2404 1200 0 3284
    gosub ljing 2416 1200 0 3291
    gosub ljing 2420 1200 0 3300
    gosub ljing 2414 1202 0 3230
    gosub ljing 2320 1203 0 3291
    gosub ljing 2324 1203 0 3300
    gosub ljing 2328 1203 0 3294
    gosub ljing 2336 1203 0 3278
    gosub ljing 2344 1203 5 3303
    gosub ljing 2364 1203 5 3297
    gosub ljing 2384 1203 0 3297
    gosub ljing 2392 1203 0 3300
    gosub ljing 2400 1203 0 3291
    gosub ljing 2404 1203 3 3294
    gosub ljing 2408 1203 3 3300
    gosub ljing 2412 1203 0 3297
    gosub ljing 2428 1203 5 3278
    gosub ljing 2432 1203 5 3284
    gosub ljing 2427 1205 5 3230
    gosub ljing 2320 1206 0 3303
    gosub ljing 2324 1206 0 3284
    gosub ljing 2328 1206 0 3291
    gosub ljing 2332 1206 0 3294
    gosub ljing 2340 1206 0 3278
    gosub ljing 2344 1206 5 3278
    gosub ljing 2346 1206 5 3230
    gosub ljing 2352 1206 3 3303
    gosub ljing 2360 1206 5 3300
    gosub ljing 2368 1206 5 3291
    gosub ljing 2376 1206 0 3297
    gosub ljing 2388 1206 0 3303
    gosub ljing 2392 1206 0 3281
    gosub ljing 2396 1206 0 3300
    gosub ljing 2400 1206 0 3291
    gosub ljing 2412 1206 0 3303
    gosub ljing 2420 1206 0 3281
    gosub ljing 2428 1206 5 3297
    gosub ljing 2326 1207 0 3230
    gosub ljing 2328 1209 0 3291
    gosub ljing 2332 1209 0 3281
    gosub ljing 2344 1209 3 3294
    gosub ljing 2348 1209 5 3281
    gosub ljing 2360 1209 5 3303
    gosub ljing 2368 1209 0 3294
    gosub ljing 2372 1209 0 3294
    gosub ljing 2380 1209 0 3303
    gosub ljing 2384 1209 0 3284
    gosub ljing 2388 1209 0 3291
    gosub ljing 2392 1209 0 3297
    gosub ljing 2400 1209 0 3291
    gosub ljing 2412 1209 0 3284
    gosub ljing 2424 1209 5 3303
    gosub ljing 2432 1209 5 3278
    gosub ljing 2376 1210 0 3230
    gosub ljing 2324 1212 0 3278
    gosub ljing 2328 1212 0 3281
    gosub ljing 2336 1212 0 3300
    gosub ljing 2332 1212 0 3291
    gosub ljing 2340 1212 0 3294
    gosub ljing 2344 1212 0 3278
    gosub ljing 2348 1212 5 3294
    gosub ljing 2360 1212 5 3278
    gosub ljing 2372 1212 0 3303
    gosub ljing 2380 1212 0 3303
    gosub ljing 2392 1212 0 3284
    gosub ljing 2408 1212 0 3284
    gosub ljing 2412 1212 0 3278
    gosub ljing 2432 1212 5 3300
    gosub ljing 2324 1215 0 3300
    gosub ljing 2328 1215 0 3281
    gosub ljing 2336 1215 0 3294
    gosub ljing 2356 1215 5 3297
    gosub ljing 2360 1215 3 3281
    gosub ljing 2376 1215 0 3278
    gosub ljing 2381 1215 0 3230
    gosub ljing 2384 1215 0 3303
    gosub ljing 2396 1215 0 3291
    gosub ljing 2404 1215 0 3281
    gosub ljing 2412 1215 0 3303
    gosub ljing 2416 1215 0 3291
    gosub ljing 2424 1215 5 3278
    gosub ljing 2432 1215 5 3291
    gosub ljing 2324 1218 0 3300
    gosub ljing 2332 1218 0 3303
    gosub ljing 2336 1218 0 3281
    gosub ljing 2340 1218 0 3284
    gosub ljing 2356 1218 0 3300
    gosub ljing 2368 1218 0 3291
    gosub ljing 2376 1218 0 3294
    gosub ljing 2380 1218 0 3284
    gosub ljing 2388 1218 0 3300
    gosub ljing 2396 1218 0 3303
    gosub ljing 2400 1218 0 3284
    gosub ljing 2404 1218 0 3303
    gosub ljing 2420 1218 0 3297
    gosub ljing 2424 1218 5 3294
    gosub ljing 2432 1218 5 3303
    gosub ljing 2312 1219 0 3230
    gosub ljing 2426 1220 5 3230
    gosub ljing 2316 1221 0 3303
    gosub ljing 2320 1221 0 3281
    gosub ljing 2324 1221 0 3284
    gosub ljing 2344 1221 0 3284
    gosub ljing 2352 1221 0 3284
    gosub ljing 2360 1221 0 3278
    gosub ljing 2368 1221 0 3297
    gosub ljing 2372 1221 0 3294
    gosub ljing 2380 1221 5 3300
    gosub ljing 2392 1221 0 3297
    gosub ljing 2396 1221 0 3291
    gosub ljing 2408 1221 0 3297
    gosub ljing 2412 1221 0 3300
    gosub ljing 2416 1221 0 3284
    gosub ljing 2424 1221 5 3278
    gosub ljing 2428 1221 5 3300
    gosub ljing 2432 1221 5 3294



    goto start

    sub ljing

    moving:
    event PathFind %1 %2
    wait 1s
    scanjournal 1
    move %1 %2 1 10s
    if can't_get in #journal
    {
    goto moving
    }

    ljagain:
    finditem %hacha
    set #lobjectid #findid
    event macro 17 0
    target
    set #ltargetx %1
    set #ltargety %2
    set #ltargetz %3
    set #ltargetkind 3
    set #ltargettile %4
    event macro 22 0
    set %tiempomax #scnt + 8 ; CAMBIA EL TIEMPO SI ES MUY LARGO AUNQUE PARA UA ESTA PERFECTO
    gosub scan
    wait 10
    if %arbolsiguiente 2
    set %arbolsiguiente #false
    return
    goto ljagain

    sub scan
    scan:
    deletejournal
    scanjournal 1
    if YOU_PUT in #journal
    {
    event macro 9 7
    event macro 8 7
    wait 10
    set %madera ZLK
    Finditem %madera C_ , #BackpackID
    If #FindKind <> -1
    {
    exevent drag #FindID #FindStack
    wait 10
    exevent dropG #CharPosX #CharPosY
    wait 10
    }
    wait 1
    return
    }
    if TALAS_DURANTE in #journal || #scnt >= %tiempomax
    {
    return
    }
    if AQUI_NO in #journal || IT_APPEARS in #journal || THAT_IS_TOO in #journal || You_can't in #journal
    {
    set %arbolsiguiente #true
    return
    }
    goto scan

    -----------------------
    Última edición por Ravendor; 15-Jan-2010 a las 18:55
    Citar Citar
  2. 20-Jan-2010 #2
    afrodita
    afrodita está desconectado
    Suspendido
    Fecha de ingreso
    January-2009
    Edad
    32
    Mensajes
    438
    Reputacion: 10
    Poder de reputación
    0

    Respuesta: Macros lumber ayuda

    aki t dejo la macro k tengo, spero k t valga



    ; >>>>>>>>LEER LA CONFIGURACION<<<<<<<<<<<
    ; >>>>>>>>LEER LA CONFIGURACION<<<<<<<<<<<
    ; >>>>>>>>LEER LA CONFIGURACION<<<<<<<<<<<
    ;==================================
    ; Script Name: Simple Lumberjacker
    ; Author: Kedrick Valorite EDITADO por Alex para Ultima Alianza
    ; Version: 2.2e
    ; Client Tested with: 4.0.6a
    ; EUO version tested with: 1.42.009D
    ; Shard OSI / FS: OSI & RunUO FS's
    ; Revision Date: 07 December 04
    ; Public Release: 10 October 04
    ; Global Variables Used: None
    ; Purpose: Uses tile scan and autorail for Lumberjacking
    ; and allows you to store the logs in either the bank or
    ; a container.
    ;==================================
    ;_________________________________________________ ______________________________
    ;ATENCIÓN LEER ATENCIÓN LEER ATENCIÓN LEER ATENCIÓN LEER ATENCIÓN LEER ATENCIÓN LEER
    ; No se aceptarán privados de gente que no le dá la gana leerse las instrucciones e intentarlo.
    ;ATENCIÓN LEER ATENCIÓN LEER ATENCIÓN LEER ATENCIÓN LEER ATENCIÓN LEER ATENCIÓN LEER
    ; Simplemente hay que darle a Play y te saldra un menu con el que configurar todo.
    ; ¿Cómo configurar?
    ; La macro se basa por puntos por los que ir andando NO recalea.
    ; Primero de todo debemos elegir si queremos que nos guarde la madera en un contenedor de casa o en el banco
    ; Seguidamente debemos crear un camino que nos lleve desde donde queremos talar hasta el lugar elegido (banco, casa)
    ; Para ello, clickemos en P. Camino. Cada ciertos pasos que demos para ir al lugar elegido debemos presionar la tecla F9
    ; o presionar Guardar. Se irán guardando los puntos en el menú.
    ; Al llegar, si hemos elegido banco, debemos estar en un lugar donde estemos seguros que siempre que digamos bank
    ; se nos abra el banco. Y en el caso de casa debemos llegar al lado del contenedor donde queremos dejarlos.
    ; Seguidamente le daremos al boton Banco o Contenedor, segun nuestra elección, la macro nos llevara donde estabamos.
    ; al principio cuando configuramos el camino, el cual debe ser el bosque donde queremos talar.
    ; Seguidamente debemos darle a Rail. Aqui iremos configurando puntos junto a arboles, tantos como querais.
    ; Lo haremos mediante F9 o dándole al boton Guardar. Debemos acabar los puntos más o menos donde empezamos.
    ; Una vez guardados todos los puntos debemos presionar Hecho.
    ; La macro empezará a talar y en cuanto estemos llenos dejará los troncos donde le hayamos dicho.
    Set %CheckLang #TRUE
    Set %MoveContainers #TRUE
    Set %Freeshard #TRUE
    Set %UseSkillToolEquiped #TRUE
    Set %LumberjackTools LSF_BSF_NSF_ZRF_RMH_LPH_UOH_FSF
    Set %CarpentryTools YFG_ZHG_CIG_BIG_AGG_EGG_AIG_WFG_IGG_KGG_ZFG
    Set %SkillTools %LumberjackTools
    Set %logs ZLK
    Set %Boards TLK
    Set %autorail_storageid
    Set %autorail_storagetype
    Set %autorail_waypointcounter 0
    Set %autorail_pointcounter 0
    ;Tile Scanner Variables
    Tile Init
    Set %SearchRadius 2
    ;_________________________________________________ ______________________________
    ;Main
    Gosub SetupDesktop
    Gosub showSimpleLJ
    Gosub autorail_setup
    For %Main #TRUE #FALSE
    {
    Gosub SimpleStatusCheck
    Gosub autorail_move
    Gosub TileScanner %SearchRadius TREE
    Gosub Lumberjack
    If ! %Error
    Set %Main #TRUE
    }
    ;_________________________________________________ ______________________________
    Sub lumberjack
    For %target_index 1 %tile_index
    {
    Menu List Select Targets %target_index
    For %choptarget #TRUE #FALSE
    {
    Wait 0
    Gosub SimpleStatusCheck
    Set #LOBJECTID %CurrentSkillTool
    Set #LTARGETX %tile_X . %target_index
    Set #LTARGETY %tile_Y . %target_index
    Set #LTARGETZ %tile_Z . %target_index
    Set #LTARGETKIND 3
    Set #LTARGETTILE %tile_type . %target_index
    Event macro 17 0
    Target
    Event macro 22 0
    Wait 6s
    Gosub SimpleStatuscheck
    deletejournal
    scanjournal 1
    if Talas_DURANTE_UN in #JOURNAL
    {
    Wait 0
    Set %LookForSysmsg #FALSE
    Set %choptarget #FALSE
    }
    Set %LookForSysmsgTimeout #SCNT + 30
    For %LookForSysmsg #TRUE #FALSE
    {
    Wait 0
    If #SCNT < %LookForSysmsgTimeout
    Set %LookForSysmsg #TRUE
    If THAT_IS_TOO in #SYSMSG || NOT_ENOUGH in #SYSMSG || AQUI_NO_HAY in #SYSMSG
    {
    Wait 0
    Set %LookForSysmsg #FALSE
    Set %choptarget #FALSE
    }
    scanjournal 1
    If SOME_LOGS in #SYSMSG || YOU_HACK in #SYSMSG || YOU_PUT in #SYSMSG || TALAS_DURANTE_UN in #JOURNAL || YOUR_SKILL in #SYSMSG
    {
    Wait 0
    Set %LookForSysmsg #FALSE
    Set %choptarget #TRUE
    }
    }
    }
    Wait 3
    }
    scanjournal 1
    if Talas_DURANTE_UN in #JOURNAL || your in #journal
    {
    Wait 0
    Set %LookForSysmsg #FALSE
    Set %choptarget #TRUE
    }
    Return
    ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    Sub SimpleStatusCheck
    If #WEIGHT = N/A
    Gosub setupdesktop
    if #WEIGHT > #MAXWEIGHT - 40 || #WEIGHT > 360
    Gosub overweight
    For %FoundSkillTool #FALSE #TRUE
    {
    If %UseSkillToolEquiped #TRUE
    {
    finditem %Skilltools C_ , #CHARID
    if #FINDKIND = 0
    {
    Set %CurrentSkillTool #FINDID
    Set %FoundSkillTool #TRUE
    }
    else
    {
    Set %FoundSkillTool #FALSE
    FINDITEM %Skilltools C_ , #BackpackID
    IF #FINDKIND = 0
    {
    SET %CurrentSkillTool #FINDID
    SET #LHANDID #FINDID
    SET #RHANDID #FINDID
    event macro 24 1
    wait 1s
    event macro 24 2
    WAIT 1s
    }
    Else
    {
    ;Gosub SimpleCrafting <---------------------------------- ToDo
    Display OK You need the proper tool.$Script Paused.
    Paused
    }
    }
    }
    Else
    {
    FINDITEM %Skilltools C_ , #BackpackID
    IF #FINDKIND = 0
    {
    SET %CurrentSkillTool #FINDID
    Set %FoundSkillTool #TRUE
    }
    Else
    {
    Set %FoundSkillTool #FALSE
    ;Gosub SimpleCrafting <---------------------------------- ToDo
    Display OK You need the proper tool.$Script Paused.
    Paused
    }
    }
    }
    ;Hit point check, #Enemyid check <---------------------------------- ToDo
    Return
    ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    sub overweight
    ;Finditem %Logs C_ , #BACKPACKID
    ;if #FINDKIND = 0
    ; {
    ; Finditem %CarpentryTools C_ , #BACKPACKID
    ; If #FINDKIND = 0
    ; {
    ; Set #LOBJECTID #FINDID
    ; Event Macro 17
    ;
    ;
    ; <---------------------------------- ToDo
    ;
    ;
    If %autorail_waypointcounter > 0
    Gosub autorail_waypointmove TO
    gosub autorail_storagemove
    if %autorail_storagetype = BANK
    {
    msg bank$
    Set %WaitForBankBox #SCNT + 60
    For %OverweightWaitForBankBox #TRUE #False
    {
    wait 0
    if #CONTID = %autorail_storageid
    {
    wait 10
    Set %autorail_containerclickx #CONTPOSX + 50
    Set %autorail_containerclicky #CONTPOSY + 70
    Set %OverweightWaitForBankBox #FALSE
    }
    else
    Set %OverweightWaitForBankBox #TRUE
    }
    }
    finditem %Logs C_ , #BACKPACKID
    if #FINDKIND = 0
    {
    event drag #FINDID
    waitforstackgump:
    if #CONTNAME = stack_gump
    msg $
    else
    goto Waitforstackgump
    wait 20
    click %autorail_containerclickx %autorail_containerclicky p
    }
    If %autorail_waypointcounter > 0
    Gosub autorail_waypointmove FROM
    Gosub autorail_move
    Gosub TileScanner %SearchRadius TREE
    Return
    ;_________________________________________________ ______________________________
    ;Position the paperdoll, main pack, and Status bar.
    Sub SimpleDesktopSetup
    Gosub SimpleDesktopSetupWaitForGump 1 paperdoll_gump 262_324 #CHARID
    Wait 8
    If %MoveContainers
    Contpos 645 0
    Wait 8
    Gosub SimpleDesktopSetupWaitForGump 7 container_gump 230_204 #BACKPACKID
    wait 8
    If %MoveContainers
    Contpos 645 275
    wait 8
    Gosub SimpleDesktopSetupWaitForGump 2 status_gump 432_184 #CHARID
    Wait 8
    If %MoveContainers
    Contpos 0 500
    Wait 8
    if #clilang <> enu && %checklang
    {
    display OK # , clilang = #CLILANG $$Tu cliente debe estar en modo ingles para que funcione. Pon o cambia$
    + esta linea en uo.cfg. $$Nota: Debe incluirse en el Personaje que quieras usar.$$
    + UserLanguageCodeString=ENU$$Script_Halted.$$
    halt
    }
    Return
    ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    Sub SimpleDesktopSetupWaitForGump
    If #CONTNAME = %2 && #CONTSIZE = %3 && #CONTID = %4
    Return
    Event Macro 9 %1
    Wait 10
    Event Macro 8 %1
    Wait 10
    Set %WaitForGumpTimeout #SCNT + 20
    For %WaitForGumpLoop #FALSE #TRUE
    {
    Wait 0
    If ! ( #CONTNAME = %2 && #CONTSIZE = %3 && #CONTID = %4 )
    {
    If #SCNT < %WaitForGumpTimeout
    Set %WaitForGumpLoop #FALSE
    }
    Set %WaitForGumpLoop #TRUE
    }
    Return
    ;_________________________________________________ ______________________________
    ;Autorail Code
    Sub autorail_Setup
    autorail_SetupStart:
    Set #MENUBUTTON N/A
    Menu Text StatusMsg 4 4 Configuracion del camino al banco o a al container en casa: Presionar Camino.
    Menu Text StatusMsg 4 24 Para crear los puntos donde hay arboles: Presionar en Rail.
    Menu Button EUOButton1 8 164 75 25 P.Camino
    Menu Button EUOButton2 88 164 75 25 Rail
    GetSetupWaitForMenu:
    If #MENUBUTTON = EUOButton1
    {
    Menu Delete StatusMsg
    Menu Delete StatusMsgSave
    Menu Delete EUOButton1
    Menu Delete EUOButton2
    Gosub autorail_setwaypoints
    Goto autorail_SetupStart
    }
    If #MENUBUTTON = EUOButton2
    {
    Menu Delete StatusMsg
    Menu Delete StatusMsgSave
    Menu Delete EUOButton1
    Menu Delete EUOButton2
    Gosub autorail_setrail
    If %autorail_storageset = #TRUE
    Goto autorail_setupDone
    }
    goto GetSetupWaitForMenu
    autorail_setupDone:
    Return
    ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    ;use this sub to actually move along the rail.
    Sub autorail_move
    Menu List Select Rail %autorail_targetcounter
    autorail_movetotarget:
    move %autorail_pointx . %autorail_targetcounter %autorail_pointy . %autorail_targetcounter 0 60s
    If ( #CHARPOSX <> %autorail_pointx . %autorail_targetcounter ) && ( #CHARPOSY <> %autorail_pointy . %autorail_targetcounter )
    goto autorail_movetotarget
    If %autorail_pointtype . %autorail_targetcounter = WAYPOINT
    Set %autorail_waypointflag #TRUE
    else
    Set %autorail_waypointflag #FALSE
    If %autorail_movedirection = UP
    Set %autorail_targetcounter %autorail_targetcounter + 1
    If %autorail_movedirection = DOWN || %autorail_movedirection = N/A
    Set %autorail_targetcounter %autorail_targetcounter - 1
    If %autorail_targetcounter => ( %autorail_pointcounter - 1 ) || %autorail_movedirection = N/A
    Set %autorail_movedirection DOWN
    If %autorail_targetcounter < 2
    Set %autorail_movedirection UP
    if %autorail_waypointflag = #TRUE
    goto autorail_movetotarget
    else
    return
    ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    ;This sub moves to the point where your storage container is available.
    Sub autorail_storagemove
    autorail_storagemove:
    move %autorail_storagex %autorail_storagey 0 60s
    If ( #CHARPOSX <> %autorail_storagex ) && ( #CHARPOSY <> %autorail_storagey )
    Goto autorail_storagemove
    Return
    ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    ;This sub moves along waypoints to/from the storage location.
    Sub autorail_waypointmove
    If %1 = TO
    {
    For %autorail_targetwaypoint 1 %autorail_waypointcounter
    {
    autorail_waypointmovetotarget:
    Menu List Select Waypoint %autorail_targetwaypoint
    move %autorail_waypointx . %autorail_targetwaypoint %autorail_waypointy . %autorail_targetwaypoint 0 60s
    If ( #CHARPOSX <> %autorail_waypointx . %autorail_targetwaypoint ) && ( #CHARPOSY <> %autorail_waypointy . %autorail_targetwaypoint )
    Goto autorail_waypointmovetotarget
    }
    }
    if %1 = FROM
    {
    For %autorail_targetwaypoint %autorail_waypointcounter 1
    {
    autorail_waypointmovefromtarget:
    Menu List Select Waypoint %autorail_targetwaypoint
    move %autorail_waypointx . %autorail_targetwaypoint %autorail_waypointy . %autorail_targetwaypoint 0 60s
    If ( #CHARPOSX <> %autorail_waypointx . %autorail_targetwaypoint ) && ( #CHARPOSY <> %autorail_waypointy . %autorail_targetwaypoint )
    Goto autorail_waypointmovefromtarget
    }
    }
    Return
    ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    Sub autorail_setrail
    Set #MENUBUTTON N/A
    Menu Text StatusMsg 4 4 Para guardar un punto, presionar F9 o el boton Guardar. Se recomienda
    Menu Text StatusMsg 4 24 Guardar cada punto en el que se cambia de direccion. Cuando el camino este
    Menu Text StatusMsg 4 44 completado presionar F10 o el boton Hecho. Si te equivocas y quieres borrar un punto
    Menu Text StatusMsg 4 64 puedes presionar F12 o el boton borrar.
    Menu Button EUOButton1 4 164 90 25 F9:Guardar
    Menu Button EUOButton2 98 164 90 25 F10:Hecho
    Menu Button EUOButton3 192 164 90 25 F12:Borrar
    autorail_setrailgethotkey:
    Onhotkey F9
    Gosub autorail_savepoint
    Onhotkey F10
    Goto autorail_setrailend
    Onhotkey F12
    Gosub autorail_Deleterail
    if #MENUBUTTON = EUOButton1
    Gosub autorail_savepoint
    if #MENUBUTTON = EUOButton2
    Goto autorail_setrailend
    if #MENUBUTTON = EUOButton3
    Gosub autorail_Deleterail
    Wait 0
    goto autorail_setrailgethotkey
    autorail_setrailend:
    Set %autorail_targetcounter %autorail_pointcounter
    Menu Delete StatusMsg
    Menu Delete EUOButton1
    Menu Delete EUOButton2
    Menu Delete EUOButton3
    Return
    ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    Sub autorail_savepoint
    Menu Delete StatusMsgSave
    Set %autorail_pointcounter %autorail_pointcounter + 1
    Set %autorail_pointx . %autorail_pointcounter #CHARPOSX
    Set %autorail_pointy . %autorail_pointcounter #CHARPOSY
    Menu Text StatusMsgSave 4 144 Puntos Guardados %autorail_pointcounter
    Menu List add Rail %autorail_pointcounter , #spc , %autorail_pointx . %autorail_pointcounter , #spc , / , #spc , %autorail_pointy . %autorail_pointcounter
    Set #MENUBUTTON N/A
    Wait 10
    Return
    ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    Sub autorail_Deleterail
    Menu Delete StatusSaveMsg
    Menu Delete Rail
    menu list Create Rail 654 24 150 160
    Set %autorail_pointcounter 0
    Menu Text StatusMsgSave 4 144 Rail Borrado
    Return
    ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    Sub autorail_setwaypoints
    autorail_setwaypointsstart:
    Set %autorail_storageset #FALSE
    Set #MENUBUTTON N/A
    Menu Text StatusMsg 4 4 Para guardar un punto presionar el boton Guardar o F9. Se recomienda guardar
    Menu Text StatusMsg 4 24 cada punto donde se cambia de direccion. Cuando el camino esta completado
    Menu Text StatusMsg 4 44 presionar el boton Banco para usar el Banco como caja, o presionar el boton
    Menu Text StatusMsg 4 64 Contenedor o F11 para usar un Contenedor que tengamos donde queramos.
    Menu Button EUOButton1 4 164 90 25 F9:Guardar
    Menu Button EUOButton2 98 164 90 25 F10:Banco
    Menu Button EUOButton3 192 164 90 25 F11:Contenedor
    Menu Button EUOButton4 286 164 90 25 F12:Cancelar
    autorail_setwaypointsWaitForMenu:
    Set #MENUBUTTON N/A
    onhotkey F9
    Gosub autorail_setwaypoint
    onhotkey F10
    Gosub autorail_bank
    onhotkey F11
    Gosub autorail_container
    onhotkey F12
    Gosub autorail_DeleteWaypoints
    if #MENUBUTTON = EUOButton1
    Gosub autorail_setwaypoint
    if #MENUBUTTON = EUOButton2
    Gosub autorail_bank
    if #MENUBUTTON = EUOButton3
    Gosub autorail_container
    if #MENUBUTTON = EUOButton4
    Gosub autorail_DeleteWaypoints
    wait 0
    If #MENUBUTTON = CANCELSTORAGE
    {
    Goto autorail_setwaypointsstart
    }
    If %autorail_storageset = #TRUE
    {
    Gosub autorail_waypointmove FROM
    goto autorail_setwaypointsfinish
    }
    If %autorail_storageset = #FALSE
    {
    Goto autorail_setwaypointsWaitForMenu
    }
    autorail_setwaypointsfinish:
    Menu Delete StatusMsg
    Menu Delete StatusMsgSave
    Menu Delete EUOButton1
    Menu Delete EUOButton2
    Menu Delete EUOButton3
    Menu Delete EUOButton4
    Return
    ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    Sub autorail_opendoor
    ZPC_BQC_HQC_JQC
    CQC_MQC_KQC_UQC
    Return
    ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    Sub autorail_setwaypoint
    Menu Delete StatusMsgSave
    Set %autorail_waypointcounter %autorail_waypointcounter + 1
    Set %autorail_waypointx . %autorail_waypointcounter #CHARPOSX
    Set %autorail_waypointy . %autorail_waypointcounter #CHARPOSY
    Menu Text StatusMsgSave 4 144 Puntos Guardados %autorail_waypointcounter
    Menu List add Waypoint %autorail_waypointcounter , #spc , %autorail_waypointx . %autorail_waypointcounter , #spc , / , #spc , %autorail_waypointy . %autorail_waypointcounter
    Set #MENUBUTTON N/A
    Return
    ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    Sub autorail_DeleteWaypoints
    Menu Delete StatusSaveMsg
    Menu Delete Waypoint
    menu list Create Waypoint 502 24 150 160
    Set %autorail_waypointcounter 0
    Menu Text StatusMsgSave 4 144 Puntos Borrados
    Return
    ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    Sub autorail_container
    Menu Delete StatusMsg
    Menu Delete StatusMsgSave
    Menu Delete EUOButton1
    Menu Delete EUOButton2
    Menu Delete EUOButton3
    Menu Delete EUOButton4
    Set #MENUBUTTON N/A
    Set %autorail_storagetype CONTAINER
    Set %autorail_storagex #CHARPOSX
    Set %autorail_storagey #CHARPOSY
    Menu Text StatusMsg 4 4 Ahora debes estar en un punto en el cual puedas seleccionar el contenedor a usar para
    Menu Text StatusMsg 4 24 dejar los troncos.. Selecciona el contenedor a usar con el cursorrsor.Si te equivocas
    Menu Text StatusMsg 4 44 i quieres continuar creando puntos del camino, o quieres usar el banco en vez del contenedor
    Menu Text StatusMsg 4 64 selecciona cualquier otra cosa.
    Set #TARGCURS 1
    autorail_container_waittarget:
    If #TARGCURS = 0
    {
    Set %autorail_containerclickx #CURSORX
    Set %autorail_containerclicky #CURSORY
    }
    If #TARGCURS = 1
    {
    Wait 0
    Goto autorail_container_waittarget
    }
    Set %autorail_storageid #LTARGETID
    Set #LOBJECTID %autorail_storageid
    Menu Text StatusMsgSave 4 144 Container: %autorail_storageid %autorail_containerclickx %autorail_containerclicky
    Wait 10
    Event Macro 17 0
    Wait 20
    Menu Delete StatusMsg
    Menu Text StatusMsg 4 4 Esta ahora el contenedor que quieres usar abierto?
    Menu Button EUOButton1 8 164 75 25 Si
    Menu Button EUOButton2 88 164 75 25 No/Cancelar
    Set #MENUBUTTON N/A
    autorail_container_waitconfirmchoice:
    If #MENUBUTTON = EUOButton1
    {
    Set %autorail_storageset #TRUE
    }
    If #MENUBUTTON = EUOButton2
    {
    Set %autorail_storagetype N/A
    Set %autorail_storagex N/A
    Set %autorail_storagey N/A
    Set %autorail_storageid N/A
    Set #MENUBUTTON CANCELSTORAGE
    Set %autorail_storageset #FALSE
    }
    If #MENUBUTTON = N/A
    {
    goto autorail_container_waitconfirmchoice
    Set %autorail_storageset #FALSE
    }
    Set #MENUBUTTON N/A
    Menu Delete StatusMsg
    Menu Delete StatusMsgSave
    Menu Delete EUOButton1
    Menu Delete EUOButton2
    Return
    ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    Sub autorail_bank
    Menu Delete StatusMsg
    Menu Delete StatusMsgSave
    Menu Delete EUOButton1
    Menu Delete EUOButton2
    Menu Delete EUOButton3
    Menu Delete EUOButton4
    Set #MENUBUTTON N/A
    Set %autorail_storagetype BANK
    Set %autorail_storagex #CHARPOSX
    Set %autorail_storagey #CHARPOSY
    Menu Text StatusMsg 4 4 Debes estar ahora en un lugar en el qual puedas decir bank y se te abra el banco.
    Menu Text StatusMsg 4 24 de tu personaje. Si tu banco se abre diciendo bank, presiona Aceptar para guardar
    Menu Text StatusMsg 4 44 este punto y usar el banco como lugar donde guardar los troncos. Si no es asi ve a otro
    Menu Text StatusMsg 4 64 lugar y presiona Reintentar para ajustar tu posicion, o presiona Cancelar.
    menu Font Transparent #TRUE
    menu Font Align Left
    menu Font Name Lucinda Sans Unicode
    menu Font Size 14
    menu Font Style b
    menu Font Color Red
    Menu Text StatusMsg 4 90 Macro de Lumberjacking,
    menu Font Style bi
    Menu Text StatusMsg 4 110 Ultima Alianza
    menu Font Transparent #TRUE
    menu Font Align Left
    menu Font Name Lucinda Sans Unicode
    menu Font Size 10
    menu Font Style
    menu Font Color WindowText
    Menu Button EUOButton1 8 164 75 25 Aceptar
    Menu Button EUOButton2 87 164 75 25 Reintentar
    Menu Button EUOButton3 166 164 75 25 Cancelar
    autorail_bankopen:
    msg bank$
    Wait 20
    autorail_bankWaitBtn:
    If #MENUBUTTON = EUOButton1
    {
    Set %autorail_storageid #CONTID
    Set %autorail_storageset #TRUE
    Set %autorail_containerclickx #CONTPOSX + 30
    Set %autorail_containerclicky #CONTPOSY + 50
    Menu Delete StatusMsg
    Menu Delete EUOButton1
    Menu Delete EUOButton2
    Menu Delete EUOButton3
    Return
    }
    If #MENUBUTTON = EUOButton2
    {
    Set %autorail_storagetype N/A
    Set %autorail_storagex N/A
    Set %autorail_storagey N/A
    Set %autorail_storageid N/A
    Set %autorail_storageset #FALSE
    Goto autorail_bankopen
    }
    If #MENUBUTTON = EUOButton3
    {
    Set %autorail_storagetype N/A
    Set %autorail_storagex N/A
    Set %autorail_storagey N/A
    Set %autorail_storageid N/A
    Set #MENUBUTTON CANCELSTORAGE
    Set %autorail_storageset #FALSE
    Menu Delete StatusMsg
    Menu Delete EUOButton1
    Menu Delete EUOButton2
    Menu Delete EUOButton3
    Return
    }
    Goto autorail_bankWaitBtn
    Return
    ;_________________________________________________ ______________________________
    ;Tile Scan Code
    Sub TileScanner
    If %0 < 2
    Set %2 ALL
    Menu Text 4 4 Target Trees
    Menu List Create Targets 4 24 496 160
    Set %Scan_Low_X_Point #CHARPOSX - %1
    Set %Scan_High_X_Point #CHARPOSX + %1
    Set %Scan_Low_Y_Point #CHARPOSY - %1
    Set %Scan_High_Y_Point #CHARPOSY + %1
    Set %tile_index 0
    For %scan_X_Point %scan_Low_X_Point %scan_High_X_Point
    {
    For %scan_Y_point %scan_Low_Y_Point %scan_High_Y_Point
    {
    Tile cnt %Scan_X_Point %Scan_Y_Point
    For %tile_scan 1 #TILECNT
    {
    Tile get %Scan_X_Point %Scan_Y_Point %tile_scan
    Set %ZCompare #CHARPOSZ - #TILEZ abs
    If ( %2 in #TILENAME || %2 = ALL ) && %ZCompare < 19
    {
    Set %tile_index %tile_index + 1
    Set %Tile_Name . %Tile_Index #TILENAME
    Set %Tile_Type . %Tile_Index #TILETYPE
    Set %Tile_X . %Tile_Index %Scan_X_Point
    Set %Tile_Y . %Tile_Index %Scan_Y_Point
    Set %Tile_Z . %Tile_Index #TILEZ
    Set %Tile_CompareDistX abs ( #CHARPOSX - %Tile_X . %Tile_Index )
    Set %Tile_CompareDistY abs ( #CHARPOSY - %Tile_Y . %Tile_Index )
    If %Tile_CompareDistX > %Tile_CompareDistY
    Set %Tile_Distance . %Tile_Index %Tile_CompareDistX
    Else
    Set %Tile_Distance . %Tile_Index %Tile_CompareDistY
    Menu List Add Targets %Tile_Name . %Tile_Index , #spc , Type: , %Tile_Type . %Tile_Index , #spc , X: , %Tile_X . %Tile_Index , #spc , Y: , %Tile_Y . %Tile_Index , #spc , Z: , %Tile_Z . %Tile_Index , #spc , Dist.: , %Tile_Distance . %Tile_Index
    }
    }
    }
    }
    Return
    ;_________________________________________________ ______________________________
    ;Menu Code
    sub showSimpleLJ
    menu Clear
    menu Window Title Macro Lumberjaking Ultima Alianza
    menu Window Color BtnFace
    menu Window Size 808 193
    menu Font Transparent #true
    menu Font Align Left
    menu Font Name Lucinda Sans Unicode
    menu Font Size 10
    menu Font Style
    menu Font Color WindowText
    menu Font Align Left
    menu Font BGColor btnface
    Menu Text ListWaypointTitle 502 4 Puntos Camino
    menu list Create Waypoint 502 24 150 160
    Menu Text ListRailTitle 654 4 Puntos Rail
    menu list Create Rail 654 24 150 160
    menu Show 0 513
    return
    Citar Citar
  3. 20-Jan-2010 #3
    Ravendor
    Ravendor está desconectado
    Fecha de ingreso
    January-2010
    Edad
    39
    Mensajes
    117
    Reputacion: 10
    Poder de reputación
    15

    Respuesta: Macros lumber ayuda

    gracias por la macros
    Citar Citar
  4. 21-Jan-2010 #4
    Kira
    Kira está desconectado
    Avatar de Kira
    Fecha de ingreso
    February-2007
    Edad
    38
    Mensajes
    3.022
    Reputacion: 10
    Poder de reputación
    15

    Respuesta: Macros lumber ayuda

    Para arreglar lo q te paso tenes q cambiar las frases q busca en el journal ya q las tiene en ingles y actualmente estan en español ... sin cambiar nada esa macro no funciona muy bien (no tira los troncos por ejemplo por lo cual te terminas cansando y se jode la macro )
    __________________________________________________ _____________________________

    <a href=http://www.imaxenes.com/imagenes/death_note1zl86zi.gif target=_blank>http://www.imaxenes.com/imagenes/death_note1zl86zi.gif</a>

    JAJAJAJ clickea y demandame www.own3d.es
    Citar Citar
  5. 21-Jan-2010 #5
    Ravendor
    Ravendor está desconectado
    Fecha de ingreso
    January-2010
    Edad
    39
    Mensajes
    117
    Reputacion: 10
    Poder de reputación
    15

    Respuesta: Macros lumber ayuda

    Perfect, gracias por la explicacion se agradece , adios
    Citar Citar
« Tema anterior | Próximo tema »

Temas similares

  1. Ayuda con adaptacion de macros
    Por Charls Mouller en el foro Macros
    Respuestas: 5
    Último mensaje: 19-Sep-2009, 22:14
  2. ayuda macros
    Por Novella en el foro Macros
    Respuestas: 1
    Último mensaje: 20-Mar-2008, 14:59

Permisos de publicación

  • No puedes crear nuevos temas
  • No puedes responder temas
  • No puedes subir archivos adjuntos
  • No puedes editar tus mensajes
  •  

Reglas del foro

YoutubeFbChat IRCTwit