Subir

Resultados 1 al 1 de 1

Tema: Macro Bods de Escriba por enDings

  1. 12-Jan-2014 #1
    enDings
    enDings está desconectado
    Fecha de ingreso
    March-2007
    Mensajes
    194
    Reputacion: 10
    Poder de reputación
    15

    Macro Bods de Escriba por enDings

    Código:
    ; Nombre de la macro: Bod de escriba
; Autor: enDings
; Servidor: Ultima Alianza
; ¿Qué hace?: Los Bods de Escriba
;-------------------------------------------------

set %entregar No ;Elegir si queremos entregar el Bod o no
set %vendorbod VYHXF   ;ID DEL VENDOR PARA DARLE EL BOD

;--------------
;--------------
;--------------
;--------------
;--------------


set %maxmana #MAXMANA
set %cnt 20 ;cantidad total
set %perga MMF
set %ink PBG
set %peso #MAXWEIGHT - 40
set %cantidad 0
set %x 325 ;Coordinadas de FABRICAR ULTIMO
set %y 494


;--------------
;--------------
;--------------
;--------------
;--------------
;--------------
;--------------
;--------------


deletejournal

Menu:

menu HideEUO
menu clear
menu show
menu window color black
menu window size 230 130
menu Font Align center
menu Font Name calibri
menu Font Size 9
menu Window Title Elige...
;-------------
menu button prot 5 5 70 20 Proteccion
menu button conv 80 5 70 20 Conv. Demon
menu button arr 155 5 70 20 Ar. reactiva
;-----
menu button desc 5 30 70 20 Descarga
menu button tele 80 30 70 20 Teleport
menu button debi 155 30 70 20 Debilidad
;-----
menu button poli 5 55 70 20 Poliformismo
menu button elem 80 55 70 20 Conv. Elemen
menu button flame 155 55 70 20 Llamarada
;-----
menu button env 5 80 70 20 Envenenar
menu button magia 80 80 70 20 Ref. Magia
menu button drain 155 80 70 20 Drenar Mana
;-----
menu button light 5 105 70 20 Relampago
menu button elim 80 105 70 20 Elim. Trampa
menu button criatura 155 105 70 20 Conv. Criatura
;------------------


setuotitle Macro de bod de Escriba by enDings | Pergaminos realizados: %cantidad
set #menubutton n/a


loop:
if #menubutton <> n/a
{
gosub #menubutton
set #menubutton n/a
}
goto loop

;Armadura reactiva
sub prot
set %pergamino JYL
set %mana 6
menu hide
display yesno Seleccionas Proteccion
if #dispRes = yes
   {
   event Sysmessage Empecemos....
   goto Pergamino
   }
if #dispRes = no
   {
   menu hide
   goto menu
   }
gosub prot
goto loop


;Convocar demonio
sub conv
set %pergamino FVL
set %mana 50
menu hide
display yesno Seleccionas Convocar Deminio
if #dispRes = yes
   {
   event Sysmessage Empecemos....
   goto Pergamino
   }
if #dispRes = no
   {
   menu hide
   goto menu
   }
gosub conv
goto loop

;Armadura Reactiva
sub arr
set %pergamino NXL
set %mana 4
menu hide
display yesno Seleccionas Armadura Reactiva
if #dispRes = yes
   {
   event Sysmessage Empecemos....
   goto Pergamino
   }
if #dispRes = no
   {
   menu hide
   goto menu
   }
gosub arr
goto loop

;Descarga Electrica
sub desc
set %pergamino GUL
set %mana 20
menu hide
display yesno Seleccionas Descarga Electrica
if #dispRes = yes
   {
   event Sysmessage Empecemos....
   goto Pergamino
   }
if #dispRes = no
   {
   menu hide
   goto menu
   }
gosub desc
goto loop

;Teletransportarse
sub tele
set %pergamino UTL
set %mana 11
menu hide
display yesno Seleccionas Teletransportarse
if #dispRes = yes
   {
   event Sysmessage Empecemos....
   goto Pergamino
   }
if #dispRes = no
   {
   menu hide
   goto menu
   }
gosub tele
goto loop

;Debilidad
sub debi
set %pergamino WXL
set %mana 4
menu hide
display yesno Seleccionas Debilidad
if #dispRes = yes
   {
   event Sysmessage Empecemos....
   goto Pergamino
   }
if #dispRes = no
   {
   menu hide
   goto menu
   }
gosub debi
goto loop

;Poliformismo
sub poli
set %pergamino UUL
set %mana 30
menu hide
display yesno Seleccionas Poliformismo
if #dispRes = yes
   {
   event Sysmessage Empecemos....
   goto Pergamino
   }
if #dispRes = no
   {
   menu hide
   goto menu
   }
gosub poli
goto loop

;Convocar Elemental
sub elem
set %pergamino CVL
set %mana 50
menu hide
display yesno Seleccionas Convocar Elemental
if #dispRes = yes
   {
   event Sysmessage Empecemos....
   goto Pergamino
   }
if #dispRes = no
   {
   menu hide
   goto menu
   }
gosub elem
goto loop

;Llamarada
sub flame
set %pergamino NUL
set %mana 40
menu hide
display yesno Seleccionas Llamarada
if #dispRes = yes
   {
   event Sysmessage Empecemos....
   goto Pergamino
   }
if #dispRes = no
   {
   menu hide
   goto menu
   }
gosub flame
goto loop

;Envenenar
sub env
set %pergamino STL
set %mana 9
menu hide
display yesno Seleccionas Envenenar
if #dispRes = yes
   {
   event Sysmessage Empecemos....
   goto Pergamino
   }
if #dispRes = no
   {
   menu hide
   goto menu
   }
gosub env
goto loop


;Reflejar Magia
sub magia
set %pergamino IUL
set %mana 10
menu hide
display yesno Seleccionas Reflejar Magia
if #dispRes = yes
   {
   event Sysmessage Empecemos....
   goto Pergamino
   }
if #dispRes = no
   {
   menu hide
   goto menu
   }
gosub magia
goto loop


;Drenar mana
sub drain
set %pergamino BUL
set %mana 10
menu hide
display yesno Seleccionas Drenar Mana
if #dispRes = yes
   {
   event Sysmessage Empecemos....
   goto Pergamino
   }
if #dispRes = no
   {
   menu hide
   goto menu
   }
gosub drain
goto loop


;Relampago
sub light
set %pergamino CUL
set %mana 10
menu hide
display yesno Seleccionas Relampago
if #dispRes = yes
   {
   event Sysmessage Empecemos....
   goto Pergamino
   }
if #dispRes = no
   {
   menu hide
   goto menu
   }
gosub light
goto loop


;Eliminar Trampa
sub elim
set %pergamino KYL
set %mana 6
menu hide
display yesno Seleccionas Eliminar Trampa
if #dispRes = yes
   {
   event Sysmessage Empecemos....
   goto Pergamino
   }
if #dispRes = no
   {
   menu hide
   goto menu
   }
gosub elim
goto loop


;Convocat Criatura
sub criatura
set %pergamino EUL
set %mana 14
menu hide
display yesno Seleccionas Convocar Criatura
if #dispRes = yes
   {
   event Sysmessage Empecemos....
   goto Pergamino
   }
if #dispRes = no
   {
   menu hide
   goto menu
   }
gosub criatura
goto loop


Pergamino:

set %i #JINDEX
Finditem %perga C_ , #BACKPACKID
set #LOBJECTID #FINDId
event macro 17

setuotitle SELECCIONA EL PERGAMINO Y PULSA F12
event sysmessage Selecciona el pergamino que quieras hacer
event sysmessage Y presiona F12

loop2:
onhotkey F12
   {
   goto inicio:
   }
goto loop2

inicio:
setuotitle Macro de bod de Escriba by enDings | Pergaminos realizados: %cantidad
finditem %pergamino C_ , #BACKPACKID
set %cantidad #FINDSTACK

if %cantidad = %cnt
   {
   click 150 150 r
   gosub meter
   }

finditem %ink C_ , #BACKPACKID
if #FINDCNT =< 1
   {
   display ok No hay tinta
   stop
   }

finditem %perga C_ , #BACKPACKID
if #FINDSTACK = 0
   {
  display ok No hay pergaminos en blanco
  stop
  }


if #MANA < %mana
   {
   gosub meditar
   }

gosub crearperga


sub crearperga

wait 15
click %x %y d
wait 7s

goto inicio




sub meditar
set %inc #Jindex
event macro 13 46
wait 55
set %fin #jindex
for %p %inc %fin
Scanjournal %p
if mRc:_Pierdes_la_concentracion in #journal
   {
   gosub meditar
   }
gosub mana

sub mana
if #mana => %maxmana
   {
   wait 40
   goto inicio
   }
gosub mana

sub meter
finditem TVH C_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17
wait 10
click 351 222 f
wait 10
gosub meterpergas

sub meterpergas
finditem %pergamino C_ , #BACKPACKID
if #FINDSTACK = 0 || #FINDCNT = 0
{
gosub %entregar
}
set #LTARGETID #FINDID
wait 10
event macro 22
wait 10
gosub meterpergas

sub si
finditem TVH C_ , #BACKPACKID
wait 5
exevent drag #FINDID
wait 5
exevent dropc %vendorbod ;Vendor
wait 5
msg vendor bod $
wait 5
display ok Hecho
stop

sub no
display ok Hecho
stop
    Instrucciones de uso:

    - Primero de todo elegiremos si queremos que entregue el bod o no, hay ocasiones que los queremos para los bods largos. Para ello modificaremos la variable %entregar a "Si" o "No" sin comillas.
    - Para poder entregar el Bod necesitaremos la ID del vendor y estar a su lado, y modificar la variable %vendorbod, para ello deberemos "targetear" al vendor, bien con las tijeras, bien con lo que querais, luego nos dirigiremos al EasyUo y en la derecha aparecerá #LTARGETID, click derecho copy value y lo copiaremos en la variable que hemos dicho antes.
    - Bien, ya esta todo en su sitio, asi que le daremos al play y seguiremos las instrucciones:

    · Nos pedirá en primer lugar que pergamino queremos hacer en un menu muy intuitivo, lo seleccionamos y nos pedirá confirmación.
    · Después ya en el UO, nos pedira seleccionar el hechizo/pergamino que queremos hacer, lo elegiremos y cuando haga el pergamino presionaremos F12
    · Hecho esto solo nos quedara esperar a que haga los pergaminos, los meta en el Bod y si hemos seleccionado que los entregue, a que lo haga y pida el siguiente!

    Espero que os sirva de ayuda, cualquier duda aqui y cualquier fallo también, no he probado todos los pergaminos porque no me han salido, pero en principio deberia funcionar correctamente.

    Un saludo
    enDings
    Última edición por enDings; 13-Jan-2014 a las 01:15
    http://www.ultima-alianza.com/foro/image.php?type=sigpic&userid=2729&dateline=1215970 276
    Citar Citar
« Tema anterior | Próximo tema »

Temas similares

  1. Bods Escriba
    Por darksplit en el foro Sugerencias
    Respuestas: 2
    Último mensaje: 09-Jun-2010, 00:01
  2. Bods Escriba
    Por PacoPorras en el foro Dudas y Preguntas
    Respuestas: 4
    Último mensaje: 28-Feb-2009, 23:16
  3. Bods de Escriba
    Por D1ab0l1c0 en el foro Dudas y Preguntas
    Respuestas: 1
    Último mensaje: 19-Aug-2008, 18:16
  4. Bods de escriba
    Por llou en el foro Dudas y Preguntas
    Respuestas: 9
    Último mensaje: 10-Apr-2007, 21:44
  5. Bods de escriba
    Por -Brejo- en el foro Dudas y Preguntas
    Respuestas: 0
    Último mensaje: 10-Apr-2007, 21:08

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