FoRuM KaNaLa #chanel

FoRuM KaNaLa #chanel
 
PrijemPrijem  PortalliPortalli  Često Postavljana PitanjaČesto Postavljana Pitanja  TražiTraži  Registruj seRegistruj se  Lista članovaLista članova  Korisničke grupeKorisničke grupe  Pristupi  

Delite | 
 

 WinClock (sat) by ch1zra

Ići dole 
AutorPoruka
n1k0la
Admin
Admin


Broj poruka : 108
Godina : 25
Location : Jagodina
Datum upisa : 15.08.2007

PočaljiNaslov: WinClock (sat) by ch1zra   Pet Avg 17, 2007 4:42 pm

Kod:
; -+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-*
; Clock for mIRC Windows          +
; for mIRC                        +
; by ch1zra                        +
; ch1zra@gmail.com                +
; http://uptheirons.co.sr/        +
; #Scripters @ irc.krstarica.com  +
; Copyright © Up The Irons ! inc.  +
; -+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-*-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-*
; ***** What is this :                                                        +
; This is some nice little code that updates your windows                      +
; with current time (Hour : Minute format).                                    +
; It uses timer that updates time once per minute, on a full minute            +
; (meaning zero seconds, eg : 14:23:00) . And that is all you need to know :]  +
; -+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-*
; ***** Loading :                                                              +
; insert this file into your main mIRC dir.                                    +
; - if youre not sure what it is, type "//echo -a $mircdir" (without quotas)  +
; and then type this :                                                        +
; //load -rs " $+ $findfile($mircdir,WinClock.mrc,1) $+ "                      +
; this time WITH quotas.                                                      +
; -+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-*
; ***** Usage :                                                                +
; Usage is automatic :]                                                        +
; -+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-*

; <----------------------- $Events ----------------------->

on *:load: {
  if ($version > 6.0) {
    echo  Clock for mIRC Windows by ch1zra succesfully loaded
    echo 4ch1zra@gmail.com
    wclock
    .timerchecks 0 1 check.s
  }
  else {
    echo  Version 6.0 or higher required, get a newer version of mirc at  $+ http://www.mirc.com
    unload -rs $script
  }
}

on *:unload: {
  if ($timer(wcl.upd)) .timerwcl.upd off
  if ($timer(checks)) .timerchecks off
  if ($window(@WClock)) window -c @WClock
  echo -s Clock for mIRC Windows by ch1zra succesfully unloaded.
}

on *:start: {
  wclock
  .timerchecks 0 1 check.s
}

on *:open:?:*: {
  wclock
}

; <----------------------- $Aliases ----------------------->

alias wclock {
  if (!$window(@WClock)) {
    window -ph +f @WClock 0 100 80 50
    drawfill @WClock 1 1 1  1
  }
  wcl.upd
}

alias check.s {
  if ($time(ss) == 00) {
    .timerchecks off
    wcl.upd
    .timerwcl.upd 0 60 wcl.upd
  }
}

alias -l wcl.upd {
  drawrect -f @WClock 1 1 1 1 200 100
  drawtext @WClock 9 terminal 20 10 10 $time(HH:nn)
  drawsave @Wclock $scriptdirwcl.bmp
  var %i $chan(0)
  while (%i) {
    background -p $chan(%i) $scriptdirwcl.bmp
    dec %i
  }
  var %a $query(0)
  while (%a) {
    background -p $query(%a) $scriptdirwcl.bmp
    dec %a
  }
  background -sp $scriptdirwcl.bmp
}


alias -l wcl.about {
  if ($$input(Clock for mIRC Windows $crlf $crlf by ch1zra $crlf ¯¯¯¯¯¯¯¯ $crlf ch1zra@gmail.com $crlf $&
    http://uptheirons.co.sr/ $crlf #Scripters @ irc.krstarica.com $crlf $crlf Copyright © $&
    Up The Irons ! inc.,oq,About Clock for mIRC Windows)) {
    return
  }
}

alias -l wcl.unload {
  if ($input(Are you sure that you want to unload Clock for mIRC Windows??,yw,About to Unload !) == $true) {
    echo -s Thank you for using my Clock for mIRC Windows
    .unload -rs $script
  }
}

; <----------------------- $Menu ----------------------->

menu menubar {
  Clock for mIRC Windows
  .About:wcl.about
  .-
  .Unload:wcl.unload
}

; -+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-*
; Window Clock                    +
; for mIRC                        +
; by ch1zra                        +
; ch1zra@gmail.com                +
; http://uptheirons.co.sr/        +
; #Scripters @ irc.krstarica.com  +
; Copyright © Up The Irons ! inc.  +
; -+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-*
Nazad na vrh Ići dole
Pogledaj profil korisnika http://chanel-4-you.forumsr.com
 
WinClock (sat) by ch1zra
Nazad na vrh 
Strana 1 od 1

Dozvole ovog foruma:Ne možete odgovarati na teme u ovom forumu
FoRuM KaNaLa #chanel :: Scripting :: Addons-
Skoči na: