The Legend of Zelda

globals [our-current-screen
         screencounter
         screenticker
         totaldirection?
         hearts
         octorokmoving?
         timer1
         keys
         whichkey?
         gotkeyone?
         gotkeytwo?
         gotkeythree?
         gotkeyfour?
         gotkeyfive?
         x
         y
         temp
         shape1
         score
         ]

turtles-own [identity]

to titlescreen
  ca
  import-drawing "title screen.png"
  wait 4
end 

to start
  titlescreen
  ca
  reset-timer
  set hearts 3
  set keys 0
  set gotkeyone? "false"
  set gotkeytwo? "false"
  set gotkeythree? "false"
  set gotkeyfour? "false"
  set gotkeyfive? "false"
  set our-current-screen 1
  import-pcolors "screen1 world"
  fleshoutscreen
  createlink
  ask turtles with [identity = "hero"] [set shape "zelda forward"]
end 

to createlink
  cro 1 [set identity "hero" set size 1.4 ]
end 

to setup
  ask turtles with [shape = "octorok1" or shape = "octorok2"] [octorok]
  if hearts <= 0 [ca import-drawing "game over.png"]
  if keys = 5 [win]
end 

to go
  ask turtles with [identity = "hero"] 
  [repeat 10 [fd .05 if any? other turtles in-cone 1 90 with 
    [shape = "water" 
      or shape = "octorok1" 
      or shape = "octorok2" 
      or shape = "treetex" 
      or shape = "littletreetex" 
      or shape = "rocktex" 
      or shape = "singlerock"
      or shape = "littledeadtreetex"
      or shape = "whitetreetex"
      or shape = "gravestone"
      or shape = "treestump"] [rt 180 fd .05 rt 180]] 
  if any? other turtles in-radius 1 with [shape = "octorok1" or shape = "octorok2"] [set hearts hearts - .5]
  if any? other turtles-here with [shape = "cave"][cave]
  if xcor >= 7.9 [set totaldirection? "right"]
  if xcor <= -7.9 [set totaldirection? "left"]
  if ycor >= 7.9 [set totaldirection? "up"]
  if ycor <= -7.9 [set totaldirection? "down"]]
end 

to up
  if totaldirection? = "up" [totalup set totaldirection? "none"] 
  ask turtles with [identity = "hero"]
  [set heading 0
  set size 1.4
  set shape "zeldaup2"
  wait .07
  go
  set shape "zelda up"
  go if any? other turtles-here with [shape = "key"][getkey]
  setxy pxcor pycor; Thanks Mr. Brooks!
  ]
end 

to down
  if totaldirection? = "down" [totaldown set totaldirection? "none"]
  ask turtles with [identity = "hero"]
  [set heading 180
    set size 1.4
    set shape "zelda forward"
    wait .07
    go
    set shape "zeldaforward2"
    go if any? other turtles-here with [shape = "key"][getkey]
    setxy pxcor pycor; Thanks Mr. Brooks!
    ]
end 

to directionr

  if totaldirection? = "right" [totalright set totaldirection? "none"] 
  ask turtles with [identity = "hero"]
  [set heading 90
    set size 1
    set shape "zelda right"
    wait .07
    go
    set shape "zeldaright2"
    go if any? other turtles-here with [shape = "key"][getkey]
    setxy pxcor pycor; Thanks Mr. Brooks!
    ]
end  

to directionl
  if totaldirection? = "left" [totalleft set totaldirection? "none" stop] 
  ask turtles with [identity = "hero"]
  [set heading 270
    set size 1
    set shape "zelda left"
    wait .07
    go
    set shape "zeldaleft2"
    go if any? other turtles-here with [shape = "key"][getkey]
    setxy pxcor pycor; thanks Mr. Brooks
   ]
end 

to movescreenright
  repeat 33 [if screenticker < 17 [
    ask turtles with [identity = "hero"] [if xcor <= -7.5 [set xcor -7]] 
    ask turtles with [identity = "hero"] [set xcor xcor - 1] 
    ask turtles with [hidden? = false and shape != "zelda right"] [if xcor <= -7.9 [die] set xcor xcor - 1]
    ask turtles with [hidden? = true and xcor = -8 + screenticker] [set xcor 8 show-turtle]
    set screenticker screenticker + 1
    set totaldirection? "none"
    wait .1
   ]]
end 

to movescreenleft
 repeat 33 [if screenticker < 17 [
    ask turtles with [identity = "hero"] [if xcor >= 7.5 [set xcor 7]] 
    ask turtles with [identity = "hero"] [set xcor xcor + 1] 
    ask turtles with [hidden? = false and shape != "zelda left"] [if xcor >= 7.9 [die] set xcor xcor + 1 ]
    ask turtles with [hidden? = true and xcor = 8 - screenticker] [set xcor -8 show-turtle]
    set screenticker screenticker + 1
    set totaldirection? "none"
    wait .1
   ]]
end 

to movescreenup
  repeat 33 [if screenticker < 17 [
    ask turtles with [identity = "hero"] [if ycor <= -7.5 [set ycor -7]] 
    ask turtles with [identity = "hero"] [set ycor ycor - 1] 
    ask turtles with [hidden? = false and shape != "zelda up"] [if ycor <= -7.9 [die] set ycor ycor - 1 ]
    ask turtles with [hidden? = true and ycor = -8 + screenticker] [set ycor 8 show-turtle]
    set screenticker screenticker + 1
    set totaldirection? "none"
    wait .1
   ]]
end 

to movescreendown
  repeat 33 [if screenticker < 17 [
    ask turtles with [identity = "hero"] [if ycor >= 7.5 [set ycor 7]] 
    ask turtles with [identity = "hero"] [set ycor ycor + 1] 
    ask turtles with [hidden? = false and shape != "zelda forward"] [if ycor >= 7.9 [die] set ycor ycor + 1 ]
    ask turtles with [hidden? = true and ycor = 8 - screenticker] [set ycor -8 show-turtle]
    set screenticker screenticker + 1
    set totaldirection? "none"
    wait .1
   ]]
end 

to cave
  ;
end 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;ACTION

to swordattack
  ask turtles with [identity = "hero"] 
  [if shape = "zelda forward" or shape = "zeldaforward2" [
    set shape "forwardattack1"
    wait .03
    set shape "forwardattack2"
    ask patch xcor (ycor - 1) [sprout 1 [set shape "forwardattack2sword" wait .3 die] if any? other turtles in-radius .5 with [shape = "octorok1" or shape = "octorok2"] [set score score + 1 set hearts hearts + .5 ask other turtles in-radius .5 [die] ]]
    set shape "zelda forward"]
   if shape = "zelda up" or shape = "zeldaup2" [
     set shape "upattack1"
     wait .03
     set shape "upattack2"
     ask patch xcor (ycor + 1) [sprout 1 [set shape "upattack2sword" wait .3 die] if any? other turtles in-radius .5 with [shape = "octorok1" or shape = "octorok2"] [set score score + 1 set hearts hearts + .5 ask other turtles in-radius .5 [die] ]]
     set shape "zelda up"]
   if shape = "zelda right" or shape = "zeldaright2" [
     set shape "rightattack1"
     wait .03
     set shape "rightattack2"
     ask patch (xcor + 1) ycor [sprout 1 [set shape "rightattack2sword" wait .3 die] if any? other turtles in-radius .5 with [shape = "octorok1" or shape = "octorok2"] [set score score + 1 set hearts hearts + .5 ask other turtles in-radius .5 [die] ]]
     set shape "zelda right"]
   if shape = "zelda left" or shape = "zeldaleft2" [
     set shape "leftattack1"
     wait .03
     set shape "leftattack2"
     ask patch (xcor - 1) ycor [sprout 1 [set shape "leftattack2sword" wait .3 die] if any? other turtles in-radius .5 with [shape = "octorok1" or shape = "octorok2"] [set score score + 1 set hearts hearts + .5 ask other turtles in-radius .5 [die] ]]
     set shape "zelda left"
    ]
   
   
   ]
end 

to getkey ;key must be located in center of screen!!!
  set keys keys + 1 
  ask turtles with [shape = "key"][
    if whichkey? = "keyone" [set gotkeyone? "true"]
    if whichkey? = "keytwo" [set gotkeytwo? "true"]
    if whichkey? = "keythree" [set gotkeythree? "true"]
    if whichkey? = "keyfour" [set gotkeyfour? "true"]
    if whichkey? = "keyfive" [set gotkeyfive? "true"]
    die]
  ask turtles with [identity = "hero"][set shape "link gets key" ask patch 0 1 [sprout 1 [set shape "key"]]]
  wait 4
  ask turtles with [shape = "key"][die]
end 

to win
 ask turtles [die]
 ask patches [set pcolor black]
 import-drawing "end.png"
end  
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;INIMICOS

to octorok
set temp random 15000
ifelse temp = 1 [rt 90] [if temp = 0 [lt 90] 
if any? other turtles in-cone 1 90 or (abs pxcor = 15 or abs pycor = 15) [rt 180 fd .00055]
fd .00055 
 ]
end 

to octorokfire
  ask-concurrent turtles with [shape = "octorok1" or shape = "octorok2" and (any? turtles in-cone 4 45 with [identity = "hero"] ) = true ]
        [if heading = 0 
         [ask patch xcor (ycor + 1) [sprout 1 [set shape "spitball" set heading 0 while [any? other turtles-here = false] [while [any? other turtles-here = false] [fd 1 wait .1]] die]]]
      if heading = 90 
         [ask patch (xcor + 1) ycor [sprout 1 [set shape "spitball" set heading 90 while [any? other turtles-here = false] [while [any? other turtles-here = false] [fd 1 wait .1]] die]]]
      if heading = 180
         [ask patch xcor (ycor - 1) [sprout 1 [set shape "spitball" set heading 180 while [any? other turtles-here = false] [while [any? other turtles-here = false] [fd 1 wait .1]] die]]]
      if heading = 270
         [ask patch (xcor - 1) ycor [sprout 1 [set shape "spitball" set heading 270 while [any? other turtles-here = false] [while [any? other turtles-here = false] [fd 1 wait .1]] die]]]
      ]
end 
      
    
    
    
    
    

    
    
    
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;SCREENS/MAP & Screenmoving Mechanic

to fleshoutscreen
   ask patches [if pcolor = 55 [sprout 1 [set shape "treetex"]] 
               if pcolor = black [sprout 1 [set shape "cave"]]
               if pcolor = 25 [sprout 1 [set shape "littletreetex"]]
               if pcolor = 115 [sprout 1 [set shape "sidetreetex1"]] 
               if pcolor = 15 [sprout 1 [set shape "sidetreetex2"]]
               if pcolor = gray [sprout 1 [set shape "sidetreetex3"]]
               if pcolor = pink [sprout 1 [set shape "sidetreetex4"]]
               if pcolor = brown [sprout 1 [set shape "rocktex"]]
               if pcolor = 1 [sprout 1 [set shape "upslanteduprock"]]
               if pcolor = 2 [sprout 1 [set shape "upslanteddownrock"]]
               if pcolor = 3 [sprout 1 [set shape "downslanteduprock"]]
               if pcolor = 4 [sprout 1 [set shape "downslanteddownrock"]]
               if pcolor = yellow [sprout 1 [set shape "singlerock"]]
               if pcolor = 11 [sprout 1 [set shape "octorok1" let quarterchance random 4
                                                                    if quarterchance = 0 [set heading 0] 
                                                                    if quarterchance = 1 [set heading 90]
                                                                    if quarterchance = 2 [set heading 180]
                                                                    if quarterchance = 3 [set heading 270]]]
               if pcolor = blue [sprout 1 [set shape "water"]]
               if pcolor = 17 [sprout 1 [set shape "wateredgeright"]]
               if pcolor = 16 [sprout 1 [set shape "wateredgeleft"]]
               if pcolor = 13 [sprout 1 [set shape "wateredgetop"]]
               if pcolor = 14 [sprout 1 [set shape "wateredgebottom"]]
               if pcolor = 111 [sprout 1 [set shape "bridge"]]
               if pcolor = 112 [sprout 1 [set shape "stair"]]
               if pcolor = 113 [sprout 1 [set shape "littledeadtreetex"]]
               if pcolor = 114 [if gotkeyone? = "false" [sprout 1 [set shape "key" set whichkey? "keyone"]]]
               if pcolor = 119 [if gotkeytwo? = "false" [sprout 1 [set shape "key" set whichkey? "keytwo"]]]
               if pcolor = 116 [if gotkeythree? = "false" [sprout 1 [set shape "key" set whichkey? "keythree"]]]
               if pcolor = 117 [if gotkeyfour? = "false" [sprout 1 [set shape "key" set whichkey? "keyfour"]]]
               if pcolor = 118 [if gotkeyfive? = "false" [sprout 1 [set shape "key" set whichkey? "keyfive"]]]
               if pcolor = 122 [sprout 1 [set shape "whitetreetex"]]
               if pcolor = 123 [sprout 1 [set shape "gravestone"]]
               if pcolor = 124 [sprout 1 [set shape "treestump" set size 1.5]]
               set pcolor 28.6]
end 

to currentscreen
  
  if our-current-screen = 1 [import-pcolors "screen1 world" set screencounter 1]
  if our-current-screen = 2 [import-pcolors "screen2 world" set screencounter 2]
  if our-current-screen = 3 [import-pcolors "screen3 world" set screencounter 3]
  if our-current-screen = 4 [import-pcolors "screen4 world" set screencounter 4]
  if our-current-screen = 5 [import-pcolors "screen5 world" set screencounter 5]
  if our-current-screen = 6 [import-pcolors "screen6 world" set screencounter 6]
  if our-current-screen = 7 [import-pcolors "screen7 world" set screencounter 7]
  if our-current-screen = 8 [import-pcolors "screen8 world" set screencounter 8]
  if our-current-screen = 9 [import-pcolors "screen9 world" set screencounter 9]
  if our-current-screen = 10 [import-pcolors "screen10 world" set screencounter 10]
  if our-current-screen = 11 [import-pcolors "screen11 world" set screencounter 11]
  if our-current-screen = 12 [import-pcolors "screen12 world" set screencounter 12]
  if our-current-screen = 13 [import-pcolors "screen13 world" set screencounter 13]
  if our-current-screen = 14 [import-pcolors "screen14 world" set screencounter 14]
  if our-current-screen = 15 [import-pcolors "screen15 world" set screencounter 15]
  if our-current-screen = 16 [import-pcolors "screen16 world" set screencounter 16]
  if our-current-screen = 17 [import-pcolors "screen17 world" set screencounter 17]
  if our-current-screen = 18 [import-pcolors "screen18 world" set screencounter 18]
  if our-current-screen = 19 [import-pcolors "screen19 world" set screencounter 19]
  if our-current-screen = 20 [import-pcolors "screen20 world" set screencounter 20]
  if our-current-screen = 21 [import-pcolors "screen21 world" set screencounter 21]
  if our-current-screen = 22 [import-pcolors "screen22 world" set screencounter 22]
  if our-current-screen = 23 [import-pcolors "screen23 world" set screencounter 23]
  if our-current-screen = 24 [import-pcolors "screen24 world" set screencounter 24]
  if our-current-screen = 25 [import-pcolors "screen25 world" set screencounter 25]
  if our-current-screen = 26 [import-pcolors "screen26 world" set screencounter 26]
  if our-current-screen = 27 [import-pcolors "screen27 world" set screencounter 27]
  if our-current-screen = 28 [import-pcolors "screen28 world" set screencounter 28]
  if our-current-screen = 29 [import-pcolors "screen29 world" set screencounter 29]
  if our-current-screen = 30 [import-pcolors "screen30 world" set screencounter 30]
  if our-current-screen = 31 [import-pcolors "screen31 world" set screencounter 31]
  if our-current-screen = 32 [import-pcolors "screen32 world" set screencounter 32]
  if our-current-screen = 33 [import-pcolors "screen33 world" set screencounter 33]
  if our-current-screen = 34 [import-pcolors "screen34 world" set screencounter 34]
  if our-current-screen = 35 [import-pcolors "screen35 world" set screencounter 35]
  if our-current-screen = 36 [import-pcolors "screen36 world" set screencounter 36]
  if our-current-screen = 37 [import-pcolors "screen37 world" set screencounter 37]
  if our-current-screen = 38 [import-pcolors "screen38 world" set screencounter 38]
  if our-current-screen = 39 [import-pcolors "screen39 world" set screencounter 39]
  if our-current-screen = 40 [import-pcolors "screen40 world" set screencounter 40]
  if our-current-screen = 41 [import-pcolors "screen41 world" set screencounter 41]
  if our-current-screen = 42 [import-pcolors "screen42 world" set screencounter 42]
  if our-current-screen = 43 [import-pcolors "screen43 world" set screencounter 43]
  if our-current-screen = 44 [import-pcolors "screen44 world" set screencounter 44]
  if our-current-screen = 45 [import-pcolors "screen45 world" set screencounter 45]
  if our-current-screen = 46 [import-pcolors "screen46 world" set screencounter 46]
  if our-current-screen = 47 [import-pcolors "screen47 world" set screencounter 47]
  if our-current-screen = 48 [import-pcolors "screen48 world" set screencounter 48]
  if our-current-screen = 49 [import-pcolors "screen49 world" set screencounter 49]
  if our-current-screen = 50 [import-pcolors "screen50 world" set screencounter 50]
  if our-current-screen = 51 [import-pcolors "screen51 world" set screencounter 51]
  if our-current-screen = 52 [import-pcolors "screen52 world" set screencounter 52]
  if our-current-screen = 53 [import-pcolors "screen53 world" set screencounter 53]
  if our-current-screen = 54 [import-pcolors "screen54 world" set screencounter 54]
  if our-current-screen = 55 [import-pcolors "screen55 world" set screencounter 55]
  if our-current-screen = 56 [import-pcolors "screen56 world" set screencounter 56]
  if our-current-screen = 57 [import-pcolors "screen57 world" set screencounter 57]
  if our-current-screen = 58 [import-pcolors "screen58 world" set screencounter 58]
  if our-current-screen = 59 [import-pcolors "screen59 world" set screencounter 59]
  if our-current-screen = 60 [import-pcolors "screen60 world" set screencounter 60]
  if our-current-screen = 61 [import-pcolors "screen61 world" set screencounter 61]
  if our-current-screen = 62 [import-pcolors "screen62 world" set screencounter 62]
  if our-current-screen = 63 [import-pcolors "screen63 world" set screencounter 63]
  if our-current-screen = 64 [import-pcolors "screen64 world" set screencounter 64]
  if our-current-screen = 65 [import-pcolors "screen65 world" set screencounter 65]
  if our-current-screen = 66 [import-pcolors "screen66 world" set screencounter 66]
  if our-current-screen = 67 [import-pcolors "screen67 world" set screencounter 67]
  if our-current-screen = 68 [import-pcolors "screen68 world" set screencounter 68]
  if our-current-screen = 69 [import-pcolors "screen69 world" set screencounter 69]
  if our-current-screen = 70 [import-pcolors "screen70 world" set screencounter 70]
  if our-current-screen = 71 [import-pcolors "screen71 world" set screencounter 71]
  if our-current-screen = 72 [import-pcolors "screen72 world" set screencounter 72]
  if our-current-screen = 73 [import-pcolors "screen73 world" set screencounter 73]
  if our-current-screen = 74 [import-pcolors "screen74 world" set screencounter 74]
  if our-current-screen = 75 [import-pcolors "screen75 world" set screencounter 75]
  if our-current-screen = 76 [import-pcolors "screen76 world" set screencounter 76]
  if our-current-screen = 77 [import-pcolors "screen77 world" set screencounter 77]
  if our-current-screen = 78 [import-pcolors "screen78 world" set screencounter 78]
  if our-current-screen = 79 [import-pcolors "screen79 world" set screencounter 79]
  if our-current-screen = 80 [import-pcolors "screen80 world" set screencounter 80]
  if our-current-screen = 81 [import-pcolors "screen81 world" set screencounter 81]
  if our-current-screen = 82 [import-pcolors "screen82 world" set screencounter 82]
  if our-current-screen = 83 [import-pcolors "screen83 world" set screencounter 83]
  if our-current-screen = 84 [import-pcolors "screen84 world" set screencounter 84]
  if our-current-screen = 85 [import-pcolors "screen85 world" set screencounter 85]
  if our-current-screen = 86 [import-pcolors "screen86 world" set screencounter 86]
  if our-current-screen = 87 [import-pcolors "screen87 world" set screencounter 87]
  if our-current-screen = 88 [import-pcolors "screen88 world" set screencounter 88]
  if our-current-screen = 89 [import-pcolors "screen89 world" set screencounter 89]
  if our-current-screen = 90 [import-pcolors "screen90 world" set screencounter 90]
  if our-current-screen = 91 [import-pcolors "screen91 world" set screencounter 91]
  if our-current-screen = 92 [import-pcolors "screen92 world" set screencounter 92]
  if our-current-screen = 93 [import-pcolors "screen93 world" set screencounter 23]
  if our-current-screen = 94 [import-pcolors "screen94 world" set screencounter 94]
  if our-current-screen = 95 [import-pcolors "screen95 world" set screencounter 95]
  if our-current-screen = 96 [import-pcolors "screen96 world" set screencounter 96]
  if our-current-screen = 97 [import-pcolors "screen97 world" set screencounter 97]
  if our-current-screen = 98 [import-pcolors "screen98 world" set screencounter 98]
  if our-current-screen = 99 [import-pcolors "screen99 world" set screencounter 99]
  if our-current-screen = 100 [import-pcolors "screen100 world" set screencounter 100]
  if our-current-screen = 101 [import-pcolors "screen101 world" set screencounter 101]
  if our-current-screen = 102 [import-pcolors "screen102 world" set screencounter 102]
  if our-current-screen = 103 [import-pcolors "screen103 world" set screencounter 103]
  if our-current-screen = 104 [import-pcolors "screen104 world" set screencounter 104]
  if our-current-screen = 105 [import-pcolors "screen105 world" set screencounter 105]
  if our-current-screen = 106 [import-pcolors "screen106 world" set screencounter 106]
  if our-current-screen = 107 [import-pcolors "screen107 world" set screencounter 107]
  if our-current-screen = 108 [import-pcolors "screen108 world" set screencounter 108]
  if our-current-screen = 109 [import-pcolors "screen109 world" set screencounter 109]
  if our-current-screen = 110 [import-pcolors "screen110 world" set screencounter 110]
  if our-current-screen = 111 [import-pcolors "screen111 world" set screencounter 111]
  if our-current-screen = 112 [import-pcolors "screen112 world" set screencounter 112]
  if our-current-screen = 113 [import-pcolors "screen113 world" set screencounter 113]
  if our-current-screen = 114 [import-pcolors "screen114 world" set screencounter 114]
  if our-current-screen = 115 [import-pcolors "screen115 world" set screencounter 115]
  if our-current-screen = 116 [import-pcolors "screen116 world" set screencounter 116]
  if our-current-screen = 117 [import-pcolors "screen117 world" set screencounter 117]
  if our-current-screen = 118 [import-pcolors "screen118 world" set screencounter 118]
  if our-current-screen = 119 [import-pcolors "screen119 world" set screencounter 119]
  if our-current-screen = 120 [import-pcolors "screen120 world" set screencounter 120]
  if our-current-screen = 121 [import-pcolors "screen121 world" set screencounter 121]
  if our-current-screen = 122 [import-pcolors "screen122 world" set screencounter 122]
  if our-current-screen = 123 [import-pcolors "screen123 world" set screencounter 123]
  if our-current-screen = 124 [import-pcolors "screen124 world" set screencounter 124]
  if our-current-screen = 125 [import-pcolors "screen125 world" set screencounter 125]
  if our-current-screen = 126 [import-pcolors "screen126 world" set screencounter 126]
  if our-current-screen = 127 [import-pcolors "screen127 world" set screencounter 127]
  if our-current-screen = 128 [import-pcolors "screen128 world" set screencounter 128]
  
  fleshoutscreen
end 

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;RIGHT HEADED (used only when the screen is moving right)

to destinationscreen-going-right
  if our-current-screen = 1 [import-pcolors "screen2 world" set screencounter 2]
  if our-current-screen = 3 [import-pcolors "screen1 world" set screencounter 1]
  if our-current-screen = 2 [import-pcolors "screen24 world" set screencounter 24]
  if our-current-screen = 4 [import-pcolors "screen6 world" set screencounter 6]
  if our-current-screen = 5 [import-pcolors "screen4 world" set screencounter 4]
  if our-current-screen = 6 [import-pcolors "screen23 world" set screencounter 23]
  if our-current-screen = 7 [import-pcolors "screen3 world" set screencounter 3]
  if our-current-screen = 8 [import-pcolors "screen5 world" set screencounter 5]
  if our-current-screen = 9 [import-pcolors "screen10 world" set screencounter 10]
  if our-current-screen = 10 [import-pcolors "screen11 world" set screencounter 11]
  if our-current-screen = 11 [import-pcolors "screen12 world" set screencounter 12]
  if our-current-screen = 12 [import-pcolors "screen22 world" set screencounter 22]
  if our-current-screen = 14 [import-pcolors "screen8 world" set screencounter 8]
  if our-current-screen = 15 [import-pcolors "screen9 world" set screencounter 9]
  if our-current-screen = 17 [import-pcolors "screen18 world" set screencounter 18]
  if our-current-screen = 18 [import-pcolors "screen19 world" set screencounter 19]
  if our-current-screen = 19 [import-pcolors "screen20 world" set screencounter 20]
  if our-current-screen = 21 [import-pcolors "screen37 world" set screencounter 37]
  if our-current-screen = 22 [import-pcolors "screen38 world" set screencounter 38]
  if our-current-screen = 23 [import-pcolors "screen39 world" set screencounter 39]
  if our-current-screen = 24 [import-pcolors "screen40 world" set screencounter 40]
  if our-current-screen = 25 [import-pcolors "screen13 world" set screencounter 13]
  if our-current-screen = 26 [import-pcolors "screen14 world" set screencounter 14]
  if our-current-screen = 27 [import-pcolors "screen15 world" set screencounter 15]
  if our-current-screen = 30 [import-pcolors "screen31 world" set screencounter 31]
  if our-current-screen = 31 [import-pcolors "screen32 world" set screencounter 32]
  if our-current-screen = 33 [import-pcolors "screen34 world" set screencounter 34]
  if our-current-screen = 36 [import-pcolors "screen50 world" set screencounter 50]
  if our-current-screen = 37 [import-pcolors "screen57 world" set screencounter 57]
  if our-current-screen = 38 [import-pcolors "screen58 world" set screencounter 58]
  if our-current-screen = 39 [import-pcolors "screen59 world" set screencounter 59]
  if our-current-screen = 40 [import-pcolors "screen60 world" set screencounter 60]
  if our-current-screen = 41 [import-pcolors "screen25 world" set screencounter 25]
  if our-current-screen = 42 [import-pcolors "screen26 world" set screencounter 26]
  if our-current-screen = 43 [import-pcolors "screen27 world" set screencounter 27]
  if our-current-screen = 45 [import-pcolors "screen24 world" set screencounter 24]
  if our-current-screen = 47 [import-pcolors "screen48 world" set screencounter 48]
  if our-current-screen = 48 [import-pcolors "screen49 world" set screencounter 49]
  if our-current-screen = 50 [import-pcolors "screen51 world" set screencounter 51]
  if our-current-screen = 51 [import-pcolors "screen52 world" set screencounter 52]
  if our-current-screen = 52 [import-pcolors "screen53 world" set screencounter 53]
  if our-current-screen = 53 [import-pcolors "screen54 world" set screencounter 54]
  if our-current-screen = 54 [import-pcolors "screen55 world" set screencounter 55]
  if our-current-screen = 55 [import-pcolors "screen79 world" set screencounter 79]
  if our-current-screen = 58 [import-pcolors "screen82 world" set screencounter 82]
  if our-current-screen = 59 [import-pcolors "screen83 world" set screencounter 83]
  if our-current-screen = 60 [import-pcolors "screen84 world" set screencounter 84]
  if our-current-screen = 61 [import-pcolors "screen41 world" set screencounter 41]
  if our-current-screen = 62 [import-pcolors "screen42 world" set screencounter 42]
  if our-current-screen = 63 [import-pcolors "screen43 world" set screencounter 43]
  if our-current-screen = 65 [import-pcolors "screen45 world" set screencounter 45]
  if our-current-screen = 68 [import-pcolors "screen64 world" set screencounter 64]
  if our-current-screen = 69 [import-pcolors "screen70 world" set screencounter 70]
  if our-current-screen = 70 [import-pcolors "screen71 world" set screencounter 71]
  if our-current-screen = 71 [import-pcolors "screen72 world" set screencounter 72]
  if our-current-screen = 72 [import-pcolors "screen73 world" set screencounter 73]
  if our-current-screen = 73 [import-pcolors "screen74 world" set screencounter 74]
  if our-current-screen = 74 [import-pcolors "screen75 world" set screencounter 75]
  if our-current-screen = 75 [import-pcolors "screen76 world" set screencounter 76]
  if our-current-screen = 76 [import-pcolors "screen77 world" set screencounter 77]
  if our-current-screen = 77 [import-pcolors "screen78 world" set screencounter 78]
  if our-current-screen = 78 [import-pcolors "screen106 world" set screencounter 106]
  if our-current-screen = 79 [import-pcolors "screen107 world" set screencounter 107]
  if our-current-screen = 80 [import-pcolors "screen108 world" set screencounter 108]
  if our-current-screen = 81 [import-pcolors "screen109 world" set screencounter 109]
  if our-current-screen = 82 [import-pcolors "screen110 world" set screencounter 110]
  if our-current-screen = 83 [import-pcolors "screen111 world" set screencounter 111]
  if our-current-screen = 84 [import-pcolors "screen112 world" set screencounter 112]
  if our-current-screen = 85 [import-pcolors "screen61 world" set screencounter 61]
  if our-current-screen = 86 [import-pcolors "screen62 world" set screencounter 62]
  if our-current-screen = 88 [import-pcolors "screen64 world" set screencounter 64]
  if our-current-screen = 89 [import-pcolors "screen65 world" set screencounter 65]
  if our-current-screen = 90 [import-pcolors "screen66 world" set screencounter 66]
  if our-current-screen = 91 [import-pcolors "screen67 world" set screencounter 67]
  if our-current-screen = 92 [import-pcolors "screen93 world" set screencounter 93]
  if our-current-screen = 93 [import-pcolors "screen94 world" set screencounter 94]
  if our-current-screen = 94 [import-pcolors "screen95 world" set screencounter 95]
  if our-current-screen = 96 [import-pcolors "screen97 world" set screencounter 97]
  if our-current-screen = 97 [import-pcolors "screen98 world" set screencounter 98]
  if our-current-screen = 98 [import-pcolors "screen99 world" set screencounter 99]
  if our-current-screen = 99 [import-pcolors "screen100 world" set screencounter 100]
  if our-current-screen = 100 [import-pcolors "screen101 world" set screencounter 101]
  if our-current-screen = 104 [import-pcolors "screen105 world" set screencounter 105]
  if our-current-screen = 106 [import-pcolors "screen114 world" set screencounter 114]
  if our-current-screen = 107 [import-pcolors "screen115 world" set screencounter 115]
  if our-current-screen = 109 [import-pcolors "screen117 world" set screencounter 117]
  if our-current-screen = 110 [import-pcolors "screen118 world" set screencounter 118]
  if our-current-screen = 111 [import-pcolors "screen119 world" set screencounter 119]
  if our-current-screen = 112 [import-pcolors "screen120 world" set screencounter 120]
  if our-current-screen = 113 [import-pcolors "screen121 world" set screencounter 121]
  if our-current-screen = 114 [import-pcolors "screen122 world" set screencounter 122]
  if our-current-screen = 115 [import-pcolors "screen123 world" set screencounter 123]
  if our-current-screen = 116 [import-pcolors "screen124 world" set screencounter 124]
  if our-current-screen = 119 [import-pcolors "screen127 world" set screencounter 127]
  if our-current-screen = 120 [import-pcolors "screen128 world" set screencounter 128]
  

  fleshoutscreen
end 



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;LEFT HEADED 

to destinationscreen-going-left
  if our-current-screen = 1 [import-pcolors "screen3 world" set screencounter 3]
  if our-current-screen = 2 [import-pcolors "screen1 world" set screencounter 1]
  if our-current-screen = 3 [import-pcolors "screen7 world" set screencounter 7]
  if our-current-screen = 4 [import-pcolors "screen5 world" set screencounter 5]
  if our-current-screen = 5 [import-pcolors "screen8 world" set screencounter 8]
  if our-current-screen = 6 [import-pcolors "screen4 world" set screencounter 4]
  if our-current-screen = 8 [import-pcolors "screen14 world" set screencounter 14]
  if our-current-screen = 9 [import-pcolors "screen15 world" set screencounter 15]
  if our-current-screen = 10 [import-pcolors "screen9 world" set screencounter 9]
  if our-current-screen = 11 [import-pcolors "screen10 world" set screencounter 10]
  if our-current-screen = 12 [import-pcolors "screen11 world" set screencounter 11]
  if our-current-screen = 13 [import-pcolors "screen25 world" set screencounter 25]
  if our-current-screen = 14 [import-pcolors "screen26 world" set screencounter 26]
  if our-current-screen = 15 [import-pcolors "screen27 world" set screencounter 27]
  if our-current-screen = 17 [import-pcolors "screen16 world" set screencounter 16]
  if our-current-screen = 18 [import-pcolors "screen17 world" set screencounter 17]
  if our-current-screen = 19 [import-pcolors "screen18 world" set screencounter 18]
  if our-current-screen = 20 [import-pcolors "screen19 world" set screencounter 19]
  if our-current-screen = 22 [import-pcolors "screen12 world" set screencounter 12]
  if our-current-screen = 23 [import-pcolors "screen6 world" set screencounter 6]
  if our-current-screen = 24 [import-pcolors "screen2 world" set screencounter 2]
  if our-current-screen = 25 [import-pcolors "screen41 world" set screencounter 41]
  if our-current-screen = 26 [import-pcolors "screen42 world" set screencounter 42]
  if our-current-screen = 27 [import-pcolors "screen43 world" set screencounter 43]
  if our-current-screen = 29 [import-pcolors "screen45 world" set screencounter 45]
  if our-current-screen = 31 [import-pcolors "screen30 world" set screencounter 30]
  if our-current-screen = 32 [import-pcolors "screen31 world" set screencounter 31]
  if our-current-screen = 34 [import-pcolors "screen33 world" set screencounter 33]
  if our-current-screen = 37 [import-pcolors "screen21 world" set screencounter 21]
  if our-current-screen = 38 [import-pcolors "screen22 world" set screencounter 22]
  if our-current-screen = 39 [import-pcolors "screen23 world" set screencounter 23]
  if our-current-screen = 40 [import-pcolors "screen24 world" set screencounter 24]
  if our-current-screen = 41 [import-pcolors "screen61 world" set screencounter 61]
  if our-current-screen = 42 [import-pcolors "screen62 world" set screencounter 62]
  if our-current-screen = 43 [import-pcolors "screen63 world" set screencounter 63]
  if our-current-screen = 45 [import-pcolors "screen65 world" set screencounter 64]
  if our-current-screen = 48 [import-pcolors "screen47 world" set screencounter 47]
  if our-current-screen = 49 [import-pcolors "screen48 world" set screencounter 48]
  if our-current-screen = 51 [import-pcolors "screen50 world" set screencounter 50]
  if our-current-screen = 52 [import-pcolors "screen51 world" set screencounter 51]
  if our-current-screen = 53 [import-pcolors "screen52 world" set screencounter 52]
  if our-current-screen = 54 [import-pcolors "screen53 world" set screencounter 53]
  if our-current-screen = 55 [import-pcolors "screen54 world" set screencounter 54]
  if our-current-screen = 56 [import-pcolors "screen36 world" set screencounter 36]
  if our-current-screen = 57 [import-pcolors "screen37 world" set screencounter 37]
  if our-current-screen = 58 [import-pcolors "screen38 world" set screencounter 38]
  if our-current-screen = 59 [import-pcolors "screen39 world" set screencounter 39]
  if our-current-screen = 60 [import-pcolors "screen40 world" set screencounter 40]
  if our-current-screen = 61 [import-pcolors "screen85 world" set screencounter 85]
  if our-current-screen = 62 [import-pcolors "screen86 world" set screencounter 86]
  if our-current-screen = 64 [import-pcolors "screen88 world" set screencounter 88]
  if our-current-screen = 65 [import-pcolors "screen89 world" set screencounter 89]
  if our-current-screen = 66 [import-pcolors "screen90 world" set screencounter 90]
  if our-current-screen = 67 [import-pcolors "screen91 world" set screencounter 91]
  if our-current-screen = 69 [import-pcolors "screen68 world" set screencounter 68]
  if our-current-screen = 70 [import-pcolors "screen69 world" set screencounter 69]
  if our-current-screen = 71 [import-pcolors "screen70 world" set screencounter 70]
  if our-current-screen = 72 [import-pcolors "screen71 world" set screencounter 71]
  if our-current-screen = 73 [import-pcolors "screen72 world" set screencounter 72]
  if our-current-screen = 74 [import-pcolors "screen73 world" set screencounter 73]
  if our-current-screen = 75 [import-pcolors "screen74 world" set screencounter 74]
  if our-current-screen = 76 [import-pcolors "screen75 world" set screencounter 75]
  if our-current-screen = 77 [import-pcolors "screen76 world" set screencounter 76]
  if our-current-screen = 78 [import-pcolors "screen77 world" set screencounter 77]
  if our-current-screen = 79 [import-pcolors "screen55 world" set screencounter 55]
  if our-current-screen = 80 [import-pcolors "screen56 world" set screencounter 56]
  if our-current-screen = 82 [import-pcolors "screen58 world" set screencounter 58]
  if our-current-screen = 83 [import-pcolors "screen59 world" set screencounter 59]
  if our-current-screen = 84 [import-pcolors "screen60 world" set screencounter 60]
  if our-current-screen = 93 [import-pcolors "screen92 world" set screencounter 92]
  if our-current-screen = 94 [import-pcolors "screen93 world" set screencounter 93]
  if our-current-screen = 95 [import-pcolors "screen94 world" set screencounter 94]
  if our-current-screen = 97 [import-pcolors "screen96 world" set screencounter 96]
  if our-current-screen = 98 [import-pcolors "screen97 world" set screencounter 97]
  if our-current-screen = 99 [import-pcolors "screen98 world" set screencounter 98]
  if our-current-screen = 100 [import-pcolors "screen99 world" set screencounter 99]
  if our-current-screen = 101 [import-pcolors "screen100 world" set screencounter 100]
  if our-current-screen = 105 [import-pcolors "screen104 world" set screencounter 104]
  if our-current-screen = 106 [import-pcolors "screen78 world" set screencounter 78]
  if our-current-screen = 107 [import-pcolors "screen79 world" set screencounter 79]
  if our-current-screen = 109 [import-pcolors "screen81 world" set screencounter 81]
  if our-current-screen = 110 [import-pcolors "screen82 world" set screencounter 82]
  if our-current-screen = 111 [import-pcolors "screen83 world" set screencounter 83]
  if our-current-screen = 112 [import-pcolors "screen84 world" set screencounter 84]
  if our-current-screen = 114 [import-pcolors "screen106 world" set screencounter 106]
  if our-current-screen = 115 [import-pcolors "screen107 world" set screencounter 107]
  if our-current-screen = 117 [import-pcolors "screen109 world" set screencounter 109]
  if our-current-screen = 118 [import-pcolors "screen110 world" set screencounter 110]
  if our-current-screen = 119 [import-pcolors "screen111 world" set screencounter 111]
  if our-current-screen = 120 [import-pcolors "screen112 world" set screencounter 112]
  if our-current-screen = 122 [import-pcolors "screen114 world" set screencounter 114]
  if our-current-screen = 123 [import-pcolors "screen115 world" set screencounter 115]
  if our-current-screen = 124 [import-pcolors "screen116 world" set screencounter 116]
  if our-current-screen = 127 [import-pcolors "screen119 world" set screencounter 119]
  if our-current-screen = 128 [import-pcolors "screen120 world" set screencounter 120]
  
  fleshoutscreen
end 
  
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;UP HEADED

to destinationscreen-going-up;remove what we don't need
  if our-current-screen = 1 [import-pcolors "screen4 world" set screencounter 4]
  if our-current-screen = 2 [import-pcolors "screen6 world" set screencounter 6]
  if our-current-screen = 3 [import-pcolors "screen5 world" set screencounter 5]
  if our-current-screen = 4 [import-pcolors "screen105 world" set screencounter 105]
  if our-current-screen = 5 [import-pcolors "screen106 world" set screencounter 106]
  if our-current-screen = 6 [import-pcolors "screen12 world" set screencounter 12]
  if our-current-screen = 7 [import-pcolors "screen8 world" set screencounter 8]
  if our-current-screen = 8 [import-pcolors "screen9 world" set screencounter 9]
  if our-current-screen = 9 [import-pcolors "screen17 world" set screencounter 17]
  if our-current-screen = 10 [import-pcolors "screen18 world" set screencounter 18]
  if our-current-screen = 11 [import-pcolors "screen19 world" set screencounter 19]
  if our-current-screen = 12 [import-pcolors "screen20 world" set screencounter 20]
  if our-current-screen = 13 [import-pcolors "screen14 world" set screencounter 14]
  if our-current-screen = 14 [import-pcolors "screen15 world" set screencounter 15]
  if our-current-screen = 15 [import-pcolors "screen16 world" set screencounter 16]
  if our-current-screen = 16 [import-pcolors "screen30 world" set screencounter 30]
  if our-current-screen = 17 [import-pcolors "screen31 world" set screencounter 31]
  if our-current-screen = 18 [import-pcolors "screen32 world" set screencounter 32]
  if our-current-screen = 19 [import-pcolors "screen33 world" set screencounter 33]
  if our-current-screen = 20 [import-pcolors "screen34 world" set screencounter 34]
  if our-current-screen = 21 [import-pcolors "screen35 world" set screencounter 35]
  if our-current-screen = 22 [import-pcolors "screen21 world" set screencounter 21]
  if our-current-screen = 23 [import-pcolors "screen22 world" set screencounter 22]
  if our-current-screen = 24 [import-pcolors "screen23 world" set screencounter 23]
  if our-current-screen = 25 [import-pcolors "screen26 world" set screencounter 26]
  if our-current-screen = 26 [import-pcolors "screen27 world" set screencounter 27]
  if our-current-screen = 27 [import-pcolors "screen28 world" set screencounter 28]
  if our-current-screen = 28 [import-pcolors "screen29 world" set screencounter 29]
  if our-current-screen = 29 [import-pcolors "screen47 world" set screencounter 47]
  if our-current-screen = 30 [import-pcolors "screen48 world" set screencounter 48]
  if our-current-screen = 31 [import-pcolors "screen49 world" set screencounter 49]
  if our-current-screen = 32 [import-pcolors "screen50 world" set screencounter 50]
  if our-current-screen = 33 [import-pcolors "screen51 world" set screencounter 51]
  if our-current-screen = 34 [import-pcolors "screen52 world" set screencounter 52]
  if our-current-screen = 35 [import-pcolors "screen53 world" set screencounter 53]
  if our-current-screen = 36 [import-pcolors "screen54 world" set screencounter 54]
  if our-current-screen = 37 [import-pcolors "screen36 world" set screencounter 36]
  if our-current-screen = 38 [import-pcolors "screen37 world" set screencounter 37]
  if our-current-screen = 39 [import-pcolors "screen38 world" set screencounter 38]
  if our-current-screen = 40 [import-pcolors "screen39 world" set screencounter 39]
  if our-current-screen = 41 [import-pcolors "screen42 world" set screencounter 42]
  if our-current-screen = 42 [import-pcolors "screen43 world" set screencounter 43]
  if our-current-screen = 43 [import-pcolors "screen44 world" set screencounter 44]
  if our-current-screen = 44 [import-pcolors "screen45 world" set screencounter 45]
  if our-current-screen = 45 [import-pcolors "screen46 world" set screencounter 46]
  if our-current-screen = 46 [import-pcolors "screen68 world" set screencounter 48]
  if our-current-screen = 47 [import-pcolors "screen69 world" set screencounter 69]
  if our-current-screen = 48 [import-pcolors "screen70 world" set screencounter 70]
  if our-current-screen = 49 [import-pcolors "screen71 world" set screencounter 71]
  if our-current-screen = 50 [import-pcolors "screen72 world" set screencounter 72]
  if our-current-screen = 51 [import-pcolors "screen73 world" set screencounter 73]
  if our-current-screen = 52 [import-pcolors "screen74 world" set screencounter 74]
  if our-current-screen = 53 [import-pcolors "screen75 world" set screencounter 75]
  if our-current-screen = 54 [import-pcolors "screen76 world" set screencounter 76]
  if our-current-screen = 55 [import-pcolors "screen77 world" set screencounter 77]
  if our-current-screen = 56 [import-pcolors "screen55 world" set screencounter 55]
  if our-current-screen = 57 [import-pcolors "screen56 world" set screencounter 56]
  if our-current-screen = 58 [import-pcolors "screen57 world" set screencounter 57]
  if our-current-screen = 59 [import-pcolors "screen58 world" set screencounter 58]
  if our-current-screen = 60 [import-pcolors "screen59 world" set screencounter 59]
  if our-current-screen = 61 [import-pcolors "screen62 world" set screencounter 62]
  if our-current-screen = 62 [import-pcolors "screen63 world" set screencounter 63]
  if our-current-screen = 63 [import-pcolors "screen64 world" set screencounter 64]
  if our-current-screen = 64 [import-pcolors "screen65 world" set screencounter 65]
  if our-current-screen = 65 [import-pcolors "screen66 world" set screencounter 66]
  if our-current-screen = 66 [import-pcolors "screen67 world" set screencounter 67]
  if our-current-screen = 67 [import-pcolors "screen93 world" set screencounter 93]
  if our-current-screen = 68 [import-pcolors "screen94 world" set screencounter 94]
  if our-current-screen = 69 [import-pcolors "screen95 world" set screencounter 95]
  if our-current-screen = 70 [import-pcolors "screen96 world" set screencounter 96]
  if our-current-screen = 71 [import-pcolors "screen97 world" set screencounter 97]
  if our-current-screen = 72 [import-pcolors "screen98 world" set screencounter 98]
  if our-current-screen = 73 [import-pcolors "screen99 world" set screencounter 99]
  if our-current-screen = 74 [import-pcolors "screen100 world" set screencounter 100]
  if our-current-screen = 75 [import-pcolors "screen101 world" set screencounter 101]
  if our-current-screen = 76 [import-pcolors "screen102 world" set screencounter 102]
  if our-current-screen = 77 [import-pcolors "screen103 world" set screencounter 103]
  if our-current-screen = 78 [import-pcolors "screen104 world" set screencounter 104]
  if our-current-screen = 79 [import-pcolors "screen78 world" set screencounter 78]
  if our-current-screen = 80 [import-pcolors "screen79 world" set screencounter 79]
  if our-current-screen = 81 [import-pcolors "screen80 world" set screencounter 80]
  if our-current-screen = 82 [import-pcolors "screen81 world" set screencounter 81]
  if our-current-screen = 83 [import-pcolors "screen82 world" set screencounter 82]
  if our-current-screen = 84 [import-pcolors "screen83 world" set screencounter 83]
  if our-current-screen = 85 [import-pcolors "screen86 world" set screencounter 86]
  if our-current-screen = 86 [import-pcolors "screen87 world" set screencounter 87]
  if our-current-screen = 87 [import-pcolors "screen88 world" set screencounter 88]
  if our-current-screen = 88 [import-pcolors "screen89 world" set screencounter 89]
  if our-current-screen = 89 [import-pcolors "screen90 world" set screencounter 90]
  if our-current-screen = 90 [import-pcolors "screen91 world" set screencounter 91]
  if our-current-screen = 91 [import-pcolors "screen92 world" set screencounter 92]
  if our-current-screen = 106 [import-pcolors "screen105 world" set screencounter 105]
  if our-current-screen = 107 [import-pcolors "screen106 world" set screencounter 106]
  if our-current-screen = 108 [import-pcolors "screen107 world" set screencounter 107]
  if our-current-screen = 109 [import-pcolors "screen108 world" set screencounter 108]
  if our-current-screen = 110 [import-pcolors "screen109 world" set screencounter 109]
  if our-current-screen = 111 [import-pcolors "screen110 world" set screencounter 110]
  if our-current-screen = 112 [import-pcolors "screen111 world" set screencounter 111]
  if our-current-screen = 114 [import-pcolors "screen113 world" set screencounter 113]
  if our-current-screen = 115 [import-pcolors "screen114 world" set screencounter 114]
  if our-current-screen = 116 [import-pcolors "screen115 world" set screencounter 115]
  if our-current-screen = 117 [import-pcolors "screen116 world" set screencounter 116]
  if our-current-screen = 118 [import-pcolors "screen117 world" set screencounter 117]
  if our-current-screen = 119 [import-pcolors "screen118 world" set screencounter 118]
  if our-current-screen = 120 [import-pcolors "screen119 world" set screencounter 119]
  if our-current-screen = 122 [import-pcolors "screen121 world" set screencounter 121]
  if our-current-screen = 123 [import-pcolors "screen122 world" set screencounter 122]
  if our-current-screen = 124 [import-pcolors "screen123 world" set screencounter 123]
  if our-current-screen = 125 [import-pcolors "screen124 world" set screencounter 124]
  if our-current-screen = 126 [import-pcolors "screen125 world" set screencounter 125]
  if our-current-screen = 127 [import-pcolors "screen126 world" set screencounter 126]
  if our-current-screen = 128 [import-pcolors "screen127 world" set screencounter 127]
  
  fleshoutscreen
end 
  

  
  
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;DOWN HEADED

to destinationscreen-going-down; remove what we don't need
  if our-current-screen = 4 [import-pcolors "screen1 world" set screencounter 1]
  if our-current-screen = 5 [import-pcolors "screen3 world" set screencounter 3]
  if our-current-screen = 6 [import-pcolors "screen2 world" set screencounter 2]
  if our-current-screen = 8 [import-pcolors "screen7 world" set screencounter 7]
  if our-current-screen = 9 [import-pcolors "screen8 world" set screencounter 8]
  if our-current-screen = 10 [import-pcolors "screen5 world" set screencounter 5]
  if our-current-screen = 11 [import-pcolors "screen4 world" set screencounter 4]
  if our-current-screen = 12 [import-pcolors "screen6 world" set screencounter 6]
  if our-current-screen = 14 [import-pcolors "screen13 world" set screencounter 13]
  if our-current-screen = 15 [import-pcolors "screen14 world" set screencounter 14]
  if our-current-screen = 16 [import-pcolors "screen15 world" set screencounter 15]
  if our-current-screen = 17 [import-pcolors "screen9 world" set screencounter 9]
  if our-current-screen = 18 [import-pcolors "screen10 world" set screencounter 10]
  if our-current-screen = 19 [import-pcolors "screen11 world" set screencounter 11]
  if our-current-screen = 20 [import-pcolors "screen12 world" set screencounter 12]
  if our-current-screen = 21 [import-pcolors "screen22 world" set screencounter 22]
  if our-current-screen = 22 [import-pcolors "screen23 world" set screencounter 23]
  if our-current-screen = 23 [import-pcolors "screen24 world" set screencounter 24]
  if our-current-screen = 26 [import-pcolors "screen25 world" set screencounter 25]
  if our-current-screen = 27 [import-pcolors "screen26 world" set screencounter 26]
  if our-current-screen = 28 [import-pcolors "screen27 world" set screencounter 27]
  if our-current-screen = 29 [import-pcolors "screen28 world" set screencounter 28]
  if our-current-screen = 30 [import-pcolors "screen16 world" set screencounter 16]
  if our-current-screen = 31 [import-pcolors "screen17 world" set screencounter 17]
  if our-current-screen = 32 [import-pcolors "screen18 world" set screencounter 18]
  if our-current-screen = 33 [import-pcolors "screen19 world" set screencounter 19]
  if our-current-screen = 34 [import-pcolors "screen20 world" set screencounter 20]
  if our-current-screen = 35 [import-pcolors "screen21 world" set screencounter 21]
  if our-current-screen = 36 [import-pcolors "screen37 world" set screencounter 37]
  if our-current-screen = 37 [import-pcolors "screen38 world" set screencounter 38]
  if our-current-screen = 38 [import-pcolors "screen39 world" set screencounter 39]
  if our-current-screen = 39 [import-pcolors "screen40 world" set screencounter 40]
  if our-current-screen = 42 [import-pcolors "screen41 world" set screencounter 41]
  if our-current-screen = 43 [import-pcolors "screen42 world" set screencounter 42]
  if our-current-screen = 44 [import-pcolors "screen43 world" set screencounter 43]
  if our-current-screen = 45 [import-pcolors "screen44 world" set screencounter 44]
  if our-current-screen = 46 [import-pcolors "screen45 world" set screencounter 45]
  if our-current-screen = 47 [import-pcolors "screen29 world" set screencounter 29]
  if our-current-screen = 48 [import-pcolors "screen30 world" set screencounter 30]
  if our-current-screen = 49 [import-pcolors "screen31 world" set screencounter 31]
  if our-current-screen = 50 [import-pcolors "screen32 world" set screencounter 32]
  if our-current-screen = 51 [import-pcolors "screen33 world" set screencounter 33]
  if our-current-screen = 52 [import-pcolors "screen34 world" set screencounter 34]
  if our-current-screen = 53 [import-pcolors "screen35 world" set screencounter 35]
  if our-current-screen = 54 [import-pcolors "screen36 world" set screencounter 36]
  if our-current-screen = 55 [import-pcolors "screen56 world" set screencounter 56]
  if our-current-screen = 56 [import-pcolors "screen57 world" set screencounter 57]
  if our-current-screen = 57 [import-pcolors "screen58 world" set screencounter 58]
  if our-current-screen = 58 [import-pcolors "screen59 world" set screencounter 59]
  if our-current-screen = 59 [import-pcolors "screen60 world" set screencounter 60]
  if our-current-screen = 62 [import-pcolors "screen61 world" set screencounter 61]
  if our-current-screen = 63 [import-pcolors "screen62 world" set screencounter 62]
  if our-current-screen = 64 [import-pcolors "screen63 world" set screencounter 63]
  if our-current-screen = 65 [import-pcolors "screen64 world" set screencounter 64]
  if our-current-screen = 66 [import-pcolors "screen65 world" set screencounter 65]
  if our-current-screen = 67 [import-pcolors "screen66 world" set screencounter 66]
  if our-current-screen = 68 [import-pcolors "screen46 world" set screencounter 46]
  if our-current-screen = 69 [import-pcolors "screen47 world" set screencounter 47]
  if our-current-screen = 70 [import-pcolors "screen48 world" set screencounter 48]
  if our-current-screen = 71 [import-pcolors "screen49 world" set screencounter 49]
  if our-current-screen = 72 [import-pcolors "screen50 world" set screencounter 50]
  if our-current-screen = 73 [import-pcolors "screen51 world" set screencounter 51]
  if our-current-screen = 74 [import-pcolors "screen52 world" set screencounter 52]
  if our-current-screen = 75 [import-pcolors "screen53 world" set screencounter 53]
  if our-current-screen = 76 [import-pcolors "screen54 world" set screencounter 54]
  if our-current-screen = 77 [import-pcolors "screen55 world" set screencounter 55]
  if our-current-screen = 78 [import-pcolors "screen79 world" set screencounter 79]
  if our-current-screen = 79 [import-pcolors "screen80 world" set screencounter 80]
  if our-current-screen = 80 [import-pcolors "screen81 world" set screencounter 81]
  if our-current-screen = 81 [import-pcolors "screen82 world" set screencounter 82]
  if our-current-screen = 82 [import-pcolors "screen83 world" set screencounter 83]
  if our-current-screen = 83 [import-pcolors "screen84 world" set screencounter 84]
  if our-current-screen = 86 [import-pcolors "screen85 world" set screencounter 85]
  if our-current-screen = 87 [import-pcolors "screen86 world" set screencounter 86]
  if our-current-screen = 88 [import-pcolors "screen87 world" set screencounter 87]
  if our-current-screen = 89 [import-pcolors "screen88 world" set screencounter 88]
  if our-current-screen = 90 [import-pcolors "screen89 world" set screencounter 89]
  if our-current-screen = 91 [import-pcolors "screen90 world" set screencounter 90]
  if our-current-screen = 92 [import-pcolors "screen91 world" set screencounter 91]
  if our-current-screen = 93 [import-pcolors "screen67 world" set screencounter 67]
  if our-current-screen = 94 [import-pcolors "screen68 world" set screencounter 68]
  if our-current-screen = 95 [import-pcolors "screen69 world" set screencounter 69]
  if our-current-screen = 96 [import-pcolors "screen70 world" set screencounter 70]
  if our-current-screen = 97 [import-pcolors "screen71 world" set screencounter 71]
  if our-current-screen = 98 [import-pcolors "screen72 world" set screencounter 72]
  if our-current-screen = 99 [import-pcolors "screen73 world" set screencounter 73]
  if our-current-screen = 100 [import-pcolors "screen74 world" set screencounter 74]
  if our-current-screen = 101 [import-pcolors "screen75 world" set screencounter 75]
  if our-current-screen = 102 [import-pcolors "screen76 world" set screencounter 76]
  if our-current-screen = 103 [import-pcolors "screen77 world" set screencounter 77]
  if our-current-screen = 104 [import-pcolors "screen78 world" set screencounter 78]
  if our-current-screen = 105 [import-pcolors "screen106 world" set screencounter 106]
  if our-current-screen = 106 [import-pcolors "screen107 world" set screencounter 107]
  if our-current-screen = 107 [import-pcolors "screen108 world" set screencounter 108]
  if our-current-screen = 108 [import-pcolors "screen109 world" set screencounter 109]
  if our-current-screen = 109 [import-pcolors "screen110 world" set screencounter 110]
  if our-current-screen = 110 [import-pcolors "screen111 world" set screencounter 111]
  if our-current-screen = 111 [import-pcolors "screen112 world" set screencounter 112]
  if our-current-screen = 113 [import-pcolors "screen114 world" set screencounter 114]
  if our-current-screen = 114 [import-pcolors "screen115 world" set screencounter 115]
  if our-current-screen = 115 [import-pcolors "screen116 world" set screencounter 116]
  if our-current-screen = 116 [import-pcolors "screen117 world" set screencounter 117]
  if our-current-screen = 117 [import-pcolors "screen118 world" set screencounter 118]
  if our-current-screen = 118 [import-pcolors "screen119 world" set screencounter 119]
  if our-current-screen = 119 [import-pcolors "screen120 world" set screencounter 120]
  if our-current-screen = 121 [import-pcolors "screen122 world" set screencounter 122]
  if our-current-screen = 122 [import-pcolors "screen123 world" set screencounter 123]
  if our-current-screen = 123 [import-pcolors "screen124 world" set screencounter 124]
  if our-current-screen = 124 [import-pcolors "screen125 world" set screencounter 125]
  if our-current-screen = 125 [import-pcolors "screen126 world" set screencounter 126]
  if our-current-screen = 126 [import-pcolors "screen127 world" set screencounter 127]
  if our-current-screen = 127 [import-pcolors "screen128 world" set screencounter 128]
  
  
  fleshoutscreen
end 


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

to totalright
  ask turtles with [identity = "hero"] [set shape "zelda right"]
  ask turtles with [shape != "zelda right"] [die]
  destinationscreen-going-right
  ask turtles with [shape != "zelda right"] [hide-turtle]
  currentscreen
  ask turtles [movescreenright]
  set screenticker 0
  ask turtles with [shape != "zelda right"] [die]
  destinationscreen-going-right
  set our-current-screen screencounter
  ask turtles with [shape = "zelda up" 
                      or shape = "zeldaup2" 
                      or shape = "zelda forward" 
                      or shape = "zeldaforward2" 
                      or shape = "zelda right" 
                      or shape = "zeldaright2" 
                      or shape = "zelda left" 
                      or shape = "zeldaleft2"][set x xcor set y ycor set shape1 shape die]; bug fix; ups who? number of Link, enabling him to pass over bridges and ladders without using breeds. 
  ask patch x y [sprout 1 [set shape shape1 set identity "hero"]]
end 

to totalleft
  ask turtles with [identity = "hero"] [set shape "zelda left"]
  ask turtles with [shape != "zelda left"] [die]
  destinationscreen-going-left
  ask turtles with [shape != "zelda left"] [hide-turtle]
  currentscreen
  ask turtles [movescreenleft]
  set screenticker 0
  ask turtles with [shape != "zelda left"] [die]
  destinationscreen-going-left
  set our-current-screen screencounter
  ask turtles with [shape = "zelda up" 
                      or shape = "zeldaup2" 
                      or shape = "zelda forward" 
                      or shape = "zeldaforward2" 
                      or shape = "zelda right" 
                      or shape = "zeldaright2" 
                      or shape = "zelda left" 
                      or shape = "zeldaleft2"][set x xcor set y ycor set shape1 shape die]
  ask patch x y [sprout 1 [set shape shape1 set identity "hero"]]
end 

to totalup
  ask turtles with [identity = "hero"] [set shape "zelda up"]
  ask turtles with [shape != "zelda up"] [die]
  destinationscreen-going-up
  ask turtles with [shape != "zelda up"] [hide-turtle]
  currentscreen
  ask turtles [movescreenup]
  set screenticker 0
  ask turtles with [shape != "zelda up"] [die]
  destinationscreen-going-up
  set our-current-screen screencounter
  ask turtles with [shape = "zelda up" 
                      or shape = "zeldaup2" 
                      or shape = "zelda forward" 
                      or shape = "zeldaforward2" 
                      or shape = "zelda right" 
                      or shape = "zeldaright2" 
                      or shape = "zelda left" 
                      or shape = "zeldaleft2"][set x xcor set y ycor set shape1 shape die]
  ask patch x y [sprout 1 [set shape shape1 set identity "hero"]]
end 

to totaldown
  ask turtles with [identity = "hero"] [set shape "zelda forward"]
  ask turtles with [shape != "zelda forward"] [die]
  destinationscreen-going-down
  ask turtles with [shape != "zelda forward"] [hide-turtle]
  currentscreen
  ask turtles [movescreendown]
  set screenticker 0
  ask turtles with [shape != "zelda forward"] [die]
  destinationscreen-going-down
  set our-current-screen screencounter
  ask turtles with [shape = "zelda up" 
                      or shape = "zeldaup2" 
                      or shape = "zelda forward" 
                      or shape = "zeldaforward2" 
                      or shape = "zelda right" 
                      or shape = "zeldaright2" 
                      or shape = "zelda left" 
                      or shape = "zeldaleft2"][set x xcor set y ycor set shape1 shape die]
  ask patch x y [sprout 1 [set shape shape1 set identity "hero"]]
end