|
|
|
| 3,1415... | 2006, paź 28 08:38
|
|
|
 |
|
| Brak postaci | |
|
| 2014, lis 19 |
[quote='Shadek']
A ma ktos moze makro na Tkactwo?? [/quote]
Wiem, że teraz wszyscy skrypterzy mnie wysmieja ale co tam 
sprobuj zrobic jeden dywan jaki chcesz a pozniej wlacz skrypt:
autor [adek]
start:
event macro 17
target 5s
event macro 22
wait 1s
click 510 60
wait 2s
;click 90 100
;wait 1s
;click 180 100
;wait 1s
click 90 340
wait 10s
go to start:
jak nie bedzie działąc to pisz na: 1966357[/quote] | |
|
| Kenskin | 2006, paź 28 21:12
|
|
|
|
|
|
| Brak postaci | |
|
2007, lut 27
| Bydgoszcz | |
Masz oto skrypt na krawca i madrosc
;Macro bY SabiK
;krawiec-menu.txt
;Wersja 1.0
;!!!!!UWAGA!!!!!
rzerzucanie expów do innego pojemnika
;Aby to zrobić musisz podac jego wspolrzedne w okna menu
;Jesli najedziesz na ikone plecaka (ZAMKNIETY PLECAK) kursorem to wpisz w okna #CORSORX i #CURSORY
initevents
menu hide
krawiecmenu:
set %xr
0set %yr
0set %mat
0set %mat1
0set %item
0set %skill
0set %skill1
0set %ciecie
0set %ciecie_trwa
0set %rzut
0set %licz
0set %id n/a
set %lt n/a
set #sysmsg n/a
set #scnt
0set #menubutton n/a
menu clear
menu window title Menu Krawca bY SabiK
menu window size 250 240
menu window color btnface
;Material
menu font name verdana
menu font size 9
menu font color black
menu font bgcolor btnface
menu font style b
menu text wersja 85 214 Wersja 1.0
menu text 1material 21 12 Materiał:
menu font size 8
menu font bgcolor white
menu font style
menu combo create material 85 10 155
menu combo add material Wybierz:
menu combo add material ----------------------------------
menu combo add material Tkanina
menu combo add material Skóra
menu combo select material 1
goto menuskille
rzedmioty z tkaniny
menukrawca1:
menu delete sprzedmioty
menu font size 9
menu font color black
menu font bgcolor btnface
menu font style b
menu text 1przedmioty 9 47 Przedmiot:
menu font size 8
menu font bgcolor white
menu font style
menu combo create tprzedmioty 85 45 155
menu combo add tprzedmioty Wybierz:
menu combo add tprzedmioty ----------------------------------
menu combo add tprzedmioty To co ostatnio
;menu combo add tprzedmioty Koszulka
;menu combo add tprzedmioty Koszula
;menu combo add tprzedmioty Oponcza
;menu combo add tprzedmioty Tunika
;menu combo add tprzedmioty Plaszcz
;menu combo add tprzedmioty Stroj blazenski
;menu combo add tprzedmioty Kubrak
;menu combo add tprzedmioty Jin-baori
;menu combo add tprzedmioty Hakama-skita
;menu combo add tprzedmioty Krotkie spodnie
;menu combo add tprzedmioty Dlugie spodnie
;menu combo add tprzedmioty Tettsuke-hakama
;menu combo add tprzedmioty Kilt
;menu combo add tprzedmioty Spodniczka
;menu combo add tprzedmioty Hakama
;menu combo add tprzedmioty Sukienka
;menu combo add tprzedmioty Spodnica
;menu combo add tprzedmioty Kimono(m)
;menu combo add tprzedmioty Kimono(f)
;menu combo add tprzedmioty Toga
;menu combo add tprzedmioty Kimshimo
;menu combo add tprzedmioty Szarfa
;menu combo add tprzedmioty Oib
;menu combo add tprzedmioty Koc
;menu combo add tprzedmioty Plotno
;menu combo add tprzedmioty Krotki fartuch
;menu combo add tprzedmioty Fartuch
;menu combo add tprzedmioty Mata
;menu combo add tprzedmioty Juka
;menu combo add tprzedmioty Bandana
;menu combo add tprzedmioty Mycka
;menu combo add tprzedmioty Czarodziejska czapka
;menu combo add tprzedmioty Czapka
;menu combo add tprzedmioty Beret
;menu combo add tprzedmioty Czapka z piorkiem
;menu combo add tprzedmioty Kesa
;menu combo add tprzedmioty Kapelusz okragly
;menu combo add tprzedmioty Kapelusz
;menu combo add tprzedmioty Trojkatny kapelusz
;menu combo add tprzedmioty Blazenska czapka
menu combo select tprzedmioty 1
set %mat1 1
goto czekaj
rzedmioty ze skóry
menukrawca2:
menu delete tprzedmioty
menu font size 9
menu font color black
menu font bgcolor btnface
menu font style b
menu text 1przedmioty 9 47 Przedmiot:
menu font size 8
menu font bgcolor white
menu font style
menu combo create sprzedmioty 85 45 155
menu combo add sprzedmioty Wybierz:
menu combo add sprzedmioty ----------------------------------
menu combo add sprzedmioty To co ostatnio
;menu combo add sprzedmioty Sk. Czapka
;menu combo add sprzedmioty Sk. Karczek
;menu combo add sprzedmioty Sk. Rekawiczki
;menu combo add sprzedmioty Sk. Narramienniki
;menu combo add sprzedmioty Sk. Nogawice
;menu combo add sprzedmioty Sk. Tunika
;menu combo add sprzedmioty Sk. Jingasa
;menu combo add sprzedmioty Ut. Karczek
;menu combo add sprzedmioty Ut. Rekawiczki
;menu combo add sprzedmioty Ut. Narramienniki
;menu combo add sprzedmioty Ut. Nogawice
;menu combo add sprzedmioty Ut. Tunika
;menu combo add sprzedmioty Ut. Jingasa
;menu combo add sprzedmioty Sk. Kabuto
;menu combo add sprzedmioty Sk. Mempo
;menu combo add sprzedmioty Sk. Hiro sode
;menu combo add sprzedmioty Sk. Suneate
;menu combo add sprzedmioty Sk. Do
;menu combo add sprzedmioty Ut. Kabuto
;menu combo add sprzedmioty Ut. Mempo
;menu combo add sprzedmioty Ut. Hiro sode
;menu combo add sprzedmioty Ut. Suneate
;menu combo add sprzedmioty Ut. Do
;menu combo add sprzedmioty Biustonosz
;menu combo add sprzedmioty Ut. Biustonosz
;menu combo add sprzedmioty Spodnie
;menu combo add sprzedmioty Spodniczka
;menu combo add sprzedmioty Damska zbroja
;menu combo add sprzedmioty Ut. Damska zbroja
;menu combo add sprzedmioty Sandaly
;menu combo add sprzedmioty Sandaly samuraja
;menu combo add sprzedmioty Buty
;menu combo add sprzedmioty Wysokie buty
;menu combo add sprzedmioty Wysokie buty2
;menu combo add sprzedmioty Worek
;menu combo add sprzedmioty Skrzynka
;menu combo add sprzedmioty Plecak
;menu combo add sprzedmioty W. na wilkolackie runa
;menu combo add sprzedmioty W. na wampirze runa
menu combo select sprzedmioty 1
set %mat1 2
goto czekaj
;Skille
menuskille:
menu font size 9
menu font color black
menu font bgcolor btnface
menu font style b
menu text 1skille 46 83 Skill:
menu font size 8
menu font bgcolor white
menu font style
menu combo create skille 85 80 155
menu combo add skille Wybierz:
menu combo add skille ----------------------------------
menu combo add skille Zaden
menu combo add skille Ukrywanie
menu combo add skille Madrosc
menu combo add skille Anatomia
menu combo add skille Identyfikacja
menu combo add skille Rozmowa z duchami
menu combo add skille Wykrywanie
menu combo add skille Wiedza o zwierzetach
menu combo add skille Wiedza o broni
menu combo select skille 1
;Ciecie
menu font size 8
menu font color black
menu font style
menu font bgcolor btnface
menu check ciecie 20 120 205 15 0 Wlacz opcje ciecia przedmiotow
rzezucanie expow
menu font size 8
menu font color black
menu font style
menu font bgcolor btnface
menu check rzut 20 148 210 15 0 Wlacz opcje przerzucania expow
goto startianuluj
rzucanietak:
menu font size 8
menu font color black
menu font style
menu font bgcolor btnface
menu text 1rzut 8 176 "X" PLECAKA:
menu edit rzutx 90 172 28 xxx
menu text 1rzut 123 176 "Y" PLECAKA:
menu edit rzuty 205 172 28 xxx
set %rzut1 1
goto czekaj
;Start i anuluj
startianuluj:
menu font size 10
menu font color black
menu font style b
menu font bgcolor btnface
menu button startp 10 210 60 25 START
menu button anuluj 178 210 60 25 Anuluj
menu hideEuo
menupokaz:
set #menubutton n/a
menu show
czekaj:
if #str = N/A || #dex = N/A || #int = N/A
event macro 8 2
if #menubutton <> n/a
goto #menubutton
menu get material
set %mat #menures - 2
menu get rzut
set %rzut 1
if #menures <> -1
set %rzut
0if %rzut =
0{
menu delete 1rzut
menu delete rzutx
menu delete rzuty
set %rzut1
0}
if %rzut1 = 1
goto czekaj2
if %rzut = 1
goto rzucanietak
czekaj2:
if %mat <= 0
{
menu delete tprzedmioty
menu delete sprzedmioty
menu delete 1przedmioty
set %mat1
0}
if %mat1 = 1 && %mat = 2
goto czekaj4
if %mat1 = 2 && %mat = 1
goto czekaj3
if %mat1 = 1 || %mat1 = 2
goto czekaj
czekaj3:
if %mat = 1
goto menukrawca1
czekaj4:
if %mat = 2
goto menukrawca2
goto czekaj
closed:
set #targcurs
0halt
anuluj:
set #targcurs
0set #menubutton n/a
goto krawiecmenu
stopp:
set #targcurs
0menu delete startp
menu delete stopp
menu font size 10
menu font color black
menu font style b
menu font bgcolor btnface
menu button startp 10 210 60 25 START
if #menubutton = closed
menu show
set #menubutton n/a
goto czekaj
startp:
menu delete ramka
menu delete blad
menu window size 250 240
menu font color black
menu delete startp
menu font size 10
menu font color black
menu font style b
menu font bgcolor btnface
menu button stopp 10 210 60 25 STOP
set #menubutton n/a
if #str = N/A || #dex = N/A || #int = N/A
event macro 8 2
if %mat = 1
{
menu get tprzedmioty
set %item #menures - 2
}
if %mat = 2
{
menu get sprzedmioty
set %item #menures - 2
}
menu get skille
set %skill #menures - 3
menu get ciecie
set %ciecie 1
if #menures <> -1
set %ciecie
0if %rzut = 1
{
menu get rzutx
set %xr #menures
menu get rzuty
set %yr #menures
}
if %mat < 1 && %skill < 0 && %item < 1
{
menu font size 10
menu font color red
menu font style b
menu font bgcolor btnface
menu delete startp
menu delete stopp
menu button startp 10 210 60 25 START
set #sysmsgcol 1080
event sysmessage Zle wybrany material, przedmiot i skill!
menu shape ramka 10 240 230 18 3 6 1 blue 7 $98FB98
menu shape ramka 10 257 230 30 3 6 1 blue 7 $FFF8DC
menu font size 9
menu font color red
menu font style b
menu font bgcolor $98FB98
menu window size 250 300
menu text blad 110 241 Błąd:
menu font size 7
menu font bgcolor $FFF8DC
menu font color black
menu text blad 15 265 Źle wybrany materiał, przedmiot i skill!
if #menubutton = closed
goto menupokaz
goto czekaj
}
if %mat < 1 && %item < 1
{
menu font size 10
menu font color red
menu font style b
menu font bgcolor btnface
menu delete startp
menu delete stopp
menu button startp 10 210 60 25 START
set #sysmsgcol 1080
event sysmessage Zle wybrany material i przedmiot!
menu shape ramka 10 240 230 18 3 6 1 blue 7 $98FB98
menu shape ramka 10 257 230 30 3 6 1 blue 7 $FFF8DC
menu font size 9
menu font color red
menu font style b
menu font bgcolor $98FB98
menu window size 250 300
menu text blad 110 241 Błąd:
menu font size 7
menu font bgcolor $FFF8DC
menu font color black
menu text blad 15 265 Źle wybrany materiał i przedmiot!
if #menubutton = closed
goto menupokaz
goto czekaj
}
if %mat < 1 && %skill < 0
{
menu font size 10
menu font color red
menu font style b
menu font bgcolor btnface
menu delete startp
menu delete stopp
menu button startp 10 210 60 25 START
set #sysmsgcol 1080
event sysmessage Zle wybrany material i skill!
menu shape ramka 10 240 230 18 3 6 1 blue 7 $98FB98
menu shape ramka 10 257 230 30 3 6 1 blue 7 $FFF8DC
menu font size 9
menu font color red
menu font style b
menu font bgcolor $98FB98
menu window size 250 300
menu text blad 110 241 Błąd:
menu font size 7
menu font bgcolor $FFF8DC
menu font color black
menu text blad 15 265 Źle wybrany materiał i skill!
if #menubutton = closed
goto menupokaz
goto czekaj
}
if %item < 1 && %skill < 0
{
menu font size 10
menu font color red
menu font style b
menu font bgcolor btnface
menu delete startp
menu delete stopp
menu button startp 10 210 60 25 START
set #sysmsgcol 1080
event sysmessage Zle wybrany przedmiot i skill!
menu shape ramka 10 240 230 18 3 6 1 blue 7 $98FB98
menu shape ramka 10 257 230 30 3 6 1 blue 7 $FFF8DC
menu font size 9
menu font color red
menu font style b
menu font bgcolor $98FB98
menu window size 250 300
menu text blad 110 241 Błąd:
menu font size 7
menu font bgcolor $FFF8DC
menu font color black
menu text blad 15 265 Źle wybrany przedmiot i skill!
if #menubutton = closed
goto menupokaz
goto czekaj
}
if %mat < 1
{
menu font size 10
menu font color red
menu font style b
menu font bgcolor btnface
menu delete startp
menu delete stopp
menu button startp 10 210 60 25 START
set #sysmsgcol 1080
event sysmessage Zle wybrany material!
menu shape ramka 10 240 230 18 3 6 1 blue 7 $98FB98
menu shape ramka 10 257 230 30 3 6 1 blue 7 $FFF8DC
menu font size 9
menu font color red
menu font style b
menu font bgcolor $98FB98
menu window size 250 300
menu text blad 110 241 Błąd:
menu font size 7
menu font bgcolor $FFF8DC
menu font color black
menu text blad 15 265 Źle wybrany materiał!
if #menubutton = closed
goto menupokaz
goto czekaj
}
if %item < 1
{
menu font size 10
menu font color red
menu font style b
menu font bgcolor btnface
menu delete startp
menu delete stopp
menu button startp 10 210 60 25 START
set #sysmsgcol 1080
event sysmessage Zle wybrany przedmiot!
menu shape ramka 10 240 230 18 3 6 1 blue 7 $98FB98
menu shape ramka 10 257 230 30 3 6 1 blue 7 $FFF8DC
menu font size 9
menu font color red
menu font style b
menu font bgcolor $98FB98
menu window size 250 300
menu text blad 110 241 Błąd:
menu font size 7
menu font bgcolor $FFF8DC
menu font color black
menu text blad 15 265 Źle wybrany przedmiot!
if #menubutton = closed
goto menupokaz
goto czekaj
}
if %skill < 0
{
menu font size 10
menu font color red
menu font style b
menu font bgcolor btnface
menu delete startp
menu delete stopp
menu button startp 10 210 60 25 START
set #sysmsgcol 1080
event sysmessage Zle wybrany skill!
menu shape ramka 10 240 230 18 3 6 1 blue 7 $98FB98
menu shape ramka 10 257 230 30 3 6 1 blue 7 $FFF8DC
menu font size 9
menu font color red
menu font style b
menu font bgcolor $98FB98
menu window size 250 300
menu text blad 110 241 Błąd:
menu font size 7
menu font bgcolor $FFF8DC
menu font color black
menu text blad 15 265 Źle wybrany skill!
if #menubutton = closed
goto menupokaz
goto czekaj
}
if #menubutton <> n/a
goto #menubutton
if %mat = 1
{
if %item = 2
{
set %x 120
set %y 131
set %x1 218
set %y1 178
}
if %item = 3
{
set %x 120
set %y 131
set %x1 318
set %y1 178
}
if %item = 4
{
set %x 120
set %y 131
set %x1 418
set %y1 178
}
if %item = 5
{
set %x 120
set %y 131
set %x1 118
set %y1 243
}
if %item = 6
{
set %x 120
set %y 131
set %x1 218
set %y1 243
}
if %item = 7
{
set %x 120
set %y 131
set %x1 318
set %y1 243
}
if %item = 8
{
set %x 120
set %y 131
set %x1 118
set %y1 313
}
if %item = 9
{
set %x 120
set %y 131
set %x1 218
set %y1 313
}
if %item = 10
{
set %x 270
set %y 130
set %x1 158
set %y1 209
}
if %item = 11
{
set %x 270
set %y 130
set %x1 308
set %y1 209
}
if %item = 12
{
set %x 270
set %y 130
set %x1 428
set %y1 209
}
if %item = 13
{
set %x 270
set %y 130
set %x1 158
set %y1 302
}
if %item = 14
{
set %x 270
set %y 130
set %x1 308
set %y1 302
}
if %item = 15
{
set %x 270
set %y 130
set %x1 428
set %y1 302
}
if %item = 16
{
set %x 432
set %y 131
set %x1 158
set %y1 189
}
if %item = 17
{
set %x 432
set %y 131
set %x1 288
set %y1 189
}
if %item = 18
{
set %x 432
set %y 131
set %x1 158
set %y1 285
}
if %item = 19
{
set %x 432
set %y 131
set %x1 288
set %y1 xxx xxx
}
if %item = 20
{
set %x 432
set %y 131
set %x1 158
set %y1 xxx xxx
}
if %item = 21
{
set %x 432
set %y 131
set %x1 158
set %y1 xxx xxx
}
if %item = 22
{
set %x 200
set %y 360
set %x1 118
set %y1 209
}
if %item = 23
{
set %x 200
set %y 360
set %x1 218
set %y1 209
}
if %item = 24
{
set %x 200
set %y 360
set %x1 318
set %y1 209
}
if %item = 25
{
set %x 200
set %y 360
set %x1 408
set %y1 209
}
if %item = 26
{
set %x 200
set %y 360
set %x1 118
set %y1 302
}
if %item = 27
{
set %x 200
set %y 360
set %x1 218
set %y1 302
}
if %item = 28
{
set %x 200
set %y 360
set %x1 318
set %y1 302
}
if %item = 29
{
set %x 200
set %y 360
set %x1 408
set %y1 302
}
if %item = 30
{
set %x 380
set %y 360
set %x1 118
set %y1 178
}
if %item = 31
{
set %x 380
set %y 360
set %x1 208
set %y1 178
}
if %item = 32
{
set %x 380
set %y 360
set %x1 328
set %y1 178
}
if %item = 33
{
set %x 380
set %y 360
set %x1 418
set %y1 178
}
if %item = 34
{
set %x 380
set %y 360
set %x1 118
set %y1 248
}
if %item = 35
{
set %x 380
set %y 360
set %x1 208
set %y1 248
}
if %item = 36
{
set %x 380
set %y 360
set %x1 328
set %y1 248
}
if %item = 37
{
set %x 380
set %y 360
set %x1 418
set %y1 248
}
if %item = 38
{
set %x 380
set %y 360
set %x1 118
set %y1 318
}
if %item = 39
{
set %x 380
set %y 360
set %x1 268
set %y1 318
}
if %item = 40
{
set %x 380
set %y 360
set %x1 418
set %y1 318
}
}
if %mat = 2
{
if %item = 2
{
set %x
set %y
set %x1
set %y1
}
if %item = 3
{
set %x
set %y
set %x1
set %y1
}
if %item = 4
{
set %x
set %y
set %x1
set %y1
}
if %item = 5
{
set %x
set %y
set %x1
set %y1
}
if %item = 6
{
set %x
set %y
set %x1
set %y1
}
if %item = 7
{
set %x
set %y
set %x1
set %y1
}
if %item = 8
{
set %x
set %y
set %x1
set %y1
}
if %item = 9
{
set %x
set %y
set %x1
set %y1
}
if %item = 10
{
set %x
set %y
set %x1
set %y1
}
if %item = 11
{
set %x
set %y
set %x1
set %y1
}
if %item = 12
{
set %x
set %y
set %x1
set %y1
}
if %item = 13
{
set %x
set %y
set %x1
set %y1
}
if %item = 14
{
set %x
set %y
set %x1
set %y1
}
if %item = 15
{
set %x
set %y
set %x1
set %y1
}
if %item = 16
{
set %x
set %y
set %x1
set %y1
}
if %item = 17
{
set %x
set %y
set %x1
set %y1
}
if %item = 18
{
set %x
set %y
set %x1
set %y1
}
if %item = 19
{
set %x
set %y
set %x1
set %y1
}
if %item = 20
{
set %x
set %y
set %x1
set %y1
}
if %item = 21
{
set %x
set %y
set %x1
set %y1
}
if %item = 22
{
set %x
set %y
set %x1
set %y1
}
if %item = 23
{
set %x
set %y
set %x1
set %y1
}
if %item = 24
{
set %x
set %y
set %x1
set %y1
}
if %item = 25
{
set %x
set %y
set %x1
set %y1
}
if %item = 26
{
set %x
set %y
set %x1
set %y1
}
if %item = 27
{
set %x
set %y
set %x1
set %y1
}
if %item = 28
{
set %x
set %y
set %x1
set %y1
}
if %item = 29
{
set %x
set %y
set %x1
set %y1
}
if %item = 30
{
set %x
set %y
set %x1
set %y1
}
if %item = 31
{
set %x
set %y
set %x1
set %y1
}
if %item = 32
{
set %x
set %y
set %x1
set %y1
}
if %item = 33
{
set %x
set %y
set %x1
set %y1
}
if %item = 34
{
set %x
set %y
set %x1
set %y1
}
if %item = 35
{
set %x
set %y
set %x1
set %y1
}
if %item = 36
{
set %x
set %y
set %x1
set %y1
}
if %item = 37
{
set %x
set %y
set %x1
set %y1
}
if %item = 38
{
set %x
set %y
set %x1
set %y1
}
if %item = 39
{
set %x
set %y
set %x1
set %y1
}
}
skill1:
if #menubutton <> n/a
goto #menubutton
if %skill = 0 || %skill = 1 || %skill = 5 || %skill = 6
goto start
if %skill = 2
set %skill1 Madrosc
if %skill = 3
set %skill1 Anatomia
if %skill = 4
set %skill1 Identyfikacja
if %skill = 7
set %skill1 Wiedza , #spc , o , #spc , zwierzetach
if %skill = 8
set %skill1 Wiedza , #spc , o , #spc , broni
if %lt = n/a
{
lt:
set #targcurs 1
set #sysmsgcol 1090
event sysmessage Wskaz teraz na czym ma byc robiona %skill1
menu shape ramka 10 240 230 18 3 6 1 blue 7 $98FB98
menu shape ramka 10 257 230 35 3 6 1 blue 7 $FFF8DC
menu font size 9
menu font color red
menu font style b
menu font bgcolor $98FB98
menu window size 250 300
menu text blad 110 241 Stan:
menu font size 7
menu font bgcolor $FFF8DC
menu font color black
menu text blad 15 265 Wskaz teraz na czym ma byc robiona
menu font color blue
menu text blad 15 277 %skill1
if #menubutton = closed
menu show
set #menubutton n/a
set %licz
0 czekaj_lt:
if #menubutton <> n/a
goto #menubutton
set %licz %licz + 1
if #targcurs =
0 goto dalej_lt
if %licz > 300
goto lt
goto czekaj_lt
}
dalej_lt:
set %lt #ltargetid
set #sysmsgcol 1082
event sysmessage Zapisano.
menu delete ramka
menu delete blad
menu window size 250 240
goto start
start:
if #menubutton <> n/a
goto #menubutton
skille:
if #menubutton <> n/a
goto #menubutton
if %skill =
0 goto start1
ukrywanie:
if %skill <> 1
goto madrosc
event macro 13 21
set %licz
0czekaj_ukrywanie:
scanjournal 1
set %licz %licz + 1
if #menubutton <> n/a
goto #menubutton
if H in #charstatus
goto start1
if Nie_udalo_Ci_sie in #journal
goto start1
if %licz > 50
goto ukrywanie
goto czekaj_ukrywanie
madrosc:
if %skill <> 2
goto anatomia
event macro 13 16
set %licz
0czekaj_madrosc:
set %licz %licz + 1
if #menubutton <> n/a
goto #menubutton
if #targcurs = 1
goto dalej_madrosc
if %licz > 50
goto madrosc
goto czekaj_madrosc
dalej_madrosc:
set #ltargetid %lt
event macro 22
goto start1
anatomia:
if %skill <> 3
goto identyfikacja
event macro 13 1
set %licz
0czekaj_anatomia
set %licz %licz + 1
if #menubutton <> n/a
goto #menubutton
if #targcurs = 1
goto dalej_anatomia
if %licz > 50
goto anatomia
goto czekaj_anatomia
dalej_anatomia:
set #ltargetid %lt
event macro 22
goto start1
identyfikacja:
if %skill <> 4
goto rozmowa
event macro 13 3
set %licz
0czekaj_identyfikacja:
set %licz %licz + 1
if #menubutton <> n/a
goto #menubutton
if #targcurs = 1
goto dalej_identyfikacja
if %licz > 50
goto identyfikacja
goto czekaj_identyfikacja
dalej_identyfikacja:
set #ltargetid %lt
event macro 22
goto start1
rozmowa:
if %skill <> 5
goto wykrywanie
event macro 13 32
set %licz
0czekaj_rozmowa:
scanjournal 1
set %licz %licz + 1
if #menubutton <> n/a
goto #menubutton
if #sex =
0{
if Porozumiales_sie in #journal
goto start1
}
if #sex = 1
{
if Porozumialas_sie in #journal
goto start1
}
if Nie_udalo_Ci_sie in #journal
goto start1
if %licz > 50
goto rozmowa
goto czekaj_rozmowa
wykrywanie:
if %skill <> 6
goto wiedzaozw
event macro 13 14
set %licz
0czekaj_wykrywanie:
set %licz %licz + 1
if #menubutton <> n/a
goto #menubutton
scanjournal 1
if #sex =
0{
if Znalazles_kogos in #journal
goto start1
if Nie_znalazles_nikogo in #journal
goto start1
}
if #sex = 1
{
if Znalazlas_kogos in #journal
goto start1
if Nie_znalazlas_nikogo in #journal
goto start1
}
if %licz > 50
goto wykrywanie
goto czekaj_wykrywanie
wiedzaozw:
if %skill <> 7
goto wiedzaobr
event macro 13 2
set %licz
0czekaj_wiedzaozw:
set %licz %licz + 1
if #menubutton <> n/a
goto #menubutton
if #targcurs = 1
goto dalej_wiedzaozw
if %licz > 50
goto wiedzaozw
goto czekaj_wiedzaozw
dalej_wiedzaozw:
set #ltargetid %lt
event macro 22
goto start1
wiedzaobr:
if %skill <> 8
goto start1
event macro 13 4
set %licz
0czekaj_wiedzaobr:
set %licz %licz + 1
if #menubutton <> n/a
goto #menubutton
if #targcurs = 1
goto dalej_wiedzaobr
if %licz > 50
goto wiedzaobr
goto czekaj_wiedzaobr
dalej_wiedzaobr:
set #ltargetid %lt
event macro 22
goto start1
start1:
if #menubutton <> n/a
goto #menubutton
if %ciecie_trwa = 1
goto ciecie
szycie:
if #menubutton <> n/a
goto #menubutton
finditem hag C
if #findkind =
0{
set #lobjectid #findid
event macro 17
}
if #findkind = 1
{
ignoreitem #findid
goto szycie
}
if #findkind = -1
{
set #sysmsgcol 1080
event sysmessage Nie masz narzedzi szewskich!
menu font size 10
menu font color red
menu font style b
menu font bgcolor btnface
menu delete startp
menu delete stopp
menu button startp 10 210 60 25 START
menu shape ramka 10 240 230 18 3 6 1 blue 7 $98FB98
menu shape ramka 10 257 230 30 3 6 1 blue 7 $FFF8DC
menu font size 9
menu font color red
menu font style b
menu font bgcolor $98FB98
menu window size 250 300
menu text blad 110 241 Błąd:
menu font size 7
menu font bgcolor $FFF8DC
menu font color black
menu text blad 15 265 Nie masz narzedzi szewskich!
if #menubutton = closed
menu show
set #menubutton n/a
goto czekaj
}
set %licz
0czekaj_narzedzia:
if #menubutton <> n/a
goto #menubutton
set %licz %licz + 1
if #targcurs = 1
goto dalej_narzedzia
if %licz > 50
goto szycie
goto czekaj_narzedzia
dalej_narzedzia:
if #menubutton <> n/a
goto #menubutton
if %mat = 1
{
finditem cui C
if #findkind =
0 {
set #ltargetid #findid
event macro 22
set %licz
0 goto czekaj_szycie
}
if #findkind = 1
{
ignoreitem #findid
goto dalej_narzedzia
}
if #findkind = -1
{
set #sysmsgcol 1080
event sysmessage Nie masz tkaniny!
menu font size 10
menu font color red
menu font style b
menu font bgcolor btnface
menu delete startp
menu delete stopp
menu button startp 10 210 60 25 START
menu shape ramka 10 240 230 18 3 6 1 blue 7 $98FB98
menu shape ramka 10 257 230 30 3 6 1 blue 7 $FFF8DC
menu font size 9
menu font color red
menu font style b
menu font bgcolor $98FB98
menu window size 250 300
menu text blad 110 241 Błąd:
menu font size 7
menu font bgcolor $FFF8DC
menu font color black
menu text blad 15 265 Nie masz tkaniny!
if #menubutton = closed
menu show
set #menubutton n/a
goto czekaj
}
}
if %mat = 2
{
finditem ddg C
if #findkind =
0 {
set #ltargetid #findid
event macro 22
set %licz
0 goto czekaj_szycie
}
if #findkind = 1
{
ignoreitem #findid
goto dalej_narzedzia
}
if #findkind = -1
{
set #sysmsgcol 1080
event sysmessage Nie masz skory!
menu font size 10
menu font color red
menu font style b
menu font bgcolor btnface
menu delete startp
menu delete stopp
menu button startp 10 210 60 25 START
menu shape ramka 10 240 230 18 3 6 1 blue 7 $98FB98
menu shape ramka 10 257 230 30 3 6 1 blue 7 $FFF8DC
menu font size 9
menu font color red
menu font style b
menu font bgcolor $98FB98
menu window size 250 300
menu text blad 110 241 Błąd:
menu font size 7
menu font bgcolor $FFF8DC
menu font color black
menu text blad 15 265 Nie masz skóry!
if #menubutton = closed
menu show
set #menubutton n/a
goto czekaj
}
}
czekaj_szycie:
if #menubutton <> n/a
goto #menubutton
set %licz %licz + 1
if #contsize = 560_460
goto szyj_ostatni_przedmiot
if %licz > 100
goto szycie
goto czekaj_szycie
szyj_ostatni_przedmiot:
if #menubutton <> n/a
goto #menubutton
if %item = 1 || %last = 1
{
click 135 390
goto koniec
}
click %x %y
set %licz
0czekaj_tabela:
if #menubutton <> n/a
goto #menubutton
set %licz %licz + 1
if #contsize = 560_460
goto dalej_tabela
if %licz > 100
goto szycie
goto czekaj_tabela
dalej_tabela:
click %x1 %y1
set %last 1
goto koniec
koniec:
if #menubutton <> n/a
goto #menubutton
if Masz_za_malo in #sysmsg
{
if %mat = 1
{
set #sysmsgcol 1080
if %ciecie = 1
{
event sysmessage Masz za malo tkaniny! Skrypt zaczyna ciac przedmioty!
goto ciecie
}
set #sysmsgcol 1080
event sysmessage Nie masz tkaniny!
menu font size 10
menu font color red
menu font style b
menu font bgcolor btnface
menu delete startp
menu delete stopp
menu button startp 10 210 60 25 START
menu shape ramka 10 240 230 18 3 6 1 blue 7 $98FB98
menu shape ramka 10 257 230 30 3 6 1 blue 7 $FFF8DC
menu font size 9
menu font color red
menu font style b
menu font bgcolor $98FB98
menu window size 250 300
menu text blad 110 241 Błąd:
menu font size 7
menu font bgcolor $FFF8DC
menu font color black
menu text blad 15 265 Nie masz tkaniny!
if #menubutton = closed
menu show
set #menubutton n/a
goto czekaj
}
if %mat = 2
{
set #sysmsgcol 1080
if %ciecie = 1
{
event sysmessage Masz za malo skory! Skrypt zaczyna ciac przedmioty!
goto ciecie
}
set #sysmsgcol 1080
event sysmessage Nie masz skory!
menu font size 10
menu font color red
menu font style b
menu font bgcolor btnface
menu delete startp
menu delete stopp
menu button startp 10 210 60 25 START
menu shape ramka 10 240 230 18 3 6 1 blue 7 $98FB98
menu shape ramka 10 257 230 30 3 6 1 blue 7 $FFF8DC
menu font size 9
menu font color red
menu font style b
menu font bgcolor $98FB98
menu window size 250 300
menu text blad 110 241 Błąd:
menu font size 7
menu font bgcolor $FFF8DC
menu font color black
menu text blad 15 265 Nie masz skóry!
if #menubutton = closed
menu show
set #menubutton n/a
goto czekaj
}
}
if Uszyl in #sysmsg
{
if %ciecie =
0 goto omin_id
if %id1 = 1
goto omin_id
id:
set #targcurs 1
set #sysmsgcol 1090
event sysmessage Wskaz teraz uszyty przedmiot, aby skrypt mogl pozniej pociac przedmioty!
menu shape ramka 10 240 230 18 3 6 1 blue 7 $98FB98
menu shape ramka 10 257 230 35 3 6 1 blue 7 $FFF8DC
menu font size 9
menu font color red
menu font style b
menu font bgcolor $98FB98
menu window size 250 300
menu text blad 110 241 Stan:
menu font size 7
menu font bgcolor $FFF8DC
menu font color black
menu text blad 15 265 Wskaz teraz uszyty przedmiot
menu font color blue
menu text blad 15 277 aby skrypt mogl pozniej pociac przedmioty!
if #menubutton = closed
menu show
set #menubutton n/a
set %licz
0 czekaj_id:
if #menubutton <> n/a
goto #menubutton
set %licz %licz + 1
if #targcurs =
0 goto dalej_id
if %licz > 100
goto id
goto czekaj_id
dalej_id:
set %id #ltargetid
set #sysmsgcol 1082
event sysmessage Zapisano.
menu delete ramka
menu delete blad
menu window size 250 240
set %id1 1
omin_id:
scanjournal 2
wait 1s
if W_pojemniku in #journal
{
set #sysmsgcol 1080
if %ciecie = 1
{
event macro 1 .grab
event sysmessage W pojemniku nie ma juz miejsca! Skrypt zaczyna ciac przedmioty!
wait 10
goto ciecie
}
set #sysmsgcol 1080
event sysmessage W pojemniku nie ma juz miejsca!
menu font size 10
menu font color red
menu font style b
menu font bgcolor btnface
menu delete startp
menu delete stopp
menu button startp 10 210 60 25 START
menu shape ramka 10 240 230 18 3 6 1 blue 7 $98FB98
menu shape ramka 10 257 230 30 3 6 1 blue 7 $FFF8DC
menu font size 9
menu font color red
menu font style b
menu font bgcolor $98FB98
menu window size 250 300
menu text blad 110 241 Błąd:
menu font size 7
menu font bgcolor $FFF8DC
menu font color black
menu text blad 15 265 W pojemniku nie ma juz miejsca!
if #menubutton = closed
menu show
set #menubutton n/a
goto czekaj
}
goto start
}
if Zniszczyl in #sysmsg
goto start
if Your in #sysmsg
goto start
goto koniec
ciecie:
if #menubutton <> n/a
goto #menubutton
set %ciecie_trwa 1
finditem kag C
if #findkind =
0{
set #lobjectid #findid
event macro 17
}
if #findkind = 1
{
ignoreitem #findid
goto ciecie
}
if #findkind = -1
{
set #sysmsgcol 1080
event sysmessage Nie masz nozyczek!
menu font size 10
menu font color red
menu font style b
menu font bgcolor btnface
menu delete startp
menu delete stopp
menu button startp 10 210 60 25 START
menu shape ramka 10 240 230 18 3 6 1 blue 7 $98FB98
menu shape ramka 10 257 230 30 3 6 1 blue 7 $FFF8DC
menu font size 9
menu font color red
menu font style b
menu font bgcolor $98FB98
menu window size 250 300
menu text blad 110 241 Błąd:
menu font size 7
menu font bgcolor $FFF8DC
menu font color black
menu text blad 15 265 Nie masz nożyczek!
if #menubutton = closed
menu show
set #menubutton n/a
goto czekaj
}
set %licz
0czekaj_nozyczki:
if #menubutton <> n/a
goto #menubutton
set %licz %licz + 1
if #targcurs = 1
goto dalej_nozyczki
if %licz > 50
goto ciecie
goto czekaj_nozyczki
dalej_nozyczki:
finditem %id C
if #findkind =
0{
set #lobjectid #findid
event macro 22
}
if #findkind = -1
{
set #sysmsgcol 1080
event sysmessage Nie znaleziono przedmiotu do ciecia! Skrypt zaczyna szyc!
set %ciecie_trwa
0 goto start
}
koniec1:
if #menubutton <> n/a
goto #menubutton
if Nie_mozesz_pociac in #sysmsg
{
if %rzut =
0 goto koniec11
click 126 94
event Drag #findID
wait 20
click %xr %yr p
goto ciecie
}
if #CONTSIZE = 188_118
{
if %rzut =
0 goto koniec11
click 126 94
event Drag #findID
wait 20
click %xr %yr p
goto ciecie
}
koniec11:
if Pociales in #sysmsg
goto ciecie2
if Nie_udalo_Ci in #sysmsg
goto ciecie2
goto koniec1
ciecie2:
if #menubutton <> n/a
goto #menubutton
finditem kag C
if #findkind =
0{
set #lobjectid #findid
event macro 17
}
if #findkind = 1
{
ignoreitem #findid
goto ciecie2
}
if #findkind = -1
{
set #sysmsgcol 1080
event sysmessage Nie masz nozyczek!
menu font size 10
menu font color red
menu font style b
menu font bgcolor btnface
menu delete startp
menu delete stopp
menu button startp 10 210 60 25 START
menu shape ramka 10 240 230 18 3 6 1 blue 7 $98FB98
menu shape ramka 10 257 230 30 3 6 1 blue 7 $FFF8DC
menu font size 9
menu font color red
menu font style b
menu font bgcolor $98FB98
menu window size 250 300
menu text blad 110 241 Błąd:
menu font size 7
menu font bgcolor $FFF8DC
menu font color black
menu text blad 15 265 Nie masz nożyczek!
if #menubutton = closed
menu show
set #menubutton n/a
goto czekaj
}
set %licz
0czekaj_nozyczki2:
if #menubutton <> n/a
goto #menubutton
set %licz %licz + 1
if #targcurs = 1
goto dalej_nozyczki2
if %licz > 50
goto ciecie2
goto czekaj_nozyczki2
dalej_nozyczki2:
finditem %id C
if #findkind =
0{
set #lobjectid #findid
event macro 22
}
if #findkind = -1
{
set #sysmsgcol 1080
event sysmessage Nie znaleziono przedmiotu do ciecia! Skrypt zaczyna szyc!
set %ciecie_trwa
0 goto start
}
koniec2:
if #menubutton <> n/a
goto #menubutton
if Nie_mozesz_pociac in #sysmsg
{
if %rzut =
0 goto koniec11
click 126 94
event Drag #findID
wait 20
click %xr %yr p
goto ciecie2
}
if #CONTSIZE = 188_118
{
if %rzut =
0 goto koniec11
click 126 94
event Drag #findID
wait 20
click %xr %yr p
goto ciecie2
}
koniec22:
if Pociales in #sysmsg
goto ciecie3
if Nie_udalo_Ci in #sysmsg
goto ciecie3
goto koniec2
ciecie3:
if #menubutton <> n/a
goto #menubutton
finditem kag C
if #findkind =
0{
set #lobjectid #findid
event macro 17
}
if #findkind = 1
{
ignoreitem #findid
goto ciecie3
}
if #findkind = -1
{
set #sysmsgcol 1080
event sysmessage Nie masz nozyczek!
menu font size 10
menu font color red
menu font style b
menu font bgcolor btnface
menu delete startp
menu delete stopp
menu button startp 10 210 60 25 START
menu shape ramka 10 240 230 18 3 6 1 blue 7 $98FB98
menu shape ramka 10 257 230 30 3 6 1 blue 7 $FFF8DC
menu font size 9
menu font color red
menu font style b
menu font bgcolor $98FB98
menu window size 250 300
menu text blad 110 241 Błąd:
menu font size 7
menu font bgcolor $FFF8DC
menu font color black
menu text blad 15 265 Nie masz nożyczek!
if #menubutton = closed
menu show
set #menubutton n/a
goto czekaj
}
set %licz
0czekaj_nozyczki3:
if #menubutton <> n/a
goto #menubutton
set %licz %licz + 1
if #targcurs = 1
goto dalej_nozyczki3
if %licz > 50
goto ciecie3
goto czekaj_nozyczki3
dalej_nozyczki3:
finditem %id C
if #findkind =
0{
set #lobjectid #findid
event macro 22
}
if #findkind = -1
{
set #sysmsgcol 1080
event sysmessage Nie znaleziono przedmiotu do ciecia! Skrypt zaczyna szyc!
set %ciecie_trwa
0 goto start
}
koniec3:
if #menubutton <> n/a
goto #menubutton
if Nie_mozesz_pociac in #sysmsg
{
if %rzut =
0 goto koniec33
click 126 94
event Drag #findID
wait 20
click %xr %yr p
goto ciecie3
}
if #CONTSIZE = 188_118
{
if %rzut =
0 goto koniec33
click 126 94
event Drag #findID
wait 20
click %xr %yr p
goto ciecie3
}
koniec33:
if Pociales in #sysmsg
goto start
if Nie_udalo_Ci in #sysmsg
goto start
goto koniec3
|
| eheheheehe|
|
| SiMet | 2006, lis 4 20:00
|
|
|
|
|
|
| Brak postaci | |
|
| 2014, kwi 25 |
initevent
event macro 1 0 .um ukrywanie
wait 5
event macro 17
target 5s
event macro 22
wait 8s ; czas po wykonaniu akcji
Prosze  | |
|
| Cannibal | 2006, lis 15 21:18 | 2007, lut 15 12:29
|
|
|
|
|
| Brak postaci | |
|
2015, lip 6
| Skarżysko | |
Anatomia:
initevents
start:
event macro 13 2
wait 5
target 9s
event macro 22
wait 5
goto start
prosciej sie nie da
|
| adzia!|
|
| SiMet | 2006, lis 19 23:57 | 2007, lut 15 12:30
|
|
|
|
|
| Brak postaci | |
|
| 2014, kwi 25 |
Ja bym do tego zywiolu jeszcze dodal event macro 1 0 ! STRAZ! POMOCY!
czyli:
initevents
start:
scanJournal 1
{
if you_see:_zywiolak in #journal
{
event macro 1 0 ! STRAZ! POMOCY
goto muza
}
else
{
wait 1s
goto start
}
muza:
sound d:\zywiol.wav
goto start
i nie wiem czy tam nie musi byc: if you_see:_zywiol, trzeba sprawdzic | |
|
| Sortris | 2006, lis 26 11:00
|
|
|
 |
|
|
| Nieznajomy | |
|
2005, lis 19
| Ostrołęka | |
mhm, wczoraj próbowałem z kumplem to trzeba zmienić trochę, działający skrypt jest taki:
initevents
start:
scanJournal 1
{
if You_see:_zywiolak_ziemi in #journal
{
event macro 1 0 ! STRAZ! POMOCY
goto muza
}
else
{
wait 1s
goto start
}
muza:
sound d:\zywiol.wav
goto start
if You_see:_szlam in #journal <<< wersja na szlama
ofc, prawa autorskie zastrzeżone, made by SiMet | |
|
| McDevil | 2006, gru 6 19:11 | 2007, lut 15 01:34
|
|
|
|
|
| Brak postaci | |
|
2009, maj 24
| Heh | |
Mam skrypt zatruwania:
set %lo #lobjectid
initevents
start:
set #ltargetkind 1
event macro 13 30
finditem avf
if #findkind = -1
halt
wait 1
wait 1
next:
set #ltargetid #findid
if #targcurs = 1
goto dalej
goto next
dalej:
wait 1
event macro 22
wait 3
finditem tsf
if #findkind = -1
halt
wait 1
wait 1
next2:
set #ltargetid #findid
if #targcurs = 1
goto dalej2
goto next2
dalej2:
event macro 22
event macro 22
wait 10s
|
| DM user....|
|
| SiMet | 2006, gru 7 22:33
|
|
|
|
|
|
| Brak postaci | |
|
| 2014, kwi 25 |
nitevents
narzedzia:
event macro 1 0 .um ukrywanie
if #weight > 500
{
set #sysmsgcol 1080
event sysmessage WAZYSZ 180 kamieni !
halt
}
finditem JTL
if #findkind = -1
halt
if #findkind = 1
{
ignoreitem #findid
goto narzedzia
}
set %licz
0set #lobjectid #findid
event macro 17
target 5s
event macro 22
wait 10
click 135 390
wait 8s
A jak dalej nie bedzie dzialalo to trzeba zmienic linijke click 135 390 bo TYLKO to sie zmienilo w skryptach! | | | | | | | | | | | |
| | | |
|
