1. Куча / Говнокод #24742

    +1

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    onStart =: verb define
  wd 'pc game15; pn 15; bin hv; bin h'
  i =. 0
  for_text. ":@>:0,~?~15 do.
    name =. 'a', ":i
    wd 'cc ', name , ' button; cn ', text
    if. 3 = 4|i do.
      wd 'bin z; bin h'
    end.
    wd 'set ', name, ' wh 80 80'
    ". 'game15_', name, '_button =: buttonclicked@]&', (":i)
    i =. >:i
  end.
  wd 'set a15 text'
  wd 'cc count static; cn 0'
  count =: 0
  wd 'bin z'
  wd 'cc restart button; cn restart'
  wd 'pshow'
  empty =: 15
  0$0
)

buttonclicked =: verb define
  if. 1 = (+/)(**)(-/@:<.@:%&4 , -/@:|~&4) empty, y do.
    wd 'set a', (":empty), ' text ', wd 'get a', (":y), ' text'
    wd 'set a', (":y), ' text'
    empty =: y
    count =: >:count
    wd 'set count text ', ":count
  end.
)

game15_restart_button =: verb define
  wd 'pclose'
  wd 'activity base'
)

wd 'activity base'

    Я осилил гуй в J! Урряяяя!

    Запостил: MasterJoda, 11 Сентября 2018

    Комментарии (30) RSS

    Добавить комментарий