 |
www.l2walkerpolska.fora.pl
L2Walker, Lineage II, L2.Net, L2Divine, L2Superman,
|
| Zobacz poprzedni temat :: Zobacz następny temat |
| Autor |
Wiadomość |
FX
Moderator
Dołączył: 28 Sty 2010
Posty: 682
Przeczytał: 0 tematów
Pomógł: 17 razy
Ostrzeżeń: 0/5
|
 Wysłany: Wto 10:40, 18 Maj 2010 Temat postu: Manor skrypt dla "l2.net.pl" |
|
|
wczoraj wieczorem testlem ta wersje skryptu i "niezlapalo" mnie chodz wsumie raczej niemoglo bo ten skrypt juz robi to tak jak "glupawy" gracz
poprzedni skrypt byl ok - tzn ludzie tak samo robili ale widac dev'a tamtego serva nieobchodzi kogo pobanuje ...
uzywa sie go tak jak poprzedniego - odpalamy se go jak mani sie zacznie najlepiej kolo 20 i czekamy 
| Kod: |
// Manor 1.1a by AdiFenix (anti anti bot )
//////////////////////////////////////////////////////////////////
DEFINE_GLOBAL int ID_Seda 6542 // 6545
DEFINE_GLOBAL int Ilos 10
/////////////////////////////////////////////////////////////////////
///////////////////// Manor /////////////////////////////////////////
// 1 - gludio ///2 - dion // 3 - giran // 4 - oren // 5 -aden
// 6 - innadril // 7 - goddard // 8 - rune // 9 - schuttgard
DEFINE_GLOBAL int Man_nr 3
////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////
/////////////// Dont change anything below /////////////////////////
////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////
Define string Man_name "Manor Manager"
DEFINE_GLOBAL int rdy 0
Define int temp_spr1 0
Define int dyst_man
PRINT_TEXT "-------------------------------------------------------------------"
PRINT_TEXT "AUTO Sell crops v1.1a EPILOGUE by AdiFenix (anti anti bot)"
PRINT_TEXT "-------------------------------------------------------------------"
IF target_name != Man_name
COMMAND "/Target <&Man_name&>"
ENDIF
sleep 500
IF target_name == Man_name
DISTANCE dyst_man CHAR_X CHAR_Y CHAR_Z TARGET_X TARGET_Y TARGET_Z
if dyst_man < 150
IF ID_Seda >= 5000
IF ID_Seda <= 6568
ITEM_COUNT temp_spr1 "<&ID_Seda&>"
sleep 500
if temp_spr1 < Ilos
PRINT_TEXT "You typed too much crops to sell = <&Ilos&> in inv u have = <&temp_spr1&> - Script Stopped"
ELSE
PRINT_TEXT " Starting monitoring manor system .... "
DEFINE_GLOBAL int zaeve 0
call prepare_1
ENDIF
else
PRINT_TEXT " Are u sure its CROP ID ? Check it please ! - Script Stopped"
endif
else
PRINT_TEXT " Are u sure its CROP ID ? Check it please ! - Script Stopped"
endif
else
PRINT_TEXT " You need to be closer to Manor manager !! - Script Stopped"
endif
else
PRINT_TEXT " I dont see - Manor manager - Script Stopped"
endif
END_SCRIPT
FUNCTION prepare_1
define int ra_sle 0
SET_EVENT "<&SCRIPTEVENT_SERVERPACKETEX&>" "<&SYSTEM_CURRENTFILE&>" Buy_fun 120
SET_EVENT "<&SCRIPTEVENT_SERVERPACKETEX&>" "<&SYSTEM_CURRENTFILE&>" antyl2net 44
zaeve = 1
do
GET_RAND ra_sle 0 180
sleep 600
sleep "<&ra_sle&>"
if rdy == 0
NPC_DIALOG "bypass -h manor_menu_select?ask=2&state=-1&time=0"
endif
loop rdy == 0
do
sleep 1000
loop zaeve == 1
RETURN VOID
FUNCTION antyl2net
rdy = 1
define int rrt 0
GET_RAND rrt 0 180
sleep "<&rrt&>"
sleep 600
NPC_DIALOG "bypass -h manor_menu_select?ask=9&state=<&ID_Seda&>&time=0"
return void
FUNCTION Buy_fun
Define int Man_ok 0
Define int temp_seed 0
Define int ile_man 0
Define int temp_manor 0
Define int ilo_sed 0
Define int price 0
Define int temp_uid 0
packet.READ_BYTE null
packet.READ_INT16 null
packet.READ_INT32 temp_seed
if temp_seed == ID_Seda
packet.READ_INT32 ile_man
for a 0 "<&ile_man&>" 1
packet.READ_INT32 temp_manor
if temp_manor == Man_nr
// 4 (32 bit)
packet.READ_INT64 ilo_sed
packet.READ_INT64 price
packet.READ_BYTE null
PRINT_TEXT " Slots available = <&ilo_sed&> Price <&price&>"
Man_ok = 1
ELSE
packet.READ_INT64 null
packet.READ_INT64 null
packet.READ_BYTE null
ENDIF
NEXT
IF Man_ok == 1
IF ilo_sed < Ilos
Ilos = ilo_sed.clone
PRINT_TEXT "Matching ... "
ENDIF
INVEN_GET_UID temp_uid "<&ID_Seda&>"
inject "D0 02 00 01 00 00 00 <&temp_uid.GET_HEX32&> <&ID_Seda.GET_HEX32&> <&Man_nr.GET_HEX32&> <&Ilos.GET_HEX32&> 00 00 00 00"
// 4 bits ?
PRINT_TEXT " Sended = you should get the mats now"
zaeve = 0
ENDIF
else
PRINT_TEXT " DEBUG:ERROR WITH PACKET??? TID <&temp_seed&> SID = <&ID_Seda&> "
endif
RETURN VOID
|
film z testu : http://www.youtube.com/watch?v=YBWmakc8srs
Post został pochwalony 0 razy
Ostatnio zmieniony przez FX dnia Wto 19:23, 18 Maj 2010, w całości zmieniany 2 razy
|
|
| Powrót do góry |
|
 |
|
|
|
| Zobacz poprzedni temat :: Zobacz następny temat |
| Autor |
Wiadomość |
babciawladzia
Dołączył: 01 Mar 2010
Posty: 10
Przeczytał: 0 tematów
Ostrzeżeń: 0/5
|
| Wysłany: Śro 20:17, 16 Cze 2010 Temat postu: |
|
|
Generalnie skrypt rewelka.
Ale jeszcze mam jedną kwestie:
on sprzedaje jeden rodzaj owoców. Mógłby ktoś dopisać tak, żeby po sprzedaniu jednych sprzedawał inne?
Post został pochwalony 0 razy
|
|
| Powrót do góry |
|
|
| Zobacz poprzedni temat :: Zobacz następny temat |
| Autor |
Wiadomość |
FX
Moderator
Dołączył: 28 Sty 2010
Posty: 682
Przeczytał: 0 tematów
Pomógł: 17 razy
Ostrzeżeń: 0/5
|
| Wysłany: Czw 10:05, 17 Cze 2010 Temat postu: |
|
|
a wystarczylo wejsc na glowne forum l2neta  (tam sa inne wersje skryptu)
ten skrypt jest dosyc wolny wiec .. ;d
Post został pochwalony 0 razy
Ostatnio zmieniony przez FX dnia Pią 9:33, 18 Cze 2010, w całości zmieniany 1 raz
|
|
| Powrót do góry |
|
|
|
|
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
|
fora.pl - załóż własne forum dyskusyjne za darmo
Powered by phpBB © 2001, 2005 phpBB Group
|
FAQ
Szukaj
Użytkownicy
Grupy
Galerie
Rejestracja
Zaloguj się, by sprawdzić wiadomości
Zaloguj
