INKIEV . NET

   
Работа     Автомобили     Рефераты     Домены
Главная | Галерея счетчиков | Вход | Регистрация

Просмотр кода прорисовки счетчика:

 

Использованы Background(s):



Код прорисовки счетчика:
ENGINE(2)
LoadBackground(125)
DefineColor(1, 0, 0, 0)
TextRight(1, 5, 8, 0, 85, 25, "$HITS_TODAY")
TextRight(1, 5, 8, 0, 85, 35, "$HOSTS_TODAY")
SetImageSize(98, 41)

DefineColor(1, 0, 0, 0)
DefineColor(2, 255, 255, 255)

DefineColor(111, 128, 128, 128)
#RectangleFilled(111, 0, 0, 97, 40)

Rectangle(1, 0, 0, 97, 40)

SET $R = "0" + "0"
SET $G = "0" + "0"
SET $B = "0" + "0"

#DefineColor(21, $R,$G,$B)
#DefineColor(22, $R,$G,$B)
#DefineColor(23, $R,$G,$B)
#DefineColor(24, $R,$G,$B)
#DefineColor(25, $R,$G,$B)
#DefineColor(26, $R,$G,$B)
#DefineColor(27, $R,$G,$B)
#DefineColor(28, $R,$G,$B)


DefineRandomColor(21)
DefineRandomColor(22)
DefineRandomColor(23)
DefineRandomColor(24)
DefineRandomColor(25)
DefineRandomColor(26)
DefineRandomColor(27)
DefineRandomColor(28)

SET $MAX = "36" + "0"
SET $H1 = rand($MAX)
SET $H2 = rand($MAX)
SET $H3 = rand($MAX)
SET $H4 = rand($MAX)
SET $H5 = rand($MAX)
SET $H6 = rand($MAX)
SET $H7 = rand($MAX)
SET $H8 = rand($MAX)


#Text(1, 6, 9, 0, 3, 9, "$HITS_TODAY")
#Text(1, 6, 9, 0, 3, 18, "$HOSTS_TODAY")

Repeat (2-6,1) to "A"
 SetFrame(1)

 IF ("$_" = "1") Goto("skip_new_fr")
  NewFrame($_,1)
 Label "skip_new_fr"

 SetFrameDelay(10)

 Set $tmp = rand(7)
 IF ("$H1" > "22") Goto("dec1")
 SET $H1 = "$H1" + "$tmp"
 Goto("end1")
 Label "dec1"
 SET $H1 = "$H1" - "$tmp"
 Label "end1"
 RectangleFilled(11, 90, $H1, 95, 39)

#################

 Set $tmp = rand(7)
 IF ("$H2" > "22") Goto("dec2")
 SET $H2 = "$H2" + "$tmp"
 Goto("end2")
 Label "dec2"
 SET $H2 = "$H2" - "$tmp"
 Label "end2"
 RectangleFilled(22, 80, $H2, 85, 39)

#################

 Set $tmp = rand(7)
 IF ("$H3" > "22") Goto("dec3")
 SET $H3 = "$H3" + "$tmp"
 Goto("end3")
 Label "dec3"
 SET $H3 = "$H3" - "$tmp"
 Label "end3"
 RectangleFilled(23, 70, $H3, 75, 39)

#################

 Set $tmp = rand(7)
 IF ("$H4" > "22") Goto("dec4")
 SET $H4 = "$H4" + "$tmp"
 Goto("end4")
 Label "dec4"
 SET $H4 = "$H4" - "$tmp"
 Label "end4"
 RectangleFilled(24, 60, $H4, 65, 39)

#################

 Set $tmp = rand(7)
 IF ("$H5" > "22") Goto("dec5")
 SET $H5 = "$H5" + "$tmp"
 Goto("end5")
 Label "dec5"
 SET $H5 = "$H5" - "$tmp"
 Label "end5"
 RectangleFilled(25, 50, $H5, 55, 39)

#################

 Set $tmp = rand(7)
 IF ("$H6" > "22") Goto("dec6")
 SET $H6 = "$H6" + "$tmp"
 Goto("end6")
 Label "dec6"
 SET $H6 = "$H6" - "$tmp"
 Label "end6"
 RectangleFilled(26, 40, $H6, 45, 39)

#################

 Set $tmp = rand(7)
 IF ("$H7" > "22") Goto("dec7")
 SET $H7 = "$H7" + "$tmp"
 Goto("end7")
 Label "dec7"
 SET $H7 = "$H7" - "$tmp"
 Label "end7"
 RectangleFilled(27, 30, $H7, 35, 39)

#################

Set $tmp = rand(7)
 IF ("$H8" > "22") Goto("dec8")
 SET $H8 = "$H8" + "$tmp"
 Goto("end8")
 Label "dec8"
 SET $H8 = "$H8" - "$tmp"
 Label "end8"
 RectangleFilled(28, 20, $H8, 25, 39)

#################

Label "A"



О проекте   Реклама на сайте   Правила использования  
  Inkiev.net.
  Создай свой уникальный счетчик.
  © 2006 - 2012 by INKIEV.net
  Хостинг от Winner-Hosting.com