set display mode 1920,1080,32
sync on :sync rate 60
`set text font "Times new roman"
`set text font "old english gothic"
`set text font "giddyup Std"
`set text font "Mesquite Std"
`set text font "Blackoak Std"
`set text font "Stencil Std"
`set text font "Brush script Std"
ink rgb(200,200,200)
text 20,20,"Please to wait"
get image 1000,20,20,180,50,1
set text font "Hobo Std"
set text size 94
tx$=" Nice FONT Creator...V 1.0 Enjoy And have fun... "
dim txx(len(tx$)+6)
dim off(len(tx$)+6)
create bitmap 1,320,270
startpos=1099
numb=1
sprite 1,20,20,1000
for f=1 to len(tx$)-1
cls 0
a$=mid$(tx$,f)
if a$=" " then hw=46:goto mist2
hw=text width(a$)
hh=text height(a$)+2
`hw=hw*0.3
txx(numb)=startpos
c2=12
`ink rgb(100,220,255)
`for u=-3 to 3
c1 as byte = 255
aa=300
`ink rgb(222,222,222)
inc h1,5
for j=h1 to h1+360 step 10
`for j=0 to 48
x#=4*sin(j)
y#=4*cos(j)
ink rgb(c1,c1,c1)
text 95+x#,95+y#,a$
`text 95+1,95,a$
`text 95,95-1,a$
`text 95,95+1,a$
`text 95-2,95,a$
`text 95+2,95,a$
`text 95,95-2,a$
`text 95,95+2,a$
`e=96-j
`get image aa,92,96+j,92+98,97+j+1,1
`get image aa+1,92,95+e-1,97+98,95+e,1
`inc aa,2
`if c>15 then
c1=c1-c2
if c1>255 then c1=255:c2=-8
if c1<48 then c1=48:c2=8
`if c1>40 then c1=c1-7
`if c1<0 then c1=0:c2=-8
next j
`next u
`cls
ink rgb(1,1,1)
text 94,95,a$
text 96,95,a$
text 95,94,a$
text 95,96,a$
a=200
c1 as byte =32
for h=0 to 48
cc=c1 `and (255-32)
ink rgb(cc,cc*0.25,cc*0.25)
text 95,95,a$
e=94-h
get image a,90,96+h,92+116,96+h+2,1
get image a+1,90,96+e-1,92+116,96+e,1
inc a,2
c1=c1+4:if c1>255 then c1=255
`:c2=-8
`if c1<0 then c1=0:c2=-8
next h
a=200
for k=0 to 46
`paste image a+100,93,95+k
`paste image a+101,93,95+94-k
paste image a,90,95+k,1
paste image a+1,90,95+94-k,1
`delete image a
`delete image a+1
`delete image a+100
`delete image a+101
inc a,2
next k
blur bitmap 1,1
if a$="i" then hh=hh-18
get image numb,90,95,95+hw+2,95+hh,1
`get image numb,95,95,95+94,95+94,1
`set image colorkey 0,0,0
make object plain numb,hw*0.5,95*0.5
set object transparency numb,5
texture object numb,numb
position object numb,1000,0,0
`sprite numb,2052,500,numb
`offset sprite numb,w*0.5,h*0.5
fade object numb,222
set object texture numb,2,0 `the ugly line has disappeared! Thank you!
`set sprite numb,0,1
`cls rgb(0,0,0)
inc numb
mist2:
startpos=startpos+3+(hw*0.15)
next f
set current bitmap 0
`sync
`sync
`wait key
`paste image 1,0,0
ink rgb(222,222,222)
a=0
siz#=100
dim xx(2600)
dim yy(2600)
load array "datax.dat",xx(0)
load array "datay.dat",yy(0)
a=262
for f=876 to 2600
xx(f)=xx(875)+a:yy(f)=yy(875) `500
inc a
next f
for f=0 to 299
xx(f)=-123:yy(f)=yy(300) `500
next f
for f=300 to 875
xx(f)=xx(f)*0.65 `500
next f
tk#=-100.0
i=0
`smooth:
`for t=0 to 2000
`a#=0.0:b#=0.0
`for g=t to t+6
`a#=a#+xx(g)
`a#=a#/7
`xx(t)=a#
`b#=b#+yy(g)
`b#=b#*0.333
`yy(t)=b#/7
`next g
`next t
dim v1#(len(tx$))
dim v2#(len(tx$))
color backdrop 0 `rgb(255,255,255)
`hide sprite 1
p=1
xf=600
`````````````````````````````````
do
`cls
position camera 0,0,-100
point camera 0,0,0
`for f=0 to 5000
`dot xx(f),yy(f)
`next f
d#=delay*2.5
e#=10*sin(d#)
p=-p
for f=1 to numb-1
d=txx(f):if d>750 then goto misty
if d<0 then d=0:dec off(f),2
x=xx(d)
y=yy(d)
x1#=xx(d+2) `+xx(xt+5)
y1#=yy(d+2) `+yy(xt+5)
`x1=x1
`y1=y1*0.3
`if x1#<x then inc x1#,0.1 else dec x1#,0.1
`if y1#<y then inc y1#,0.1 else dec y1#,0.1
xc#=50*sin(txx(f)+d#)
yc#=70*cos(txx(f)*0.5+(d#*0.5))
`if xt=5
`xt=5
`x1=-22
`y1=0
`endif
`x1#=x
`y1#=y
`x1#=x1#+xc#
if x>1920+120 then goto misty
if x<-50 then goto misty
if x<50 then x1#=x1#+off(f):dec off(f)
`y1#=y1#+yc#
if y>1079 or y<-50 then goto misty
position object f,x-660+xc#,yc#+y-500,250+(xc#*1.5)
`set sprite numb,0,1
`paste sprite f,x-130,y
d#=d#+(e#*0.3)
dec vv1:if vv1<0
vv1=3
v2#(f)=atanfull(x1#-x,y1#-y)-85.0
endif
`if v#(f)>90.0 then v#=90.0
`if v#<-90.0 then v#=-90.0
if v1#(f)<v2#(f) then inc v1#(f),0.3 else dec v1#(f),0.3
`rotate sprite f,v1#(f)-49
zrotate object f,v1#(f)+30
misty:
`p=p+160
`if p>255
`p=0: `p=abs(p-256)
if p>0
txx(f)=txx(f)-1 `:if xt>722 then xt=722
if txx(f)<-100 then txx(f)=2000
endif
next f
inc i
inc delay
`inc xt : if xt>720 then xt=720
`ink rgb(0,200,0)
`text 20,20,str$(screen fps())+" "+str$(numb)+" "
`text 20,50,str$(xt)
`dec fig:if fig<0 then fig=3
if delay>550
jk=jk+160:if jk>255
jk=jk-256
`gosub saver
endif
endif
`gosub bend
ttt:
if inkey$()=" " then goto ttt
sync
loop
`````````````````````````````````````````````````
saviour:
`SAVE ARRAY Filename, Array Name(0)
save array "datax.dat",xx(0)
save array "datay.dat",yy(0)
end
`````````````````````````````````````
loader:
`if fram>1 then dec fram else fram=203
if f>203 then return
a$="000000"+str$(f):a$=right$(a$,5)
b$="H:\frames12\"+a$+".bmp"
load image b$,f,1
return
loader2:
a$="000000"+str$(fra):a$=right$(a$,5)
b$="H:\frames11\"+a$+".bmp"
load image b$,998,1
if fra>2161 then dec fra
return
loader3:
a$="000000"+str$(frap):a$=right$(a$,6)
b$="H:\frames8\"+a$+".png"
load image b$,997,1
if frap<2398 then inc frap,3
return
saver:
sv$="000000"
inc fra2 `:if fra2<0 then end
sv$=sv$+str$(fra2)
sv$=right$(sv$,5)
fil$="F:\frames6\"+sv$+".bmp"
get image 2000,0,0,1920,1080,1
save image fil$,2000
return
````````````````````````````````````````
shader:
return
