Szukam skryptu dzięki któremu moja postać która będzie miała full mp będzie wpisywała zawszę exurke. Mam BlackD i nigdzie nie widzę opcji gdzie takie coś ustawić więc myślę że skrypt potrzebny:)
#####Config#####
fastExiva _bugslevel = 6
fastExiva _branchtries = 4
################
onGMpause
fastExiva < B4 14 $hex-tibiastr:Advanced Rook to Main v2.1 Olaf Pozdrawia.$
waitX 2
fastExiva < B4 14 $hex-tibiastr:Script created by Darkmystery (Jesse), please give me credit if you ***** this script. ^^$
waitX 1
fastExiva < B4 12 $hex-tibiastr:Chapter I: The tutorial.$
move 32023,32273,7
move 32025,32273,6
move 32032,32273,6
fastExiva > A2 $hex-idofname:Santiago$
waitX 2
sayMessage hi
waitX 1
sayInTrade yes
waitX 1
sayInTrade yes
waitX 1
sayInTrade yes
fastExiva > A2 00 00 00 00
move 32034,32279,6
move 32032,32279,5
useItem 32034,32276,5
waitX 1
fastExiva > 0F 00 78 FF FF 40 00 00 EA 0D 00 FF FF 04 00 00 01
move 32032,32279,5
move 32034,32279,6
move 32032,32273,6
fastExiva > A2 $hex-idofname:Santiago$
waitX 2
sayMessage hi
waitX 1
sayInTrade yes
waitX 1
sayInTrade yes
waitX 1
sayInTrade yes
fastExiva > A2 00 00 00 00
move 32036,32278,6
move 32036,32277,7
move 32038,32274,7
move 32038,32273,8
move 32034,32278,8
useItem 32033,32278,8
waitX 1
fastExiva > 0F 00 78 FF FF 06 00 00 68 0B 00 22 7D 16 7E 08 01
move 32034,32284,8
fastExiva > 0A 00 82 23 7D 1D 7E 08 46 1E 01 00
:roach
setMeleeKill Cockroach
setLoot CA 1E
IfEnoughItemsGoto CA 1E,3,$nlineoflabel:deadroach$
move 32035,32285,9
gotoScriptLine $nlineoflabel:roach$
:deadroach
resetLoot
resetKill
move 32035,32285,9
move 32035,32286,8
move 32038,32273,8
move 32038,32274,7
move 32036,32277,7
move 32036,32278,6
move 32032,32273,6
fastExiva > A2 $hex-idofname:Santiago$
waitX 2
sayMessage hi
waitX 1
sayInTrade yes
waitX 1
sayInTrade no
waitX 1
sayInTrade yes
waitX 1
sayInTrade yes
waitX 1
fastExiva > 0A 00 82 FF FF 06 00 00 CD 1E 00 01
waitX 1
sayInTrade yes
waitX 1
sayInTrade yes
fastExiva > A2 00 00 00 00
move 32045,32271,6
move 32047,32271,7
move 32057,32270,7
fastExiva > A2 $hex-idofname:Zirella$
waitX 2
sayMessage hi
waitX 1
sayInTrade yes
waitX 1
sayInTrade yes
waitX 1
sayInTrade yes
waitX 1
sayInTrade yes
waitX 1
sayInTrade yes
waitX 1
sayInTrade yes
waitX 1
sayInTrade alright
fastExiva > A2 00 00 00 00
fastExiva < B4 12 $hex-tibiastr:This part is tricky since other players may steal your branches.$
fastExiva testding
fastExiva _tries = 0
:branch
move 32066,32282,7
waitX 2
fastExiva > 0A 00 82 43 7D 19 7E 07 49 1E 01 00
waitX 1
fastExiva > 0F 00 78 42 7D 1A 7E 07 48 1E 02 41 7D 16 7E 07 01
waitX 1
fastExiva > 0F 00 78 42 7D 1A 7E 07 48 1E 01 41 7D 16 7E 07 01
move 32065,32277,7
waitX 1
fastExiva > 0F 00 78 41 7D 16 7E 07 48 1E 01 3E 7D 10 7E 07 01
waitX 1
fastExiva > 0F 00 78 41 7D 16 7E 07 48 1E 02 3E 7D 10 7E 07 01
move 32063,32273,7
fastExiva > 11 00 83 3E 7D 10 7E 07 48 1E 01 3E 7D 0F 7E 07 5C 1E 01
waitX 1
fastExiva > 11 00 83 3E 7D 10 7E 07 48 1E 02 3E 7D 0F 7E 07 5C 1E 01
fastExiva _tries = $numericalexp:{$_tries$}+1$
IfTrue ($_tries$#number<#$_branchtries$) Goto $nlineoflabel:branch$
move 32057,32270,7
fastExiva > A2 $hex-idofname:Zirella$
waitX 2
sayMessage hi
waitX 1
sayInTrade yes
fastExiva > A2 00 00 00 00
move 32058,32267,7
useItem 32058,32266,7
move 32058,32265,7
fastExiva > 0A 00 82 3B 7D 09 7E 07 4D 1E 02 00
waitX 2
fastExiva > 0F 00 78 FF FF 06 00 00 CB 1E 00 FF FF 40 00 00 01
waitX 1
fastExiva > 0F 00 78 FF FF 06 00 00 CB 1E 00 FF FF 40 00 00 01
useItem 32058,32266,7
move 32069,32266,7
move 32070,32266,8
move 32067,32265,8
useItem 32067,32264,8
waitX 1
fastExiva > 0F 00 78 FF FF 06 00 00 CC 1E 00 FF FF 40 00 00 01
move 32070,32266,8
move 32070,32267,7
move 32086,32265,7
fastExiva > A2 $hex-idofname:Carlos$
waitX 2
sayMessage hi
waitX 1
sayInTrade yes
fastExiva > 08 00 D3 82 00 00 4F 4D 00 00
sayMessage hi
waitX 1
sayInTrade yes
waitX 1
sayInTrade yes
waitX 1
sayInTrade yes
fastExiva > A2 00 00 00 00
:killcuteanimals
setLoot F9 0D
setMeleeKill Rabbit
setMeleeKill Deer
IfEnoughItemsGoto F9 0D,1,$nlineoflabel:deadanimals$
move 32094,32266,7
IfEnoughItemsGoto F9 0D,1,$nlineoflabel:deadanimals$
move 32082,32260,7
gotoScriptLine $nlineoflabel:killcuteanimals$
:deadanimals
setLootOff
resetLoot
resetKill
move 32086,32265,7
fastExiva > A2 $hex-idofname:Carlos$
waitX 2
sayMessage hi
waitX 1
sayInTrade yes
waitX 1
sayInTrade trade
waitX 1
fastExiva > 7B F9 0D 00 $numbertohex1:{$countitems:F9 0D$}$
waitX 1
sayInTrade ready
fastExiva > A2 00 00 00 00
waitX 1
fastExiva > 0F 00 78 FF FF 06 00 00 D7 0B 00 FF FF 40 00 00 $numbertohex1:{$countitems:D7 0B$}$
waitX 1
fastExiva > 0F 00 78 FF FF 40 00 02 81 0D 02 FF FF 06 00 00 01
waitX 1
fastExiva > 0F 00 78 FF FF 40 00 01 BB 0B 01 FF FF 0A 00 00 01
move 32075,32258,7
move 32075,32256,6
move 32075,32249,6
move 32075,32246,7
move 32087,32226,7
fastExiva < B4 12 $hex-tibiastr:Chapter II: The food collecting.$
:food
setMeleeKill Deer
setMeleeKill Rabbit
setMeleeKill Sheep
setLootOn
setLoot F9 0D
setLoot 0B 0E
setLoot FE 0D
move 32087,32216,7
IfTrue ($mycap$#number<=#5000) Goto $nlineoflabel:sellfood$
move 32079,32216,7
fastExiva > 0A 00 82 4E 7D D8 7D 07 81 08 01 01
:soldfood
move 32065,32209,7
IfTrue ($mycap$#number<=#10000) Goto $nlineoflabel:sellfoodfence$
move 32074,32219,7
fastExiva > 0A 00 82 4A 7D DC 7D 07 83 08 02 01
move 32075,32233,7
IfTrue ($mycap$#number<=#5000) Goto $nlineoflabel:sellfood$
move 32084,32239,7
IfTrue ($mycap$#number<=#5000) Goto $nlineoflabel:sellfood$
move 32096,32213,7
IfTrue ($mycap$#number<=#5000) Goto $nlineoflabel:sellfood$
move 32113,32241,7
IfTrue ($mycap$#number<=#5000) Goto $nlineoflabel:sellfood$
move 32110,32248,7
IfTrue ($mycap$#number<=#5000) Goto $nlineoflabel:sellfood$
move 32098,32246,7
IfTrue ($mycap$#number<=#5000) Goto $nlineoflabel:sellfood$
move 32097,32213,7
IfTrue ($mycap$#number<=#5000) Goto $nlineoflabel:sellfood$
gotoScriptLine $nlineoflabel:food$
:sellfoodfence
fastExiva > 0A 00 82 43 7D CE 7D 07 83 08 01 01
:sellfood
move 32048,32205,7
fastExiva > A2 $hex-idofname:Willie$
waitX 2
sayMessage hi
waitX 1
sayInTrade trade
waitX 1
IfFewItemsGoto FE 0D,1,$nlineoflabel:noham$
fastExiva > 7B FE 0D 00 $numbertohex1:{$countitems:FE 0D$}$
waitX 1
:noham
IfFewItemsGoto F9 0D,1,$nlineoflabel:nomeat$
fastExiva > 7B F9 0D 00 $numbertohex1:{$countitems:F9 0D$}$
waitX 1
:nomeat
IfFewItemsGoto 0B 0E,1,$nlineoflabel:nocarrot$
fastExiva > 7B 0B 0E 00 $numbertohex1:{$countitems:0B 0E$}$
waitX 1
:nocarrot
sayInTrade bye
stackItems
fastExiva > A2 00 00 00 00
IfEnoughItemsGoto D7 0B,66,$nlineoflabel:eq$
move 32067,32205,7
fastExiva > 0A 00 82 43 7D CE 7D 07 83 08 01 01
gotoScriptLine $nlineoflabel:soldfood$
:eq
resetLoot
resetKill
fastExiva < B4 12 $hex-tibiastr:Chapter III: The art of trading.$
move 32097,32205,7
move 32107,32203,7
waitX 2
fastExiva > 0F 00 78 FF FF 04 00 00 EA 0D 00 6B 7D CB 7D 07 01
waitX 1
fastExiva > 0F 00 78 FF FF 05 00 00 C6 0C 00 6B 7D CB 7D 07 01
waitX 1
fastExiva > 0F 00 78 FF FF 06 00 00 81 0D 00 6B 7D CB 7D 07 01
waitX 1
fastExiva > 0F 00 78 FF FF 0A 00 00 BB 0B 00 FF FF 40 00 00 01
waitX 1
sayMessage hi
waitX 1
sayInTrade trade
waitX 1
fastExiva > 07 00 7A C9 0C 00 01 00 00
waitX 1
sayInTrade bye
move 32110,32208,7
move 32110,32206,6
move 32107,32207,6
waitX 2
sayMessage hi
waitX 1
sayInTrade trade
waitX 1
fastExiva > 07 00 7A 54 0D 00 01 00 00
waitX 1
fastExiva > 07 00 7A E7 0D 00 01 00 00
waitX 1
fastExiva > 07 00 7A 33 0D 00 01 00 00
waitX 1
IfFewItemsGoto D7 0B,12,$nlineoflabel:nohelmet$
fastExiva > 07 00 7A 1B 0D 00 01 00 00
waitX 1
:nohelmet
sayInTrade bye
move 32110,32206,6
move 32110,32208,7
move 32097,32205,7
fastExiva < B4 12 $hex-tibiastr:Chapter IV: The hunting.$
:entercave
move 32060,32174,7
fastExiva > 0A 00 82 3C 7D AD 7D 07 B3 01 01 01
move 32059,32172,8
move 32059,32171,9
:hunt
setMeleeKill Rat
setMeleeKill Bug
setMeleeKill Cave Rat
setLoot D7 0B
move 32050,32161,9
move 32050,32160,9
move 32050,32159,10
move 32050,32156,10
move 32050,32155,11
move 32035,32156,11
move 32025,32160,11
move 32014,32161,11
move 32008,32174,11
move 31993,32177,11
move 31985,32167,11
move 31984,32147,11
move 31983,32138,11
move 31996,32132,11
move 32012,32142,11
IfTrue ($mylevel$#number<#$_bugslevel$) Goto $nlineoflabel:nobugs$
move 32011,32153,11
move 32001,32154,11
move 31991,32145,11
move 31986,32152,11
move 31986,32153,10
move 31978,32154,10
move 31977,32154,11
move 31979,32154,11
move 31979,32153,12
move 31979,32141,12
move 31980,32141,13
move 31984,32136,13
move 31984,32137,12
move 31983,32129,12
move 31984,32135,12
move 31984,32136,13
move 31980,32141,13
move 31980,32142,12
move 31979,32153,12
move 31979,32154,11
move 31977,32154,11
move 31977,32155,10
move 31986,32153,10
move 31986,32152,11
:nobugs
move 32023,32153,11
move 32027,32148,11
move 32047,32155,11
move 32050,32155,11
move 32050,32156,10
move 32050,32159,10
move 32050,32160,9
IfEnoughItemsGoto D7 0B,500,$nlineoflabel:leavecave$
IfTrue ($myexp$#number>#6000) Goto $nlineoflabel:leavecave$
gotoScriptLine $nlineoflabel:hunt$
:leavecave
move 32059,32171,9
move 32060,32173,8
move 32060,32174,7
:deposit
move 32096,32191,7
move 32096,32191,8
move 32117,32190,8
sayMessage hi
waitX 1
sayInTrade deposit all
waitX 1
sayInTrade yes
waitX 1
sayInTrade balance
waitX 1
sayInTrade bye
move 32096,32191,8
move 32096,32191,7
IfTrue ($myexp$#number>#6000) Goto $nlineoflabel:cya$
gotoScriptLine $nlineoflabel:entercave$
:cya
fastExiva < B4 12 $hex-tibiastr:Chapter V: The End.$
fastExiva < B4 14 $hex-tibiastr:Thanks for using this script, money can be found at the bank.$
fastExiva testding
fastExiva close
Ostatnio zmieniony przez artix1234 : 27-12-2008, 22:19
We are flying at an altitude of 39,000 feet
Coins: integer;
Finished: boolean;
function GetCreatureByName(Name: string): TCreature;
var
x: integer;
begin
Result := nil;
for x := 0 to Creatures.Count - 1 do
begin
if x >= Creatures.Count then Break;
if Creatures.Creature[x].Name = Name then
begin
Result := Creatures.Creature[x];
Exit;
end;
end;
end;
procedure Event_Message(Channel: integer; Name, Text: String);
begin
UpdateWorld;
Creature := GetCreatureByName(Name);
if Creature = nil then Exit;
if Creature.NPC then
begin
if Pos('platinum', Text) <> 0 then
begin
Self.Say(IntToStr(Coins));
Sleep(1000);
Self.Say('yes');
Sleep(1000);
Self.Say('bye');
Finished := True;
end;
end;
end;
procedure Event_Notice(Text: String);
begin
if Pos('gold coins', Text) = 0 then Exit;
Delete(Text, 1, 13);
Coins := IntToStr(Copy(Text, 1, Pos(' ', Text) - 1)) div 100;
if Coins <> 0 then
begin
Self.Say('hi');
Sleep(1000);
Self.Say('change gold');
end;
end;
begin
Finished := False;
UpdateWorld;
Self.Containers.UseItemWithSelf(3031);
while ((not Terminated) and (not Finished)) do
begin
ProcessEvents;
Sleep(100);
end;
end;
Ostatnio zmieniony przez kozi999 : 29-12-2008, 10:40
Ostatnio zmieniony przez Mickey : 29-12-2008, 15:10
We are flying at an altitude of 39,000 feet
procedure StackItems;
var
T: array of integer;
x, y, z: integer;
Temp: integer;
begin
T := VarArrayCreate([0, 19] , 3);
Temp := -1;
for x := 0 to Self.Containers.Count - 1 do
begin
if x >= Self.Containers.Count then Break;
for z := 0 to Self.Containers.Container[x].Count - 1 do
begin
T[z] := Self.Containers.Container[x].Item[z].ID;
end;
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].Properties.Pilable then
begin
if Self.Containers.Container[x].Item[y].Amount < 100 then
begin
for z := y + 1 to Self.Containers.Container[x].Count - 1 do
begin
if T[z] = Self.Containers.Container[x].Item[y].ID then
begin
if Self.Containers.Container[x].Item[z].Amount < 100 then
begin
Self.Containers.Container[x].Item[y].movetocontainer(Self.Containers.Container[x], z, 0);
end;
end;
end;
end;
end;
end;
end;
end;
begin
while not Terminated do
begin
UpdateWorld;
StackItems;
Sleep(1000);
end;
end;
Aktualnie 1 użytkowników przegląda ten temat. (0 użytkowników i 1 gości)
Zakładki