Breaking news....

Post Reply
Henko
Posts: 805
Joined: Tue Apr 09, 2013 12:23 pm
My devices: iPhone,iPad
Windows
Location: Groningen, Netherlands
Flag: Netherlands

Breaking news....

Post by Henko »

For iPad only. Easily expandable with more text blocks.
7A42B5E2-503A-4D00-98C8-669DE4091E3E.jpeg
7A42B5E2-503A-4D00-98C8-669DE4091E3E.jpeg (662.78 KiB) Viewed 255 times

Code: Select all

init_prog()
r=8 ! rr=24 ! rrrx=42-rr ! rrry=32-rr
eyes(0,0) ! pause 1 ! wink()
say_text(1)
do slowdown
  for dx=rrrx to -rrrx step -5
  dy=rrry-3+rnd(4)
  if rnd(1)<.1 then wink()
  eyes(dx,dy) ! pause .2
  next dx
  until not saying()
eyes(0,0)
end

def eyes(dx,dy)
if abs(dx)>.rrrx or abs(dy)>.rrry then return
fill color 1,.95,.79 ! fill poly .x1,.y1 ! fill poly .x2,.y2
fill color .4,0.4,1
fill circle .e1x+dx,.e1y+dy size .rr
fill circle .e2x+dx,.e2y+dy size .rr
fill color 0,0,0
fill circle .e1x+dx,.e1y+dy size .r
fill circle .e2x+dx,.e2y+dy size .r
end def

def wink()
fill color 1,.8,.2
fill poly .x1,.y1 ! fill poly .x2,.y2
pause .2
end def

def say_text(k)
if k=1 then
t$="We interrupt the program for an important breaking news item. "
t$&=" One hour ago, the Senate voted against the impeachement of " 
t$&=" president Trump. Not a single republican was to be found on the side " 
t$&=" of the democrats. The presidents reaction was immediate, " 
t$&=" thanking his loyal party members and telling the democrats " 
t$&=" that the wrath of the people of america would be upon them. "
t$&=" The president also said that he would veto the social act "
t$&=" from the democrats, because those who choose not to work "
t$&=" shall not eat either. And the same goes for democrats one "
t$&=" could hear him murmur. "
t$&="And now back to our discussion program about the pros and "
t$&="cons of putting ice in Kentucky Bourbon in stead of Tenessee whiskey."
end if
say voice "en-GB" ! say rate 0.8+0.2*rnd(1)
say text t$
end def

def init_prog()
option angle degrees
graphics ! graphics clear .8,.8,.8 ! draw color 0,0,0
dim .x1(20),.y1(20),.x2(20),.y2(20),.med(8)
dim .vx1(5),.vy1(5),.vx2(5),.vy2(5),.vx3(9),.vy3(9),.vx4(9),.vy4(9)
data 301,397, 482,397
data 277,366, 256,375, 246,393, 249,418, 257,424, 270,428
data 292,432, 320,432, 341,427, 345,412, 345,391, 338,374
data 324,364, 299,361, 277,366
data 479,359, 470,360, 452,367, 440,381, 432,398, 430,411
data 433,420, 437,427, 445,431, 461,433, 478,433, 500,430
data 520,424, 532,417, 534,406, 528,387, 515,367, 479,359
data 243,612, 75,643, 65,976, 385,976, 243,612
data 552,597, 700,640, 730,976, 385,976, 552,597
data 242,610, 210,616, 207,735, 261,718, 263,725
data 208,741, 348,976, 385,976, 242,610
data 552,592, 580,602, 582,731, 524,708, 521,714
data 579,737, 408,976, 368,976, 552,592
data 9884,9875,11088,57647,58117,58135,58636,58653
read .e1x,.e1y, .e2x,.e2y
for i=0 to 14 ! read .x1(i),.y1(i) ! next i
for i=0 to 17 ! read .x2(i),.y2(i) ! next i
for i=0 to 4 ! read .vx1(i),.vy1(i) ! next i
for i=0 to 4 ! read .vx2(i),.vy2(i) ! next i
for i=0 to 8 ! read .vx3(i),.vy3(i) ! next i
for i=0 to 8 ! read .vx4(i),.vy4(i) ! next i
for i=0 to 7 ! read .med(i) ! next i
draw font size 600
draw text chr$(58114) at 100,580 
draw font size 500
draw text chr$(58648) at 140,200 
fill color .7,.3,.2
fill poly .vx1,.vy1 ! fill poly .vx2,.vy2
fill color .6,.2,.2
fill poly .vx3,.vy3 ! fill poly .vx4,.vy4
draw font size 40 ! draw text chr$(.med(rnd(8))) at 240,750
end def

Post Reply