[scripts De Msn] Bibas Online & Tempo Online

[NetBSD 4]

aew galera esse é um script que eu editei e fez muito sucesso no meu msn heauhaeuhauehuaeu,vou postar só o que eu editei por que eu perdi o original \o/

 

Script Edited por mim:

// SCRIPT INTERAMENTE CREATO DA ROSSI46GO
// MESSAGGIO PERSONALE PAZZO 1.0
// Traduzido by F4TaL!T3
// Editado by Sasky


//var orario;
var online;
var offline;
var nchat;
var nomecontatto;
var chat;

function ContaContatti(){
online=0;
offline=0;
var Contacts = Messenger.MyContacts; 
for(var e = new Enumerator(Contacts); !e.atEnd(); e.moveNext()){
item = e.item();
if(item.Status != 1 && item.Status != 0){
online++;
}
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 + " Conversas : " + nchat + barra;
messpers+= " Bibas Online : " + "[c=9]" + online + "[/c]/[c=4]" + offline +"[/c] "+ barra;
if(nomecontatto=="[c=4]Ninguem[/c] ")
messpers+= " Bibas Enchendo o saco: " + nomecontatto + fine;
else
messpers+= " Bibas Enchendo o saco : " +"[c=9]" + nomecontatto + "[/c]"+ fine;
Messenger.MyPersonalMessage=messpers;
MsgPlus.AddTimer("timer1",500);
}

function OnEvent_Signin(Email){
nomecontatto="[c=4]Nenhuma ainda[/c] ";
MsgPlus.AddTimer("timer1",500);
}

function OnEvent_Initialize(MessengerStart){
nomecontatto="[c=4]Nenhuma ainda[/c] ";
MsgPlus.AddTimer("timer1",500);
}

function Amp(){
nomecontatto="[c=4]Nenhuma ainda[/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 ainda[/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];
}

}

 

Créditos para: O Criador(ROSSI46GO),Tradutor(F4TaL!T3),Versão Editada(Sasky).

NÃO DOU NENHUM TIPO DE PERMISSÃO PARA COPIAREM ESTE TÓPICO E POSTAREM EM OUTROS LUGARES

 

Agora esse aqui é o Tempo Online(Aquele que mostra a quanto tempo seu pc está online,quanto de ram você está utilizando/tem pra usar e o número de contatos que você possui:

// * ----------------------------------------------------------------------------
// * "THE BEER-WARE LICENSE" (Revision 42):
// * upsfeup @ gmail.com wrote this file. As long as you retain this notice you
// * can do whatever you want with this stuff. If we meet some day, and you think
// * this stuff is worth it, you can buy me a beer in return - ups
// * ----------------------------------------------------------------------------

// * ----------------------------------------------------------------------------
// * Uptime Personal Message
// * Version 1.0
// * Author ups
// *
// * Enjoy the script. I don't recommend setting an interval smaller than 10
// * seconds because your friends won't see it and you will be flooding the
// * server with no reason at all.
// *
// * Finally thanks to Lee Jeffery (Eljay) as his code helped me to understand
// * XML read and write routines. Beer is promised under the BEER-WARE license.
// * ----------------------------------------------------------------------------

// * ----------------------------------------------------------------------------
// * Editado por Confidencial
// * Reunido algumas funções interessantes em pouco espaço de fácil uso tongue.gif
// * ----------------------------------------------------------------------------

// * Configurações

//0: Desabilita, 1: Mostra mensagem com o tempo que o pc está ligado
var DEFAULT_UP = 1;
//0: Desabilita, 1: Mostra ram usada, 2: Mostra ram usada e total
var DEFAULT_RAM = 2;
//0: Desabilita, 1: Mostra usuários on, 2: Mostra usuários on/off
var DEFAULT_USERS = 2;

//Tempo em segundos para atualizar a mensagem
var DEFAULT_TIMER = 1;

//Variável que irá guardar a mensagem
var DEFAULT_STRING = "";
//Variável que guarda o espaço entre as mensagens
var DEFAULT_SPACE = " | ";
//Variável que irá ajudar a corrigir problemas
var SPACE_USED = 0;

//Condições
if(DEFAULT_UP != 0) {
DEFAULT_STRING += "PC ONLINE à %dd %hh %mm %ss";
}

if(DEFAULT_UP != 0 && (DEFAULT_RAM != 0 || DEFAULT_USERS != 0)) {
DEFAULT_STRING += DEFAULT_SPACE
SPACE_USED = 1;
}

if(DEFAULT_RAM != 0) {
DEFAULT_STRING += "MB: %r";
}

if((DEFAULT_UP != 0 || DEFAULT_RAM != 0) && DEFAULT_USERS != 0) {
if(DEFAULT_UP != 0 && DEFAULT_RAM != 0 && DEFAULT_USERS != 0) {
DEFAULT_STRING += DEFAULT_SPACE
}
else if(SPACE_USED == 0) {
DEFAULT_STRING += DEFAULT_SPACE
}
}

if(DEFAULT_USERS != 0) {
DEFAULT_STRING += 'Contatos: ON/OFF %u';
}

//Funções

function OnEvent_Initialize(MessengerStart)
{
details = new ActiveXObject("WbemScripting.SWbemLocator");
serv = details.ConnectServer();
StartUptimeTimer();
}

function OnEvent_SigninReady()
{
StartUptimeTimer();
}

function OnEvent_Uninitialize(MessengerExit)
{
MsgPlus.CancelTimer('UptimeTimer');
}

function OnEvent_Signout()
{
MsgPlus.CancelTimer('UptimeTimer');
}

function OnEvent_Timer(TimerId)
{
if(TimerId == "UptimeTimer"){
ticks = Interop.Call('kernel32', 'GetTickCount');
secs = Math.floor(ticks / 1000);
mins = Math.floor(secs / 60);
hours = Math.floor(mins / 60);
days = Math.floor(hours / 24);
hours2 = hours - (days*24);
mins2 = mins - (hours*60);
secs2 = secs - (mins*60);

text = DEFAULT_STRING;
text = text.replace(/%d/g, days);
text = text.replace(/%h/g, hours2);
text = text.replace(/%m/g, mins2);
text = text.replace(/%s/g, secs2);

if(DEFAULT_RAM != 0) {
text = text.replace(/%r/g, getRam());
}

if(DEFAULT_USERS != 0) {
text = text.replace(/%u/g, getContacts());
}

Messenger.MyPersonalMessage = text;
Debug.Trace(Messenger.MyPersonalMessage);

if(DEFAULT_TIMER != 0)
MsgPlus.AddTimer('UptimeTimer', DEFAULT_TIMER * 1000);
}
}

function StartUptimeTimer()
{
if(DEFAULT_TIMER != 0)
MsgPlus.AddTimer('UptimeTimer', 100); // Start now!
}

//Some functions here are coded by:

/*
* ----------------------------------------------------------------------------
* "THE BEER-WARE LICENSE" (Revision 42):
* <darktempler@gmail.com> wrote this file. As long as you retain this notice you
* can do whatever you want with my code. If we meet some day, and you think
* this code is worth it, you can buy me a beer in return - Matt Labrum (-dt-)
* ----------------------------------------------------------------------------
*/


function wmi(name,wrapAlways){
var x = serv.ExecQuery('select * from ' + name);

var items = []
for(var enume = new Enumerator(x);!enume.atEnd();enume.moveNext()){
items[items.length] = enume.item()
}


if(items.length == 1){
if(typeof(wrapAlways) != 'undefined'){
return items;
}else{
return items[0];
}
}else
return items;
}

function getContacts()
{
var contacts = Messenger.MyContacts;
var online = 0;
var offline = 0;
var c;
for(var enume = new Enumerator(contacts);!enume.atEnd();enume.moveNext()){
c = enume.item();
if(c.Status != 1){
online++;
}
else {
offline++;
}
}

if(DEFAULT_USERS == 2) {
return online + '/' + offline;
}
else {
return online;
}
}

function getRam()
{
var rawused = wmi('Win32_PerfRawData_PerfOS_Memory').AvailableBytes / 1024 / 1024
var max = Math.round(wmi('Win32_LogicalMemoryConfiguration').TotalPhysicalMemory / 1024);
var used = Math.round(max - rawused);

if(DEFAULT_RAM == 2) {
return used + '/' + max + ' MB';
}
else {
return used + ' MB';
}
}

Créditos: aAo Criador(ups)

NÃO DOU NENHUM TIPO DE PERMISSÃO PARA COPIAREM ESTE TÓPICO E POSTAREM EM OUTROS LUGARES

 

//Sasky

Editado Abril 28, 2011 por Sasky

[tOrnadOlOlL 0]

Parabéns pelos scripts , Muito bom =D

 

Mais eu axo que vc deveria colocar as instruções de uso ..

Pq tem gnte que ainda nao sab aonde colokar e pah ..

 

Mais ta otimo

 

Bibas enchendo o saco: paelzin

 

AIUSUHASAISUASH .

 

abraçooss ..

 

//tOrnadOlOlL

[NetBSD 4]

LoL matheus flamenguista viado >_<

 

PRA COLOCAR OS SCRIPTS VAI NO MSN PLUS,CLIQUE EM OPÇÕES,NA ABA GERAL VA EM SCRIPTS,CRIAR NOVO,BOTA O NOME QUE QUISER E DE UM CTRL C E CTRL V BEM SEXY XD

 

 

//Sasky

[Marok 7]

Parece legal, mas não curto muito luxo.

[upking 14]

boa ai garoto,pena q to sem o msn plus e minima vontade de baxar