innovus 可以玩贪吃蛇了，快来玩啊！！！！！！！

gap123

静态效果如下，可以自己按键盘上下左右方向键去调整蛇头前进方向


      

songzhihe66

不对啊  innovus   根本没有create_gui_* 的command

gap123

songzhihe66 发表于 2025-7-31 15:50
不对啊  innovus   根本没有create_gui_* 的command

请用common ui启动，即innovus -stylus

15909834256

哈哈哈 可以试着玩一下

Challensys

好歹整个能复制粘贴的代码啊

1. set ::grid_size 20
   
2. set ::cell_size 10
   
3. set ::snake { {5 5} {5 6} {5 7} }
   
4. set ::food [list [expr int(rand()*15)] [expr int(rand()*15)]]
   
5. set ::direction RIGHT
   
6. set ::game_over 0
   
7. 
   
8. catch {delete_obj [get_db gui_shapes]}
   
9. catch {delete_obj [get_db gui_texts]}
   
10. 
    
11. proc create_game_area {} {
    
12.   create_gui_shape -name boundary -layer M1 \
    
13.    -rect [list 0 0 \
    
14.     [expr $::grid_size * $::cell_size] \
    
15.     [expr $::grid_size * $::cell_size]]
    
16.   foreach segment $::snake {
    
17.     lassign $segment x y
    
18.         create_snake_segment $x $y
    
19.   }
    
20.   create_food [lindex $::food 0] [lindex $::food 1]
    
21. }
    
22. 
    
23. proc delete_game_element name {
    
24.   if {[get_db gui_shapes $name] ne ""} {
    
25.     delete_obj [get_db gui_shapes $name]
    
26.   }
    
27. }
    
28. 
    
29. proc create_snake_segment {x y} {
    
30.   set x1 [expr $x * $::cell_size]
    
31.   set y1 [expr $y * $::cell_size]
    
32.   set x2 [expr $x1 + $::cell_size - 1]
    
33.   set y2 [expr $y1 + $::cell_size - 1]
    
34.   create_gui_shape -name snake_${x}_${y} -layer M2 \
    
35.    -rect [list $x1 $y1 $x2 $y2]
    
36. }
    
37. 
    
38. proc create_food {x y} {
    
39.   set x1 [expr $x * $::cell_size]
    
40.   set y1 [expr $y * $::cell_size]
    
41.   set x2 [expr $x1 + $::cell_size - 1]
    
42.   set y2 [expr $y1 + $::cell_size - 1]
    
43.   create_gui_shape -name food -layer M3 \
    
44.    -rect [list $x1 $y1 $x2 $y2]
    
45. }
    
46. 
    
47. proc move_snake {} {
    
48.   if {$::game_over} return
    
49.   set head [lindex $::snake end]
    
50.   lassign $head x y
    
51.   switch $::direction {
    
52.     UP    { set new_head [list $x [expr $y+1]] }
    
53.         DOWN  { set new_head [list $x [expr $y-1]] }
    
54.         LEFT  { set new_head [list [expr $x-1] $y] }
    
55.         RIGHT { set new_head [list [expr $x+1] $y] }
    
56.   }
    
57.   if {[check_collision $new_head]} {
    
58.     create_gui_text -height 10 -label "Game Over! Score [expr [llength $::snake] - 3]" \
    
59.          -pt "[expr $::grid_size * $::cell_size / 2] [expr $::grid_size * $::cell_size / 2]" \
    
60.          -layer LB
    
61.         set ::game_over 1
    
62.         gui_redraw
    
63.         puts "Game Over! Score [expr [llength $::snake] - 3]"
    
64.         return
    
65.   }
    
66.   lappend ::snake $new_head
    
67.   lassign $new_head nx ny
    
68.   create_snake_segment $nx $ny
    
69.   if {$x == [lindex $::food 0] && $ny == [lindex $::food 1]} {
    
70.     delete_obj [get_db gui_shapes food]
    
71.         set valid_food 0
    
72.         while {!$valid_food} {
    
73.           set new_food_x [expr int(rand()*$::grid_size)]
    
74.           set new_food_y [expr int(rand()*$::grid_size)]
    
75.           set valid_food 1
    
76.           foreach segment $::snake {
    
77.             if {$new_food_x == [lindex $segment 0] && $new_food_y == [lindex $segment 1]} {
    
78.                   set valid_food 0
    
79.                   break
    
80.                 }
    
81.           }
    
82.         }
    
83.         set ::food [list $new_food_x $new_food_y]
    
84.         create_food [lindex $::food 0] [lindex $::food 1]
    
85.   } else {
    
86.     set tail [lindex $::snake 0]
    
87.         set ::snake [lrange $::snake 1 end]
    
88.         lassign $tail tx ty
    
89.         delete_obj [get_db gui_shapes snake_${tx}_${ty}]
    
90.   }
    
91.   after 300 move_snake
    
92. }
    
93. 
    
94. proc check_collision pos {
    
95.   lassign $pos x y
    
96.   if {$x < 0 || $x >= $::grid_size || $y < 0 || $y >= $::grid_size} {
    
97.     return 1
    
98.   }
    
99.   foreach segment [lrange $::snake 0 end-1] {
    
100.     if {$segment == $pos} {
     
101.           return 1
     
102.         }
     
103.   }
     
104.   return 0
     
105. }
     
106. 
     
107. proc key_control key {
     
108.   switch $key {
     
109.     Up    { if {$::direction ne "DOWN"}  { set ::direction UP } }
     
110.     Down  { if {$::direction ne "UP"}    { set ::direction DOWN } }
     
111.     Left  { if {$::direction ne "RIGHT"} { set ::direction LEFT } }
     
112.     Right { if {$::direction ne "LEFT"}  { set ::direction RIGHT } }
     
113.   }
     
114. }
     
115. 
     
116. bindKey Up    {key_control Up}
     
117. bindKey Down  {key_control Down}
     
118. bindKey Left  {key_control Left}
     
119. bindKey Right {key_control Right}
     
120. 
     
121. create_game_area
     
122. after 200 move_snake
     

复制代码

gap123

Challensys 发表于 2025-8-1 11:06
好歹整个能复制粘贴的代码啊

公司电脑，无法文件交互。敬请见谅！