Potrzeba mi scrypta na necro house ~ (blackd)
z gory thx
Ostatnio zmieniony przez howe : 13-01-2009, 19:47
Ostatnio zmieniony przez Maciuk22 : 13-01-2009, 20:24
Cytat został ukryty, ponieważ ignorujesz tego użytkownika. Pokaż cytat.
const
minMana = 200; //ile many
ManaPotionId = 268;//moglem dac zle ID, przetestuj przed uzyciem ;d
function GetItemFromOpenBackpack(ItemID, ItemType: integer): TItem;
begin
Result := nil;
for x := 0 to Self.Containers.Count - 1 do
begin
if x >= Self.Containers.Count then Break;
for y := 0 to Self.Containers.Container[x].Count - 1 do
begin
if y >= Self.Containers.Container[x].Count then Break;
if Self.Containers.Container[x].Item[y].ID = ItemID then
begin
if Self.Containers.Container[x].Item[y].Amount = ItemType then
begin
Result := Self.Containers.Container[x].Item[y];
Exit;
end;
end;
end;
end;
end;
while not Terminated do
begin
UpdateWorld;
if Self.Mana < minMana then
begin
Vial := GetItemFromOpenBackpack(ManaPotionId,0);
if Vial <> nil then
begin
Vial.UseWithSelf;
Sleep(500);
end;
end;
Sleep(500);
end;
Ostatnio zmieniony przez Sifersix : 14-01-2009, 16:16
onGMpause
setPriority Elf Arcanist:+1
setMeleeKill slime
setMeleeKill snake
setMeleeKill centipede
setMeleeKill bat
setMeleeKill elf
setMeleeKill elf scout
setMeleeKill elf arcanist
setMeleeKill dragon
setAvoidFront dragon
setLootOn
setLoot E5 0C
setLoot D7 0B
setLoot 0A 01
setLoot EC 00
setLoot ED 00
setLoot E1 0C
setLoot 58 0D
setLoot FA 0C
setLoot 06 1D
setLoot E5 0D
setLoot 17 0D
setLoot FF 0B
setLoot 79 0D
setLoot D4 0B
setLoot F5 16
setLoot 20 17
setLoot 21 17
setLoot 22 17
setLoot 0A 0C
setLoot F5 0B
setLoot 01 0C
setLoot DD 0B
move 33075,32171,1
move 33075,32173,2
move 33075,32168,2
move 33074,32167,3
move 33076,32172,3
move 33079,32171,4
move 33075,32169,3
sayMessage exiva > 68
move 33072,32172,4
move 33076,32166,3
move 33075,32166,4
move 33076,32169,5
move 33075,32168,6
move 33074,32167,7
IfTrue ($mycap$#number<#100) Goto $nlineoflabel:run$
move 33076,32169,7
move 33075,32167,8
move 33078,32180,8
move 33067,32198,8
move 33056,32197,8
move 33047,32195,8
move 33045,32200,8
move 33062,32205,8
move 33057,32209,8
move 33055,32209,9
move 33044,32211,9
move 33042,32211,10
move 33039,32211,10
move 33044,32211,9
move 33056,32211,8
move 33066,32198,8
move 33076,32167,8
move 33075,32167,7
move 33075,32169,7
move 33075,32168,6
move 33075,32169,5
move 33075,32167,4
move 33075,32167,3
move 33075,32168,2
move 33075,32171,1
gotoScriptLine 0
:run
move 33068,32169,7
move 33062,32158,7
move 33063,32158,6
move 33075,32156,6
move 33076,32155,7
move 33085,32149,7
move 33098,32140,7
move 33098,32136,6
sayMessage exiva > 65
sayMessage exiva > 65
move 33099,32134,7
move 33110,32122,7
:1
move 33111,32121,7
waitX 2
sayMessage exiva > 83 FF FF 00 00 00 EC 0C 00 59 81 78 7D 07 70 0E 01
waitX 1
sayMessage exiva > 83 FF FF 00 00 00 EC 0C 00 5A 81 78 7D 07 70 0E 01
waitX 1
sayMessage exiva > 83 FF FF 00 00 00 EC 0C 00 58 81 78 7D 07 70 0E 01
waitX 2
sayMessage exiva > 83 FF FF 00 00 00 EC 0C 00 59 81 77 7D 07 70 0E 01
waitX 1
sayMessage exiva > 83 FF FF 00 00 00 EC 0C 00 5A 81 77 7D 07 70 0E 01
waitX 1
sayMessage exiva > 83 FF FF 00 00 00 EC 0C 00 58 81 77 7D 07 70 0E 01
waitX 2
sayMessage exiva > 83 FF FF 00 00 00 EC 0C 00 59 81 76 7D 07 70 0E 01
waitX 1
sayMessage exiva > 83 FF FF 00 00 00 EC 0C 00 5A 81 76 7D 07 70 0E 01
waitX 2
sayMessage exiva > 83 FF FF 00 00 00 EC 0C 00 59 81 75 7D 07 70 0E 02
waitX 1
sayMessage exiva > 83 FF FF 00 00 00 EC 0C 00 5A 81 75 7D 07 70 0E 02
waitX 2
sayMessage exiva > 83 FF FF 00 00 00 EC 0C 00 59 81 74 7D 07 70 0E 02
waitX 1
sayMessage exiva > 83 FF FF 00 00 00 EC 0C 00 5A 81 74 7D 07 70 0E 02
waitX 2
sayMessage exiva > 83 FF FF 00 00 00 EC 0C 00 59 81 73 7D 07 70 0E 02
waitX 1
sayMessage exiva > 83 FF FF 00 00 00 EC 0C 00 5A 81 73 7D 07 70 0E 01
waitX 2
move 33102,32104,7
IfTrue ($myy$#number>#32115) Goto $nlineoflabel:1$
move 33100,32104,6
move 33099,32086,6
move 33099,32084,7
move 33086,32062,7
move 33086,32061,8
move 33090,32058,8
move 33090,32057,9
move 33082,32056,9
move 33082,32057,10
move 33054,32063,10
move 33054,32063,9
move 33050,32061,9
move 33050,32061,8
move 33048,32063,8
move 33048,32063,7
move 33016,32073,7
move 33014,32095,7
move 33017,32095,6
move 33029,32105,6
move 33028,32107,7
move 33007,32133,7
move 33009,32133,6
move 33025,32151,6
move 33027,32151,7
move 32959,32159,7
move 32936,32160,7
move 32936,32158,6
move 32936,32158,6
move 32936,32126,6
move 32975,32108,6
move 32998,32074,6
move 33010,32054,6
move 33019,32054,6
waitX 1
:cumpliments
sayMessage exiva > 66
sayMessage hi
waitX 1
IfTrue ($lastmsg$#string=#Hey, $charactername$ gimme a minute, ok?) Goto $nlineoflabel:wait$
IfTrue ($lastmsg$#string=#Hiho, Hiho, $charactername$! What can I do for you?) Goto $nlineoflabel:deposit$
:wait
waitX 5
IfTrue ($lastmsg$#string=#Yeah, bye.) Goto $nlineoflabel:cumpliments$
IfTrue ($lastmsg$#string=#Hiho, Hiho, $charactername$! What can I do for you?) Goto $nlineoflabel:deposit$
waitX 60
move 33019,32054,6
sayMessage hi
waitX 2
IfTrue ($lastmsg$#string=#Yeah, bye.) Goto $nlineoflabel:cumpliments$
IfTrue ($lastmsg$#string=#Hiho, Hiho, $charactername$! What can I do for you?) Goto $nlineoflabel:deposit$
gotoScriptLine $nlineoflabel:wait$
:deposit
waitX 3
sayMessage deposit all
waitX 1
sayMessage yes
waitX 1
move 33019,32058,6
move 33020,32060,7
move 33017,32053,7
putLootOnDepot
move 33020,32058,6
move 33007,32054,6
move 32998,32074,6
move 32991,32109,6
move 32958,32119,6
move 32936,32158,6
move 32935,32159,6
move 32952,32159,7
move 33002,32159,7
move 33027,32152,7
move 33025,32151,6
move 33009,32134,6
move 33007,32133,7
move 33027,32107,7
move 33028,32105,6
move 33017,32095,6
move 33015,32095,7
move 33048,32061,7
move 33048,32062,8
move 33050,32060,9
move 33054,32062,10
move 33082,32057,10
move 33082,32058,9
move 33090,32057,9
move 33090,32058,8
move 33086,32062,7
move 33096,32084,7
move 33099,32086,6
move 33100,32104,6
move 33102,32104,7
:2
move 33113,32114,7
waitX 2
sayMessage exiva > 83 FF FF 00 00 00 EC 0C 00 59 81 73 7D 07 70 0E 02
waitX 1
sayMessage exiva > 83 FF FF 00 00 00 EC 0C 00 5A 81 73 7D 07 70 0E 01
waitX 2
sayMessage exiva > 83 FF FF 00 00 00 EC 0C 00 59 81 74 7D 07 70 0E 02
waitX 1
sayMessage exiva > 83 FF FF 00 00 00 EC 0C 00 5A 81 74 7D 07 70 0E 02
waitX 2
sayMessage exiva > 83 FF FF 00 00 00 EC 0C 00 59 81 75 7D 07 70 0E 02
waitX 1
sayMessage exiva > 83 FF FF 00 00 00 EC 0C 00 5A 81 75 7D 07 70 0E 02
waitX 2
sayMessage exiva > 83 FF FF 00 00 00 EC 0C 00 59 81 76 7D 07 70 0E 01
waitX 1
sayMessage exiva > 83 FF FF 00 00 00 EC 0C 00 5A 81 76 7D 07 70 0E 01
waitX 2
sayMessage exiva > 83 FF FF 00 00 00 EC 0C 00 59 81 77 7D 07 70 0E 01
waitX 1
sayMessage exiva > 83 FF FF 00 00 00 EC 0C 00 5A 81 77 7D 07 70 0E 01
waitX 1
sayMessage exiva > 83 FF FF 00 00 00 EC 0C 00 58 81 77 7D 07 70 0E 01
waitX 2
sayMessage exiva > 83 FF FF 00 00 00 EC 0C 00 59 81 78 7D 07 70 0E 01
waitX 1
sayMessage exiva > 83 FF FF 00 00 00 EC 0C 00 5A 81 78 7D 07 70 0E 01
waitX 1
sayMessage exiva > 83 FF FF 00 00 00 EC 0C 00 58 81 78 7D 07 70 0E 01
waitX 2
move 33110,32122,7
IfTrue ($myy$#number<#32119) Goto $nlineoflabel:2$
move 33099,32134,7
move 33098,32136,6
move 33098,32136,6
sayMessage exiva > 67
sayMessage exiva > 67
move 33098,32140,7
move 33085,32149,7
move 33076,32155,7
move 33075,32156,6
move 33063,32158,6
move 33062,32158,7
move 33068,32169,7
move 33075,32167,7
move 33074,32168,6
gotoScriptLine 0
33074
32168
2
6
33074
32167
3
5
33074
32167
3
6
33075
32169
3
6
33074
32169
3
8
33073
32169
4
6
33074
32169
4
8
33075
32169
3
6
33076
32169
3
8
33077
32169
4
6
33076
32169
4
8
33075
32166
4
5
33075
32166
4
6
33076
32166
5
5
33076
32166
5
6
33075
32166
6
5
33075
32166
6
6
33075
32167
6
6
33074
32167
7
5
33074
32167
7
6
33075
32167
7
6
33075
32166
8
5
33075
32166
8
6
33053
32197
8
6
33045
32197
8
6
33056
32209
8
6
33056
32210
9
5
33056
32210
9
6
33044
32211
9
6
33043
32211
9
8
33042
32211
10
6
33043
32211
10
8
33044
32211
9
6
33056
32210
9
1
33056
32211
8
6
33052
32197
8
6
33045
32197
8
6
33075
32166
8
6
33075
32166
8
2
33074
32167
7
2
33075
32166
6
2
33076
32166
5
2
33075
32166
4
2
33074
32167
3
2
33075
32168
2
6
33048
32177
8
6
Ostatnio zmieniony przez Mag Samurai : 16-01-2009, 17:57
Ostatnio zmieniony przez Eragon Władca Smoków : 15-01-2009, 12:34
www.Tibiaspy.com<--Polska,najlepsza strona starająca dostać się do SF! Zapraszam
Aktualnie 1 użytkowników przegląda ten temat. (0 użytkowników i 1 gości)
Zakładki