API tools faq
paste
Advertisement
burdoto

Untitled

burdoto
Sep 10th, 2018
533
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
TCL 19.74 KB | None | 0 0
raw download clone embed print report
  1. #!/usr/bin/wish
  2.  
  3. set versionNr "0.9.1"
  4.  
  5. wm title . "Five Nights at Freddy's - Version $versionNr - Entwicklermodus"
  6. wm minsize . 700 350
  7. wm maxsize . 700 350
  8.  
  9. proc init { doReload } {
  10.     global chars charNames posList door poster dead open blocked powerLeft powerUsage pos doorBlockDeath activeCam camList camIDs camActive goldenFreddy useImage light ai
  11.    
  12.     set chars [list freddy bonnie chica foxy golden]
  13.     set charNames [list "Freddy" "Bonnie" "Chica" "Foxy" "Golden Freddy"]
  14.    
  15.     set posList(freddy) [list stage dining_room restrooms kitchen east_hall east_corner none office]
  16.     set posList(bonnie) [list stage dining_room backstage west_hall supply west_corner left_door office]
  17.     set posList(chica) [list stage dining_room restrooms kitchen east_hall east_corner right_door office]
  18.     set posList(foxy) [list cove_back cove_peek cove_run west_hall office]
  19.     set posList(golden) [list none office]
  20.    
  21.     set pos(freddy) 0
  22.     set pos(bonnie) 0
  23.     set pos(chica) 0
  24.     set pos(foxy) 0
  25.     set pos(golden) 0
  26.    
  27.     set ai(freddy) 0
  28.     set ai(bonnie) 3
  29.     set ai(chica) 2
  30.     set ai(foxy) 1
  31.     set ai(golden) 0
  32.    
  33.     set goldenFreddy false
  34.    
  35.     set camList [list stage dining_room cove west_hall west_corner supply east_hall east_corner backstage kitchen restrooms]
  36.     set camIDs [list 1A 1B 1C 2A 2B 3 4A 4B 5 6 7]
  37.     set activeCam 0
  38.     set camActive false
  39.    
  40.     set useImage() ""
  41.     set useImage(office.dark) "img/office/office.dark-state1.png"
  42.     set useImage(cam.west_hall) "img/cameras/west_hall/light_on.png"
  43.      
  44.     set dead false
  45.     set doorBlockDeath false
  46.    
  47.     set door(left) clear
  48.     set door(right) clear
  49.    
  50.     set light(left) off
  51.     set light(right) off
  52.    
  53.     set open(left) true
  54.     set open(right) true
  55.    
  56.     set blocked(left) false
  57.     set blocked(right) false
  58.    
  59.     set poster(west_corner) "lets_party"
  60.    
  61.     set powerLeft 100
  62.     set powerUsage 1
  63.    
  64.     if {$doReload == "doReload"} {
  65.         .new configure -bg #999999
  66.         reload
  67.     } elseif {$doReload == "noReload"} {
  68.         update
  69.     }
  70. }
  71.  
  72. proc trigger { char } {
  73.     global chars charNames posList door poster dead open blocked powerLeft powerUsage pos doorBlockDeath activeCam camList camIDs camActive goldenFreddy useImage light
  74.    
  75.     if {$char != "golden" && $char != "foxy"} {
  76.         if {$pos($char) < [expr [llength $posList($char)] - 2]} {
  77.             set thisPos $pos($char)
  78.             set nextPos [expr $pos($char) + 1]
  79.         } elseif {$char == "freddy" && $pos($char) == [expr [llength $posList($char)] - 2]} {
  80.             set thisPos $pos($char)
  81.             set nextPos [expr $pos($char) + 1]
  82.             set dead true
  83.         } elseif {$char == "bonnie" && $pos($char) >= 5} {
  84.             if {$pos($char) == 5 && $door(left) == "clear"} {
  85.                 set door(left) "bonnie"
  86.                 set thisPos 5
  87.                 set nextPos 6
  88.             } elseif {$pos($char) == 6 && $door(left) == "bonnie"} {
  89.                 if {$open(left) == "true"} {
  90.                     set blocked(left) true
  91.                     set thisPos 6
  92.                     set nextPos 6
  93.                 } elseif {$open(left) == "false"} {
  94.                     set thisPos 6
  95.                     set nextPos [random 1 3]
  96.                 }
  97.             }
  98.         } elseif {$char == "chica" && $pos($char) >= 5} {
  99.             if {$pos($char) == 5 && $door(right) == "clear"} {
  100.                 set door(right) "chica"
  101.                 set thisPos 5
  102.                 set nextPos 6
  103.             } elseif {$pos($char) == 6 && $door(right) == "chica"} {
  104.                 if {$open(right) == "true"} {
  105.                     set blocked(right) true
  106.                     set thisPos 6
  107.                     set nextPos 6
  108.                 } elseif {$open(right) == "false"} {
  109.                     set thisPos 6
  110.                     set nextPos [random 1 2]
  111.                 }
  112.             }
  113.         }
  114.     } elseif {$char == "golden"} {
  115.         set poster(west_corner) "golden_freddy"
  116.         set pos(golden) 1
  117.         set nextPos 1
  118.     } elseif {$char == "foxy"} {
  119.         if {$pos(foxy) == 4} {
  120.             set thisPos $pos(foxy)
  121.             set nextPos 0
  122.         } else {
  123.             set thisPos $pos(foxy)
  124.             set nextPos [expr $pos($char) + 1]
  125.         }
  126.     }
  127.    
  128.     set pos($char) $nextPos
  129.    
  130.     if {[lindex $posList(bonnie) $pos(bonnie)] == "left_door"} {
  131.         set door(left) "bonnie"
  132.     } else {
  133.         set door(left) "clear"
  134.     }
  135.    
  136.     if {[lindex $posList(chica) $pos(chica)] == "right_door"} {
  137.         set door(right) "chica"
  138.     } else {
  139.         set door(right) "clear"
  140.     }
  141. }
  142.  
  143. proc camera { } {
  144.     global chars charNames posList door poster dead open blocked powerLeft powerUsage pos doorBlockDeath activeCam camList camIDs camActive goldenFreddy useImage light
  145.    
  146.     if {$camActive == false} {
  147.         set camActive true
  148.         .cam configure -text "Kamera AUS" -bg red
  149.        
  150.         set goldenTrigger [random 1 9999999]
  151. #       set goldenTrigger 3754
  152.         .info4 configure -text "Nummer: $goldenTrigger"
  153.         if {$goldenTrigger == 3754} {
  154.             trigger golden
  155.             set goldenFreddy true
  156.         }
  157.     } elseif {$camActive == true} {
  158.         set camActive false
  159.         .cam configure -text "Kamera AN" -bg green
  160.     }
  161. }
  162.  
  163. proc doorToggle { side } {
  164.     global chars charNames posList door poster dead open blocked powerLeft powerUsage pos doorBlockDeath activeCam camList camIDs camActive goldenFreddy useImage light
  165.    
  166.     if {$camActive == "false"} {
  167.         if {$open($side) == true && $blocked($side) == false} {
  168.             set open($side) false
  169.             .$side\Toggle configure -bg green
  170.         } elseif {$open($side) == false} {
  171.             set open($side) true
  172.             .$side\Toggle configure -bg red
  173.         }
  174.     }
  175. }
  176.  
  177. proc lightToggle { side } {
  178.     global chars charNames posList door poster dead open blocked powerLeft powerUsage pos doorBlockDeath activeCam camList camIDs camActive goldenFreddy useImage light
  179.    
  180. #   if {$camActive == "false"} {
  181.         if {$light($side) == on} {
  182.             set light($side) off
  183.             .$side\Light configure -bg green -text "Licht $side\:$light($side)"
  184.         } elseif {$light($side) == off} {
  185.             set light($side) on
  186.             .$side\Light configure -bg red -text "Licht $side\:\n$light($side)"
  187.         }
  188.        
  189.         if {$side == "left"} {
  190.             if {$light(right) == "on"} {
  191.                 set light(right) off
  192.                 .rightLight configure -bg green -text "Licht right:$light(right)"
  193.             }
  194.         }
  195.         if {$side == "right"} {
  196.             if {$light(left) == "on"} {
  197.                 set light(left) off
  198.                 .leftLight configure -bg green -text "Licht left:$light(left)"
  199.             }
  200.         }
  201. #   }
  202. }
  203.  
  204. proc random { from to } {
  205.     set random [expr ( [clock clicks] % ( $to - $from ) ) + $from]
  206.    
  207.     if {$random > $to || $random < $from} {
  208.         random $from $to
  209.     } elseif {$random <= $to && $random >= $from} {
  210.         return $random
  211.     }
  212. }
  213.  
  214. proc processImages { } {
  215.     global chars charNames posList door poster dead open blocked powerLeft powerUsage pos doorBlockDeath activeCam camList camIDs camActive goldenFreddy useImage light
  216.    
  217. # Image Specify Block
  218.     if {$pos(bonnie) == 0 && $pos(chica) == 0 && $pos(freddy) == 0} { # STAGE
  219.         if {[random 1 100] >= "5"} {
  220.             set useImage(cam.stage) "img/cameras/stage/b,c,f-normal.png"
  221.         } else {
  222.             set useImage(cam.stage) "img/cameras/stage/b,c,f-extra.png"
  223.         }
  224.     } elseif {$pos(bonnie) != 0 && $pos(chica) == 0 && $pos(freddy) == 0} {
  225.         set useImage(cam.stage) "img/cameras/stage/c,f-normal.png"
  226.     } elseif {$pos(bonnie) == 0 && $pos(chica) != 0 && $pos(freddy) == 0} {
  227.         set useImage(cam.stage) "img/cameras/stage/b,f-normal.png"
  228.     } elseif {$pos(bonnie) != 0 && $pos(chica) != 0 && $pos(freddy) == 0} {
  229.         if {[random 1 100] >= "5"} {
  230.             set useImage(cam.stage) "img/cameras/stage/f-normal.png"
  231.         } else {
  232.             set useImage(cam.stage) "img/cameras/stage/f-extra.png"
  233.         }
  234.     } elseif {$pos(bonnie) != 0 && $pos(chica) != 0 && $pos(freddy) != 0} {
  235.         set useImage(cam.stage) "img/cameras/stage/-normal.png"
  236.     }
  237.    
  238.     if {$pos(bonnie) != 1 && $pos(chica) != 1 && $pos(freddy) != 1} { # DINING_ROOM
  239.         set useImage(cam.dining_room) "img/cameras/dining_room/empty-1.png"
  240.     } elseif {$pos(bonnie) == 1 && $pos(chica) != 1 && $pos(freddy) != 1} {
  241.         if {[random 1 100] >= 25} {
  242.             set useImage(cam.dining_room) "img/cameras/dining_room/bonnie-1.png"
  243.         } else {
  244.             set useImage(cam.dining_room) "img/cameras/dining_room/bonnie-2.png"
  245.         }
  246.     } elseif {$pos(chica) != 1 && $pos(freddy) == 1} {
  247.         set useImage(cam.dining_room) "img/cameras/dining_room/freddy-1.png"
  248.     } elseif {$pos(chica) == 1} {
  249.         if {[random 1 100] >= 25} {
  250.             set useImage(cam.dining_room) "img/cameras/dining_room/chica-1.png"
  251.         } else {
  252.             set useImage(cam.dining_room) "img/cameras/dining_room/chica-2.png"
  253.         }
  254.     }
  255.    
  256.     if {$pos(foxy) == 0} { # PIRATE_COVE
  257.         set useImage(cam.cove) "img/cameras/pirate_cove/state1.png"
  258.     } elseif {$pos(foxy) == 1} {
  259.         set useImage(cam.cove) "img/cameras/pirate_cove/state2.png"
  260.     } elseif {$pos(foxy) == 2} {
  261.         set useImage(cam.cove) "img/cameras/pirate_cove/state3.png"
  262.     } elseif {$pos(foxy) >= 3} {
  263.         set useImage(cam.cove) "img/cameras/pirate_cove/state4.png"
  264.     }
  265.    
  266.     if {$pos(bonnie) != 3 && $pos(foxy) != 3} { # WEST_HALL
  267.         if {$useImage(cam.west_hall) == "img/cameras/west_hall/light_on.png"} {
  268.             set useImage(cam.west_hall) "img/cameras/west_hall/light_off.png"
  269.         } elseif {$useImage(cam.west_hall) == "img/cameras/west_hall/light_off.png"} {
  270.             set useImage(cam.west_hall) "img/cameras/west_hall/light_on.png"
  271.         }
  272.     } elseif {$pos(bonnie) == 3 && $pos(foxy) != 3} {
  273.         set useImage(cam.west_hall) "img/cameras/west_hall/bonnie.png"
  274.     } elseif {$pos(foxy) == 3} {
  275.         set useImage(cam.west_hall) "img/cameras/west_hall/foxy_run/foxy_run-full.gif"
  276.     }
  277.    
  278.     if {$pos(bonnie) != 5} { # WEST_CORNER
  279.         if {$poster(west_corner) == "golden_freddy"} {
  280.             set useImage(cam.west_corner) "img/cameras/west_corner/normal-golden_freddy.png"
  281.         } elseif {$poster(west_corner) == "lets_party"} {
  282.             if {[random 1 100] >= "5"} {
  283.                 set useImage(cam.west_corner) "img/cameras/west_corner/normal-freddy1.png"
  284.             } else {
  285.                 set useImage(cam.west_corner) "img/cameras/west_corner/normal-freddy2.png"
  286.             }
  287.         }
  288.     } elseif {$pos(bonnie) == 5} {
  289. #       if {$ai(bonnie) >= "10"}
  290.         set useImage(cam.west_corner) "img/cameras/west_corner/bonnie-chill.png"
  291.     }
  292.    
  293.     if {$pos(bonnie) != 4} { # SUPPLY
  294.         set useImage(cam.supply) "img/cameras/backroom/empty.png"
  295.     } elseif {$pos(bonnie) == 4} {
  296.         set useImage(cam.supply) "img/cameras/backroom/bonnie.png"
  297.     }
  298.    
  299.     if {$pos(chica) != 4 && $pos(freddy) != 4} { # EAST_HALL
  300.         set thisRandom [random 1 99]
  301.         if {$thisRandom >= 7 && $thisRandom <= 93} {
  302.             set useImage(cam.east_hall) "img/cameras/east_hall/empty-state1.png"
  303.         } elseif {$thisRandom < 7} {
  304.             set useImage(cam.east_hall) "img/cameras/east_hall/empty-state2.png"
  305.         } elseif {$thisRandom > 93} {
  306.             set useImage(cam.east_hall) "img/cameras/east_hall/empty-state3.png"
  307.         }
  308.     } elseif {$pos(chica) == 4 && $pos(freddy) != 4} {
  309.         set useImage(cam.east_hall) "img/cameras/east_hall/chica.png"
  310.     } elseif {$pos(freddy) == 4} {
  311.         set useImage(cam.east_hall) "img/cameras/east_hall/freddy.png"
  312.     }
  313.    
  314.     if {$pos(chica) != 5 && $pos(freddy) != 5} { # EAST_CORNER
  315.         set thisRandom [random 1 100]
  316.         if {$thisRandom > 0 && $thisRandom <= 25} {
  317.             set useImage(cam.east_corner) "img/cameras/east_corner/empty-state1.png"
  318.         } elseif {$thisRandom > 25 && $thisRandom <= 50} {
  319.             set useImage(cam.east_corner) "img/cameras/east_corner/empty-state2.png"
  320.         } elseif {$thisRandom > 50 && $thisRandom <= 75} {
  321.             set useImage(cam.east_corner) "img/cameras/east_corner/empty-state3.png"
  322.         } elseif {$thisRandom > 75 && $thisRandom <= 100} {
  323.             set useImage(cam.east_corner) "img/cameras/east_corner/empty-state4.png"
  324.         }
  325.     } elseif {$pos(chica) == 5 && $pos(freddy) != 5} {
  326. #       if {$ai(chica) >= 10}
  327.         set useImage(cam.east_corner) "img/cameras/east_corner/chica-chill.png"
  328.     } elseif {$pos(freddy) == 5} {
  329.         set useImage(cam.east_corner) "img/cameras/east_corner/freddy.png"
  330.     }
  331.    
  332.     if {$pos(bonnie) != 2} { # BACKSTAGE
  333.         if {[random 1 100] >= 5} {
  334.             set useImage(cam.backstage) "img/cameras/parts_room/empty-state1.png"
  335.         } else {
  336.             set useImage(cam.backstage) "img/cameras/parts_room/empty-state2.png"
  337.         }
  338.     } elseif {$pos(bonnie) == 2} {
  339.         if {[random 1 100] >= 15} {
  340.             set useImage(cam.backstage) "img/cameras/parts_room/bonnie-state1.png"
  341.         } else {
  342.             set useImage(cam.backstage) "img/cameras/parts_room/bonnie-state2.png"
  343.         }
  344.     }
  345.        
  346.     if {$pos(chica) != 2 && $pos(freddy) != 2} { # TOILETS
  347.         set useImage(cam.restrooms) "img/cameras/toilets/empty-state1.png"
  348.     } elseif {$pos(chica) == 2 && $pos(freddy) != 2} {
  349.         if {[random 1 100] >= 50} {
  350.             set useImage(cam.restrooms) "img/cameras/toilets/chica-state1.png"
  351.         } else {
  352.             set useImage(cam.restrooms) "img/cameras/toilets/chica-state2.png"
  353.         }
  354.     } elseif {$pos(freddy) == 2} {
  355.         set useImage(cam.restrooms) "img/cameras/toilets/freddy-state1.png"
  356.     }
  357.    
  358.     set useImage(office.lightLeft) "img/office/office.left-state1.png"
  359.     set useImage(office.lightLeftBonnie) "img/office/office.bonnie-state1.png"
  360.     set useImage(office.lightRight) "img/office/office.right-state1.png"
  361.     set useImage(office.lightRightChica) "img/office/office.chica-state1.png"
  362.  
  363. # Image Choose Block
  364.     if {$camActive == "false" && $light(left) == "off" && $light(right) == "off"} {
  365.         set nowVisible $useImage(office.dark)
  366.     } elseif {$camActive == "false" && $light(left) == "on" && $light(right) == "off"} {
  367.         if {$pos(bonnie) == 6} {
  368.             set nowVisible $useImage(office.lightLeftBonnie)
  369.         } else {
  370.             set nowVisible $useImage(office.lightLeft)
  371.         }
  372.     } elseif {$camActive == "false" && $light(left) == "off" && $light(right) == "on"} {
  373.         if {$pos(chica) == 6} {
  374.             set nowVisible $useImage(office.lightRightChica)
  375.         } else {
  376.             set nowVisible $useImage(office.lightRight)
  377.         }
  378.     } elseif {$camActive == "true"} {
  379.         switch $activeCam {
  380.             "0" {
  381.                 set nowVisible $useImage(cam.stage)
  382.             } "1" {
  383.                 set nowVisible $useImage(cam.dining_room)
  384.             } "2" {
  385.                 set nowVisible $useImage(cam.cove)
  386.             } "3" {
  387.                 set nowVisible $useImage(cam.west_hall)
  388.             } "4" {
  389.                 set nowVisible $useImage(cam.west_corner)
  390.             } "5" {
  391.                 set nowVisible $useImage(cam.supply)
  392.             } "6" {
  393.                 set nowVisible $useImage(cam.east_hall)
  394.             } "7" {
  395.                 set nowVisible $useImage(cam.east_corner)
  396.             } "8" {
  397.                 set nowVisible $useImage(cam.backstage)
  398.             } "9" {
  399.                 set nowVisible $useImage(cam.kitchen)
  400.             } "10" {
  401.                 set nowVisible $useImage(cam.restrooms)
  402.             }
  403.         }
  404.     }
  405.    
  406.     set imageInfo [image create photo]
  407.     $imageInfo read "$nowVisible"
  408.     .s.a create image 800 360 -image $imageInfo
  409. }
  410.  
  411. proc reload { } {
  412.     global chars charNames posList door poster dead open blocked powerLeft powerUsage pos doorBlockDeath activeCam camList camIDs camActive goldenFreddy useImage light ai
  413.    
  414. # AI Processing Block
  415.     for {set i 0} {$i < [llength $chars]} {incr i 1} {
  416.         set thisCharName [lindex $chars $i]
  417.        
  418.         if {[random 1 40] < $ai($thisCharName)} {
  419.             trigger $thisCharName
  420.         }
  421.     }
  422.    
  423.     processImages
  424.    
  425.     if {$camActive == "true" && $light(left) == "on"} {
  426.         lightToggle "left"
  427.     }
  428.     if {$camActive == "true" && $light(right) == "on"} {
  429.         lightToggle "right"
  430.     }
  431.    
  432.     set powerUsage 1
  433.     if {$light(left) == on} { set powerUsage [expr $powerUsage + 1] }
  434.     if {$light(right) == on} { set powerUsage [expr $powerUsage + 1] }
  435.     if {$open(left) == false} { set powerUsage [expr $powerUsage + 1] }
  436.     if {$open(right) == false} { set powerUsage [expr $powerUsage + 1] }
  437.     if {$camActive == true} { set powerUsage [expr $powerUsage + 1] }
  438.    
  439.     switch $powerUsage {
  440.         "1" { set powerLeft [expr $powerLeft - 0.104166667]
  441.         } "2" { set powerLeft [expr $powerLeft - 0.208333333]
  442.         } "3" { set powerLeft [expr $powerLeft - 0.3125]
  443.         } "4" { set powerLeft [expr $powerLeft - 0.416666667]
  444.         }
  445.     }
  446.    
  447.     if {$powerLeft <= 0} {
  448.         set dead true
  449.     }
  450.    
  451.     if {$open(left) == true && $blocked(left) == true && $camActive == true} {
  452.         set doorBlockDeath true
  453.     }
  454.     if {$open(right) == true && $blocked(right) == true && $camActive == true} {
  455.         set doorBlockDeath true
  456.     }
  457.    
  458.     if {$goldenFreddy == true && $camActive == true} {
  459.         set doorBlockDeath true
  460.     }
  461.    
  462.     for {set i 0} {$i < [llength $chars]} {incr i 1} {
  463.         set thisChar [lindex $chars $i]
  464.         set thisCharName [lindex $charNames $i]
  465.         .$thisChar configure -text "$thisCharName\: [lindex $posList($thisChar) $pos($thisChar)]"
  466.     }
  467.    
  468.     .doorLeft configure -text "State: $door(left)\nOpen: $open(left)\nBlocked: $blocked(left)"
  469.     .doorRight configure -text "State: $door(right)\nOpen: $open(right)\nBlocked: $blocked(right)"
  470.     .posterWestCorner configure -text "Golden Freddy-Poster:\n$poster(west_corner)"
  471.     .dead configure -text "Tot: $dead"
  472.     .powerLeft configure -text "Energie:\n$powerLeft" -relief groove
  473.     .powerUsage configure -text "Verbrauch: $powerUsage" -relief groove
  474.     .deadNext configure -text "doorBlockDeath: $doorBlockDeath"
  475.    
  476.     .imageArray configure -text "images:\n$useImage(cam.west_corner)"
  477.    
  478.     if {$dead == true || ( $doorBlockDeath == true && $camActive == false )} {
  479.         set dead true
  480.        
  481.         .dead configure -text "Tot: $dead"
  482.         .new configure -bg red
  483.     } elseif {$dead == false} {
  484.         after 1000 reload
  485.     }
  486. }
  487.  
  488. proc hud { } {
  489.     global chars charNames posList door poster dead open blocked powerLeft powerUsage pos doorBlockDeath activeCam camList camIDs camActive goldenFreddy useImage light
  490.    
  491.     bind . <Escape> "exit"
  492.    
  493.     button .close -text "Beenden" -command "exit" -relief groove
  494.     button .leftToggle -text "left" -command "doorToggle left" -bg red -relief groove
  495.     button .rightToggle -text "right" -command "doorToggle right" -bg red -relief groove
  496.     button .reload -text "Refresh" -command "reload" -relief groove
  497.     button .new -text "Neu" -command "init doReload" -relief groove
  498.     button .cam -text "Kamera AN" -command "camera" -bg green -relief groove
  499.    
  500.     button .leftLight -text "Licht\nlinks" -command "lightToggle left" -relief groove
  501.     button .rightLight -text "Licht\nrechts" -command "lightToggle right" -relief groove
  502.    
  503.     button .useCam00 -command "set activeCam 0" -text "stage"
  504.     button .useCam01 -command "set activeCam 1" -text "dining_room"
  505.     button .useCam02 -command "set activeCam 2" -text "cove"
  506.     button .useCam03 -command "set activeCam 3" -text "west_hall"
  507.     button .useCam04 -command "set activeCam 4" -text "west_corner"
  508.     button .useCam05 -command "set activeCam 5" -text "supply"
  509.     button .useCam06 -command "set activeCam 6" -text "east_hall"
  510.     button .useCam07 -command "set activeCam 7" -text "east_corner"
  511.     button .useCam08 -command "set activeCam 8" -text "backstage"
  512.     button .useCam09 -command "set activeCam 9" -text "kitchen"
  513.     button .useCam10 -command "set activeCam 10" -text "toilets"
  514.    
  515. #   stage dining_room cove west_hall west_corner supply east_hall east_corner backstage kitchen restrooms
  516.    
  517.     label .doorLeft -text $door(left) -relief groove
  518.     label .doorRight -text $door(right) -relief groove
  519.     label .posterWestCorner -text $poster(west_corner) -relief groove
  520.     label .dead -text $dead -relief groove
  521.     label .powerLeft -text "Energie: $powerLeft" -relief groove
  522.     label .powerUsage -text "Verbrauch: $powerUsage" -relief groove
  523.     label .deadNext -relief groove
  524.     label .info4 -relief groove
  525.    
  526.     label .imageArray
  527.    
  528.     toplevel .s
  529.     wm attributes .s -fullscreen 1
  530.     wm attributes . -topmost 1
  531.     canvas .s.a
  532.     pack .s.a -expand 1 -fill both
  533.    
  534.     bind .s <Escape> "exit"
  535.    
  536.     for {set i 0} {$i < [llength $chars]} {incr i 1} {
  537.         set thisChar [lindex $chars $i]
  538.         label .$thisChar -text [lindex $posList($thisChar) 0]
  539.     }
  540.    
  541.     for {set i 0} {$i < [llength $chars]} {incr i 1} {
  542.         set thisCharName [lindex $charNames $i]
  543.         set thisCharTRIG "[lindex $chars $i]\Trig"
  544.         button .$thisCharTRIG -text "Trigger $thisCharName" -command "trigger [lindex $chars $i]" -relief groove
  545.     }
  546.    
  547.     grid .new        .close       -         .leftToggle .rightToggle      -sticky news
  548.     grid  x           x           x         .leftLight  .rightLight       -sticky news
  549.     grid .freddy     .bonnie     .chica     .foxy       .golden           -sticky news
  550.     grid .freddyTrig .bonnieTrig .chicaTrig .foxyTrig   .goldenTrig       -sticky news
  551.     grid .reload     .doorLeft   .doorRight .dead       .posterWestCorner -sticky news
  552.     grid .powerLeft  .powerUsage .deadNext  .info4      .cam              -sticky news
  553.     grid .useCam00   .useCam01   .useCam02  .useCam03   .useCam04         -sticky news
  554.     grid .useCam05   .useCam06   .useCam07  .useCam08   .useCam09         -sticky news
  555.     grid .useCam10   -           -          -           -                 -sticky news
  556.    
  557.     for {set i 0} {$i < 5} {incr i 1} {
  558.         grid rowconfigure    . $i -weight 1 -uniform a
  559.         grid columnconfigure . $i -weight 1 -uniform a
  560.     }
  561. }
  562.  
  563. init noReload
  564. hud
  565. reload
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!