Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ;Autor: odzi:)
- ;ver. 1.0.0
- ;Skrypt na grabienie i skanowanie zwlok w poszukiwaniu nietypowym itemow ktore nie powinny normalnie sie tam znajdowac (Moga być wyjatki)
- ;Skrypt zbiera nam automatycznie - połączenie ze skryptem na dobijanie
- ;Skrypt zbiera nam manualnie, po wcisnięciu klawisz ctrl + z (Mozna sobie zmienic niżej, chyba każdy znajdzie)
- ;Pod przyciskiem F1 zbindowane: .walka
- set #lpc 1000
- menu Clear
- menu window title Skaner zwlok v. 1.0.0
- menu font name times
- menu Window size 440 200
- menu Window color black
- menu Show
- ignoreitem reset
- set %y1 0
- set %liczba 0
- repeat
- {
- onhotkey z ctrl
- {
- menu Clear
- set %liczba 0
- set %y1 0
- finditem * G_2
- for #findindex 1 #findcnt
- {
- if #findtype = YFM
- {
- if #finddist > 1
- move #findx #findy 1 3s
- set #lobjectid #findid
- event macro 17
- ignoreitem #findid
- repeat
- {
- if #conttype <> YFM
- event macro 17
- }
- until #conttype = YFM
- set %x #contposx - 80
- contpos %x #contposy
- finditem * C_ , #contid
- for #findindex 1 #findcnt
- {
- if #findcol <> 0
- {
- event property #findid
- repeat
- {
- if #property = N/A
- event property #findid
- }
- until #property <> N/A
- if smazon in #property || pieczon in #property
- {
- ignoreitem #findid
- continue
- }
- set %p1 #property
- str Count %p1
- str Pos %p1 $
- str Del %p1 #strres 1
- set %p1 #strres
- str count %p1
- str Pos %p1 ]
- str Del %p1 #strres 20
- set %p1 #strres
- menu Font BGColor black
- menu Font Size 12
- menu Font Color white
- set %liczba %liczba + 1
- menu Text znal1 0 %y1 %liczba : %p1
- set %y1 %y1 + 20
- sound F:\ringin.wav
- set #sysmsgcol 75
- event sysmessage ZNALAZLEM!!! %p1
- }
- }
- }
- }
- event macro 1 0 .grab zloto, klejnoty, ziola, druid, nekro, wampir, magiczne
- set %x 0
- }
- if *grab = 1
- {
- menu Clear
- set %liczba 0
- set %y1 0
- finditem * G_2
- for #findindex 1 #findcnt
- {
- if #findtype = YFM
- {
- set %x1 #charposx
- set %y1 #charposy
- if #finddist > 1
- {
- event pathfind #findx #findy
- set %czas #scnt + 2
- repeat
- {
- if %czas < #scnt
- break
- if #charposx = %x1 && #charposy = %y1
- event pathfind #findx #findy
- }
- until #charposx = #findx && #charposy = #findy
- }
- set #lobjectid #findid
- event macro 17
- ignoreitem #findid
- repeat
- {
- if #conttype <> YFM
- event macro 17
- }
- until #conttype = YFM
- set %x #contposx - 80
- contpos %x #contposy
- finditem * C_ , #contid
- for #findindex 1 #findcnt
- {
- if #findcol <> 0
- {
- event property #findid
- repeat
- {
- if #property = N/A
- event property #findid
- }
- until #property <> N/A
- if smazon in #property || pieczon in #property
- {
- ignoreitem #findid
- continue
- }
- set %p1 #property
- str Count %p1
- str Pos %p1 $
- str Del %p1 #strres 1
- set %p1 #strres
- str count %p1
- str Pos %p1 ]
- str Del %p1 #strres 20
- set %p1 #strres
- menu Font BGColor black
- menu Font Size 12
- menu Font Color white
- set %liczba %liczba + 1
- menu Text znal1 0 %y1 %liczba : %p1
- set %y1 %y1 + 20
- sound F:\ringin.wav
- set #sysmsgcol 75
- event sysmessage ZNALAZLEM!!! %p1
- }
- }
- }
- }
- event macro 1 0 .grab zloto, klejnoty, ziola, druid, nekro, wampir, magiczne
- set *grab 0
- set %x 0
- }
- onhotkey x ctrl
- {
- event macro 1 0 .walka
- wait 3
- }
- }
- until #false
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement