l2.net-scripts/LearnSkills.l2s at master · fidget77/l2.net-scripts · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
// KRATKY POPIS
// SERVER:
// AUTOR: MOCHITTO
// DATE:
// SPECIAL THANKS FOR L2.NET CONTRIBUTORS
// REV.: 0
PRINT_TEXT "SCRIPT STARTED!]"

SET_EVENT "<&SCRIPTEVENT_SERVERPACKET&>" "<&SYSTEM_CURRENTFILE&>" ACQUIRESKILLLIST 144


BLOCK 144
SLEEP 983041234


FUNCTION ACQUIRESKILLLIST
	DEFINE ARRAYLIST LIST
	DEFINE INT ID
	DEFINE INT SUB_ID
	DEFINE INT SIZE

	PACKET.READ_BYTE ID
	PACKET.READ_INT32 SUB_ID
	PACKET.READ_INT32 SIZE

	FOR A 0 "<&SIZE&>" 1
		DEFINE INT S_ID
		DEFINE INT S_LVL
		DEFINE INT UNK1
		DEFINE INT UNK2
		DEFINE INT UNK3

		PACKET.READ_INT32 S_ID
		PACKET.READ_INT32 S_LVL
		PACKET.READ_INT32 UNK1
		PACKET.READ_INT32 UNK2
		PACKET.READ_INT32 UNK3

		IF ( S_ID >= 631 ) && ( S_ID  <= 634 )
			S_LVL = 6
		ENDIF

		DEFINE ARRAYLIST IN
		IN.ADD S_ID
		IN.ADD S_LVL
		IN.ADD UNK1
		IN.ADD UNK2
		IN.ADD UNK3
		LIST.ADD IN
		DELETE IN

		DELETE S_ID
		DELETE S_LVL
		DELETE UNK1
		DELETE UNK2
		DELETE UNK3
	NEXT

	DEFINE BYTEBUFFER PACKETB 99991
	PACKETB.WRITE_BYTE ID
	PACKETB.WRITE_INT32 SUB_ID
	PACKETB.WRITE_INT32 SIZE

	FOR A 0 "<&SIZE&>" 1
		PACKETB.WRITE_INT32 "<&LIST.<&A&>.0&>"
		PACKETB.WRITE_INT32 "<&LIST.<&A&>.1&>"
		PACKETB.WRITE_INT32 "<&LIST.<&A&>.2&>"
		PACKETB.WRITE_INT32 "<&LIST.<&A&>.3&>"
		PACKETB.WRITE_INT32 "<&LIST.<&A&>.4&>"
	NEXT
	PACKETB.TRIM_TO_INDEX

	INJECTBB_CLIENT PACKETB

RETURN VOID