Sendinfomsg
It will tell you your avg exp per hour,how much time the script is running,how much exp you gained in that time.
Now if someone will message you your Keyword then you will send him your :Level,EXP,ML,EXP/hour,How much you gained and for how long you are hunting/script is running.
var
seconds, min, hours, count:integer;
mini, exp, AvargeExp, total:integer;
procedure Event_Message(Channel: integer; Name, Text: String);
begin
updateworld;
if Text='levelstatus' then
begin
updateworld;
self.PrivateMessage(Name, 'Hunting for '+inttostr(Hours)+':'+inttostr(mini)+':'+inttostr(seconds));
sleep(2000);
self.PrivateMessage(Name, 'Level: '+IntToStr(self.level));
sleep(2000);
self.PrivateMessage(Name, 'Experience: '+IntToStr(self.Experience));
sleep(2000);
self.PrivateMessage(Name, 'Magic Level: '+IntToStr(self.Skills.Magic.level));
sleep(2000);
self.PrivateMessage(Name, 'Exp/Hour: ' +IntToStr(AvargeExp));
sleep(2000);
self.PrivateMessage(Name, 'Gained so far: ' +intTostr(total));
end;
end;
begin
updateworld;
AvargeExp:=0;
exp:=self.Experience;
count:=0;
seconds:=0;
min:=0;
hours:=0;
while not terminated do
begin
sleep(1000);
updateworld;
count:=count+1;
Seconds:=count mod 60;
if count>=60 then
min:=count div 60;
mini:=min mod 60;
if min>=60 then
Hours:=min div 60;
total:=(self.Experience-exp);
AvargeExp:=(self.Experience-exp)/count*60*60;
self.displayText('Running for '+inttostr(Hours)+':'+inttostr(mini)+':'+inttostr(seconds)+' EXP avarge '+inttostr(AvargeExp)+' Gaind so far:'+inttostr(total));
ProcessEvents;
end;
end;
page revision: 0, last edited: 04 Jun 2007 11:18