Lemma Soft Forums

Code: Select all

screen about_left(val):
  textbutton "Increase" action SetScreenVariable("test_val",val+1)

screen about_layout(val):
  hbox:
    align (0.5,0.5)
    spacing 100
    use about_left(val)
    vbox:
      transclude

screen about():
  tag menu
  default test_val=0
  use about_layout(test_val):
#    $pass
    text "[test_val]"
  textbutton "Return":
    align (0.5,0.95)
    action Return()
    keysym "game_menu"

label start:
  "test"
  return

Code: Select all

image purple:
    Solid("#f0f")
    size(500, 500)
    
transform stretch:
    "purple"
    xzoom 1.0
    linear 0.5 xzoom 0.5
    
transform shrink:
    "purple"
    xzoom 0.5
    linear 0.5 xzoom 1.0
    
image stretch_to_full_size:
    contains stretch
    
image shrink_to_half:
    contains shrink
    
transform slide_transform(y_anchor=1.0, t=0.5):
    linear t yanchor y_anchor
    
    
screen test_animated_button_scr():
    default full_size = False
    
    default flag = True
    
    frame:
        pos (0.95, 0.15)
        anchor(1.0, 1.0)
        if flag:
            at slide_transform(y_anchor=1.0, t=0.0)
        elif full_size:
            at slide_transform(y_anchor=0.0)
        else:
            at slide_transform
                    
        button:
            if flag:
                add "purple"
            elif full_size:
                add "stretch_to_full_size"
            else:
                add "shrink_to_half"
                
            action [
                SetScreenVariable("flag", False),
                ToggleScreenVariable("full_size", True, False),
                ]

    
# The game starts here.
label start:
    "Animated button test."
    show screen test_animated_button_scr
    "On click rectangle changes its size in ver. 7.3.5, but not in ver. 7.4.10...(("
    "..."