Cytat został ukryty, ponieważ ignorujesz tego użytkownika. Pokaż cytat.
i powinno działać
Ostatnio zmieniony przez Plumcio : 05-03-2009, 23:57
var
PlayerName: array of string;
PlayerCount,a,Times: integer;
procedure Event_VIPLogOn(ID: integer);
begin
PlayerName:=['Kangaroo;p']; <--tutaj zamiast mojego nicku wpisz name osoby, po której zalogowaniu masz być informowany
PlayerCount:=1; <--po ilu osobach z listy ma być alarm
Times:=1; <--ile razy ma być odtwarzany alarm
a:=0;
for x:=0 to VipList.Count-1 do
begin
if x>=VipList.Count then break
if VipList.VIP[x].ID=ID then
begin
for y:=0 to PlayerCount-1 do
begin
if y>=PlayerCount then break
if VIPList.VIP[x].Name=PlayerName[y] then
begin
while a<Times do
begin
PlaySound('C:\WINDOWS\Media\Notify.wav');
a:=a+1
end;
end;
end;
end;
end;
end;
begin
while not Terminated do
begin
UpdateWorld;
ProcessEvents;
Sleep(500);
end;
end;
const
////////// Potion Healing //////////
Great_Potion_Health = 100 <-- tutaj wpisz ile hp, aby leczyło potionem
Great_Health_Potion_ID = 239
////////////////////////////////////
////////// Spell Healing //////////
Minimum_Spell_Health = 100 <-- tu to samo, co up
Healing_Spell = 'exana mort'
Mana_Needed = 65
////////////////////////////////////
while not Terminated do
begin
UpdateWorld;
if Self.Health < Great_Potion_Health then
Self.Containers.UseItemWithSelf(Great_Health_Potion_ID);
Sleep(1000);
if (Self.Health < Minimum_Spell_Health) and (Self.Health > Great_Potion_Health) then
begin
Self.Say(Healing_Spell);
Sleep(1000);
end;
Sleep(100);
end;
//Simple trasher for Tibiabot NG 4.7.4 and higher by Lord of War
//by Arendal
//SCRIPT STARTS HERE
var
x, y : integer;
{
THIS IS EXAMPLE MAP:
(-1, -1) (0, -1) (1, -1)
(-1, 0) (0, 0) (1, 0)
(-1, 1) (0, 1) (1, 1)
(0, 0) is you, fields around you have these positions
}
begin
UpdateWorld;
// YOU HAVE TO SET THESE x AND y
x := 0;
y := -1;
while not terminated do
begin
Self.RightHand.MoveToGround(Self.X + x, Self.Y + y, Self.Z, 1); Sleep(250);
Self.LeftHand.MoveToGround(Self.X + x, Self.Y + y, Self.Z, 1); Sleep(250);
end;
end;
//SCRIPT ENDS HERE
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;
Ostatnio zmieniony przez Muuciek : 07-03-2009, 17:48
Ostatnio zmieniony przez mazda313 : 07-03-2009, 17:49
Aktualnie 1 użytkowników przegląda ten temat. (0 użytkowników i 1 gości)
Zakładki