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

Code: Select all

rem Tricky v3
rem iPhone 6 Plus / iOS 8.3 b4
rem This is from my son Digit. He's 12...
rem adjust bs to device. 64 - iphone, 128 ipad
rem v3 fixed scoller and block size
rem Enjoy...

' Some basic stuff..

  graphics
  sw=screen_width()
  sh=screen_height()
  dim block(10, 8)
  bs=64 ' size of the block larger for ipad
  message$ = "                                Hey, where's my coke? Thanks. Oh, welcome to Tricky, my fun little demo! I (Digit) have done this, in case you didn't know it already.. I hope you like it! Bye!                                "

  length = len(message$)

' Somekind of intro..

  do
    refresh off
    graphics clear 31/255,31/255,31/255

    for what = 0 to 31
      draw color 0, (what * 8)/255, 0
      draw text "Digit presents" at sw/4, (what + 20)
    next what

    draw color 1,1,1
    draw text "Digit presents" at sw/4, 20+31

    draw color 1, 0, 1
    draw text "..Tricky.." at sw/3, 51+22

    draw color 0, 1, 0
    
    draw text "Touch to Start" at 0, sh-20

    refresh on
  until touch_x(0) <> -1


  do
    refresh off
    graphics clear 

' Graphics!

    for what = 0 to 31
      x_slower = x_slower - 1

      if x_slower < 0 then
        if the_x = -1536 then the_x_direction = 1
        if the_x = 1536 then the_x_direction = 0
      

        if the_x_direction = 0 then the_x = the_x - 1
        if the_x_direction = 1 then the_x = the_x + 1
        

        if the_x = 0 then
          x_slower = 3072
        endif
      end if

      mm = mm + 2
      x = the_x + sw * sin(mm) + sw/2
      y = sh * cos(mm) + sh/2

      if the_x = 0 then
        'graphics clear 0, 0, 64/256
        draw color 0, 0, 1
      else
        'graphics clear  63/255, 0, 0
        draw color  1, 0, 0
      end if

      draw line sw/2, sh/2 to x, y
    next what

    block_slower = block_slower - 1

    for y = 0 to 7
      for x = 0 to 9
        if block_slower < 0 then
          block(x, y) = int(rnd(2))
        end if

        if block(x, y) = 1 then
          if the_x = 0 then
            fill color 0, 0, 1
          else
            fill color 1, 0, 0
          endif

          fill rect  x * bs, y * bs to x * bs + bs, y * bs + bs
        end if
      next x
    next y

    if block_slower < 0 then
      block_slower = 16
    end if


    text_x = text_x + 0.2

    if text_x > length - 32 then
      text_x = 0
    endif

    text_to_show$ = mid$(message$, text_x, sw)

    draw color 1,1,1
    draw text text_to_show$ at 0, 32

    draw color 0, 0, 0
    draw text "T   R   I   C   K   Y" at 0, 0
    draw color  127/255, 127/255, 127/255
    draw text "T   R   I   C   K   Y" at 2, 0

    lsec$ = sec$
    sec$ = right$(time$, 1)

    if lsec$ <> sec$ then
      rate$ = str$(rate)
    end if

    if lsec$ <> sec$ then
      rate = 0
    end if

    rate = rate + 1

    draw color 1,1,1
    draw text  "Frame(s) per second: " & rate$ at 0,sh-20
  refresh on
  until quit = 1

  end

' And that's the end of that demo :)