Bibas Onlines

[Northon 3]

Aew Gente Eu Tinha Vido Um Topico Ai So Que O Script Tava Um Lixo Mesmo

 

Resolvir Fazer O Meu:

 

var online;

var offline;

var nchat;

var nomecontatto;

var chat;

 

function ContaContatti(){

online=0;

offline=0;

var Contacts = Messenger.MyContacts;

var e = new Enumerator(Contacts);

for(; !e.atEnd(); e.moveNext()) {

var Contact = e.item();

if(Contact.Status == 1){

offline++;

}

}

online = Messenger.MyContacts.Count - offline;

}

 

function ContaChat(){

nchat=Messenger.CurrentChats.Count;

if (nchat=="0"){

nchat="[c=4]"+nchat+"[/c] ";

}else{

nchat="[c=9]" + nchat + "[/c] ";

}

}

 

 

function OnEvent_Timer(timer1){

var inizio="[a=1][c=0]";

var fine="[/a][/c]";

var barra="|";

var messpers;

ContaChat();

ContaContatti();

messpers= inizio + " Janelas abertas : " + nchat + barra;

messpers+= " Bibas Onlines : " + "[c=9]" + online + "[/c]/[c=4]" + offline +"[/c] "+ barra;

if(nomecontatto=="[c=4]Nenhuma[/c] ")

messpers+= " Bibas Me Chamando: " + nomecontatto + fine;

else

messpers+= " Bibas Me Chamando: " +"[c=9]" + nomecontatto + "[/c]"+ fine;

Messenger.MyPersonalMessage=messpers;

MsgPlus.AddTimer("timer1",500);

}

 

function OnEvent_Signin(Email){

nomecontatto="[c=4]Nenhuma[/c] ";

MsgPlus.AddTimer("timer1",500);

}

 

function OnEvent_Initialize(MessengerStart){

nomecontatto="[c=4]Nenhuma[/c] ";

MsgPlus.AddTimer("timer1",500);

}

 

function Amp(){

nomecontatto="[c=4]Nenhuma[/c] ";

MsgPlus.AddTimer("timer1",500);

}

 

function Dmp(){

MsgPlus.CancelTimer("timer1");

Messenger.MyPersonalMessage="";

}

 

function OnEvent_ChatWndSendMessage(ChatWnd,message){

if(message == '/Amp'){

Amp();

return "";

}

if(message == '/Dmp'){

Dmp();

return "";

}

return message;

}

 

function OnEvent_MenuClicked(MenuItemId,Location,ChatWnd) {

switch(MenuItemId) {

case 'Amp':

Amp();

break;

case 'Dmp':

Dmp();

break;

}

}

 

function OnEvent_ChatWndReceiveMessage(ChatWnd,Origin,Message,MessageKind){

var backup;

chat=ChatWnd;

contatto=ChatWnd.Contacts;

if(contatto.Count == 1) {

var e = new Enumerator(contatto);

var Cnt = e.item();

nomecontatto = Cnt.Email.split("@");

nomecontatto = nomecontatto[0];

}

 

}

 

function OnEvent_ChatWndDestroyed(ChatWnd){

if(chat.Handle==ChatWnd.Handle){

nomecontatto="[c=4]Nenhuma[/c] ";

}

}

 

function OnEvent_ChatWndCreated(ChatWnd){

var contatto;

chat=ChatWnd;

contatto=ChatWnd.Contacts;

if(contatto.Count == 1) {

var e = new Enumerator(contatto);

var Cnt = e.item();

nomecontatto = Cnt.Email.split("@");

nomecontatto = nomecontatto[0];

}

 

}

 

Visualização:

 

 

Onde Colocar:

 

Vá Na Aba Do Msn Vá Ta Lá: Plus

 

Assim Que Abrir Clike Opções, Vá Em Scripts E Clike Em Criar Um Novo Coloque CRTL + C e CTRL + V

 

Coloque Em Salvar

 

Pronto!

Editado Fevereiro 1, 2008 por Northon

[150296 0]

Vlws pelo script tava procurando coisa parecida + achei um melhor =D

 

Flws.

[~~GM Waleker~~ 2]

Achei ruim,eh imitação dakele antigo e é infantil.

[Northon 3]

PhilPz

 

Brigado

 

Waleker

 

Por Quê Postou Então?

[lastsouls 31]

Achei meio ######..

 

Porque você teria "BIBAS" no seu msn?

E porque elas estariam chamando você?

 

=X

[Northon 3]

Bibas E Jeito De Falar

 

E é Só Para Brincar

[Henriqued 0]

Não entendi o q ele faz direito...pode da um explicadinha? vlw =)

[Northon 3]

Abra O Msn Normal

 

Vá La Em Cima Em Plus -> Opções

 

Ai Você Vai E Scripts-> Crir Um Novo

 

Coloque Bibas Onlines Depois Copie E Cole La.

[gabizinhaah 1]

axo q o povo num ia gostar d ser xamado d biba no meu msn! ;/

[Northon 3]

KkKKKkkkkkkk

 

É So Zuiera Gabih

[DaNDaNrOxX 15]

Puts muito rox, eu tinha um assim só que era em ingles vou por este, vlw ^^