[Aporte] Un par de macros utiles

[javiercv]

Buenas,

Os traigo 2 macros más que he hecho.

La primera es para saber información de un item (ID, tipo, etc)... muy útil para quien haga macros (al menos a mi me lo ha sido :P)

;================================================= ================== ;Menú para saber la información de un item by JavierCV: ;================================================= ================== gosub Menu: Comienzo: if #menubutton <> n/a { gosub #menubutton set #menubutton n/a goto loop sub EUOButton1 SET #TARGCURS 1 WHILE #TARGCURS = 1 WAIT 5 FINDITEM #LTARGETID wait 5 event property #LTARGETID DISPLAY OK ID : #LTARGETID $$ +TYPE : #FINDTYPE $$ +COLOR : #FINDCOL $$ +PROPIEDADES : #PROPERTY return } GoTo Comienzo: ;================================================= =========== ; Crear menú: ;================================================= =========== sub Menu: { menu Clear menu Window Title menu Window Size 200 39 menu Font Size 8 menu Button EUOButton1 2 2 196 35 SELECT menu Show return }

El segundo, es un macro "mueveItems", seleccionas el contenedor donde tienes los items que quieres mover (sierras, plumas, martillos, herramientas de artesano, lo que sea...), después seleccionas el item que quieres mover, y por ultimo el contenedor donde quieres dejarlo. Después solo se le ha de dar a start para que empiece a mover los items... (a mi por lo menos me es muy util para el currela)

;================================================= == ;MueveItems by JavierCV ;================================================= == ;MSG INICIAL======================================== event sysmessage Macro MueveItems by JavierCV event sysmessage ------------------------- event sysmessage Macro para mover items entre contenedores. event sysmessage Recuerda tener abiertos ambos contenedores. event sysmessage ------------------------- ;================================================= == ;================================================= == gosub Menu: set %ini 0 Comienzo: if #menubutton <> n/a { gosub #menubutton set #menubutton n/a ;CONTENEDOR DONDE ESTÁN LOS ITEMS QUE QUIERES MOVER sub EUOButton1 event sysmessage Selecciona el contenedor donde estan los items SET #TARGCURS 1 WHILE #TARGCURS = 1 WAIT 5 FINDITEM #LTARGETID set %container1 #LTARGETID menu Text EUOLabel1 235 15 %container1 return ;ITEMS QUE QUIERES MOVER sub EUOButton2 event sysmessage Selecciona el item que quieres mover SET #TARGCURS 1 WHILE #TARGCURS = 1 WAIT 5 FINDITEM #LTARGETID set %item #FINDTYPE menu Text EUOLabel2 235 55 %item return ;CONTENEDOR DONDE LOS QUIERES DEJAR sub EUOButton3 event sysmessage Selecciona el contenedor donde quieres dejar los items SET #TARGCURS 1 WHILE #TARGCURS = 1 WAIT 5 FINDITEM #LTARGETID set %container2 #LTARGETID menu Text EUOLabel3 235 95 %container2 return ;START / STOP sub EUOButton4 if %ini = 0 { set %ini 1 } else { set %ini 0 } return } ;MUEVE LOS ITEMS MIENTRAS LA CANTIDAD SEA SUPERIOR A 0 ;================================================= == if %ini = 1 { findItem %item C_ , %container1 if #findcnt > 0 { exevent drag #FINDID #FINDSTACK wait 8 Exevent Dropc %container2 wait 8 } } GoTo Comienzo: ;================================================= == ;Renderizar Menú==================================== sub Menu: menu Clear menu Window Title MueveItems By JavierCV menu Window Size 300 165 menu Font Size 8 menu Text EUOLabelb1a 5 7 Selecciona el contenedor menu Text EUOLabelb1b 5 22 donde está el item: menu Button EUOButton1 145 5 80 35 SELECT menu Text EUOLabelb2a 5 47 Selecciona el item menu Text EUOLabelb2b 5 62 que quieres mover: menu Button EUOButton2 145 45 80 35 SELECT menu Text EUOLabelb3a 5 87 Selecciona el contenedor menu Text EUOLabelb3b 5 102 donde quieres dejar el item: menu Button EUOButton3 145 85 80 35 SELECT menu Button EUOButton4 145 125 150 35 START / STOP menu Text EUOLabel1 235 15 ............. menu Text EUOLabel2 235 55 ............. menu Text EUOLabel3 235 95 ............. menu Show return ;================================================= ==

Si encontráis cualquier fallo o mejora que se le pueda añadir, no dudéis en decírmelo,

Saludos,

[patronun]

Buenas las dos , la segunda sobre todo me ha encantado.
Blesss