INKIEV . NET

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

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

 

Код прорисовки счетчика:
ENGINE(2)
SetImageSize(88, 31)

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

DefineColor(111, 128, 128, 128)
#RectangleFilled(111, 0, 0, 87, 30)

Rectangle(1, 0, 0, 87, 30)

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

#DefineColor(11, $R,$G,$B)
#DefineColor(12, $R,$G,$B)
#DefineColor(13, $R,$G,$B)
#DefineColor(14, $R,$G,$B)
#DefineColor(15, $R,$G,$B)
#DefineColor(16, $R,$G,$B)
#DefineColor(17, $R,$G,$B)
#DefineColor(18, $R,$G,$B)


DefineRandomColor(11)
DefineRandomColor(12)
DefineRandomColor(13)
DefineRandomColor(14)
DefineRandomColor(15)
DefineRandomColor(16)
DefineRandomColor(17)
DefineRandomColor(18)

SET $MAX = "26" + "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, 80, $H1, 85, 29)

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

 Set $tmp = rand(7)
 IF ("$H2" > "22") Goto("dec2")
 SET $H2 = "$H2" + "$tmp"
 Goto("end2")
 Label "dec2"
 SET $H2 = "$H2" - "$tmp"
 Label "end2"
 RectangleFilled(12, 70, $H2, 75, 29)

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

 Set $tmp = rand(7)
 IF ("$H3" > "22") Goto("dec3")
 SET $H3 = "$H3" + "$tmp"
 Goto("end3")
 Label "dec3"
 SET $H3 = "$H3" - "$tmp"
 Label "end3"
 RectangleFilled(13, 60, $H3, 65, 29)

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

 Set $tmp = rand(7)
 IF ("$H4" > "22") Goto("dec4")
 SET $H4 = "$H4" + "$tmp"
 Goto("end4")
 Label "dec4"
 SET $H4 = "$H4" - "$tmp"
 Label "end4"
 RectangleFilled(14, 50, $H4, 55, 29)

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

 Set $tmp = rand(7)
 IF ("$H5" > "22") Goto("dec5")
 SET $H5 = "$H5" + "$tmp"
 Goto("end5")
 Label "dec5"
 SET $H5 = "$H5" - "$tmp"
 Label "end5"
 RectangleFilled(15, 40, $H5, 45, 29)

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

 Set $tmp = rand(7)
 IF ("$H6" > "22") Goto("dec6")
 SET $H6 = "$H6" + "$tmp"
 Goto("end6")
 Label "dec6"
 SET $H6 = "$H6" - "$tmp"
 Label "end6"
 RectangleFilled(16, 30, $H6, 35, 29)

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

 Set $tmp = rand(7)
 IF ("$H7" > "22") Goto("dec7")
 SET $H7 = "$H7" + "$tmp"
 Goto("end7")
 Label "dec7"
 SET $H7 = "$H7" - "$tmp"
 Label "end7"
 RectangleFilled(17, 20, $H7, 25, 29)

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

Set $tmp = rand(7)
 IF ("$H8" > "22") Goto("dec8")
 SET $H8 = "$H8" + "$tmp"
 Goto("end8")
 Label "dec8"
 SET $H8 = "$H8" - "$tmp"
 Label "end8"
 RectangleFilled(18, 10, $H8, 15, 29)

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

Label "A"



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