Support Forum / Форум поддержки

Code: Select all

graphics
OPTION SPRITE POS CENTRAL
OPTION ANGLE DEGREES
OPTION BASE 1
OPTION ANGLE DEGREES
OPTION TEXT POS CENTRAL
OPTION SPRITE POS CENTRAL
OPTION IMAGE POS CENTRAL
OPTION SORT DESCENDING
SHADOW ON
SET LISTS CUSTOM
shadow alpha .7
SHADOW OFFSET 1,1
rem ДАТА
if CURRENT_DATE ()<10 then dat$="0"&CURRENT_DATE () else dat$=CURRENT_DATE ()
if CURRENT_MONTH ()<10 then mes$="0"&CURRENT_MONTH () else mes$=CURRENT_MONTH ()
da$=CURRENT_YEAR ()&mes$&dat$


rem ШРИФТЫ
FONT "System/1.ttf" LOAD sh$
FONT "System/2.ttf" LOAD sh2$
DRAW FONT NAME sh$
SET LISTS FONT NAME sh$
rem Масштаб
maxx=screen_width()
maxy=screen_height()
kof=maxx/1024
xx=2048
yy=1448
scale=maxx/xx
draw color .1,.1,.1
for i=1 to 3
MUSIC i LOAD "System/Sound/"&i&".mp3"
next i

music 1 loop
refresh off
draw image "System/Заставка.jpg" at maxx/2,maxy/2
draw font size 25
sprite .1 load "System/Мяч.png"
sprite .1 at maxx/2,357.5
sprite .1 delay .01
sprite .1 da 1
sprite .1 loop
sprite .1 alpha 0
sprite .1 show


dim klub$(16)
dim ig(16)
dim vy(16)
dim ni(16)
dim po(16)
dim za(16)
dim zg(16)
dim pr(16)
dim oc(16)
dim me(16)
dim occ(16)
dim br$(21)

data "ЦСКА","Зенит","Локомотив","Динамо","Краснодар","Спартак","Ростов","Кубань","Рубин","Амкар","Урал","Терек","Мордовия","Арсенал","Торпедо","Уфа"
for i=1 to 16
read a$
klub$(i)=a$
next i
draw color .1,.1,.9
draw font name sh2$
fill alpha .01
for i=2 to 4
if i=2 then sprite i/10 load "System/Кубок.png"
if i=3 then sprite i/10 load "System/Сайты.png"
if i=4 then sprite i/10 load "System/Блокнот.png"
sprite i/10 at maxx-120,-110+160*i
next i
sprite .5 begin maxx,60
draw image "System/Низ.jpg" at maxx/2,30
draw image "System/Согаз.png" at 50,30
draw image "System/Чемп.png" at 215,30
draw image "System/Кул.png" at 365,30
draw image "System/Спорт.png" at 515,30
draw image "System/Спортс.png" at 665,30
draw image "System/Бокс.png" at 815,30
draw image "System/Согаз.png" at maxx-50,30
sprite end
sprite .5 at maxx/2,maxy+30
sprite .5 show
sprite .6 begin maxx,50
draw image "System/Верх.jpg" at maxx/2,25
restore 
for i=1 to 16
read a$
draw image "System/Эмблемы/"&a$&".png" at 60*i,25
next i
sprite end
sprite .6 at maxx/2,-35
sprite .6 show
refresh


rem Сайты
set browsers scaled
br$(1)="pfc-cska.com"
br$(2)="fc-zenit.ru/main"
br$(3)="fclm.ru/ru"
br$(4)="fcdynamo.ru"
br$(5)="fckrasnodar.ru"
br$(6)="spartak.com/main"
br$(7)="fc-rostov.ru"
br$(8)="fckuban.ru/index"
br$(9)="rubin-kazan.ru"
br$(10)="fc-amkar.org"
br$(11)="fc-ural.ru/main"
br$(12)="fc-terek.ru"
br$(13)="fc-mordovia.ru"
br$(14)="arsenaltula.ru/news/novosti-kluba"
br$(15)="fc-tm.ru"
br$(16)="fcufa.pro"
br$(17)="championat.com/football/_russiapl.html"
br$(18)="football.kulichki.net/ruschamp"
br$(19)="football.sport-express.ru/russia/premier/"
br$(20)="sports.ru/football/russia"
br$(21)="news.sportbox.ru/Vidy_sporta/Futbol/Russia/premier_league"

BROWSER "1" URL "" AT 0,0 SIZE 0,0
refresh on
pause 1
for i=1 to 10
sprite .1 alpha i/10
pause .1
next i