initevents set %batidasmax 10 set %target 0 set %_x 3 set %_y 2 set %batidas 0 set %x #charposx + %_x set %y #charposy + %_y set %ponto 0 set %m 0 set %mm 0 chooseskill mini Set %skill #skill gosub paineis gosub awaysrun gosub menu set #sysmsgcol 58 if *1cfg = n/a { menu font style b menu font name verdana menu font size 8 menu button config 30 60 140 25 Configurar goto button } menu font style b menu font name verdana menu font size 8 menu button gmina 30 30 140 25 Iniciar menu button config 30 60 140 25 Configurar set #menubutton n/a goto button minerar: gosub comer menu hide gosub title gosub peso if #weight > %p { set %m *1mtotal goto gcasa } gosub hide if %batidas >= %batidasmax { set %batidas 0 goto target } finditem qpf_npf if #findkind <> 0 { ignoreitem #findid goto minerar } set #lobjectid #findid event macro 17 target set #ltargetx %x set #ltargety %y set #ltargetz #charposz set #ltargetkind 3 event macro 22 wait 10s deletejournal set %tempo #scnt + 8 goto scan sub title set %delta #skill - %skill setuotitle Final Mining Macro | skill: #skill +( %delta ) | Peso: #weight / #maxweight | Target: %target / 25 | Ponto: %ponto | Batidas: %batidas / %batidasmax return sub hide hid: if H notin #charstatus { event macro 13 21 set %tempo #scnt + 4 wait 4s goto scanhid } return sub comer FindItem HND Set #LObjectId #FindId Event Macro 17 return sub menu menu hideeuo menu clear menu show 300 225 menu window size 200 150 menu window color $000000 menu font bgcolor $000000 menu window title Final Mining Macro menu font name verdana menu font size 34 menu font style b menu font color red menu text t_status -8 90 rEdBuLL menu font name new menu font size 10 menu font color $c0c0c0 menu text t_status 10 90 Final Mining Macro menu font size 7 menu text t_status 20 5 Revisado por SataniC return scanhid: wait 1s ;Scanjournal 1 if H in #charstatus { goto minerar } if H notin #charstatus { goto hid } ;if %tempo < #scnt ;{ ;goto hid ;} goto scanhid sub paineis //- paperdoll event macro 8 1 gosub contcheck shyb contpos 760 0 //- satus event macro 8 2 gosub contcheck qwyb contpos 0 0 //- bag event macro 8 7 gosub contcheck krz contpos 800 290 set %bag #contid //-map event macro 8 8 event macro 8 8 wait 10 gosub contcheck snec contpos 770 500 event macro 9 3 event macro 9 4 return sub peso set %p #maxweight / 7 set %p %p * 6 return sub contcheck checking: if #contkind <> %1 { goto checking } return sub awaysrun awaysrun: event macro 32 wait 10 scanjournal 1 if ON. in #journal { return } deletejournal goto awaysrun target: set %_x %_x - 1 if %_x = -3 { set %_x 2 set %_y %_y - 1 } if %_y = -3 { set %_y 2 set %target 0 goto mmina } set %x #charposx + %_x set %y #charposy + %_y set %target %target + 1 goto minerar scan: wait 5 scanjournal 1 is_no_ore_to_mine in #Journal goto target if os_minerios in #journal goto target if no_line_of in #journal goto target if esta_fora in #journal goto target if try_mining in #journal goto target if is_far_to in #journal goto target if nao_existem in #journal goto target if longe in #journal goto target if minerou_em_algumas_pedras_mas_nao_achou_nenhum in #journal { set %batidas %batidas + 1 goto minerar } if voce_afrouxou in #journal { set %batidas %batidas + 1 goto minerar } if in_your_pack in #journal { set %batidas 0 goto scanore } if #scnt > %tempo goto minerar goto scan scanore: if ice in #journal goto target if Hellfire in #journal goto target if mytheril in #journal goto target if BloodDragon in #journal goto target if bloodrock in #journal goto target if blackrock in #journal goto target if valorite in #journal goto target goto minerar config: menu hide event sysmessage Fique na frente do bau da sua casa e pressione [ENTER]. gosub key set *1xcasa #charposx set *1ycasa #charposy event sysmessage Ok! wait 5 event sysmessage Posicione o cursor sobre o bau e pressione [ENTER]. gosub key set *1baux #cursorx set *1bauy #cursory event sysmessage Ok! wait 5 event sysmessage Va ate a mina marcando pontos pressionando [ENTER]. gosub key2 m config2: set *1mtotal %m event sysmessage Ok! wait 5 event sysmessage Marque os pontos onde o seu char ira minerar pressionando [ENTER]. gosub key2 mm config3: set *1cfg 1 set *1mmtotal %mm set %mm 0 set %m 0 event sysmessage Ok! wait 5 event sysmessage Configuracao Finalizada. wait 10 goto mmina m: set %m %m + 1 set * , 1mx , %m #charposx set * , 1my , %m #charposy event sysmessage Ponto %m ok! wait 5 event sysmessage Para concluir pressione [ESC] gosub key2 m config2 mm: set %mm %mm + 1 set * , 1mmx , %mm #charposx set * , 1mmy , %mm #charposy event sysmessage Ponto %mm ok! wait 5 event sysmessage Para concluir pressione [ESC] gosub key2 mm config3 gcasa: if %m = 0 { goto guardar } set %mx 1mx , %m set %my 1my , %m move * . %mx * . %my 0 set %m %m - 1 goto gcasa gmina: menu hide if %m = *1mtotal { goto mmina } set %m %m + 1 set %mx 1mx , %m set %my 1my , %m move * . %mx * . %my 0 goto gmina mmina: if %mm > *1mmtotal { set %mm 0 set %ponto 1 goto mmina } set %ponto %ponto + 1 set %mm %mm + 1 set %mmx 1mmx , %mm set %mmy 1mmy , %mm move * . %mmx * . %mmy 0 goto target button: if #menubutton <> n/a { goto #menubutton } goto button sub key skey: onhotkey enter return goto skey sub key2 akey: onhotkey enter goto %1 onhotkey esc goto %2 goto akey sub contcheck Set %timeout #scnt + 15 contcheck: if %timeout < #scnt return if #contkind = %1 return goto contcheck sub contcheck2 set %timeout #scnt + 15 contcheck2: if %timeout < #scnt return if #contkind <> %1 return goto contcheck2 guardar: gosub peso move *1xcasa *1ycasa 0 finditem dwj_ewj_gwj_tvj_evf_bfv_gvf_hvf_bvf_uvf_fvf_vuf_ovf if #findkind = -1 { set %mm %mm - 1 set %ponto %ponto - 1 goto gmina } if #findbagid <> %bag { ignoreitem #findid goto guardar } event drag #findid if #findstack = 1 goto nocheck gosub contcheck YKZB msg $ gosub contcheck2 YKZB nocheck: click *1baux *1bauy p goto guardar return halt