Ecco a voi uno script che ho creato visto che sto macrando inscription... ci ho messo tipo 2 ore a farlo quindi nn è nulla di che ma funziona bene e fa tutto anche lasciandolo away....
Per capire come funziona leggetevi le prime poche righe e capite tutto
Se trovate bug o problemi vari postate qua o chiamate in icq (meglio la prima) che vedo di sistemarli e i fate un favore visto che anche io sto macrando in questo momento xD
Per capire come funziona leggetevi le prime poche righe e capite tutto

Se trovate bug o problemi vari postate qua o chiamate in icq (meglio la prima) che vedo di sistemarli e i fate un favore visto che anche io sto macrando in questo momento xD
KnIvEs ThE EvIL Inscription Trainer 1.0.0
; Questo Script macra Inscription da 27 a 100 anche completamente away. Questo perchè fino a 27
; si compra dagli npc maghi di Luna :P
; Le scroll prodotte verranno messe in un container secure N.B: DEVE ESSERE UNA BAG...
; Per avviarlo vi basta avere almeno 100 reagenti per tipo,
; almeno 50 blank scrolls e qualche penna nel backpack o nel conteiner secure...
; Inoltre non dovete avere macro settate sui tasti 1 0 e invio...
; Questo Script appena avviato ogni volta vi chiederà di targettare il conteiner secure che ricordo deve
; essere una bag però se volete evitare questa seccatura vi basterà seguire queste istruzioni:
; 1)togli ; dall'inizio della prossima riga
;set %secure
; 2)fate doppio click sul conteiner ingame
; 3)nella finestra di easy a destra espandete il menu last action e copiate il valore
; di #LOBJECTID
; 4)copiate quel valore accanto alla variabile %secure qui sopra lasciando esattamente uno spazio in mezzo
; (esempio: set %secure NQUUFND)
; 5)mettete un ; come primo carattere della prossima riga (come ho fatto io in queste righe)
gosub setta_secure
sub setta_secure
msg Clikka Sulla Bag Dove Hai Le Risorse E Verranno Messe Le Scroll$
set #targcurs 1
_waitfortargcurs:
if #targcurs = 1 2
wait 1
goto _waitfortargcurs
set %secure #ltargetid
return
set %fireball GYL
set %recall WTL
set %summon EUL
set %reveal MUL
set %flame NUL
set %resurrect VUL
set %pen PBG
set %blank DPF
set %black KUF
set %blood JUF
set %garlic KZF
set %ginseng JZF
set %mandrake MZF
set %night WZF
set %spider RZF
set %sulfurus SZF
main:
event macro 8 7
wait 5
gosub check_blank
wait 2
gosub check_pen
wait 2
gosub check_scrolls
wait 2
gosub check_skill
wait 2
gosub make_scrolls
goto main
sub check_blank
finditem %blank c_ , #backpackid
if #findkind = -1
{
gosub take_blank
}
return
sub take_blank
set #lobjectid %secure
wait 5
event macro 17 0
wait 10
finditem %blank c_ , %secure
if #FINDSTACK < 50
{
msg Metti delle scroll nel secure container e riavvia lo script.$
halt
}
event macro 8 7
wait 10
set %clickx #contposx + 50
set %clicky #contposy + 155
event drag #findid
wait 10
key 5
key 0
key enter
wait 10
click %clickx %clicky
wait 5
return
sub check_pen
finditem %pen c_ , #backpackid
if #findkind = -1
{
gosub take_pen
}
return
sub take_pen
set #lobjectid %secure
wait 5
event macro 17 0
wait 10
finditem %pen c_ , %secure
if #FINDkind = -1
{
msg Metti delle pen nel secure container e riavvia lo script.$
halt
}
event macro 8 7
wait 10
set %clickx #contposx + 50
set %clicky #contposy + 155
event drag #findid
wait 10
click %clickx %clicky
wait 5
return
sub check_scrolls
finditem %fireball c_ , #backpackid
if #FINDSTACK > 29
{
gosub drop_scrolls #findid
}
finditem %recall c_ , #backpackid
if #FINDSTACK > 29
{
gosub drop_scrolls #findid
}
finditem %summon c_ , #backpackid
if #FINDSTACK > 29
{
gosub drop_scrolls #findid
}
finditem %reveal c_ , #backpackid
if #FINDSTACK > 29
{
gosub drop_scrolls #findid
}
finditem %flame c_ , #backpackid
if #FINDSTACK > 29
{
gosub drop_scrolls #findid
}
finditem %resurrect c_ , #backpackid
if #FINDSTACK > 29
{
gosub drop_scrolls #findid
}
return
sub drop_scrolls
event macro 8 7
wait 10
set #lobjectid %secure
wait 5
event macro 17 0
wait 10
set %clickx #contposx + 29
set %clicky #contposy + 127
event drag %1
wait 10
key 3
key 0
key enter
wait 10
click %clickx %clicky
wait 5
return
sub check_skill
chooseskill insc
if #skill > 250 && #skill < 380
{
gosub check_reag 1 0 0 0 0 0 0 0
set %click1x 30
set %click1y 132
set %click2x 235
set %click2y 89
}
if #skill > 379 && #skill < 530
{
gosub check_reag 1 1 0 0 1 0 0 0
gosub check_reag 1 1 0 0 1 0 0 0
gosub check_reag 1 1 0 0 1 0 0 0
set %click1x 30
set %click1y 151
set %click2x 235
set %click2y 210
}
if #skill > 529 && #skill < 670
{
gosub check_reag 0 1 0 0 1 0 1 0
gosub check_reag 0 1 0 0 1 0 1 0
gosub check_reag 0 1 0 0 1 0 1 0
set %click1x 30
set %click1y 170
set %click2x 235
set %click2y 210
}
if #skill > 669 && #skill < 810
{
gosub check_reag 0 1 0 0 0 0 0 1
gosub check_reag 0 1 0 0 0 0 0 1
set %click1x 30
set %click1y 188
set %click2x 235
set %click2y 210
}
if #skill > 809 && #skill < 950
{
gosub check_reag 0 0 0 0 0 0 1 1
gosub check_reag 0 0 0 0 0 0 1 1
set %click1x 30
set %click1y 210
set %click2x 235
set %click2y 110
}
if #skill > 949 && #skill < 1000
{
gosub check_reag 0 1 1 1 0 0 0 0
gosub check_reag 0 1 1 1 0 0 0 0
gosub check_reag 0 1 1 1 0 0 0 0
set %click1x 30
set %click1y 230
set %click2x 235
set %click2y 110
}
if #skill = 1000
{
msg Complimenti sei a 100 inscription!$
halt
}
return
sub check_reag
if %1 = 1
{
finditem %black c_ , #backpackid
if #findkind = -1
{
gosub take_reag 1 0 0 0 0 0 0 0
}
}
if %2 = 1
{
finditem %blood c_ , #backpackid
if #findkind = -1
{
gosub take_reag 0 1 0 0 0 0 0 0
}
}
if %3 = 1
{
finditem %garlic c_ , #backpackid
if #findkind = -1
{
gosub take_reag 0 0 1 0 0 0 0 0
}
}
if %4 = 1
{
finditem %ginseng c_ , #backpackid
if #findkind = -1
{
gosub take_reag 0 0 0 1 0 0 0 0
}
}
if %5 = 1
{
finditem %mandrake c_ , #backpackid
if #findkind = -1
{
gosub take_reag 0 0 0 0 1 0 0 0
}
}
if %6 = 1
{
finditem %night c_ , #backpackid
if #findkind = -1
{
gosub take_reag 0 0 0 0 0 1 0 0
}
}
if %7 = 1
{
finditem %spider c_ , #backpackid
if #findkind = -1
{
gosub take_reag 0 0 0 0 0 0 1 0
}
}
if %8 = 1
{
finditem %sulfurus c_ , #backpackid
if #findkind = -1
{
gosub take_reag 0 0 0 0 0 0 0 1
}
}
return
sub take_reag
if %1 = 1
{
set #lobjectid %secure
wait 5
event macro 17 0
wait 10
finditem %black c_ , %secure
if #FINDSTACK < 100
{
msg Metti i reagenti nel secure container e riavvia lo script.$
halt
}
event macro 8 7
wait 10
set %clickx #contposx + 50
set %clicky #contposy + 155
event drag #findid
wait 10
key 1
key 0
key 0
key enter
wait 10
click %clickx %clicky
wait 5
}
if %2 = 1
{
set #lobjectid %secure
wait 5
event macro 17 0
wait 10
finditem %blood c_ , %secure
if #FINDSTACK < 100
{
msg Metti i reagenti nel secure container e riavvia lo script.$
halt
}
event macro 8 7
wait 10
set %clickx #contposx + 50
set %clicky #contposy + 155
event drag #findid
wait 10
key 1
key 0
key 0
key enter
wait 5
click %clickx %clicky
wait 10
}
if %3 = 1
{
set #lobjectid %secure
wait 5
event macro 17 0
wait 10
finditem %garlic c_ , %secure
if #FINDSTACK < 100
{
msg Metti i reagenti nel secure container e riavvia lo script.$
halt
}
event macro 8 7
wait 10
set %clickx #contposx + 50
set %clicky #contposy + 155
event drag #findid
wait 10
key 1
key 0
key 0
key enter
wait 10
click %clickx %clicky
wait 5
}
if %4 = 1
{
set #lobjectid %secure
wait 5
event macro 17 0
wait 10
finditem %ginseng c_ , %secure
if #FINDSTACK < 100
{
msg Metti i reagenti nel secure container e riavvia lo script.$
halt
}
event macro 8 7
wait 10
set %clickx #contposx + 50
set %clicky #contposy + 155
event drag #findid
wait 10
key 1
key 0
key 0
key enter
wait 10
click %clickx %clicky
wait 5
}
if %5 = 1
{
set #lobjectid %secure
wait 5
event macro 17 0
wait 10
finditem %mandrake c_ , %secure
if #FINDSTACK < 100
{
msg Metti i reagenti nel secure container e riavvia lo script.$
halt
}
event macro 8 7
wait 10
set %clickx #contposx + 50
set %clicky #contposy + 155
event drag #findid
wait 10
key 1
key 0
key 0
key enter
wait 10
click %clickx %clicky
wait 5
}
if %6 = 1
{
set #lobjectid %secure
wait 5
event macro 17 0
wait 10
finditem %night c_ , %secure
if #FINDSTACK < 100
{
msg Metti i reagenti nel secure container e riavvia lo script.$
halt
}
event macro 8 7
wait 10
set %clickx #contposx + 50
set %clicky #contposy + 155
event drag #findid
wait 10
key 1
key 0
key 0
key enter
wait 10
click %clickx %clicky
wait 5
}
if %7 = 1
{
set #lobjectid %secure
wait 5
event macro 17 0
wait 10
finditem %spider c_ , %secure
if #FINDSTACK < 100
{
msg Metti i reagenti nel secure container e riavvia lo script.$
halt
}
event macro 8 7
wait 10
set %clickx #contposx + 50
set %clicky #contposy + 155
event drag #findid
wait 10
key 1
key 0
key 0
key enter
wait 10
click %clickx %clicky
wait 5
}
if %8 = 1
{
set #lobjectid %secure
wait 5
event macro 17 0
wait 10
finditem %sulfurus c_ , %secure
if #FINDSTACK < 100
{
msg Metti i reagenti nel secure container e riavvia lo script.$
halt
}
event macro 8 7
wait 10
set %clickx #contposx + 50
set %clicky #contposy + 155
event drag #findid
wait 10
key 1
key 0
key 0
key enter
wait 10
click %clickx %clicky
wait 5
}
return
sub make_scrolls
event macro 8 7
wait 5
finditem %pen c_ , #backpackid
set #lobjectid #findid
event macro 17 0
wait 10
set %clickx #contposx + %click1x
set %clicky #contposy + %click1y
click %clickx %clicky
wait 5
set %clickx #contposx + %click2x
set %clicky #contposy + %click2y
click %clickx %clicky
wait 30
return
; Questo Script macra Inscription da 27 a 100 anche completamente away. Questo perchè fino a 27
; si compra dagli npc maghi di Luna :P
; Le scroll prodotte verranno messe in un container secure N.B: DEVE ESSERE UNA BAG...
; Per avviarlo vi basta avere almeno 100 reagenti per tipo,
; almeno 50 blank scrolls e qualche penna nel backpack o nel conteiner secure...
; Inoltre non dovete avere macro settate sui tasti 1 0 e invio...
; Questo Script appena avviato ogni volta vi chiederà di targettare il conteiner secure che ricordo deve
; essere una bag però se volete evitare questa seccatura vi basterà seguire queste istruzioni:
; 1)togli ; dall'inizio della prossima riga
;set %secure
; 2)fate doppio click sul conteiner ingame
; 3)nella finestra di easy a destra espandete il menu last action e copiate il valore
; di #LOBJECTID
; 4)copiate quel valore accanto alla variabile %secure qui sopra lasciando esattamente uno spazio in mezzo
; (esempio: set %secure NQUUFND)
; 5)mettete un ; come primo carattere della prossima riga (come ho fatto io in queste righe)
gosub setta_secure
sub setta_secure
msg Clikka Sulla Bag Dove Hai Le Risorse E Verranno Messe Le Scroll$
set #targcurs 1
_waitfortargcurs:
if #targcurs = 1 2
wait 1
goto _waitfortargcurs
set %secure #ltargetid
return
set %fireball GYL
set %recall WTL
set %summon EUL
set %reveal MUL
set %flame NUL
set %resurrect VUL
set %pen PBG
set %blank DPF
set %black KUF
set %blood JUF
set %garlic KZF
set %ginseng JZF
set %mandrake MZF
set %night WZF
set %spider RZF
set %sulfurus SZF
main:
event macro 8 7
wait 5
gosub check_blank
wait 2
gosub check_pen
wait 2
gosub check_scrolls
wait 2
gosub check_skill
wait 2
gosub make_scrolls
goto main
sub check_blank
finditem %blank c_ , #backpackid
if #findkind = -1
{
gosub take_blank
}
return
sub take_blank
set #lobjectid %secure
wait 5
event macro 17 0
wait 10
finditem %blank c_ , %secure
if #FINDSTACK < 50
{
msg Metti delle scroll nel secure container e riavvia lo script.$
halt
}
event macro 8 7
wait 10
set %clickx #contposx + 50
set %clicky #contposy + 155
event drag #findid
wait 10
key 5
key 0
key enter
wait 10
click %clickx %clicky
wait 5
return
sub check_pen
finditem %pen c_ , #backpackid
if #findkind = -1
{
gosub take_pen
}
return
sub take_pen
set #lobjectid %secure
wait 5
event macro 17 0
wait 10
finditem %pen c_ , %secure
if #FINDkind = -1
{
msg Metti delle pen nel secure container e riavvia lo script.$
halt
}
event macro 8 7
wait 10
set %clickx #contposx + 50
set %clicky #contposy + 155
event drag #findid
wait 10
click %clickx %clicky
wait 5
return
sub check_scrolls
finditem %fireball c_ , #backpackid
if #FINDSTACK > 29
{
gosub drop_scrolls #findid
}
finditem %recall c_ , #backpackid
if #FINDSTACK > 29
{
gosub drop_scrolls #findid
}
finditem %summon c_ , #backpackid
if #FINDSTACK > 29
{
gosub drop_scrolls #findid
}
finditem %reveal c_ , #backpackid
if #FINDSTACK > 29
{
gosub drop_scrolls #findid
}
finditem %flame c_ , #backpackid
if #FINDSTACK > 29
{
gosub drop_scrolls #findid
}
finditem %resurrect c_ , #backpackid
if #FINDSTACK > 29
{
gosub drop_scrolls #findid
}
return
sub drop_scrolls
event macro 8 7
wait 10
set #lobjectid %secure
wait 5
event macro 17 0
wait 10
set %clickx #contposx + 29
set %clicky #contposy + 127
event drag %1
wait 10
key 3
key 0
key enter
wait 10
click %clickx %clicky
wait 5
return
sub check_skill
chooseskill insc
if #skill > 250 && #skill < 380
{
gosub check_reag 1 0 0 0 0 0 0 0
set %click1x 30
set %click1y 132
set %click2x 235
set %click2y 89
}
if #skill > 379 && #skill < 530
{
gosub check_reag 1 1 0 0 1 0 0 0
gosub check_reag 1 1 0 0 1 0 0 0
gosub check_reag 1 1 0 0 1 0 0 0
set %click1x 30
set %click1y 151
set %click2x 235
set %click2y 210
}
if #skill > 529 && #skill < 670
{
gosub check_reag 0 1 0 0 1 0 1 0
gosub check_reag 0 1 0 0 1 0 1 0
gosub check_reag 0 1 0 0 1 0 1 0
set %click1x 30
set %click1y 170
set %click2x 235
set %click2y 210
}
if #skill > 669 && #skill < 810
{
gosub check_reag 0 1 0 0 0 0 0 1
gosub check_reag 0 1 0 0 0 0 0 1
set %click1x 30
set %click1y 188
set %click2x 235
set %click2y 210
}
if #skill > 809 && #skill < 950
{
gosub check_reag 0 0 0 0 0 0 1 1
gosub check_reag 0 0 0 0 0 0 1 1
set %click1x 30
set %click1y 210
set %click2x 235
set %click2y 110
}
if #skill > 949 && #skill < 1000
{
gosub check_reag 0 1 1 1 0 0 0 0
gosub check_reag 0 1 1 1 0 0 0 0
gosub check_reag 0 1 1 1 0 0 0 0
set %click1x 30
set %click1y 230
set %click2x 235
set %click2y 110
}
if #skill = 1000
{
msg Complimenti sei a 100 inscription!$
halt
}
return
sub check_reag
if %1 = 1
{
finditem %black c_ , #backpackid
if #findkind = -1
{
gosub take_reag 1 0 0 0 0 0 0 0
}
}
if %2 = 1
{
finditem %blood c_ , #backpackid
if #findkind = -1
{
gosub take_reag 0 1 0 0 0 0 0 0
}
}
if %3 = 1
{
finditem %garlic c_ , #backpackid
if #findkind = -1
{
gosub take_reag 0 0 1 0 0 0 0 0
}
}
if %4 = 1
{
finditem %ginseng c_ , #backpackid
if #findkind = -1
{
gosub take_reag 0 0 0 1 0 0 0 0
}
}
if %5 = 1
{
finditem %mandrake c_ , #backpackid
if #findkind = -1
{
gosub take_reag 0 0 0 0 1 0 0 0
}
}
if %6 = 1
{
finditem %night c_ , #backpackid
if #findkind = -1
{
gosub take_reag 0 0 0 0 0 1 0 0
}
}
if %7 = 1
{
finditem %spider c_ , #backpackid
if #findkind = -1
{
gosub take_reag 0 0 0 0 0 0 1 0
}
}
if %8 = 1
{
finditem %sulfurus c_ , #backpackid
if #findkind = -1
{
gosub take_reag 0 0 0 0 0 0 0 1
}
}
return
sub take_reag
if %1 = 1
{
set #lobjectid %secure
wait 5
event macro 17 0
wait 10
finditem %black c_ , %secure
if #FINDSTACK < 100
{
msg Metti i reagenti nel secure container e riavvia lo script.$
halt
}
event macro 8 7
wait 10
set %clickx #contposx + 50
set %clicky #contposy + 155
event drag #findid
wait 10
key 1
key 0
key 0
key enter
wait 10
click %clickx %clicky
wait 5
}
if %2 = 1
{
set #lobjectid %secure
wait 5
event macro 17 0
wait 10
finditem %blood c_ , %secure
if #FINDSTACK < 100
{
msg Metti i reagenti nel secure container e riavvia lo script.$
halt
}
event macro 8 7
wait 10
set %clickx #contposx + 50
set %clicky #contposy + 155
event drag #findid
wait 10
key 1
key 0
key 0
key enter
wait 5
click %clickx %clicky
wait 10
}
if %3 = 1
{
set #lobjectid %secure
wait 5
event macro 17 0
wait 10
finditem %garlic c_ , %secure
if #FINDSTACK < 100
{
msg Metti i reagenti nel secure container e riavvia lo script.$
halt
}
event macro 8 7
wait 10
set %clickx #contposx + 50
set %clicky #contposy + 155
event drag #findid
wait 10
key 1
key 0
key 0
key enter
wait 10
click %clickx %clicky
wait 5
}
if %4 = 1
{
set #lobjectid %secure
wait 5
event macro 17 0
wait 10
finditem %ginseng c_ , %secure
if #FINDSTACK < 100
{
msg Metti i reagenti nel secure container e riavvia lo script.$
halt
}
event macro 8 7
wait 10
set %clickx #contposx + 50
set %clicky #contposy + 155
event drag #findid
wait 10
key 1
key 0
key 0
key enter
wait 10
click %clickx %clicky
wait 5
}
if %5 = 1
{
set #lobjectid %secure
wait 5
event macro 17 0
wait 10
finditem %mandrake c_ , %secure
if #FINDSTACK < 100
{
msg Metti i reagenti nel secure container e riavvia lo script.$
halt
}
event macro 8 7
wait 10
set %clickx #contposx + 50
set %clicky #contposy + 155
event drag #findid
wait 10
key 1
key 0
key 0
key enter
wait 10
click %clickx %clicky
wait 5
}
if %6 = 1
{
set #lobjectid %secure
wait 5
event macro 17 0
wait 10
finditem %night c_ , %secure
if #FINDSTACK < 100
{
msg Metti i reagenti nel secure container e riavvia lo script.$
halt
}
event macro 8 7
wait 10
set %clickx #contposx + 50
set %clicky #contposy + 155
event drag #findid
wait 10
key 1
key 0
key 0
key enter
wait 10
click %clickx %clicky
wait 5
}
if %7 = 1
{
set #lobjectid %secure
wait 5
event macro 17 0
wait 10
finditem %spider c_ , %secure
if #FINDSTACK < 100
{
msg Metti i reagenti nel secure container e riavvia lo script.$
halt
}
event macro 8 7
wait 10
set %clickx #contposx + 50
set %clicky #contposy + 155
event drag #findid
wait 10
key 1
key 0
key 0
key enter
wait 10
click %clickx %clicky
wait 5
}
if %8 = 1
{
set #lobjectid %secure
wait 5
event macro 17 0
wait 10
finditem %sulfurus c_ , %secure
if #FINDSTACK < 100
{
msg Metti i reagenti nel secure container e riavvia lo script.$
halt
}
event macro 8 7
wait 10
set %clickx #contposx + 50
set %clicky #contposy + 155
event drag #findid
wait 10
key 1
key 0
key 0
key enter
wait 10
click %clickx %clicky
wait 5
}
return
sub make_scrolls
event macro 8 7
wait 5
finditem %pen c_ , #backpackid
set #lobjectid #findid
event macro 17 0
wait 10
set %clickx #contposx + %click1x
set %clicky #contposy + %click1y
click %clickx %clicky
wait 5
set %clickx #contposx + %click2x
set %clicky #contposy + %click2y
click %clickx %clicky
wait 30
return
Commenta