Warning, /education/kturtle/scripts/ad.turtle is written in an unsupported language. File is not indexed.
0001 kturtle-script-v1.0
0002 # KTurtle advertisement :)
0003
0004 @(reset)
0005 @(canvassize) 400@(,)190
0006 @(penwidth) 10
0007
0008 @(learn) K $x@(,)$y {
0009 @(dir) 0
0010 @(pu)
0011 @(go) $x@(,)$y
0012 @(pd)
0013 @(bw) 75
0014 @(go) $x+40@(,)$y
0015 @(dir) -140
0016 @(fw) 60
0017 @(bw) 10
0018 @(tl) 85
0019 @(fw) 50
0020 }
0021
0022 @(learn) T $x@(,)$y {
0023 @(pu)
0024 @(go) $x@(,)$y
0025 @(pd)
0026 @(dir) 90
0027 @(fw) 50
0028 @(bw) 25
0029 @(dir) 180
0030 @(fw) 70
0031 }
0032
0033 @(learn) u $x@(,)$y {
0034 @(pu)
0035 @(go) $x@(,)$y
0036 @(pd)
0037 @(dir) 180
0038 @(fw) 47
0039 @(tl) 45
0040 @(fw) 7
0041 @(tl) 45
0042 @(fw) 20
0043 @(tl) 45
0044 @(fw) 7
0045 @(tl) 45
0046 @(fw) 47
0047 }
0048
0049 @(learn) r $x@(,)$y {
0050 @(pu)
0051 @(go) $x@(,)$y
0052 @(pd)
0053 @(dir) 180
0054 @(fw) 55
0055 @(go) $x@(,)$y+15
0056 @(dir) 45
0057 @(penup)
0058 @(fw) 4
0059 @(pendown)
0060 @(fw) 10
0061 @(tr) 45
0062 @(fw) 10
0063 }
0064
0065 @(learn) t $x@(,)$y {
0066 @(pu)
0067 @(dir) 180
0068 @(pd)
0069 @(go) $x@(,)$y
0070 @(fw) 67
0071 @(tl) 45
0072 @(fw) 7
0073 @(tl) 45
0074 @(fw) 10
0075 @(go) $x@(,)$y+30
0076 @(dir) 90
0077 @(fw) 10
0078 }
0079
0080 @(learn) l $x@(,)$y {
0081 @(pu)
0082 @(dir) 180
0083 @(pd)
0084 @(go) $x@(,)$y
0085 @(fw) 77
0086 }
0087
0088 @(learn) e $x@(,)$y {
0089 @(pu)
0090 @(go) $x@(,)$y+30
0091 @(pd)
0092 @(dir) 90
0093 @(fw) 50
0094 @(tl) 90
0095 @(fw) 15
0096 @(tl) 45
0097 @(fw) 15
0098 @(tl) 45
0099 @(fw) 20
0100 @(tl) 45
0101 @(fw) 15
0102 @(tl) 45
0103 @(fw) 25
0104 @(tl) 45
0105 @(fw) 15
0106 @(tl) 45
0107 @(fw) 25
0108 }
0109
0110
0111 K 50@(,)30
0112 T 108@(,)35
0113 u 167@(,)50
0114 r 220@(,)50
0115 t 256@(,)30
0116 l 289@(,)30
0117 e 305@(,)50
0118
0119 @(penup)
0120 @(go) 12@(,)115
0121 @(pendown)
0122 @(dir) 0
0123 @(fontsize) 18
0124 @(print) "Educative Programming Environment"
0125
0126 @(spritehide)
0127 @(wait) 1
0128 @(spriteshow)
0129
0130 @(penup)
0131 @(go) 120@(,)145
0132 @(pendown)
0133 @(dir) 80
0134 @(penwidth) 5
0135 @(pencolor) 255@(,)0@(,)0
0136 @(fw) 130
0137
0138 @(wait) 0.5
0139 @(penup)
0140 @(go) 180@(,)135
0141 @(pendown)
0142 @(dir) 0
0143 @(pencolor) 0@(,)0@(,)0
0144 @(print) "play"
0145
0146 @(go) 238@(,)160
0147 @(wait) 0.5