Auto buy seeds - epilogue - www.l2walkerpolska.fora.pl

www.l2walkerpolska.fora.pl
L2Walker, Lineage II, L2.Net, L2Divine, L2Superman,

FAQ

Szukaj

Użytkownicy

Grupy

Galerie

Rejestracja

Profil

Zaloguj się, by sprawdzić wiadomości

Zaloguj

Auto buy seeds - epilogue

Forum www.l2walkerpolska.fora.pl Strona Główna -> L2.Net Scenariusze (scrypting)

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: Pon 18:06, 19 Lip 2010 Temat postu: Auto buy seeds - epilogue

pewne osoby troszke truly o ten skrypt wiec oto on ;P
testlem to na wlasnym serwie l2j - epilogue i dzialalo powinno na innych tez Wink

Kod:

// Manor - buy seed 1.0 by AdiFenix
//////////////////////////////////////////////////////////////////
DEFINE_GLOBAL Arraylist SED_ID 0
DEFINE_GLOBAL Arraylist ILO 0
////////////////
////////////////
////////////////

SED_ID.add #I6756
ILO.add #I2

SED_ID.add #I6760
ILO.add #I5

////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////
/////////////// Dont change anything below /////////////////////////
////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////
DEFINE_GLOBAL int zaeve 0
DEFINE_GLOBAL int ok 0
DEFINE_GLOBAL int check_last 0
DEFINE_GLOBAL int Gmsg 0
Define int temp_spr1 0
Define string Man_name "Manor Manager"
Define int dyst_man 0
///////////////////////

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
   PRINT_TEXT " You need to be closer to Manor manager !! - Script Stopped"
   jump_to_label koni
endif
ELSE
PRINT_TEXT " I dont see - Manor manager - Script Stopped"
jump_to_label koni
ENDIF
PRINT_TEXT "-------------------------------------------------------------------"
PRINT_TEXT "AUTO Buy seed v1.0 EPILOGUE by AdiFenix"
PRINT_TEXT "-------------------------------------------------------------------"

SET_EVENT "<&SCRIPTEVENT_SERVERPACKET&>" "<&SYSTEM_CURRENTFILE&>" Buy_lis 233
sleep 500
Call prepare_1

do
sleep 1000
loop zaeve == 0

Label koni

END_SCRIPT

FUNCTION prepare_1
ok = 1
do
NPC_DIALOG "bypass -h manor_menu_select?ask=1&state=-1&time=0"
sleep 700
loop ok != 0

endif

RETURN VOID

FUNCTION Buy_lis
ok = 0
define bytebuffer pack_to_send 2000
define arraylist read_data_id
define arraylist read_data_count

define int manor_id 0
define int list_size 0
define int item_id 0
define int item_coun 0

packet.read_byte null
packet.read_int64 null
packet.read_int32 manor_id
packet.read_int16 list_size

for a 0 "<&list_size&>" 1
packet.read_int16 null
packet.read_int32 null
packet.read_int32 item_id
packet.read_int64 item_coun
packet.read_int16 null
packet.read_int16 null
packet.read_int64 null

for b 0 "<&SED_ID.count&>" 1
if SED_ID.b == item_id
   if item_coun < ILO.b
      read_data_id.add item_id.clone
      read_data_count.add item_coun.clone
   else
      read_data_id.add item_id.clone
      read_data_count.add ILO.b.clone
   endif

endif

next

next

if read_data_id.count > 0
pack_to_send.write_byte #i197
pack_to_send.write_int32 manor_id
pack_to_send.write_int32 read_data_id.count

for a 0 "<&read_data_id.count&>" 1
   pack_to_send.write_int32 read_data_id.a
   pack_to_send.write_int64 read_data_count.a
next
pack_to_send.TRIM_TO_INDEX
injectbb pack_to_send
endif
zaeve = 1
RETURN VOID

dodajemy/usuwamy /zmieniamy
te czesc

SED_ID.add #I6756
ILO.add #I2

SED_ID.add #I6760
ILO.add #I5

SED_ID.add #I
zatym id seda
ILO.add #I
zatym ilosc jaka chcemy kupic

niestety niemam listy z id sedow iraczej je jsam niezrobie (za leniwy jestem)
a nieuzywam manora
jak ktos zrobi taka liste to by bylo fajnie Wink

Post został pochwalony 0 razy

Ostatnio zmieniony przez FX dnia Pon 18:07, 19 Lip 2010, w całości zmieniany 1 raz

Powrót do góry

Zobacz poprzedni temat :: Zobacz następny temat

Autor

Wiadomość

ranze

Dołączył: 22 Cze 2010
Posty: 5
Przeczytał: 0 tematów

Ostrzeżeń: 0/5

Wysłany: Śro 11:35, 21 Lip 2010 Temat postu:

SED_ID.add #I6756 ILO.add #I2 SED_ID.add #I6760 ILO.add #I5 Jest to powtórzone aby kupić np 2 inne nasiona czy tylko 1 można? 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: Śro 16:21, 21 Lip 2010 Temat postu:

mozesz kupic 1 lub 12312 rodzajow naraz z tym ze na kazdy rodzaj nasiona musisz dodac 2 linie z id i z iloscia wedlug wzoru ktory podalem Post został pochwalony 0 razy

Powrót do góry

Wyświetl posty z ostatnich:

	Forum www.l2walkerpolska.fora.pl Strona Główna -> L2.Net Scenariusze (scrypting)	Wszystkie czasy w strefie EET (Europa)
Strona 1 z 1

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

Regulamin