ส่งข้อความ / เพจเจอร์

ข่าวประจำวัน

  ไทยเวป 
  ไทยโหลด  

ทำข้อความและเวลา บน Title bar ของ Pirch

ขั้นตอนแรกต้องไปสร้างทำสั่งที่ Aliases โคยตั้งชื่อ [TITLE98] ใครที่ไม่รู้วิธีการสร้าง Aliases กดที่นี่

Copy คำสั่งด้านล้างไว้ที่ [TITLE98]

var
a, b, c, p, seconds : value;
onlinehour, onlinemin, onlinesec, s, pingtemp, cmd : string;
procedure OnlineTimeUpdate;
begin
a:=a+1;
if a=60 then
begin
a:=0;
b:=b+1;
end;
if b=60 then
begin
b:=0;
c:=c+1;
end;
if c < 10 then
onlinehour:='0'+inttostr(c)
else onlinehour:=inttostr(c);
if b < 10 then
onlinemin:='0'+inttostr(b)
else onlinemin:=inttostr(b);
if a < 10 then
onlinesec:='0'+inttostr(a)
else onlinesec:=inttostr(a);
command('/set title Sonic_Scrip - ขณะนี้เป็นเวลา ',$time,' ',$day,' ',$date,' - เริ่มเล่นรวมเวลา ',onlinehour,':',onlinemin,':',onlinesec,'');
end;
procedure Start;
begin
$ver := iniread($pirchpath+'system\versions.bin','Main','Title','0');
if $ver <> '0.98' then iniwrite($pirchpath+'system\versions.bin','Main','Title','0.98');
a:=0;
b:=0;
c:=0;
command('/timer title -1 1 /runscript [title98] update');
command('/callback PONG [title98]');
command('/timer lagometer -1 3 /runscript [title98] ping');
end;
procedure Ping;
begin
command('/verbose PING '+inttostr(unixtime));
end;
procedure PingTimeUpdate(pingtemp : string);
begin
s := pingtemp;
p := strpos(':',s);
strdel(s,1,p);
seconds := unixtime-strtoint(s);
if seconds > 20 then seconds := 20;
if seconds < 0 then seconds := 0;
if inttostr(seconds)='3' then tag:='Sec.'
else tag:='Secs.';
pingtime:=inttostr(seconds);
command('/set title Sonic_Scrip - ขณะนี้เป็นเวลา ',$time,' ',$day,' ',$date,' - เริ่มเล่นรวมเวลา ',onlinehour,':',onlinemin,':',onlinesec,'');
end;
{$p-}
cmd := strlower($1);
begin
case cmd of
'start' : Start;
'update' : OnlineTimeUpdate;
else
PingTimeUpdate(*1);
end;
end;
{}

เมื่อวาง Aliasesเสร็จแล้วจะได้ดังภาพด้านล่าง

เวลาจะใช้คำสั่งให้พิมพ์คำว่า /runscript [TITLE98] start จะได้ดั่งภาพ

* หมายเหตุ คำสั่งนี้ควรใช้ร่วมกับคำสั่ง อัตโนมัติ Autoexec Commands