//滚屏函数

procedure ServerSayPlus(content:string);

var wordlen, time, endpoint, txtlen:integer;

begin

wordlen := 18;

time := 5;

endpoint := -500;

txtlen := Length(content);

time := Round(txtlen * 0.2);

endpoint := endpoint - txtlen * wordlen;

ServerSay('NC=Bg:alert:bg:center:0:nil:240|AutoHide:'+inttostr(time)+'|1:S-1:270:18:500:30:0|1@S-1:Text:600:nil:18:'+content+'@243:left:'+inttostr(endpoint)+':nil:'+inttostr(time)+'', 5);

end;

1@S-1:Text:600:nil:18:'+content+'@243:left……

//首先需要引用 extendUIs.pas，随后直接调用函数即可。

ServerSayPlus('大神登陆了热血传奇！');