SB_Fileset> Start>TTC377.sb< GraphicsWindow.Hide() GraphicsWindow.Title = "Unit Conversions" GraphicsWindow.CanResize = "false" GraphicsWindow.Show() GraphicsWindow.Width = 700 GraphicsWindow.Height = GraphicsWindow.Width / 1.6 GraphicsWindow.MouseDown = OnMouseDown GraphicsWindow.BrushColor = "LightGray" GraphicsWindow.BackgroundColor = "LightGray" GraphicsWindow.PenWidth = 1 selectionBox1 = Shapes.AddRectangle(200, 27) Shapes.Move(selectionBox1, 100, 12) selectionBox2 = Shapes.AddRectangle(200, 27) Shapes.Move(selectionBox2, 400, 12) backPanelL = Shapes.AddRectangle(100, 162) Shapes.Move(backPanelL, 100, 39) Shapes.HideShape(backPanelL) backPanelR = Shapes.AddRectangle(100, 162) Shapes.Move(backPanelR, 400, 39) Shapes.HideShape(backPanelR) GraphicsWindow.BrushColor = "Black" left[0] = Shapes.AddText("Meters") Shapes.Move(left[0], 112, 18) right[1] = Shapes.AddText("Centimeters") Shapes.Move(right[1], 412, 18) lBox = Controls.AddTextBox(100, 221) Controls.SetTextBoxText(lBox, 0) Controls.SetSize(lBox, 200, 25) rSide = Shapes.AddText(0) Shapes.Move(rSide, 400, 227) Controls.TextTyped = OnTextTyped equalSign = Shapes.AddText("=") Shapes.Move(equalSign, 345, 227) conversions[0]="Meters" conversions[1]="Centimeters" conversions[2]="Millimeters" conversions[3]="Inches" conversions[4]="Feet" conversions[5]="Yards" selectedLeft = 0 selectedRight = 1 For i=1 To 5 left[i] = Shapes.AddText(conversions[i]) Shapes.Move(left[i], 112, 45 + ( (i-1) * 27)) Shapes.HideShape(left[i]) EndFor For i=0 To 5 If (i <> 1) Then right[i] = Shapes.AddText(conversions[i]) Shapes.Move(right[i], 412, 45 + ( (i-1) * 27)) Shapes.HideShape(right[i]) EndIf EndFor Shapes.Move(right[0], 412, 45) Sub OnMouseDown mX = Mouse.MouseX - GraphicsWindow.Left mY = Mouse.MouseY - GraphicsWindow.Top - 22 If (mX > 100 And mY > 12 And mX < 300 And mY < 200 And panelLOpen = "true") Then 'Shapes.Move(left[selectedLeft], 112, 45 + ( (selectedLeft - 1) * 27)) selectedLeft = Math.Round((mY - 39) / 27) For i=0 To 5 If (i <> selectedLeft) Then Shapes.Move(left[i], 112, 68 + ( (i-1) * 27)) Else Shapes.Move(left[i], 112, 18) EndIf EndFor EndIf If (mX > 100 And mY > 12 And mX < 300 And mY < 39) Then 'First selection box Shapes.ShowShape(left[selectedLeft]) Shapes.ShowShape(backPanelL) For i = 0 To 5 Shapes.ShowShape(left[i]) EndFor panelLOpen = "true" Else Shapes.HideShape(backPanelL) For i = 0 To 5 If (i <> selectedLeft) Then Shapes.HideShape(left[i]) EndIf EndFor panelLOpen = "false" EndIf If (mX > 400 And mY > 12 And mX < 600 And mY < 200 And panelROpen = "true") Then selectedRight = Math.Round((mY - 39) / 27) For i=0 To 5 If (i <> selectedRight) Then Shapes.Move(right[i], 412, 68 + ( (i-1) * 27)) Else Shapes.Move(right[i], 412, 18) EndIf EndFor EndIf If (mX > 400 And mY > 12 And mX < 600 And mY < 39) Then 'Second selection box Shapes.ShowShape(right[selectedRight]) Shapes.ShowShape(backPanelR) For i = 0 To 5 Shapes.ShowShape(right[i]) EndFor panelROpen = "true" Else Shapes.HideShape(backPanelR) For i = 0 To 5 If (i <> selectedRight) Then Shapes.HideShape(right[i]) EndIf EndFor panelROpen = "false" EndIf EndSub Sub OnTextTyped lastTextBox = Controls.LastTypedTextBox ouput = 0 input = Controls.GetTextBoxText(lastTextBox) If (selectedLeft = 0) Then 'Meters to ___ If (selectedRight = 0) Then output = input ElseIf (selectedRight = 1) Then output = input * 100 ElseIf (selectedRight = 2) Then output = input * 1000 ElseIf (selectedRight = 3) Then output = input * 39.3700787 ElseIf (selectedRight = 4) Then output = (input * 39.3700787) / 12 ElseIf (selectedRight = 5) Then output = ((input * 39.3700787) / 12) / 3 EndIf ElseIf (selectedLeft = 1) Then 'Centimeters to ___ If (selectedRight = 0) Then output = input / 100 ElseIf (selectedRight = 1) Then output = input ElseIf (selectedRight = 2) Then output = input * 10 ElseIf (selectedRight = 3) Then output = input * 0.393700787 ElseIf (selectedRight = 4) Then output = (input * 0.393700787) / 12 ElseIf (selectedRight = 5) Then output = ((input * 0.393700787) / 12) / 3 EndIf ElseIf (selectedLeft = 2) Then 'Millimeters to ___ If (selectedRight = 0) Then output = input / 1000 ElseIf (selectedRight = 1) Then output = input / 10 ElseIf (selectedRight = 2) Then output = input ElseIf (selectedRight = 3) Then output = input * 0.0393700787 ElseIf (selectedRight = 4) Then output = (input * 0.0393700787) / 12 ElseIf (selectedRight = 5) Then output = ((input * 0.0393700787) / 12) / 3 EndIf ElseIf (selectedLeft = 3) Then 'Inches to ___ If (selectedRight = 0) Then output = input * 0.0254 ElseIf (selectedRight = 1) Then output = input * 2.54 ElseIf (selectedRight = 2) Then output = input * 25.4 ElseIf (selectedRight = 3) Then output = input ElseIf (selectedRight = 4) Then output = input / 12 ElseIf (selectedRight = 5) Then output = (input / 12) / 3 EndIf ElseIf (selectedLeft = 4) Then 'Feet to ___ If (selectedRight = 0) Then output = input * 0.3048 ElseIf (selectedRight = 1) Then output = input * 30.48 ElseIf (selectedRight = 2) Then output = input * 304.8 ElseIf (selectedRight = 3) Then output = input * 12 ElseIf (selectedRight = 4) Then output = input ElseIf (selectedRight = 5) Then output = input / 3 EndIf ElseIf (selectedLeft = 5) Then 'Yards to ___ If (selectedRight = 0) Then output = input * 0.9144 ElseIf (selectedRight = 1) Then output = input * 91.44 ElseIf (selectedRight = 2) Then output = input * 914.4 ElseIf (selectedRight = 3) Then output = input * 12 * 3 ElseIf (selectedRight = 4) Then output = input * 3 ElseIf (selectedRight = 5) Then output = input EndIf EndIf Shapes.SetText(rSide, output) EndSub End>TTC377.sb< Start>TTG399.sb< args=0 GraphicsWindow.Width=700 GraphicsWindow.Height=700 GraphicsWindow.Left=10 GraphicsWindow.Top=10 GraphicsWindow.BackgroundColor="tan GraphicsWindow.PenWidth=0 GraphicsWindow.BrushColor="blue GraphicsWindow.Title="Pacman demo n=1 fr=1 For rr=0.1 To 35 Step 1.6 LDCall.Function("cc" rr) Program.Delay(3) Shapes.HideShape(ss[n-1]) oss=ss EndFor GraphicsWindow.BrushColor="red For t=1 To 20 e[t]=Shapes.AddEllipse(21 21) LDShapes.ZIndex(e[t],-1111) LDShapes.Centre(e[t] LDMath.Cos(t*18)*260+350 LDMath.sin(t*18)*260+350) EndFor f280=300 While 1=1 For x=1 To n-1 Shapes.ShowShape(ss[x]) Shapes.Move(ss[x] LDMath.cos(aa)*f280+f280 LDMath.Sin(aa)*f280+f280) For w=20 To 21-Math.Floor(math.abs(math.Remainder (aa 360)/18)) Step -1 Shapes.HideShape(e[w]) EndFor Shapes.Rotate(ss[x] aa-90) Program.Delay(2) aa=aa-1 LDGraphicsWindow.Reposition(1 1 0 0 math.abs(aa/4)) Shapes.hideShape(ss[x]) EndFor For x= n-2 To 2 Step -1 Shapes.ShowShape(ss[x]) Shapes.Move(ss[x] LDMath.cos(aa)*f280+f280 LDMath.Sin(aa)*f280+f280) Shapes.Rotate(ss[x] aa-90) Program.Delay(2) aa=aa-1 For w=20 To 21-Math.Floor(math.abs(math.Remainder (aa 360)/18)) Step -1 Shapes.HideShape(e[w]) EndFor Shapes.hideShape(ss[x]) LDGraphicsWindow.Reposition(1 1 0 0 math.abs(aa/4)) EndFor sj=LDShapes.GetAllShapes() vv=0 For f=23 To 42 pp=LDShapes.GetProperties(sj[f]) 'TextWindow.Write(pp["Isvisible"]+";") If pp["Isvisible"] Then vv=vv+1 EndIf EndFor If vv<=1 Then For t=2 To 20 Shapes.ShowShape(e[t]) EndFor EndIf EndWhile Sub cc p=0 i=2 p[1][1]=0 p[1][2]=0 a=args[1] For r=a To 360-a p[i][1]=LDMath.Cos(r)*80 p[i][2]=LDMath.sin(r)*80 i=i+1 EndFor ss[n]=LDShapes.AddPolygon(p) Shapes.Move(ss[n] 150 150) n=n+1 EndSub End>TTG399.sb< Start>TTH503.sb< 'Folder DATABASE DBRoot = "D:\DATABASE Small Basic Martin\" record = "" field = "" 'Table of DATABASE DBID = 1 'ID of the 1. Table in DATABASE DB[DBID] = DBID DB[DBID]["Name"] = "Adressen" 'Name of the DATABASE DB[DBID]["Felder"] = 5 'Number of fields in the table Adressen (Adress) DB[DBID]["Max"] = 512 'Maximale number of entries in the table Adressen 'Filed of Table Adressen (Adress) DBField[DBID][1] = "Anrede" 'field 1 in table Adressen DBField[DBID][2] = "Vorname" 'field 2 in table Adressen DBField[DBID][3] = "Nachname" 'field 3 in table Adressen DBField[DBID][4] = "Strasse_Hausnummer" 'field 4 in table Adressen DBField[DBID][5] = "Postleitzahl_Ort" ' field 5 in table Adressen newDB() DBID = 2 'ID of the 2. Table in DATABASE DB[2] = 2 DB[DBID]["Name"] = "Artikel" 'Name of the DATABASE DB[DBID]["Felder"] = 7 'Number of fields in the table Artikel (products) DB[DBID]["Max"] = 1024 'Maximale number of entries in the table Artikel 'Filed of Table Artikel (Products) DBField[DBID][1] = "Produktname" 'field 1 in table Artikel DBField[DBID][2] = "Einheit" 'field 1 in table Artikel DBField[DBID][3] = "Einkaufspreis" 'field 1 in table Artikel DBField[DBID][4] = "Lagerort" 'field 1 in table Artikel DBField[DBID][5] = "Lagermenge" 'field 1 in table Artikel DBField[DBID][6] = "Mindestmenge" 'field 1 in table Artikel DBField[DBID][7] = "Bestellmenge" 'field 1 in table Artikel newDB() DBID = 1 LoadDB() TextWindow.WriteLine(DBFile[DBID]) TextWindow.WriteLine(DATABASE) TextWindow.WriteLine("__________________________________________________") value = "Martin" GetRecordsExact() TextWindow.WriteLine("__________________________________________________") DBID = 2 LoadDB() TextWindow.WriteLine(DBFile[DBID]) TextWindow.WriteLine(DATABASE) TextWindow.WriteLine("__________________________________________________") '====================================================== 'SUBROUTINES '====================================================== 'Required initialisation Sub setUp getID[DBID] = 0 deleteID[DBID] = 0 EndSub 'Create a new DATABASE 'Input -> DBRoot is the Root folder of the DATABASE ' -> DBID is the Index of the DATABASE ' -> DB[DBID]["Name"] is the DATABASE name ' -> DB[DBID]["Felder"] is the number of fields in the table 'Output - DATABASE, DBCount, numField Sub newDB DBFile[DBID] = DBRoot + DB[DBID]["Name"] + ".SBD" numField[DBID] = DB[DBID]["Felder"] DATABASE[DBID] = "" DBCount[DBID] = 0 setUp() EndSub 'Save the DATABASE to a file 'Input - DBFile[DBID], DATABASE[DBID] 'Output - saved File Sub Save D = "" D = DATABASE[DBID] ' The following line could be harmful and has been automatically commented. ' File.WriteContents(DBFile[DBID], D) EndSub 'Add an entry to the DATABASE 'Input - DATABASE, DBCount, record 'Output - DATABASE, DBCount and saved File Sub Add If (record[DBID] <> "") Then DBCount[DBID] = DBCount[DBID] + 1 DATABASE[DBID][DBCount[DBID]] = record[DBID] EndIf EndSub 'Load an existing DATABASE from a file 'Input - DBName, DBID 'Output - DATABASE, DBCount, fields, numField Sub LoadDB ' The following line could be harmful and has been automatically commented. ' DB = File.ReadContents(DBFile[DBID]) For i = 1 To Array.GetItemCount(DB) DATABASE[DBID][i] = DB[i] EndFor DBCount[DBID] = i fields = Array.GetAllIndices(DATABASE[DBID]) numField[DBID] = DB[DBID]["Felder"] setUp() EndSub 'Get all records (an array) with a value exact match in field 'Input - DATABASE, DBCount, field, value 'Output - records, numRecords Sub GetRecordsExact TextWindow.WriteLine("######################################################################") records = "" numRecords = 0 TextWindow.WriteLine(value) TextWindow.WriteLine(DBID) TextWindow.WriteLine(DBCount[DBID]) For _i = 1 To DBCount[DBID] If (DATABASE[DBID][DBField[DBID][_i]] = value) Then numRecords = numRecords + 1 records[DBID][numRecords] = DATABASE[DBID] TextWindow.WriteLine(records[DBID][numRecords]) EndIf EndFor TextWindow.WriteLine("######################################################################") EndSub End>TTH503.sb< Start>TTJ208.sb< 亢芑Ǵ伸芑Ǵ伸茧Ǵ亢茧Ǵ亢芑ʊ伸芑ʊ伸茧ʊ亢茧ʊ侺艆Ǵ侺苜Ǵ伤苜Ǵ伤艆ʊ侺艆ʊ侺苜ʊ伤苜ʊ值臻Ǵ值芑Ǵ侦芑Ǵ侦臻ʊ值臻ʊ值芑ʊ侦芑ʊ傾艆Ǵ傾苜Ǵ倨苜Ǵ倨艆ʊ傾艆ʊ傾苜ʊ倨苜ʊ兀芑Ǵ兀茧Ǵ傪茧Ǵ傪芑ʊ兀芑ʊ兀茧ʊ傪茧ʊ凁苜Ǵ凁荲Ǵ儫荲Ǵ儫苜ʊ凁苜ʊ凁荲ʊ儫荲ʊ凁艆Ǵ凁苜Ǵ儫苜Ǵ儫艆ʊ凁艆ʊ凁苜ʊ儫苜ʊ凁膰Ǵ凁艆Ǵ儫艆Ǵ儫膰ʊ凁膰ʊ凁艆ʊ儫艆ʊ凁脚Ǵ凁膰Ǵ儫膰Ǵ儫脚ʊ凁脚ʊ凁膰ʊ儫膰ʊ剃胏Ǵ剃腥Ǵ冭腥Ǵ冭胏ʊ剃胏ʊ剃腥ʊ冭腥ʊ勅肄Ǵ勅脚Ǵ刯脚Ǵ刯肄ʊ勅肄ʊ勅脚ʊ刯脚ʊ升耹Ǵ升胏Ǵ励胏Ǵ励耹ʊ升耹ʊ升胏ʊ励胏ʊ叉肄Ǵ叉脚Ǵ匳脚Ǵ匳���ʊ叉肄ʊ叉脚ʊ匳脚ʊ呋胏Ǵ呋腥Ǵ厵腥Ǵ厵胏ʊ呋胏ʊ呋腥ʊ厵腥ʊ响脚Ǵ响膰Ǵ吷膰Ǵ吷脚ʊ响脚ʊ响膰ʊ吷膰ʊ响膰Ǵ响艆Ǵ吷艆Ǵ吷膰ʊ响膰ʊ响艆ʊ吷艆ʊ响艆Ǵ响苜Ǵ吷苜Ǵ吷艆ʊ响艆ʊ响苜ʊ吷苜ʊ响苜Ǵ响荲Ǵ吷荲Ǵ吷苜ʊ响苜ʊ响荲ʊ吷荲ʊ問芑Ǵ問茧Ǵ咹茧Ǵ咹芑ʊ問芑ʊ問茧ʊ咹茧ʊ嗑艆Ǵ嗑苜Ǵ唻苜Ǵ唻艆ʊ嗑艆ʊ嗑苜ʊ唻苜ʊ噓臻Ǵ噓芑Ǵ喽芑Ǵ喽臻ʊ噓臻ʊ噓芑ʊ喽芑ʊ囔艆Ǵ囔苜Ǵ嘾苜Ǵ嘾艆ʊ囔艆ʊ囔苜ʊ嘾苜ʊ坖芑Ǵ坖茧Ǵ囀茧Ǵ囀芑ʊ坖芑ʊ坖茧ʊ囀茧ʊ埘苜Ǵ埘荲Ǵ坂荲Ǵ坂苜ʊ埘苜ʊ埘荲ʊ坂荲ʊ埘艆Ǵ埘苜Ǵ坂苜Ǵ坂艆ʊ埘艆ʊ埘苜ʊ坂苜ʊ埘膰Ǵ埘艆Ǵ坂艆Ǵ坂膰ʊ埘膰ʊ埘艆ʊ坂艆ʊ埘脚Ǵ埘膰Ǵ坂膰Ǵ坂脚ʊ埘脚ʊ埘膰ʊ坂膰ʊ塚胏Ǵ塚腥Ǵ埄腥Ǵ埄胏ʊ塚胏ʊ塚腥ʊ埄腥ʊ壜肄Ǵ壜脚Ǵ塆脚Ǵ塆肄ʊ壜肄ʊ壜脚ʊ塆脚ʊ奞耹Ǵ奞胏Ǵ壈胏Ǵ壈耹ʊ奞耹ʊ奞胏ʊ壈胏ʊ壜翮Ǵ壜肄Ǵ塆肄Ǵ塆翮ʊ壜翮ʊ壜���ʊ塆肄ʊ塚羣Ǵ塚耹Ǵ埄耹Ǵ埄羣ʊ塚羣ʊ塚耹ʊ埄耹ʊ埘罘Ǵ埘翮Ǵ坂翮Ǵ坂罘ʊ埘罘ʊ埘翮ʊ坂翮ʊ埘绂Ǵ埘罘Ǵ坂罘Ǵ坂绂ʊ埘绂ʊ埘罘ʊ坂罘ʊ埘縬Ǵ埘绂Ǵ坂绂Ǵ坂縬ʊ埘縬ʊ埘绂ʊ坂绂ʊ埘綖Ǵ埘縬Ǵ坂縬Ǵ坂綖ʊ埘綖ʊ埘縬ʊ坂縬ʊ塚絋Ǵ塚緡Ǵ埄緡Ǵ埄絋ʊ塚絋ʊ塚緡ʊ埄緡ʊ壜紀Ǵ壜綖Ǵ塆綖Ǵ塆紀ʊ壜紀ʊ壜綖ʊ塆綖ʊ奞粵Ǵ奞絋Ǵ壈絋Ǵ壈粵ʊ奞粵ʊ奞絋ʊ壈絋ʊ姠紀Ǵ姠綖Ǵ奊綖Ǵ奊紀ʊ姠紀ʊ姠綖ʊ奊綖ʊ婢絋Ǵ婢緡Ǵ姌緡Ǵ姌絋ʊ婢絋ʊ婢緡ʊ姌緡ʊ嫤綖Ǵ嫤縬Ǵ婎縬Ǵ婎綖ʊ嫤綖ʊ嫤縬ʊ婎縬ʊ嫤紀Ǵ嫤綖Ǵ婎綖Ǵ婎紀ʊ嫤紀ʊ嫤綖ʊ婎綖ʊ嫤籪Ǵ嫤紀Ǵ婎紀Ǵ婎籪ʊ嫤籪ʊ嫤紀ʊ婎紀ʊ嫤篔Ǵ嫤籪Ǵ婎籪Ǵ婎篔ʊ嫤篔ʊ嫤籪ʊ婎籪ʊ学箉Ǵ学簟Ǵ嫐簟Ǵ嫐箉ʊ学箉ʊ学簟ʊ嫐簟ʊ寧笾Ǵ寧篔Ǵ孑篔Ǵ孑笾ʊ寧笾ʊ寧篔ʊ孑篔ʊ屩竳Ǵ屩箉Ǵ寓箉Ǵ寓竳ʊ屩竳ʊ屩箉ʊ寓箉ʊ峫笾Ǵ峫篔Ǵ展篔Ǵ展笾ʊ峫笾ʊ峫篔ʊ展篔ʊ嵭���Ǵ嵭簟Ǵ峗簟Ǵ峗箉ʊ嵭箉ʊ嵭簟ʊ峗簟ʊ巯篔Ǵ巯籪Ǵ嵙籪Ǵ嵙篔ʊ巯篔ʊ巯籪ʊ嵙籪ʊ巯籪Ǵ巯紀Ǵ嵙紀Ǵ嵙籪ʊ巯籪ʊ巯紀ʊ嵙紀ʊ巯紀Ǵ巯綖Ǵ嵙綖Ǵ嵙紀ʊ巯紀ʊ巯綖ʊ嵙綖ʊ巯綖Ǵ巯縬Ǵ嵙縬Ǵ嵙綖ʊ巯綖ʊ巯縬ʊ嵙縬ʊ幱絋Ǵ幱緡Ǵ巛緡Ǵ巛絋ʊ幱絋ʊ幱緡ʊ巛緡ʊ廳紀Ǵ廳綖Ǵ幝綖Ǵ幝紀ʊ廳紀ʊ廳綖ʊ幝綖ʊ彵粵Ǵ彵絋Ǵ廟絋Ǵ廟粵ʊ彵粵ʊ彵絋ʊ廟絋ʊ忷紀Ǵ忷綖Ǵ彡綖Ǵ彡紀ʊ忷紀ʊ忷綖ʊ彡綖ʊ恹絋Ǵ恹緡Ǵ忣緡Ǵ忣絋ʊ恹絋ʊ恹緡ʊ忣緡ʊ惻綖Ǵ惻縬Ǵ恥縬Ǵ恥綖ʊ惻綖ʊ惻縬ʊ恥縬ʊ惻縬Ǵ惻绂Ǵ恥绂Ǵ恥縬ʊ惻縬ʊ惻绂ʊ恥绂ʊ惻绂Ǵ惻罘Ǵ恥罘Ǵ恥绂ʊ惻绂ʊ惻罘ʊ恥罘ʊ惻罘Ǵ惻翮Ǵ恥翮Ǵ恥罘ʊ惻罘ʊ惻翮ʊ恥翮ʊ恹羣Ǵ恹耹Ǵ忣耹Ǵ忣羣ʊ恹羣ʊ恹耹ʊ忣耹ʊ忷翮Ǵ忷肄Ǵ彡肄Ǵ彡翮ʊ忷翮ʊ忷肄ʊ彡肄ʊ彵耹Ǵ彵胏Ǵ廟胏Ǵ廟耹ʊ彵耹ʊ彵胏ʊ廟胏ʊ忷肄Ǵ忷脚Ǵ彡脚Ǵ彡肄ʊ忷肄ʊ忷脚ʊ彡脚ʊ恹胏Ǵ恹腥Ǵ忣���Ǵ忣胏ʊ恹胏ʊ恹腥ʊ忣腥ʊ惻脚Ǵ惻膰Ǵ恥膰Ǵ恥脚ʊ惻脚ʊ惻膰ʊ恥膰ʊ惻膰Ǵ惻艆Ǵ恥艆Ǵ恥膰ʊ惻膰ʊ惻艆ʊ恥艆ʊ惻艆Ǵ惻苜Ǵ恥苜Ǵ恥艆ʊ惻艆ʊ惻苜ʊ恥苜ʊ惻苜Ǵ惻荲Ǵ恥荲Ǵ恥苜ʊ惻苜ʊ惻荲ʊ恥荲ʊ慼芑Ǵ慼茧Ǵ惦茧Ǵ惦芑ʊ慼芑ʊ慼茧ʊ惦茧ʊ懾艆Ǵ懾苜Ǵ慨苜Ǵ慨艆ʊ懾艆ʊ懾苜ʊ慨苜ʊ技臻Ǵ技芑Ǵ懪芑Ǵ懪臻ʊ技臻ʊ技芑ʊ懪芑ʊ挂艆Ǵ挂苜Ǵ扬苜Ǵ扬艆ʊ挂艆ʊ挂苜ʊ扬苜ʊ掄芑Ǵ掄茧Ǵ拮茧Ǵ拮芑ʊ掄芑ʊ掄茧ʊ拮茧ʊ搆苜Ǵ搆荲Ǵ捰荲Ǵ捰苜ʊ搆苜ʊ搆荲ʊ捰荲ʊ搆艆Ǵ搆苜Ǵ捰苜Ǵ捰艆ʊ搆艆ʊ搆苜ʊ捰苜ʊ搆膰Ǵ搆艆Ǵ捰艆Ǵ捰膰ʊ搆膰ʊ搆艆ʊ捰艆ʊ搆脚Ǵ搆膰Ǵ捰膰Ǵ捰脚ʊ搆脚ʊ搆膰ʊ捰膰ʊ撈胏Ǵ撈腥Ǵ揲腥Ǵ揲胏ʊ撈胏ʊ撈腥ʊ揲腥ʊ攊肄Ǵ攊脚Ǵ摴脚Ǵ摴肄ʊ攊肄ʊ攊脚ʊ摴脚ʊ斌耹Ǵ斌胏Ǵ擶胏Ǵ擶耹ʊ斌耹ʊ斌胏ʊ擶胏ʊ明肄Ǵ明脚Ǵ數脚Ǵ數肄ʊ明肄ʊ明脚ʊ數脚ʊ暏胏Ǵ暏腥Ǵ旹腥Ǵ旹胏ʊ暏���ʊ暏腥ʊ旹腥ʊ朑脚Ǵ朑膰Ǵ晻膰Ǵ晻脚ʊ朑脚ʊ朑膰ʊ晻膰ʊ朑膰Ǵ朑艆Ǵ晻艆Ǵ晻膰ʊ朑膰ʊ朑艆ʊ晻艆ʊ朑艆Ǵ朑苜Ǵ晻苜Ǵ晻艆ʊ朑艆ʊ朑苜ʊ晻苜ʊ朑苜Ǵ朑荲Ǵ晻荲Ǵ晻苜ʊ朑苜ʊ朑荲ʊ晻荲ʊ枓芑Ǵ枓茧Ǵ曽茧Ǵ曽芑ʊ枓芑ʊ枓茧ʊ曽茧ʊ栕艆Ǵ栕苜Ǵ板苜Ǵ板艆ʊ栕艆ʊ栕苜ʊ板苜ʊ梗臻Ǵ梗芑Ǵ栁芑Ǵ栁臻ʊ梗臻ʊ梗芑ʊ栁芑ʊ椙艆Ǵ椙苜Ǵ梃苜Ǵ梃艆ʊ椙艆ʊ椙苜ʊ梃苜ʊ榛芑Ǵ榛茧Ǵ椅茧Ǵ椅芑ʊ榛芑ʊ榛茧ʊ椅茧ʊ樝苜Ǵ樝荲Ǵ榇荲Ǵ榇苜ʊ樝苜ʊ樝荲ʊ榇荲ʊ樝艆Ǵ樝苜Ǵ榇苜Ǵ榇艆ʊ樝艆ʊ樝苜ʊ榇苜ʊ樝膰Ǵ樝艆Ǵ榇艆Ǵ榇膰ʊ樝膰ʊ樝艆ʊ榇艆ʊ樝脚Ǵ樝膰Ǵ榇膰Ǵ榇脚ʊ樝脚ʊ樝膰ʊ榇膰ʊ檟胏Ǵ檟腥Ǵ樉腥Ǵ樉胏ʊ檟胏ʊ檟腥ʊ樉腥ʊ次肄Ǵ次脚Ǵ檋脚Ǵ檋肄ʊ次肄ʊ次脚ʊ檋脚ʊ殣耹Ǵ殣胏Ǵ欍胏Ǵ欍耹ʊ殣耹ʊ殣胏ʊ欍胏ʊ次翮Ǵ次肄Ǵ檋肄Ǵ檋翮ʊ次翮ʊ次肄ʊ檋肄ʊ檟羣Ǵ檟耹Ǵ樉耹Ǵ樉羣ʊ檟羣ʊ檟耹ʊ樉���ʊ樝罘Ǵ樝翮Ǵ榇翮Ǵ榇罘ʊ樝罘ʊ樝翮ʊ榇翮ʊ樝绂Ǵ樝罘Ǵ榇罘Ǵ榇绂ʊ樝绂ʊ樝罘ʊ榇罘ʊ樝縬Ǵ樝绂Ǵ榇绂Ǵ榇縬ʊ樝縬ʊ樝绂ʊ榇绂ʊ樝綖Ǵ樝縬Ǵ榇縬Ǵ榇綖ʊ樝綖ʊ樝縬ʊ榇縬ʊ檟絋Ǵ檟緡Ǵ樉緡Ǵ樉絋ʊ檟絋ʊ檟緡ʊ樉緡ʊ次紀Ǵ次綖Ǵ檋綖Ǵ檋紀ʊ次紀ʊ次綖ʊ檋綖ʊ殣粵Ǵ殣絋Ǵ欍絋Ǵ欍粵ʊ殣粵ʊ殣絋ʊ欍絋ʊ氤紀Ǵ氤綖Ǵ殎綖Ǵ殎紀ʊ氤紀ʊ氤綖ʊ殎綖ʊ沦絋Ǵ沦緡Ǵ氐緡Ǵ氐絋ʊ沦絋ʊ沦緡ʊ氐緡ʊ洨綖Ǵ洨縬Ǵ沒縬Ǵ沒綖ʊ洨綖ʊ洨縬ʊ沒縬ʊ洨紀Ǵ洨綖Ǵ沒綖Ǵ沒紀ʊ洨紀ʊ洨綖ʊ沒綖ʊ洨籪Ǵ洨紀Ǵ沒紀Ǵ沒籪ʊ洨籪ʊ洨紀ʊ沒紀ʊ洨篔Ǵ洨籪Ǵ沒籪Ǵ沒篔ʊ洨篔ʊ洨籪ʊ沒籪ʊ涪箉Ǵ涪簟Ǵ洔簟Ǵ洔箉ʊ涪箉ʊ涪簟ʊ洔簟ʊ測笾Ǵ測篔Ǵ涖篔Ǵ涖笾ʊ測笾ʊ測篔ʊ涖篔ʊ溮竳Ǵ溮箉Ǵ渘箉Ǵ渘竳ʊ溮竳ʊ溮箉ʊ渘箉ʊ測窨Ǵ測笾Ǵ涖笾Ǵ涖窨ʊ測窨ʊ測笾ʊ涖笾ʊ涪穝Ǵ涪竳Ǵ洔竳Ǵ洔穝ʊ涪穝ʊ涪竳ʊ洔竳ʊ洨稒Ǵ洨���Ǵ沒窨Ǵ沒稒ʊ洨稒ʊ洨窨ʊ沒窨ʊ洨祼Ǵ洨稒Ǵ沒稒Ǵ沒祼ʊ洨祼ʊ洨稒ʊ沒稒ʊ洨磦Ǵ洨祼Ǵ沒祼Ǵ沒磦ʊ洨磦ʊ洨祼ʊ沒祼ʊ洨硐Ǵ洨磦Ǵ沒磦Ǵ沒硐ʊ洨硐ʊ洨磦ʊ沒磦ʊ沦碛Ǵ沦礱Ǵ氐礱Ǵ氐碛ʊ沦碛ʊ沦礱ʊ氐礱ʊ氤磦Ǵ氤祼Ǵ殎祼Ǵ殎磦ʊ氤磦ʊ氤祼ʊ殎祼ʊ殣礱Ǵ殣秇Ǵ欍秇Ǵ欍礱ʊ殣礱ʊ殣秇ʊ欍秇ʊ次磦Ǵ次祼Ǵ檋祼Ǵ檋磦ʊ次磦ʊ次祼ʊ檋祼ʊ檟碛Ǵ檟礱Ǵ樉礱Ǵ樉碛ʊ檟碛ʊ檟礱ʊ樉礱ʊ樝硐Ǵ樝磦Ǵ榇磦Ǵ榇硐ʊ樝硐ʊ樝磦ʊ榇磦ʊ樝瞺Ǵ樝硐Ǵ榇硐Ǵ榇瞺ʊ樝瞺ʊ樝硐ʊ榇硐ʊ樝眤Ǵ樝瞺Ǵ榇瞺Ǵ榇眤ʊ樝眤ʊ樝瞺ʊ榇瞺ʊ樝皎Ǵ樝眤Ǵ榇眤Ǵ榇皎ʊ樝皎ʊ樝眤ʊ榇眤ʊ檟癃Ǵ檟盙Ǵ樉盙Ǵ樉癃ʊ檟癃ʊ檟盙ʊ樉盙ʊ次痸Ǵ次皎Ǵ檋皎Ǵ檋痸ʊ次痸ʊ次皎ʊ檋皎ʊ殣疭Ǵ殣癃Ǵ欍癃Ǵ欍疭ʊ殣疭ʊ殣癃ʊ欍癃ʊ次畢Ǵ次痸Ǵ檋痸Ǵ檋畢ʊ次畢ʊ次痸ʊ檋痸ʊ檟甗Ǵ檟疭Ǵ樉疭Ǵ樉甗ʊ檟甗ʊ檟疭ʊ樉疭ʊ樝瓌Ǵ樝畢Ǵ榇畢Ǵ榇���ʊ樝瓌ʊ樝畢ʊ榇畢ʊ樝琶Ǵ樝瓌Ǵ榇瓌Ǵ榇琶ʊ樝琶ʊ樝瓌ʊ榇瓌ʊ樝玠Ǵ樝琶Ǵ榇琶Ǵ榇玠ʊ樝玠ʊ樝琶ʊ榇琶ʊ樝猊Ǵ樝玠Ǵ榇玠Ǵ榇猊ʊ樝猊ʊ樝玠ʊ榇玠ʊ檟犿Ǵ檟獕Ǵ樉獕Ǵ樉犿ʊ檟犿ʊ檟獕ʊ樉獕ʊ次牴Ǵ次猊Ǵ檋猊Ǵ檋牴ʊ次牴ʊ次猊ʊ檋猊ʊ殣爩Ǵ殣犿Ǵ欍犿Ǵ欍爩ʊ殣爩ʊ殣犿ʊ欍犿ʊ氤牴Ǵ氤猊Ǵ殎猊Ǵ殎牴ʊ氤牴ʊ氤猊ʊ殎猊ʊ沦犿Ǵ沦獕Ǵ氐獕Ǵ氐犿ʊ沦犿ʊ沦獕ʊ氐獕ʊ洨猊Ǵ洨玠Ǵ沒玠Ǵ沒猊ʊ洨猊ʊ洨玠ʊ沒玠ʊ洨牴Ǵ洨猊Ǵ沒猊Ǵ沒牴ʊ洨牴ʊ洨猊ʊ沒猊ʊ洨燞Ǵ洨牴Ǵ沒牴Ǵ沒燞ʊ洨燞ʊ洨牴ʊ沒牴ʊ洨煈Ǵ洨燞Ǵ沒燞Ǵ沒煈ʊ洨煈ʊ洨燞ʊ沒燞ʊ涪烽Ǵ涪熓Ǵ洔熓Ǵ洔烽ʊ涪烽ʊ涪熓ʊ洔熓ʊ測炲Ǵ測煈Ǵ涖煈Ǵ涖炲ʊ測炲ʊ測煈ʊ涖煈ʊ溮灧Ǵ溮烽Ǵ渘烽Ǵ渘灧ʊ溮灧ʊ溮烽ʊ渘烽ʊ漰炲Ǵ漰煈Ǵ溚煈Ǵ溚炲ʊ漰炲ʊ漰煈ʊ溚煈ʊ澲烽Ǵ澲熓Ǵ漜熓Ǵ漜烽ʊ澲烽ʊ澲熓ʊ漜熓ʊ瀴煈Ǵ瀴燞Ǵ澞燞Ǵ澞煈ʊ瀴煈ʊ瀴���ʊ澞燞ʊ瀴燞Ǵ瀴牴Ǵ澞牴Ǵ澞燞ʊ瀴燞ʊ瀴牴ʊ澞牴ʊ瀴牴Ǵ瀴猊Ǵ澞猊Ǵ澞牴ʊ瀴牴ʊ瀴猊ʊ澞猊ʊ瀴猊Ǵ瀴玠Ǵ澞玠Ǵ澞猊ʊ瀴猊ʊ瀴玠ʊ澞玠ʊ炶犿Ǵ炶獕Ǵ瀠獕Ǵ瀠犿ʊ炶犿ʊ炶獕ʊ瀠獕ʊ焷牴Ǵ焷猊Ǵ炡猊Ǵ炡牴ʊ焷牴ʊ焷猊ʊ炡猊ʊ熹爩Ǵ熹犿Ǵ焣犿Ǵ焣爩ʊ熹爩ʊ熹犿ʊ焣犿ʊ爻牴Ǵ爻猊Ǵ熥猊Ǵ熥牴ʊ爻牴ʊ爻猊ʊ熥猊ʊ犽犿Ǵ犽獕Ǵ爧獕Ǵ爧犿ʊ犽犿ʊ犽獕ʊ爧獕ʊ猿猊Ǵ猿玠Ǵ犩玠Ǵ犩猊ʊ猿猊ʊ猿玠ʊ犩玠ʊ猿牴Ǵ猿猊Ǵ犩猊Ǵ犩牴ʊ猿牴ʊ猿猊ʊ犩猊ʊ猿燞Ǵ猿牴Ǵ犩牴Ǵ犩燞ʊ猿燞ʊ猿牴ʊ犩牴ʊ猿煈Ǵ猿燞Ǵ犩燞Ǵ犩煈ʊ猿煈ʊ猿燞ʊ犩燞ʊ珁烽Ǵ珁熓Ǵ猫熓Ǵ猫烽ʊ珁烽ʊ珁熓ʊ猫熓ʊ瑃炲Ǵ瑃煈Ǵ玭煈Ǵ玭炲ʊ瑃炲ʊ瑃煈ʊ玭煈ʊ瓅灧Ǵ瓅烽Ǵ琯烽Ǵ琯灧ʊ瓅灧ʊ瓅烽ʊ琯烽ʊ瑃瀜Ǵ瑃炲Ǵ玭炲Ǵ玭瀜ʊ瑃瀜ʊ瑃炲ʊ玭炲ʊ珁濑Ǵ珁灧Ǵ猫灧Ǵ猫濑ʊ珁濑ʊ珁灧ʊ猫灧ʊ猿澆Ǵ猿瀜Ǵ犩瀜Ǵ犩澆ʊ猿澆ʊ猿瀜ʊ犩瀜ʊ猿���Ǵ猿澆Ǵ犩澆Ǵ犩滰ʊ猿滰ʊ猿澆ʊ犩澆ʊ猿湚Ǵ猿滰Ǵ犩滰Ǵ犩湚ʊ猿湚ʊ猿滰ʊ犩滰ʊ猿淄Ǵ猿湚Ǵ犩湚Ǵ犩淄ʊ猿淄ʊ猿湚ʊ犩湚ʊ珁浹Ǵ珁渏Ǵ猫渏Ǵ猫浹ʊ珁浹ʊ珁渏ʊ猫渏ʊ瑃洮Ǵ瑃淄Ǵ玭淄Ǵ玭洮ʊ瑃洮ʊ瑃淄ʊ玭淄ʊ瓅泣Ǵ瓅浹Ǵ琯浹Ǵ琯泣ʊ瓅泣ʊ瓅浹ʊ琯浹ʊ畇洮Ǵ畇淄Ǵ璱淄Ǵ璱洮ʊ畇洮ʊ畇淄ʊ璱淄ʊ痉浹Ǵ痉渏Ǵ申渏Ǵ申浹ʊ痉浹ʊ痉渏ʊ申渏ʊ癊淄Ǵ癊湚Ǵ疴湚Ǵ疴淄ʊ癊淄ʊ癊湚ʊ疴湚ʊ癊洮Ǵ癊淄Ǵ疴淄Ǵ疴洮ʊ癊洮ʊ癊淄ʊ疴淄ʊ癊沘Ǵ癊洮Ǵ疴洮Ǵ疴沘ʊ癊沘ʊ癊洮ʊ疴洮ʊ癊氂Ǵ癊沘Ǵ疴沘Ǵ疴氂ʊ癊氂ʊ癊沘ʊ疴沘ʊ盌殷Ǵ盌汍Ǵ瘶汍Ǵ瘶殷ʊ盌殷ʊ盌汍ʊ瘶汍ʊ睎歬Ǵ睎氂Ǵ皸氂Ǵ皸歬ʊ睎歬ʊ睎氂ʊ皸氂ʊ矐次Ǵ矐殷Ǵ眺殷Ǵ眺次ʊ矐次ʊ矐殷ʊ眺殷ʊ硒歬Ǵ硒氂Ǵ瞼氂Ǵ瞼歬ʊ硒歬ʊ硒氂ʊ瞼氂ʊ磔殷Ǵ磔汍Ǵ砾汍Ǵ砾殷ʊ磔殷ʊ磔汍ʊ砾汍ʊ祖氂Ǵ祖沘Ǵ磀沘Ǵ磀氂ʊ祖氂ʊ祖沘ʊ磀沘ʊ祖沘Ǵ祖洮Ǵ磀���Ǵ磀沘ʊ祖沘ʊ祖洮ʊ磀洮ʊ祖洮Ǵ祖淄Ǵ磀淄Ǵ磀洮ʊ祖洮ʊ祖淄ʊ磀淄ʊ祖淄Ǵ祖湚Ǵ磀湚Ǵ磀淄ʊ祖淄ʊ祖湚ʊ磀湚ʊ秘浹Ǵ秘渏Ǵ祂渏Ǵ祂浹ʊ秘浹ʊ秘渏ʊ祂渏ʊ穚洮Ǵ穚淄Ǵ秄淄Ǵ秄洮ʊ穚洮ʊ穚淄ʊ秄淄ʊ竜泣Ǵ竜浹Ǵ穆浹Ǵ穆泣ʊ竜泣ʊ竜浹ʊ穆浹ʊ筞洮Ǵ筞淄Ǵ竈淄Ǵ竈洮ʊ筞洮ʊ筞淄ʊ竈淄ʊ篟浹Ǵ篟渏Ǵ等渏Ǵ等浹ʊ篟浹ʊ篟渏ʊ等渏ʊ籡淄Ǵ籡湚Ǵ篋湚Ǵ篋淄ʊ籡淄ʊ籡湚ʊ篋湚ʊ籡湚Ǵ籡滰Ǵ篋滰Ǵ篋湚ʊ籡湚ʊ籡滰ʊ篋滰ʊ籡滰Ǵ籡澆Ǵ篋澆Ǵ篋滰ʊ籡滰ʊ籡澆ʊ篋澆ʊ籡澆Ǵ籡瀜Ǵ篋瀜Ǵ篋澆ʊ籡澆ʊ籡瀜ʊ篋瀜ʊ篟濑Ǵ篟灧Ǵ等灧Ǵ等濑ʊ篟濑ʊ篟灧ʊ等灧ʊ筞瀜Ǵ筞炲Ǵ竈炲Ǵ竈瀜ʊ筞瀜ʊ筞炲ʊ竈炲ʊ竜灧Ǵ竜烽Ǵ穆烽Ǵ穆灧ʊ竜灧ʊ竜烽ʊ穆烽ʊ筞炲Ǵ筞煈Ǵ竈煈Ǵ竈炲ʊ筞炲ʊ筞煈ʊ竈煈ʊ篟烽Ǵ篟熓Ǵ等熓Ǵ等烽ʊ篟烽ʊ篟熓ʊ等熓ʊ籡煈Ǵ籡燞Ǵ篋燞Ǵ篋煈ʊ籡煈ʊ籡燞ʊ篋燞ʊ籡燞Ǵ籡牴Ǵ篋牴Ǵ篋燞ʊ籡���ʊ籡牴ʊ篋牴ʊ籡牴Ǵ籡猊Ǵ篋猊Ǵ篋牴ʊ籡牴ʊ籡猊ʊ篋猊ʊ籡猊Ǵ籡玠Ǵ篋玠Ǵ篋猊ʊ籡猊ʊ籡玠ʊ篋玠ʊ糣犿Ǵ糣獕Ǵ籍獕Ǵ籍犿ʊ糣犿ʊ糣獕ʊ籍獕ʊ絥牴Ǵ絥猊Ǵ糏猊Ǵ糏牴ʊ絥牴ʊ絥猊ʊ糏猊ʊ緧爩Ǵ緧犿Ǵ絑犿Ǵ絑爩ʊ緧爩ʊ緧犿ʊ絑犿ʊ繩牴Ǵ繩猊Ǵ緓猊Ǵ緓牴ʊ繩牴ʊ繩猊ʊ緓猊ʊ绫犿Ǵ绫獕Ǵ繕獕Ǵ繕犿ʊ绫犿ʊ绫獕ʊ繕獕ʊ罭猊Ǵ罭玠Ǵ绗玠Ǵ绗猊ʊ罭猊ʊ罭玠ʊ绗玠ʊ罭牴Ǵ罭猊Ǵ绗猊Ǵ绗牴ʊ罭牴ʊ罭猊ʊ绗猊ʊ罭燞Ǵ罭牴Ǵ绗牴Ǵ绗燞ʊ罭燞ʊ罭牴ʊ绗牴ʊ罭煈Ǵ罭燞Ǵ绗燞Ǵ绗煈ʊ罭煈ʊ罭燞ʊ绗燞ʊ翯烽Ǵ翯熓Ǵ罙熓Ǵ罙烽ʊ翯烽ʊ翯熓ʊ罙熓ʊ聱炲Ǵ聱煈Ǵ翛煈Ǵ翛炲ʊ聱炲ʊ聱煈ʊ翛煈ʊ胲灧Ǵ胲烽Ǵ聜烽Ǵ聜灧ʊ胲灧ʊ胲烽ʊ聜烽ʊ腴炲Ǵ腴煈Ǵ胞煈Ǵ胞炲ʊ腴炲ʊ腴煈ʊ胞煈ʊ臶烽Ǵ臶熓Ǵ腠熓Ǵ腠烽ʊ臶烽ʊ臶熓ʊ腠熓ʊ艸煈Ǵ艸燞Ǵ臢燞Ǵ臢煈ʊ艸煈ʊ艸燞ʊ臢燞ʊ艸燞Ǵ艸牴Ǵ臢牴Ǵ臢燞ʊ艸燞ʊ艸牴ʊ臢���ʊ艸牴Ǵ艸猊Ǵ臢猊Ǵ臢牴ʊ艸牴ʊ艸猊ʊ臢猊ʊ艸猊Ǵ艸玠Ǵ臢玠Ǵ臢猊ʊ艸猊ʊ艸玠ʊ臢玠ʊ苺犿Ǵ苺獕Ǵ艤獕Ǵ艤犿ʊ苺犿ʊ苺獕ʊ艤獕ʊ荼牴Ǵ荼猊Ǵ苦猊Ǵ苦牴ʊ荼牴ʊ荼猊ʊ苦猊ʊ菾爩Ǵ菾犿Ǵ荨犿Ǵ荨爩ʊ菾爩ʊ菾犿ʊ荨犿ʊ蒀牴Ǵ蒀猊Ǵ菪猊Ǵ菪牴ʊ蒀牴ʊ蒀猊ʊ菪猊ʊ蔂犿Ǵ蔂獕Ǵ葬獕Ǵ葬犿ʊ蔂犿ʊ蔂獕ʊ葬獕ʊ薄猊Ǵ薄玠Ǵ蓮玠Ǵ蓮猊ʊ薄猊ʊ薄玠ʊ蓮玠ʊ薄玠Ǵ薄琶Ǵ蓮琶Ǵ蓮玠ʊ薄玠ʊ薄琶ʊ蓮琶ʊ薄琶Ǵ薄瓌Ǵ蓮瓌Ǵ蓮琶ʊ薄琶ʊ薄瓌ʊ蓮瓌ʊ薄瓌Ǵ薄畢Ǵ蓮畢Ǵ蓮瓌ʊ薄瓌ʊ薄畢ʊ蓮畢ʊ蔂甗Ǵ蔂疭Ǵ葬疭Ǵ葬甗ʊ蔂甗ʊ蔂疭ʊ葬疭ʊ蒀畢Ǵ蒀痸Ǵ菪痸Ǵ菪畢ʊ蒀畢ʊ蒀痸ʊ菪痸ʊ菾疭Ǵ菾癃Ǵ荨癃Ǵ荨疭ʊ菾疭ʊ菾癃ʊ荨癃ʊ蒀痸Ǵ蒀皎Ǵ菪皎Ǵ菪痸ʊ蒀痸ʊ蒀皎ʊ菪皎ʊ蔂癃Ǵ蔂盙Ǵ葬盙Ǵ葬癃ʊ蔂癃ʊ蔂盙ʊ葬盙ʊ薄皎Ǵ薄眤Ǵ蓮眤Ǵ蓮皎ʊ薄皎ʊ薄眤ʊ蓮眤ʊ薄眤Ǵ薄瞺Ǵ蓮瞺Ǵ蓮眤ʊ薄眤ʊ薄瞺ʊ蓮瞺ʊ薄瞺Ǵ薄���Ǵ蓮硐Ǵ蓮瞺ʊ薄瞺ʊ薄硐ʊ蓮硐ʊ薄硐Ǵ薄磦Ǵ蓮磦Ǵ蓮硐ʊ薄硐ʊ薄磦ʊ蓮磦ʊ蔂碛Ǵ蔂礱Ǵ葬礱Ǵ葬碛ʊ蔂碛ʊ蔂礱ʊ葬礱ʊ蒀磦Ǵ蒀祼Ǵ菪祼Ǵ菪磦ʊ蒀磦ʊ蒀祼ʊ菪祼ʊ菾礱Ǵ菾秇Ǵ荨秇Ǵ荨礱ʊ菾礱ʊ菾秇ʊ荨秇ʊ荼磦Ǵ荼祼Ǵ苦祼Ǵ苦磦ʊ荼磦ʊ荼祼ʊ苦祼ʊ苺碛Ǵ苺礱Ǵ艤礱Ǵ艤碛ʊ苺碛ʊ苺礱ʊ艤礱ʊ艸硐Ǵ艸磦Ǵ臢磦Ǵ臢硐ʊ艸硐ʊ艸磦ʊ臢磦ʊ艸磦Ǵ艸祼Ǵ臢祼Ǵ臢磦ʊ艸磦ʊ艸祼ʊ臢祼ʊ艸祼Ǵ艸稒Ǵ臢稒Ǵ臢祼ʊ艸祼ʊ艸稒ʊ臢稒ʊ艸稒Ǵ艸窨Ǵ臢窨Ǵ臢稒ʊ艸稒ʊ艸窨ʊ臢窨ʊ臶穝Ǵ臶竳Ǵ腠竳Ǵ腠穝ʊ臶穝ʊ臶竳ʊ腠竳ʊ腴窨Ǵ腴笾Ǵ胞笾Ǵ胞窨ʊ腴窨ʊ腴笾ʊ胞笾ʊ胲竳Ǵ胲箉Ǵ聜箉Ǵ聜竳ʊ胲竳ʊ胲箉ʊ聜箉ʊ腴笾Ǵ腴篔Ǵ胞篔Ǵ胞笾ʊ腴笾ʊ腴篔ʊ胞篔ʊ臶箉Ǵ臶簟Ǵ腠簟Ǵ腠箉ʊ臶箉ʊ臶簟ʊ腠簟ʊ艸篔Ǵ艸籪Ǵ臢籪Ǵ臢篔ʊ艸篔ʊ艸籪ʊ臢籪ʊ艸籪Ǵ艸紀Ǵ臢紀Ǵ臢籪ʊ艸籪ʊ艸紀ʊ臢紀ʊ艸紀Ǵ艸綖Ǵ臢綖Ǵ臢���ʊ艸紀ʊ艸綖ʊ臢綖ʊ艸綖Ǵ艸縬Ǵ臢縬Ǵ臢綖ʊ艸綖ʊ艸縬ʊ臢縬ʊ苺絋Ǵ苺緡Ǵ艤緡Ǵ艤絋ʊ苺絋ʊ苺緡ʊ艤緡ʊ荼紀Ǵ荼綖Ǵ苦綖Ǵ苦紀ʊ荼紀ʊ荼綖ʊ苦綖ʊ菾粵Ǵ菾絋Ǵ荨絋Ǵ荨粵ʊ菾粵ʊ菾絋ʊ荨絋ʊ蒀紀Ǵ蒀綖Ǵ菪綖Ǵ菪紀ʊ蒀紀ʊ蒀綖ʊ菪綖ʊ蔂絋Ǵ蔂緡Ǵ葬緡Ǵ葬絋ʊ蔂絋ʊ蔂緡ʊ葬緡ʊ薄綖Ǵ薄縬Ǵ蓮縬Ǵ蓮綖ʊ薄綖ʊ薄縬ʊ蓮縬ʊ薄縬Ǵ薄绂Ǵ蓮绂Ǵ蓮縬ʊ薄縬ʊ薄绂ʊ蓮绂ʊ薄绂Ǵ薄罘Ǵ蓮罘Ǵ蓮绂ʊ薄绂ʊ薄罘ʊ蓮罘ʊ薄罘Ǵ薄翮Ǵ蓮翮Ǵ蓮罘ʊ薄罘ʊ薄翮ʊ蓮翮ʊ蔂羣Ǵ蔂耹Ǵ葬耹Ǵ葬羣ʊ蔂羣ʊ蔂耹ʊ葬耹ʊ蒀翮Ǵ蒀肄Ǵ菪肄Ǵ菪翮ʊ蒀翮ʊ蒀肄ʊ菪肄ʊ菾耹Ǵ菾胏Ǵ荨胏Ǵ荨耹ʊ菾耹ʊ菾胏ʊ荨胏ʊ蒀肄Ǵ蒀脚Ǵ菪脚Ǵ菪肄ʊ蒀肄ʊ蒀脚ʊ菪脚ʊ蔂胏Ǵ蔂腥Ǵ葬腥Ǵ葬胏ʊ蔂胏ʊ蔂腥ʊ葬腥ʊ薄脚Ǵ薄膰Ǵ蓮膰Ǵ蓮脚ʊ薄脚ʊ薄膰ʊ蓮膰ʊ薄膰Ǵ薄艆Ǵ蓮艆Ǵ蓮膰ʊ薄膰ʊ薄艆ʊ蓮艆ʊ薄艆Ǵ薄苜Ǵ蓮苜Ǵ蓮艆ʊ薄艆ʊ薄���ʊ蓮苜ʊ薄苜Ǵ薄荲Ǵ蓮荲Ǵ蓮苜ʊ薄苜ʊ薄荲ʊ蓮荲ʊ蘆芑Ǵ蘆茧Ǵ蕰茧Ǵ蕰芑ʊ蘆芑ʊ蘆茧ʊ蕰茧ʊ蚇艆Ǵ蚇苜Ǵ藱苜Ǵ藱艆ʊ蚇艆ʊ蚇苜ʊ藱苜ʊ蜉臻Ǵ蜉芑Ǵ虳芑Ǵ虳臻ʊ蜉臻ʊ蜉芑ʊ虳芑ʊ螋艆Ǵ螋苜Ǵ蛵苜Ǵ蛵艆ʊ螋艆ʊ螋苜ʊ蛵苜ʊ蠍芑Ǵ蠍茧Ǵ蝷茧Ǵ蝷芑ʊ蠍芑ʊ蠍茧ʊ蝷茧ʊ袏苜Ǵ袏荲Ǵ蟹荲Ǵ蟹苜ʊ袏苜ʊ袏荲ʊ蟹荲ʊ袏艆Ǵ袏苜Ǵ蟹苜Ǵ蟹艆ʊ袏艆ʊ袏苜ʊ蟹苜ʊ袏膰Ǵ袏艆Ǵ蟹艆Ǵ蟹膰ʊ袏膰ʊ袏艆ʊ蟹艆ʊ袏脚Ǵ袏膰Ǵ蟹膰Ǵ蟹脚ʊ袏脚ʊ袏膰ʊ蟹膰ʊ褑胏Ǵ褑腥Ǵ衻腥Ǵ衻胏ʊ褑胏ʊ褑腥ʊ衻腥ʊ覓肄Ǵ覓脚Ǵ製脚Ǵ製肄ʊ覓肄ʊ覓脚ʊ製脚ʊ訕耹Ǵ訕胏Ǵ西胏Ǵ西耹ʊ訕耹ʊ訕胏ʊ西胏ʊ誗肄Ǵ誗脚Ǵ訁脚Ǵ訁肄ʊ誗肄ʊ誗脚ʊ訁脚ʊ謙胏Ǵ謙腥Ǵ誃腥Ǵ誃胏ʊ謙胏ʊ謙腥ʊ誃腥ʊ讚脚Ǵ讚膰Ǵ謄膰Ǵ謄脚ʊ讚脚ʊ讚膰ʊ謄膰ʊ讚膰Ǵ讚艆Ǵ謄艆Ǵ謄膰ʊ讚膰ʊ讚艆ʊ謄艆ʊ讚艆Ǵ讚苜Ǵ謄苜Ǵ謄艆ʊ讚艆ʊ讚苜ʊ謄苜ʊ讚���Ǵ讚荲Ǵ謄荲Ǵ謄苜ʊ讚苜ʊ讚荲ʊ謄荲ʊ谜芑Ǵ谜茧Ǵ讆茧Ǵ讆芑ʊ谜芑ʊ谜茧ʊ讆茧ʊ貞艆Ǵ貞苜Ǵ谈苜Ǵ谈艆ʊ貞艆ʊ貞苜ʊ谈苜ʊ贠臻Ǵ贠芑Ǵ貊芑Ǵ貊臻ʊ贠臻ʊ贠芑ʊ貊芑ʊ趢艆Ǵ趢苜Ǵ贌苜Ǵ贌艆ʊ趢艆ʊ趢苜ʊ贌苜ʊ踤芑Ǵ踤茧Ǵ趎茧Ǵ趎芑ʊ踤芑ʊ踤茧ʊ趎茧ʊ躦苜Ǵ躦荲Ǵ踐荲Ǵ踐苜ʊ躦苜ʊ躦荲ʊ踐荲ʊ躦艆Ǵ躦苜Ǵ踐苜Ǵ踐艆ʊ躦艆ʊ躦苜ʊ踐苜ʊ躦膰Ǵ躦艆Ǵ踐艆Ǵ踐膰ʊ躦膰ʊ躦艆ʊ踐艆ʊ躦脚Ǵ躦膰Ǵ踐膰Ǵ踐脚ʊ躦脚ʊ躦膰ʊ踐膰ʊ輨胏Ǵ輨腥Ǵ躒腥Ǵ躒胏ʊ輨胏ʊ輨腥ʊ躒腥ʊ辪肄Ǵ辪脚Ǵ輔脚Ǵ輔肄ʊ辪肄ʊ辪脚ʊ輔脚ʊ逬耹Ǵ逬胏Ǵ辖胏Ǵ辖耹ʊ逬耹ʊ逬胏ʊ辖胏ʊ辪翮Ǵ辪肄Ǵ輔肄Ǵ輔翮ʊ辪翮ʊ辪肄ʊ輔肄ʊ輨羣Ǵ輨耹Ǵ躒耹Ǵ躒羣ʊ輨羣ʊ輨耹ʊ躒耹ʊ躦罘Ǵ躦翮Ǵ踐翮Ǵ踐罘ʊ躦罘ʊ躦翮ʊ踐翮ʊ躦绂Ǵ躦罘Ǵ踐罘Ǵ踐绂ʊ躦绂ʊ躦罘ʊ踐罘ʊ躦縬Ǵ躦绂Ǵ踐绂Ǵ踐縬ʊ躦縬ʊ躦绂ʊ踐绂ʊ躦綖Ǵ躦縬Ǵ踐���Ǵ踐綖ʊ躦綖ʊ躦縬ʊ踐縬ʊ輨絋Ǵ輨緡Ǵ躒緡Ǵ躒絋ʊ輨絋ʊ輨緡ʊ躒緡ʊ辪紀Ǵ辪綖Ǵ輔綖Ǵ輔紀ʊ辪紀ʊ辪綖ʊ輔綖ʊ逬粵Ǵ逬絋Ǵ辖絋Ǵ辖粵ʊ逬粵ʊ逬絋ʊ辖絋ʊ邭紀Ǵ邭綖Ǵ逗綖Ǵ逗紀ʊ邭紀ʊ邭綖ʊ逗綖ʊ鄯絋Ǵ鄯緡Ǵ邙緡Ǵ邙絋ʊ鄯絋ʊ鄯緡ʊ邙緡ʊ醱綖Ǵ醱縬Ǵ鄛縬Ǵ鄛綖ʊ醱綖ʊ醱縬ʊ鄛縬ʊ醱紀Ǵ醱綖Ǵ鄛綖Ǵ鄛紀ʊ醱紀ʊ醱綖ʊ鄛綖ʊ醱籪Ǵ醱紀Ǵ鄛紀Ǵ鄛籪ʊ醱籪ʊ醱紀ʊ鄛紀ʊ醱篔Ǵ醱籪Ǵ鄛籪Ǵ鄛篔ʊ醱篔ʊ醱籪ʊ鄛籪ʊ鈳箉Ǵ鈳簟Ǵ醝簟Ǵ醝箉ʊ鈳箉ʊ鈳簟ʊ醝簟ʊ銵笾Ǵ銵篔Ǵ鈟篔Ǵ鈟笾ʊ銵笾ʊ銵篔ʊ鈟篔ʊ錷竳Ǵ錷箉Ǵ銡箉Ǵ銡竳ʊ錷竳ʊ錷箉ʊ銡箉ʊ鎹笾Ǵ鎹篔Ǵ錣篔Ǵ錣笾ʊ鎹笾ʊ鎹篔ʊ錣篔ʊ鐻箉Ǵ鐻簟Ǵ鎥簟Ǵ鎥箉ʊ鐻箉ʊ鐻簟ʊ鎥簟ʊ钽篔Ǵ钽籪Ǵ鐧籪Ǵ鐧篔ʊ钽篔ʊ钽籪ʊ鐧籪ʊ钽籪Ǵ钽紀Ǵ鐧紀Ǵ鐧籪ʊ钽籪ʊ钽紀ʊ鐧紀ʊ钽紀Ǵ钽綖Ǵ鐧綖Ǵ鐧紀ʊ钽紀ʊ钽綖ʊ鐧綖ʊ钽綖Ǵ钽縬Ǵ鐧縬Ǵ鐧綖ʊ钽���ʊ钽縬ʊ鐧縬ʊ锿絋Ǵ锿緡Ǵ钩緡Ǵ钩絋ʊ锿絋ʊ锿緡ʊ钩緡ʊ闁紀Ǵ闁綖Ǵ锫綖Ǵ锫紀ʊ闁紀ʊ闁綖ʊ锫綖ʊ陂粵Ǵ陂絋Ǵ閬絋Ǵ閬粵ʊ陂粵ʊ陂絋ʊ閬絋ʊ雄紀Ǵ雄綖Ǵ阮綖Ǵ阮紀ʊ雄紀ʊ雄綖ʊ阮綖ʊ靆絋Ǵ靆緡Ǵ隰緡Ǵ隰絋ʊ靆絋ʊ靆緡ʊ隰緡ʊ韈綖Ǵ韈縬Ǵ露縬Ǵ露綖ʊ韈綖ʊ韈縬ʊ露縬ʊ韈縬Ǵ韈绂Ǵ露绂Ǵ露縬ʊ韈縬ʊ韈绂ʊ露绂ʊ韈绂Ǵ韈罘Ǵ露罘Ǵ露绂ʊ韈绂ʊ韈罘ʊ露罘ʊ韈罘Ǵ韈翮Ǵ露翮Ǵ露罘ʊ韈罘ʊ韈翮ʊ露翮ʊ靆羣Ǵ靆耹Ǵ隰耹Ǵ隰羣ʊ靆羣ʊ靆耹ʊ隰耹ʊ雄翮Ǵ雄肄Ǵ阮肄Ǵ阮翮ʊ雄翮ʊ雄肄ʊ阮肄ʊ陂耹Ǵ陂胏Ǵ閬胏Ǵ閬耹ʊ陂耹ʊ陂胏ʊ閬胏ʊ雄肄Ǵ雄脚Ǵ阮脚Ǵ阮肄ʊ雄肄ʊ雄脚ʊ阮脚ʊ靆胏Ǵ靆腥Ǵ隰腥Ǵ隰胏ʊ靆胏ʊ靆腥ʊ隰腥ʊ韈脚Ǵ韈膰Ǵ露膰Ǵ露脚ʊ韈脚ʊ韈膰ʊ露膰ʊ韈膰Ǵ韈��Ǵ露艆Ǵ露膰ʊ韈膰ʊ韈艆ʊ露艆ʊ韈艆Ǵ韈苜Ǵ露苜Ǵ露艆ʊ韈艆ʊ韈苜ʊ露苜ʊ韈苜Ǵ韈荲Ǵ露荲Ǵ露苜ʊ韈苜ʊ韈荲ʊ露荲ʊ顊芑Ǵ顊茧Ǵ鞴茧Ǵ鞴芑ʊ顊芑ʊ顊茧ʊ鞴茧ʊ飌艆Ǵ飌苜Ǵ頶苜Ǵ頶艆ʊ飌艆ʊ飌苜ʊ頶苜ʊ饎臻Ǵ饎芑Ǵ颸芑Ǵ颸臻ʊ饎臻ʊ饎芑ʊ颸芑ʊ駐艆Ǵ駐苜Ǵ餺苜Ǵ餺艆ʊ駐艆ʊ駐苜ʊ餺苜ʊ驒芑Ǵ驒茧Ǵ馼茧Ǵ馼芑ʊ驒芑ʊ驒茧ʊ馼茧ʊ體苜Ǵ體荲Ǵ騾荲Ǵ騾苜ʊ體苜ʊ體荲ʊ騾荲ʊ體艆Ǵ體苜Ǵ騾苜Ǵ騾艆ʊ體艆ʊ體苜ʊ騾苜ʊ體膰Ǵ體艆Ǵ騾艆Ǵ騾膰ʊ體膰ʊ體艆ʊ騾艆ʊ體脚Ǵ體膰Ǵ騾膰Ǵ騾脚ʊ體脚ʊ體膰ʊ騾膰ʊ魕胏Ǵ魕腥Ǵ骿腥Ǵ骿胏ʊ魕胏ʊ魕腥ʊ骿腥ʊ鯗肄Ǵ鯗脚Ǵ魁脚Ǵ魁肄ʊ鯗肄ʊ鯗脚ʊ魁脚ʊ鱙耹Ǵ鱙胏Ǵ鯃胏Ǵ鯃耹ʊ鱙耹ʊ鱙胏ʊ鯃胏ʊ鳛肄Ǵ鳛脚Ǵ鱅脚Ǵ鱅肄ʊ鳛肄ʊ鳛脚ʊ鱅脚ʊ鵝胏Ǵ鵝腥Ǵ鳇腥Ǵ鳇胏ʊ鵝胏ʊ鵝腥ʊ鳇腥ʊ鷟脚Ǵ鷟膰Ǵ鵉膰Ǵ鵉脚ʊ鷟脚ʊ鷟膰ʊ鵉膰ʊ鷟膰Ǵ鷟艆Ǵ鵉艆Ǵ鵉��ʊ鷟膰ʊ鷟艆ʊ鵉艆ʊ鷟艆Ǵ鷟苜Ǵ鵉苜Ǵ鵉艆ʊ鷟艆ʊ鷟苜ʊ鵉苜ʊ鷟苜Ǵ鷟荲Ǵ鵉荲Ǵ鵉苜ʊ鷟苜ʊ鷟荲ʊ鵉荲ʊ鹡芑Ǵ鹡茧Ǵ鷋茧Ǵ鷋芑ʊ鹡芑ʊ鹡茧ʊ鷋茧ʊ黣艆Ǵ黣苜Ǵ鹍苜Ǵ鹍艆ʊ黣艆ʊ黣苜ʊ鹍苜ʊ齥臻Ǵ齥芑Ǵ黏芑Ǵ黏臻ʊ齥臻ʊ齥芑ʊ黏芑ʊ鿧艆Ǵ鿧苜Ǵ齑苜Ǵ齑艆ʊ鿧艆ʊ鿧苜ʊ齑苜ʊꁩ芑Ǵꁩ茧Ǵ鿓茧Ǵ鿓芑ʊꁩ芑ʊꁩ茧ʊ鿓茧ʊꃪ苜Ǵꃪ荲Ǵꁔ荲Ǵꁔ苜ʊꃪ苜ʊꃪ荲ʊꁔ荲ʊꃪ艆Ǵꃪ苜Ǵꁔ苜Ǵꁔ艆ʊꃪ艆ʊꃪ苜ʊꁔ苜ʊꃪ膰Ǵꃪ艆Ǵꁔ艆Ǵꁔ膰ʊꃪ膰ʊꃪ艆ʊꁔ艆ʊꃪ脚Ǵꃪ膰Ǵꁔ膰Ǵꁔ脚ʊꃪ脚ʊꃪ膰ʊꁔ膰ʊꅬ胏Ǵꅬ腥Ǵꃖ腥Ǵꃖ胏ʊꅬ胏ʊꅬ腥ʊꃖ腥ʊꇮ肄Ǵꇮ脚Ǵꅘ脚Ǵꅘ肄ʊꇮ肄ʊꇮ脚ʊꅘ脚ʊꉰ耹Ǵꉰ胏Ǵꇚ胏Ǵꇚ耹ʊꉰ耹ʊꉰ胏ʊꇚ胏ʊꇮ翮Ǵꇮ肄Ǵꅘ肄Ǵꅘ翮ʊꇮ翮ʊꇮ肄ʊꅘ肄ʊꅬ羣Ǵꅬ耹Ǵꃖ耹Ǵꃖ羣ʊꅬ羣ʊꅬ耹ʊꃖ耹ʊꃪ罘Ǵꃪ翮Ǵꁔ翮Ǵꁔ罘ʊꃪ罘ʊꃪ翮ʊꁔ翮ʊꃪ绂Ǵꃪ罘Ǵꁔ罘Ǵꁔ绂ʊꃪ绂ʊꃪ��ʊꁔ罘ʊꃪ縬Ǵꃪ绂Ǵꁔ绂Ǵꁔ縬ʊꃪ縬ʊꃪ绂ʊꁔ绂ʊꃪ綖Ǵꃪ縬Ǵꁔ縬Ǵꁔ綖ʊꃪ綖ʊꃪ縬ʊꁔ縬ʊꅬ絋Ǵꅬ緡Ǵꃖ緡Ǵꃖ絋ʊꅬ絋ʊꅬ緡ʊꃖ緡ʊꇮ紀Ǵꇮ綖Ǵꅘ綖Ǵꅘ紀ʊꇮ紀ʊꇮ綖ʊꅘ綖ʊꉰ粵Ǵꉰ絋Ǵꇚ絋Ǵꇚ粵ʊꉰ粵ʊꉰ絋ʊꇚ絋ʊꋲ紀Ǵꋲ綖Ǵꉜ綖Ǵꉜ紀ʊꋲ紀ʊꋲ綖ʊꉜ綖ʊꍴ絋Ǵꍴ緡Ǵꋞ緡Ǵꋞ絋ʊꍴ絋ʊꍴ緡ʊꋞ緡ʊꏶ綖Ǵꏶ縬Ǵꍠ縬Ǵꍠ綖ʊꏶ綖ʊꏶ縬ʊꍠ縬ʊꏶ紀Ǵꏶ綖Ǵꍠ綖Ǵꍠ紀ʊꏶ紀ʊꏶ綖ʊꍠ綖ʊꏶ籪Ǵꏶ紀Ǵꍠ紀Ǵꍠ籪ʊꏶ籪ʊꏶ紀ʊꍠ紀ʊꏶ篔Ǵꏶ籪Ǵꍠ籪Ǵꍠ篔ʊꏶ篔ʊꏶ籪ʊꍠ籪ʊꑸ箉Ǵꑸ簟Ǵꏢ簟Ǵꏢ箉ʊꑸ箉ʊꑸ簟ʊꏢ簟ʊꓺ笾Ǵꓺ篔Ǵꑤ篔Ǵꑤ笾ʊꓺ笾ʊꓺ篔ʊꑤ篔ʊꕼ竳Ǵꕼ箉Ǵꓦ箉Ǵꓦ竳ʊꕼ竳ʊꕼ箉ʊꓦ箉ʊꓺ窨Ǵꓺ笾Ǵꑤ笾Ǵꑤ窨ʊꓺ窨ʊꓺ笾ʊꑤ笾ʊꑸ穝Ǵꑸ竳Ǵꏢ竳Ǵꏢ穝ʊꑸ穝ʊꑸ竳ʊꏢ竳ʊꏶ稒Ǵꏶ窨Ǵꍠ窨Ǵꍠ稒ʊꏶ稒ʊꏶ窨ʊꍠ窨ʊꏶ祼Ǵꏶ稒Ǵꍠ稒Ǵꍠ祼ʊꏶ祼ʊꏶ稒ʊꍠ稒ʊꏶ��Ǵꏶ祼Ǵꍠ祼Ǵꍠ磦ʊꏶ磦ʊꏶ祼ʊꍠ祼ʊꏶ硐Ǵꏶ磦Ǵꍠ磦Ǵꍠ硐ʊꏶ硐ʊꏶ磦ʊꍠ磦ʊꍴ碛Ǵꍴ礱Ǵꋞ礱Ǵꋞ碛ʊꍴ碛ʊꍴ礱ʊꋞ礱ʊꋲ磦Ǵꋲ祼Ǵꉜ祼Ǵꉜ磦ʊꋲ磦ʊꋲ祼ʊꉜ祼ʊꉰ礱Ǵꉰ秇Ǵꇚ秇Ǵꇚ礱ʊꉰ礱ʊꉰ秇ʊꇚ秇ʊꇮ磦Ǵꇮ祼Ǵꅘ祼Ǵꅘ磦ʊꇮ磦ʊꇮ祼ʊꅘ祼ʊꅬ碛Ǵꅬ礱Ǵꃖ礱Ǵꃖ碛ʊꅬ碛ʊꅬ礱ʊꃖ礱ʊꃪ硐Ǵꃪ磦Ǵꁔ磦Ǵꁔ硐ʊꃪ硐ʊꃪ磦ʊꁔ磦ʊꃪ瞺Ǵꃪ硐Ǵꁔ硐Ǵꁔ瞺ʊꃪ瞺ʊꃪ硐ʊꁔ硐ʊꃪ眤Ǵꃪ瞺Ǵꁔ瞺Ǵꁔ眤ʊꃪ眤ʊꃪ瞺ʊꁔ瞺ʊꃪ皎Ǵꃪ眤Ǵꁔ眤Ǵꁔ皎ʊꃪ皎ʊꃪ眤ʊꁔ眤ʊꅬ癃Ǵꅬ盙Ǵꃖ盙Ǵꃖ癃ʊꅬ癃ʊꅬ盙ʊꃖ盙ʊꇮ痸Ǵꇮ皎Ǵꅘ皎Ǵꅘ痸ʊꇮ痸ʊꇮ皎ʊꅘ皎ʊꉰ疭Ǵꉰ癃Ǵꇚ癃Ǵꇚ疭ʊꉰ疭ʊꉰ癃ʊꇚ癃ʊꇮ畢Ǵꇮ痸Ǵꅘ痸Ǵꅘ畢ʊꇮ畢ʊꇮ痸ʊꅘ痸ʊꅬ甗Ǵꅬ疭Ǵꃖ疭Ǵꃖ甗ʊꅬ甗ʊꅬ疭ʊꃖ疭ʊꃪ瓌Ǵꃪ畢Ǵꁔ畢Ǵꁔ瓌ʊꃪ瓌ʊꃪ畢ʊꁔ畢ʊꃪ琶Ǵꃪ瓌Ǵꁔ瓌Ǵꁔ琶ʊꃪ琶ʊꃪ瓌ʊꁔ瓌ʊꃪ玠Ǵꃪ琶Ǵꁔ��Ǵꁔ玠ʊꃪ玠ʊꃪ琶ʊꁔ琶ʊꃪ猊Ǵꃪ玠Ǵꁔ玠Ǵꁔ猊ʊꃪ猊ʊꃪ玠ʊꁔ玠ʊꅬ犿Ǵꅬ獕Ǵꃖ獕Ǵꃖ犿ʊꅬ犿ʊꅬ獕ʊꃖ獕ʊꇮ牴Ǵꇮ猊Ǵꅘ猊Ǵꅘ牴ʊꇮ牴ʊꇮ猊ʊꅘ猊ʊꉰ爩Ǵꉰ犿Ǵꇚ犿Ǵꇚ爩ʊꉰ爩ʊꉰ犿ʊꇚ犿ʊꋲ牴Ǵꋲ猊Ǵꉜ猊Ǵꉜ牴ʊꋲ牴ʊꋲ猊ʊꉜ猊ʊꍴ犿Ǵꍴ獕Ǵꋞ獕Ǵꋞ犿ʊꍴ犿ʊꍴ獕ʊꋞ獕ʊꏶ猊Ǵꏶ玠Ǵꍠ玠Ǵꍠ猊ʊꏶ猊ʊꏶ玠ʊꍠ玠ʊꏶ牴Ǵꏶ猊Ǵꍠ猊Ǵꍠ牴ʊꏶ牴ʊꏶ猊ʊꍠ猊ʊꏶ燞Ǵꏶ牴Ǵꍠ牴Ǵꍠ燞ʊꏶ燞ʊꏶ牴ʊꍠ牴ʊꏶ煈Ǵꏶ燞Ǵꍠ燞Ǵꍠ煈ʊꏶ煈ʊꏶ燞ʊꍠ燞ʊꑸ烽Ǵꑸ熓Ǵꏢ熓Ǵꏢ烽ʊꑸ烽ʊꑸ熓ʊꏢ熓ʊꓺ炲Ǵꓺ煈Ǵꑤ煈Ǵꑤ炲ʊꓺ炲ʊꓺ煈ʊꑤ煈ʊꕼ灧Ǵꕼ烽Ǵꓦ烽Ǵꓦ灧ʊꕼ灧ʊꕼ烽ʊꓦ烽ʊꗽ炲Ǵꗽ煈Ǵꕧ煈Ǵꕧ炲ʊꗽ炲ʊꗽ煈ʊꕧ煈ʊꙿ烽Ǵꙿ熓Ǵꗩ熓Ǵꗩ烽ʊꙿ烽ʊꙿ熓ʊꗩ熓ʊ꜁煈Ǵ꜁燞Ǵꙫ燞Ǵꙫ煈ʊ꜁煈ʊ꜁燞ʊꙫ燞ʊ꜁燞Ǵ꜁牴Ǵꙫ牴Ǵꙫ燞ʊ꜁燞ʊ꜁牴ʊꙫ牴ʊ꜁牴Ǵ꜁猊Ǵꙫ猊Ǵꙫ牴ʊ꜁��ʊ꜁猊ʊꙫ猊ʊ꜁猊Ǵ꜁玠Ǵꙫ玠Ǵꙫ猊ʊ꜁猊ʊ꜁玠ʊꙫ玠ʊꞃ犿Ǵꞃ獕Ǵꛭ獕Ǵꛭ犿ʊꞃ犿ʊꞃ獕ʊꛭ獕ʊꠅ牴Ǵꠅ猊Ǵꝯ猊Ǵꝯ牴ʊꠅ牴ʊꠅ猊ʊꝯ猊ʊꢇ爩Ǵꢇ犿Ǵ꟱犿Ǵ꟱爩ʊꢇ爩ʊꢇ犿ʊ꟱犿ʊ꤉牴Ǵ꤉猊Ǵꡳ猊Ǵꡳ牴ʊ꤉牴ʊ꤉猊ʊꡳ猊ʊꦋ犿Ǵꦋ獕Ǵꣵ獕Ǵꣵ犿ʊꦋ犿ʊꦋ獕ʊꣵ獕ʊꨍ猊Ǵꨍ玠Ǵꥷ玠Ǵꥷ猊ʊꨍ猊ʊꨍ玠ʊꥷ玠ʊꨍ牴Ǵꨍ猊Ǵꥷ猊Ǵꥷ牴ʊꨍ牴ʊꨍ猊ʊꥷ猊ʊꨍ燞Ǵꨍ牴Ǵꥷ牴Ǵꥷ燞ʊꨍ燞ʊꨍ牴ʊꥷ牴ʊꨍ煈Ǵꨍ燞Ǵꥷ燞Ǵꥷ煈ʊꨍ煈ʊꨍ燞ʊꥷ燞ʊꪏ烽Ǵꪏ熓Ǵ꧹熓Ǵ꧹烽ʊꪏ烽ʊꪏ熓ʊ꧹熓ʊ꬐炲Ǵ꬐煈Ǵꩺ煈Ǵꩺ炲ʊ꬐炲ʊ꬐煈ʊꩺ煈ʊꮒ灧Ǵꮒ烽Ǵ꫼烽Ǵ꫼灧ʊꮒ灧ʊꮒ烽ʊ꫼烽ʊ꬐瀜Ǵ꬐炲Ǵꩺ炲Ǵꩺ瀜ʊ꬐瀜ʊ꬐炲ʊꩺ炲ʊꪏ濑Ǵꪏ灧Ǵ꧹灧Ǵ꧹濑ʊꪏ濑ʊꪏ灧ʊ꧹灧ʊꨍ澆Ǵꨍ瀜Ǵꥷ瀜Ǵꥷ澆ʊꨍ澆ʊꨍ瀜ʊꥷ瀜ʊꨍ滰Ǵꨍ澆Ǵꥷ澆Ǵꥷ滰ʊꨍ滰ʊꨍ澆ʊꥷ澆ʊꨍ湚Ǵꨍ滰Ǵꥷ滰Ǵꥷ湚ʊꨍ湚ʊꨍ滰ʊꥷ��ʊꨍ淄Ǵꨍ湚Ǵꥷ湚Ǵꥷ淄ʊꨍ淄ʊꨍ湚ʊꥷ湚ʊꪏ浹Ǵꪏ渏Ǵ꧹渏Ǵ꧹浹ʊꪏ浹ʊꪏ渏ʊ꧹渏ʊ꬐洮Ǵ꬐淄Ǵꩺ淄Ǵꩺ洮ʊ꬐洮ʊ꬐淄ʊꩺ淄ʊꮒ泣Ǵꮒ浹Ǵ꫼浹Ǵ꫼泣ʊꮒ泣ʊꮒ浹ʊ꫼浹ʊ갔洮Ǵ갔淄Ǵꭾ淄Ǵꭾ洮ʊ갔洮ʊ갔淄ʊꭾ淄ʊ겖浹Ǵ겖渏Ǵ가渏Ǵ가浹ʊ겖浹ʊ겖渏ʊ가渏ʊ괘淄Ǵ괘湚Ǵ겂湚Ǵ겂淄ʊ괘淄ʊ괘湚ʊ겂湚ʊ괘洮Ǵ괘淄Ǵ겂淄Ǵ겂洮ʊ괘洮ʊ괘淄ʊ겂淄ʊ괘沘Ǵ괘洮Ǵ겂洮Ǵ겂沘ʊ괘沘ʊ괘洮ʊ겂洮ʊ괘氂Ǵ괘沘Ǵ겂沘Ǵ겂氂ʊ괘氂ʊ괘沘ʊ겂沘ʊ궚殷Ǵ궚汍Ǵ괄汍Ǵ괄殷ʊ궚殷ʊ궚汍ʊ괄汍ʊ긜歬Ǵ긜氂Ǵ궆氂Ǵ궆歬ʊ긜歬ʊ긜氂ʊ궆氂ʊ꺞次Ǵ꺞殷Ǵ금殷Ǵ금次ʊ꺞次ʊ꺞殷ʊ금殷ʊ긜櫖Ǵ긜歬Ǵ궆歬Ǵ궆櫖ʊ긜櫖ʊ긜歬ʊ궆歬ʊ궚檋Ǵ궚次Ǵ괄次Ǵ괄檋ʊ궚檋ʊ궚次ʊ괄次ʊ괘橀Ǵ괘櫖Ǵ겂櫖Ǵ겂橀ʊ괘橀ʊ괘櫖ʊ겂櫖ʊ괘榪Ǵ괘橀Ǵ겂橀Ǵ겂榪ʊ괘榪ʊ괘橀ʊ겂橀ʊ괘椔Ǵ괘榪Ǵ겂榪Ǵ겂椔ʊ괘椔ʊ괘榪ʊ겂榪ʊ괘桾Ǵ괘��Ǵ겂椔Ǵ겂桾ʊ괘桾ʊ괘椔ʊ겂椔ʊ겖棉Ǵ겖楟Ǵ가楟Ǵ가棉ʊ겖棉ʊ겖楟ʊ가楟ʊ갔椔Ǵ갔榪Ǵꭾ榪Ǵꭾ椔ʊ갔椔ʊ갔榪ʊꭾ榪ʊꮒ楟Ǵꮒ槵Ǵ꫼槵Ǵ꫼楟ʊꮒ楟ʊꮒ槵ʊ꫼槵ʊ꬐椔Ǵ꬐榪Ǵꩺ榪Ǵꩺ椔ʊ꬐椔ʊ꬐榪ʊꩺ榪ʊꪏ棉Ǵꪏ楟Ǵ꧹楟Ǵ꧹棉ʊꪏ棉ʊꪏ楟ʊ꧹楟ʊꨍ桾Ǵꨍ椔Ǵꥷ椔Ǵꥷ桾ʊꨍ桾ʊꨍ椔ʊꥷ椔ʊꨍ柨Ǵꨍ桾Ǵꥷ桾Ǵꥷ柨ʊꨍ柨ʊꨍ桾ʊꥷ桾ʊꨍ杒Ǵꨍ柨Ǵꥷ柨Ǵꥷ杒ʊꨍ杒ʊꨍ柨ʊꥷ柨ʊꨍ暼Ǵꨍ杒Ǵꥷ杒Ǵꥷ暼ʊꨍ暼ʊꨍ杒ʊꥷ杒ʊꪏ晱Ǵꪏ朇Ǵ꧹朇Ǵ꧹晱ʊꪏ晱ʊꪏ朇ʊ꧹朇ʊ꬐昦Ǵ꬐暼Ǵꩺ暼Ǵꩺ昦ʊ꬐昦ʊ꬐暼ʊꩺ暼ʊꮒ旛Ǵꮒ晱Ǵ꫼晱Ǵ꫼旛ʊꮒ旛ʊꮒ晱ʊ꫼晱ʊ꬐斐Ǵ꬐昦Ǵꩺ昦Ǵꩺ斐ʊ꬐斐ʊ꬐昦ʊꩺ昦ʊꪏ故Ǵꪏ旛Ǵ꧹旛Ǵ꧹故ʊꪏ故ʊꪏ旛ʊ꧹旛ʊꨍ擺Ǵꨍ斐Ǵꥷ斐Ǵꥷ擺ʊꨍ擺ʊꨍ斐ʊꥷ斐ʊꨍ摤Ǵꨍ擺Ǵꥷ擺Ǵꥷ摤ʊꨍ摤ʊꨍ擺ʊꥷ擺ʊꨍ揎Ǵꨍ摤Ǵꥷ摤Ǵꥷ揎ʊꨍ揎ʊꨍ摤ʊꥷ摤ʊꨍ挸Ǵꨍ揎Ǵꥷ揎Ǵꥷ��ʊꨍ挸ʊꨍ揎ʊꥷ揎ʊꦋ掃Ǵꦋ搙Ǵꣵ搙Ǵꣵ掃ʊꦋ掃ʊꦋ搙ʊꣵ搙ʊ꤉揎Ǵ꤉摤Ǵꡳ摤Ǵꡳ揎ʊ꤉揎ʊ꤉摤ʊꡳ摤ʊꢇ搙Ǵꢇ撯Ǵ꟱撯Ǵ꟱搙ʊꢇ搙ʊꢇ撯ʊ꟱撯ʊꠅ揎Ǵꠅ摤Ǵꝯ摤Ǵꝯ揎ʊꠅ揎ʊꠅ摤ʊꝯ摤ʊꞃ掃Ǵꞃ搙Ǵꛭ搙Ǵꛭ掃ʊꞃ掃ʊꞃ搙ʊꛭ搙ʊ꜁挸Ǵ꜁揎Ǵꙫ揎Ǵꙫ挸ʊ꜁挸ʊ꜁揎ʊꙫ揎ʊ꜁揎Ǵ꜁摤Ǵꙫ摤Ǵꙫ揎ʊ꜁揎ʊ꜁摤ʊꙫ摤ʊ꜁摤Ǵ꜁擺Ǵꙫ擺Ǵꙫ摤ʊ꜁摤ʊ꜁擺ʊꙫ擺ʊ꜁擺Ǵ꜁斐Ǵꙫ斐Ǵꙫ擺ʊ꜁擺ʊ꜁斐ʊꙫ斐ʊꙿ故Ǵꙿ旛Ǵꗩ旛Ǵꗩ故ʊꙿ故ʊꙿ旛ʊꗩ旛ʊꗽ斐Ǵꗽ昦Ǵꕧ昦Ǵꕧ斐ʊꗽ斐ʊꗽ昦ʊꕧ昦ʊꕼ旛Ǵꕼ晱Ǵꓦ晱Ǵꓦ旛ʊꕼ旛ʊꕼ晱ʊꓦ晱ʊꓺ斐Ǵꓺ昦Ǵꑤ昦Ǵꑤ斐ʊꓺ斐ʊꓺ昦ʊꑤ昦ʊꑸ故Ǵꑸ旛Ǵꏢ旛Ǵꏢ故ʊꑸ故ʊꑸ旛ʊꏢ旛ʊꏶ擺Ǵꏶ斐Ǵꍠ斐Ǵꍠ擺ʊꏶ擺ʊꏶ斐ʊꍠ斐ʊꏶ摤Ǵꏶ擺Ǵꍠ擺Ǵꍠ摤ʊꏶ摤ʊꏶ擺ʊꍠ擺ʊꏶ揎Ǵꏶ摤Ǵꍠ摤Ǵꍠ揎ʊꏶ揎ʊꏶ摤ʊꍠ摤ʊꏶ挸Ǵꏶ揎Ǵꍠ揎Ǵꍠ挸ʊꏶ挸ʊꏶ��ʊꍠ揎ʊꍴ掃Ǵꍴ搙Ǵꋞ搙Ǵꋞ掃ʊꍴ掃ʊꍴ搙ʊꋞ搙ʊꋲ揎Ǵꋲ摤Ǵꉜ摤Ǵꉜ揎ʊꋲ揎ʊꋲ摤ʊꉜ摤ʊꉰ搙Ǵꉰ撯Ǵꇚ撯Ǵꇚ搙ʊꉰ搙ʊꉰ撯ʊꇚ撯ʊꇮ揎Ǵꇮ摤Ǵꅘ摤Ǵꅘ揎ʊꇮ揎ʊꇮ摤ʊꅘ摤ʊꅬ掃Ǵꅬ搙Ǵꃖ搙Ǵꃖ掃ʊꅬ掃ʊꅬ搙ʊꃖ搙ʊꃪ挸Ǵꃪ揎Ǵꁔ揎Ǵꁔ挸ʊꃪ挸ʊꃪ揎ʊꁔ揎ʊꃪ抢Ǵꃪ挸Ǵꁔ挸Ǵꁔ抢ʊꃪ抢ʊꃪ挸ʊꁔ挸ʊꃪ戌Ǵꃪ抢Ǵꁔ抢Ǵꁔ戌ʊꃪ戌ʊꃪ抢ʊꁔ抢ʊꃪ慶Ǵꃪ戌Ǵꁔ戌Ǵꁔ慶ʊꃪ慶ʊꃪ戌ʊꁔ戌ʊꅬ愫Ǵꅬ懁Ǵꃖ懁Ǵꃖ愫ʊꅬ愫ʊꅬ懁ʊꃖ懁ʊꇮ惠Ǵꇮ慶Ǵꅘ慶Ǵꅘ惠ʊꇮ惠ʊꇮ慶ʊꅘ慶ʊꉰ悕Ǵꉰ愫Ǵꇚ愫Ǵꇚ悕ʊꉰ悕ʊꉰ愫ʊꇚ愫ʊꇮ恊Ǵꇮ惠Ǵꅘ惠Ǵꅘ恊ʊꇮ恊ʊꇮ惠ʊꅘ惠ʊꅬ忿Ǵꅬ悕Ǵꃖ悕Ǵꃖ忿ʊꅬ忿ʊꅬ悕ʊꃖ悕ʊꃪ徴Ǵꃪ恊Ǵꁔ恊Ǵꁔ徴ʊꃪ徴ʊꃪ恊ʊꁔ恊ʊꃪ弞Ǵꃪ徴Ǵꁔ徴Ǵꁔ弞ʊꃪ弞ʊꃪ徴ʊꁔ徴ʊꃪ庈Ǵꃪ弞Ǵꁔ弞Ǵꁔ庈ʊꃪ庈ʊꃪ弞ʊꁔ弞ʊꃪ已Ǵꃪ庈Ǵꁔ庈Ǵꁔ已ʊꃪ已ʊꃪ庈ʊꁔ庈ʊꅬ��Ǵꅬ帽Ǵꃖ帽Ǵꃖ嶧ʊꅬ嶧ʊꅬ帽ʊꃖ帽ʊꇮ嵜Ǵꇮ已Ǵꅘ已Ǵꅘ嵜ʊꇮ嵜ʊꇮ已ʊꅘ已ʊꉰ崑Ǵꉰ嶧Ǵꇚ嶧Ǵꇚ崑ʊꉰ崑ʊꉰ嶧ʊꇚ嶧ʊꋲ嵜Ǵꋲ已Ǵꉜ已Ǵꉜ嵜ʊꋲ嵜ʊꋲ已ʊꉜ已ʊꍴ嶧Ǵꍴ帽Ǵꋞ帽Ǵꋞ嶧ʊꍴ嶧ʊꍴ帽ʊꋞ帽ʊꏶ已Ǵꏶ庈Ǵꍠ庈Ǵꍠ已ʊꏶ已ʊꏶ庈ʊꍠ庈ʊꏶ嵜Ǵꏶ已Ǵꍠ已Ǵꍠ嵜ʊꏶ嵜ʊꏶ已ʊꍠ已ʊꏶ峆Ǵꏶ嵜Ǵꍠ嵜Ǵꍠ峆ʊꏶ峆ʊꏶ嵜ʊꍠ嵜ʊꏶ尰Ǵꏶ峆Ǵꍠ峆Ǵꍠ尰ʊꏶ尰ʊꏶ峆ʊꍠ峆ʊꑸ寥Ǵꑸ屻Ǵꏢ屻Ǵꏢ寥ʊꑸ寥ʊꑸ屻ʊꏢ屻ʊꓺ定Ǵꓺ尰Ǵꑤ尰Ǵꑤ定ʊꓺ定ʊꓺ尰ʊꑤ尰ʊꕼ孏Ǵꕼ寥Ǵꓦ寥Ǵꓦ孏ʊꕼ孏ʊꕼ寥ʊꓦ寥ʊꓺ嬄Ǵꓺ定Ǵꑤ定Ǵꑤ嬄ʊꓺ嬄ʊꓺ定ʊꑤ定ʊꑸ媹Ǵꑸ孏Ǵꏢ孏Ǵꏢ媹ʊꑸ媹ʊꑸ孏ʊꏢ孏ʊꏶ婮Ǵꏶ嬄Ǵꍠ嬄Ǵꍠ婮ʊꏶ婮ʊꏶ嬄ʊꍠ嬄ʊꏶ姘Ǵꏶ婮Ǵꍠ婮Ǵꍠ姘ʊꏶ姘ʊꏶ婮ʊꍠ婮ʊꏶ奂Ǵꏶ姘Ǵꍠ姘Ǵꍠ奂ʊꏶ奂ʊꏶ姘ʊꍠ姘ʊꏶ墬Ǵꏶ奂Ǵꍠ奂Ǵꍠ墬ʊꏶ墬ʊꏶ奂ʊꍠ奂ʊꍴ壷Ǵꍴ妍Ǵꋞ��Ǵꋞ壷ʊꍴ壷ʊꍴ妍ʊꋞ妍ʊꋲ奂Ǵꋲ姘Ǵꉜ姘Ǵꉜ奂ʊꋲ奂ʊꋲ姘ʊꉜ姘ʊꉰ妍Ǵꉰ娣Ǵꇚ娣Ǵꇚ妍ʊꉰ妍ʊꉰ娣ʊꇚ娣ʊꇮ奂Ǵꇮ姘Ǵꅘ姘Ǵꅘ奂ʊꇮ奂ʊꇮ姘ʊꅘ姘ʊꅬ壷Ǵꅬ妍Ǵꃖ妍Ǵꃖ壷ʊꅬ壷ʊꅬ妍ʊꃖ妍ʊꃪ墬Ǵꃪ奂Ǵꁔ奂Ǵꁔ墬ʊꃪ墬ʊꃪ奂ʊꁔ奂ʊꃪ堖Ǵꃪ墬Ǵꁔ墬Ǵꁔ堖ʊꃪ堖ʊꃪ墬ʊꁔ墬ʊꃪ垀Ǵꃪ堖Ǵꁔ堖Ǵꁔ垀ʊꃪ垀ʊꃪ堖ʊꁔ堖ʊꃪ囪Ǵꃪ垀Ǵꁔ垀Ǵꁔ囪ʊꃪ囪ʊꃪ垀ʊꁔ垀ʊꅬ嚟Ǵꅬ圵Ǵꃖ圵Ǵꃖ嚟ʊꅬ嚟ʊꅬ圵ʊꃖ圵ʊꇮ噔Ǵꇮ囪Ǵꅘ囪Ǵꅘ噔ʊꇮ噔ʊꇮ囪ʊꅘ囪ʊꉰ嘉Ǵꉰ嚟Ǵꇚ嚟Ǵꇚ嘉ʊꉰ嘉ʊꉰ嚟ʊꇚ嚟ʊꇮ喾Ǵꇮ噔Ǵꅘ噔Ǵꅘ喾ʊꇮ喾ʊꇮ噔ʊꅘ噔ʊꅬ啳Ǵꅬ嘉Ǵꃖ嘉Ǵꃖ啳ʊꅬ啳ʊꅬ嘉ʊꃖ嘉ʊꃪ唨Ǵꃪ喾Ǵꁔ喾Ǵꁔ唨ʊꃪ唨ʊꃪ喾ʊꁔ喾ʊꃪ咒Ǵꃪ唨Ǵꁔ唨Ǵꁔ咒ʊꃪ咒ʊꃪ唨ʊꁔ唨ʊꃪ叼Ǵꃪ咒Ǵꁔ咒Ǵꁔ叼ʊꃪ叼ʊꃪ咒ʊꁔ咒ʊꃪ卦Ǵꃪ叼Ǵꁔ叼Ǵꁔ卦ʊꃪ卦ʊꃪ叼ʊꁔ叼ʊꅬ匛Ǵꅬ厱Ǵꃖ厱Ǵꃖ匛ʊꅬ��ʊꅬ厱ʊꃖ厱ʊꇮ勐Ǵꇮ卦Ǵꅘ卦Ǵꅘ勐ʊꇮ勐ʊꇮ卦ʊꅘ卦ʊꉰ劅Ǵꉰ匛Ǵꇚ匛Ǵꇚ劅ʊꉰ劅ʊꉰ匛ʊꇚ匛ʊꋲ勐Ǵꋲ卦Ǵꉜ卦Ǵꉜ勐ʊꋲ勐ʊꋲ卦ʊꉜ卦ʊꍴ匛Ǵꍴ厱Ǵꋞ厱Ǵꋞ匛ʊꍴ匛ʊꍴ厱ʊꋞ厱ʊꏶ卦Ǵꏶ叼Ǵꍠ叼Ǵꍠ卦ʊꏶ卦ʊꏶ叼ʊꍠ叼ʊꏶ勐Ǵꏶ卦Ǵꍠ卦Ǵꍠ勐ʊꏶ勐ʊꏶ卦ʊꍠ卦ʊꏶ刺Ǵꏶ勐Ǵꍠ勐Ǵꍠ刺ʊꏶ刺ʊꏶ勐ʊꍠ勐ʊꏶ冤Ǵꏶ刺Ǵꍠ刺Ǵꍠ冤ʊꏶ冤ʊꏶ刺ʊꍠ刺ʊꑸ兙Ǵꑸ凯Ǵꏢ凯Ǵꏢ兙ʊꑸ兙ʊꑸ凯ʊꏢ凯ʊꓺ儎Ǵꓺ冤Ǵꑤ冤Ǵꑤ儎ʊꓺ儎ʊꓺ冤ʊꑤ冤ʊꕼ僃Ǵꕼ兙Ǵꓦ兙Ǵꓦ僃ʊꕼ僃ʊꕼ兙ʊꓦ兙ʊꗽ儎Ǵꗽ冤Ǵꕧ冤Ǵꕧ儎ʊꗽ儎ʊꗽ冤ʊꕧ冤ʊꙿ兙Ǵꙿ凯Ǵꗩ凯Ǵꗩ兙ʊꙿ兙ʊꙿ凯ʊꗩ凯ʊ꜁冤Ǵ꜁刺Ǵꙫ刺Ǵꙫ冤ʊ꜁冤ʊ꜁刺ʊꙫ刺ʊ꜁刺Ǵ꜁勐Ǵꙫ勐Ǵꙫ刺ʊ꜁刺ʊ꜁勐ʊꙫ勐ʊ꜁勐Ǵ꜁卦Ǵꙫ卦Ǵꙫ勐ʊ꜁勐ʊ꜁卦ʊꙫ卦ʊ꜁卦Ǵ꜁叼Ǵꙫ叼Ǵꙫ卦ʊ꜁卦ʊ꜁叼ʊꙫ叼ʊꞃ匛Ǵꞃ厱Ǵꛭ厱Ǵꛭ匛ʊꞃ匛ʊꞃ厱ʊꛭ��ʊꠅ勐Ǵꠅ卦Ǵꝯ卦Ǵꝯ勐ʊꠅ勐ʊꠅ卦ʊꝯ卦ʊꢇ劅Ǵꢇ匛Ǵ꟱匛Ǵ꟱劅ʊꢇ劅ʊꢇ匛ʊ꟱匛ʊ꤉勐Ǵ꤉卦Ǵꡳ卦Ǵꡳ勐ʊ꤉勐ʊ꤉卦ʊꡳ卦ʊꦋ匛Ǵꦋ厱Ǵꣵ厱Ǵꣵ匛ʊꦋ匛ʊꦋ厱ʊꣵ厱ʊꨍ卦Ǵꨍ叼Ǵꥷ叼Ǵꥷ卦ʊꨍ卦ʊꨍ叼ʊꥷ叼ʊꨍ勐Ǵꨍ卦Ǵꥷ卦Ǵꥷ勐ʊꨍ勐ʊꨍ卦ʊꥷ卦ʊꨍ刺Ǵꨍ勐Ǵꥷ勐Ǵꥷ刺ʊꨍ刺ʊꨍ勐ʊꥷ勐ʊꨍ冤Ǵꨍ刺Ǵꥷ刺Ǵꥷ冤ʊꨍ冤ʊꨍ刺ʊꥷ刺ʊꪏ兙Ǵꪏ凯Ǵ꧹凯Ǵ꧹兙ʊꪏ兙ʊꪏ凯ʊ꧹凯ʊ꬐儎Ǵ꬐冤Ǵꩺ冤Ǵꩺ儎ʊ꬐儎ʊ꬐冤ʊꩺ冤ʊꮒ僃Ǵꮒ兙Ǵ꫼兙Ǵ꫼僃ʊꮒ僃ʊꮒ兙ʊ꫼兙ʊ꬐偸Ǵ꬐儎Ǵꩺ儎Ǵꩺ偸ʊ꬐偸ʊ꬐儎ʊꩺ儎ʊꪏ倭Ǵꪏ僃Ǵ꧹僃Ǵ꧹倭ʊꪏ倭ʊꪏ僃ʊ꧹僃ʊꨍ俢Ǵꨍ偸Ǵꥷ偸Ǵꥷ俢ʊꨍ俢ʊꨍ偸ʊꥷ偸ʊꨍ佌Ǵꨍ俢Ǵꥷ俢Ǵꥷ佌ʊꨍ佌ʊꨍ俢ʊꥷ俢ʊꨍ亶Ǵꨍ佌Ǵꥷ佌Ǵꥷ亶ʊꨍ亶ʊꨍ佌ʊꥷ佌ʊꨍ丠Ǵꨍ亶Ǵꥷ亶Ǵꥷ丠ʊꨍ丠ʊꨍ亶ʊꥷ亶ʊꪏ䷕Ǵꪏ乫Ǵ꧹乫Ǵ꧹䷕ʊꪏ䷕ʊꪏ乫ʊ꧹乫ʊ꬐䶊Ǵ꬐��Ǵꩺ丠Ǵꩺ䶊ʊ꬐䶊ʊ꬐丠ʊꩺ丠ʊꮒ䴿Ǵꮒ䷕Ǵ꫼䷕Ǵ꫼䴿ʊꮒ䴿ʊꮒ䷕ʊ꫼䷕ʊ갔䶊Ǵ갔丠Ǵꭾ丠Ǵꭾ䶊ʊ갔䶊ʊ갔丠ʊꭾ丠ʊ겖䷕Ǵ겖乫Ǵ가乫Ǵ가䷕ʊ겖䷕ʊ겖乫ʊ가乫ʊ괘丠Ǵ괘亶Ǵ겂亶Ǵ겂丠ʊ괘丠ʊ괘亶ʊ겂亶ʊ괘䶊Ǵ괘丠Ǵ겂丠Ǵ겂䶊ʊ괘䶊ʊ괘丠ʊ겂丠ʊ괘䳴Ǵ괘䶊Ǵ겂䶊Ǵ겂䳴ʊ괘䳴ʊ괘䶊ʊ겂䶊ʊ괘䱞Ǵ괘䳴Ǵ겂䳴Ǵ겂䱞ʊ괘䱞ʊ괘䳴ʊ겂䳴ʊ궚䰓Ǵ궚䲩Ǵ괄䲩Ǵ괄䰓ʊ궚䰓ʊ궚䲩ʊ괄䲩ʊ긜䯈Ǵ긜䱞Ǵ궆䱞Ǵ궆䯈ʊ긜䯈ʊ긜䱞ʊ궆䱞ʊ꺞䭽Ǵ꺞䰓Ǵ금䰓Ǵ금䭽ʊ꺞䭽ʊ꺞䰓ʊ금䰓ʊ꼠䯈Ǵ꼠䱞Ǵ꺊䱞Ǵ꺊䯈ʊ꼠䯈ʊ꼠䱞ʊ꺊䱞ʊ꾢䰓Ǵ꾢䲩Ǵ꼌䲩Ǵ꼌䰓ʊ꾢䰓ʊ꾢䲩ʊ꼌䲩ʊ뀤䱞Ǵ뀤䳴Ǵ꾎䳴Ǵ꾎䱞ʊ뀤䱞ʊ뀤䳴ʊ꾎䳴ʊ뀤䳴Ǵ뀤䶊Ǵ꾎䶊Ǵ꾎䳴ʊ뀤䳴ʊ뀤䶊ʊ꾎䶊ʊ뀤䶊Ǵ뀤丠Ǵ꾎丠Ǵ꾎䶊ʊ뀤䶊ʊ뀤丠ʊ꾎丠ʊ뀤丠Ǵ뀤亶Ǵ꾎亶Ǵ꾎丠ʊ뀤丠ʊ뀤亶ʊ꾎亶ʊ낥䷕Ǵ낥乫Ǵ뀏乫Ǵ뀏䷕ʊ낥䷕ʊ낥乫ʊ뀏乫ʊ넧䶊Ǵ넧丠Ǵ낑丠Ǵ낑��ʊ넧䶊ʊ넧丠ʊ낑丠ʊ놩䴿Ǵ놩䷕Ǵ넓䷕Ǵ넓䴿ʊ놩䴿ʊ놩䷕ʊ넓䷕ʊ눫䶊Ǵ눫丠Ǵ놕丠Ǵ놕䶊ʊ눫䶊ʊ눫丠ʊ놕丠ʊ늭䷕Ǵ늭乫Ǵ눗乫Ǵ눗䷕ʊ늭䷕ʊ늭乫ʊ눗乫ʊ댯丠Ǵ댯亶Ǵ늙亶Ǵ늙丠ʊ댯丠ʊ댯亶ʊ늙亶ʊ댯亶Ǵ댯佌Ǵ늙佌Ǵ늙亶ʊ댯亶ʊ댯佌ʊ늙佌ʊ댯佌Ǵ댯俢Ǵ늙俢Ǵ늙佌ʊ댯佌ʊ댯俢ʊ늙俢ʊ댯俢Ǵ댯偸Ǵ늙偸Ǵ늙俢ʊ댯俢ʊ댯偸ʊ늙偸ʊ늭倭Ǵ늭僃Ǵ눗僃Ǵ눗倭ʊ늭倭ʊ늭僃ʊ눗僃ʊ눫偸Ǵ눫儎Ǵ놕儎Ǵ놕偸ʊ눫偸ʊ눫儎ʊ놕儎ʊ놩僃Ǵ놩兙Ǵ넓兙Ǵ넓僃ʊ놩僃ʊ놩兙ʊ넓兙ʊ눫儎Ǵ눫冤Ǵ놕冤Ǵ놕儎ʊ눫儎ʊ눫冤ʊ놕冤ʊ늭兙Ǵ늭凯Ǵ눗凯Ǵ눗兙ʊ늭兙ʊ늭凯ʊ눗凯ʊ댯冤Ǵ댯刺Ǵ늙刺Ǵ늙冤ʊ댯冤ʊ댯刺ʊ늙刺ʊ댯刺Ǵ댯勐Ǵ늙勐Ǵ늙刺ʊ댯刺ʊ댯勐ʊ늙勐ʊ댯勐Ǵ댯卦Ǵ늙卦Ǵ늙勐ʊ댯勐ʊ댯卦ʊ늙卦ʊ댯卦Ǵ댯叼Ǵ늙叼Ǵ늙卦ʊ댯卦ʊ댯叼ʊ늙叼ʊ뎱匛Ǵ뎱厱Ǵ댛厱Ǵ댛匛ʊ뎱匛ʊ뎱厱ʊ댛厱ʊ됳勐Ǵ됳卦Ǵ뎝卦Ǵ뎝勐ʊ됳勐ʊ됳��ʊ뎝卦ʊ뒵劅Ǵ뒵匛Ǵ됟匛Ǵ됟劅ʊ뒵劅ʊ뒵匛ʊ됟匛ʊ딷勐Ǵ딷卦Ǵ뒡卦Ǵ뒡勐ʊ딷勐ʊ딷卦ʊ뒡卦ʊ떸匛Ǵ떸厱Ǵ딢厱Ǵ딢匛ʊ떸匛ʊ떸厱ʊ딢厱ʊ똺卦Ǵ똺叼Ǵ떤叼Ǵ떤卦ʊ똺卦ʊ똺叼ʊ떤叼ʊ똺勐Ǵ똺卦Ǵ떤卦Ǵ떤勐ʊ똺勐ʊ똺卦ʊ떤卦ʊ똺刺Ǵ똺勐Ǵ떤勐Ǵ떤刺ʊ똺刺ʊ똺勐ʊ떤勐ʊ똺冤Ǵ똺刺Ǵ떤刺Ǵ떤冤ʊ똺冤ʊ똺刺ʊ떤刺ʊ뚼兙Ǵ뚼凯Ǵ똦凯Ǵ똦兙ʊ뚼兙ʊ뚼凯ʊ똦凯ʊ뜾儎Ǵ뜾冤Ǵ뚨冤Ǵ뚨儎ʊ뜾儎ʊ뜾冤ʊ뚨冤ʊ럀僃Ǵ럀兙Ǵ뜪兙Ǵ뜪僃ʊ럀僃ʊ럀兙ʊ뜪兙ʊ롂儎Ǵ롂冤Ǵ랬冤Ǵ랬儎ʊ롂儎ʊ롂冤ʊ랬冤ʊ룄兙Ǵ룄凯Ǵ렮凯Ǵ렮兙ʊ룄兙ʊ룄凯ʊ렮凯ʊ륆冤Ǵ륆刺Ǵ뢰刺Ǵ뢰冤ʊ륆冤ʊ륆刺ʊ뢰刺ʊ륆刺Ǵ륆勐Ǵ뢰勐Ǵ뢰刺ʊ륆刺ʊ륆勐ʊ뢰勐ʊ륆勐Ǵ륆卦Ǵ뢰卦Ǵ뢰勐ʊ륆勐ʊ륆卦ʊ뢰卦ʊ륆卦Ǵ륆叼Ǵ뢰叼Ǵ뢰卦ʊ륆卦ʊ륆叼ʊ뢰叼ʊ마匛Ǵ마厱Ǵ뤲厱Ǵ뤲匛ʊ마匛ʊ마厱ʊ뤲厱ʊ멊勐Ǵ멊卦Ǵ릴卦Ǵ릴勐ʊ멊勐ʊ멊卦ʊ릴卦ʊ뫌��Ǵ뫌匛Ǵ먶匛Ǵ먶劅ʊ뫌劅ʊ뫌匛ʊ먶匛ʊ뭍勐Ǵ뭍卦Ǵ몷卦Ǵ몷勐ʊ뭍勐ʊ뭍卦ʊ몷卦ʊ믏匛Ǵ믏厱Ǵ묹厱Ǵ묹匛ʊ믏匛ʊ믏厱ʊ묹厱ʊ뱑卦Ǵ뱑叼Ǵ뮻叼Ǵ뮻卦ʊ뱑卦ʊ뱑叼ʊ뮻叼ʊ뱑勐Ǵ뱑卦Ǵ뮻卦Ǵ뮻勐ʊ뱑勐ʊ뱑卦ʊ뮻卦ʊ뱑刺Ǵ뱑勐Ǵ뮻勐Ǵ뮻刺ʊ뱑刺ʊ뱑勐ʊ뮻勐ʊ뱑冤Ǵ뱑刺Ǵ뮻刺Ǵ뮻冤ʊ뱑冤ʊ뱑刺ʊ뮻刺ʊ볓兙Ǵ볓凯Ǵ밽凯Ǵ밽兙ʊ볓兙ʊ볓凯ʊ밽凯ʊ뵕儎Ǵ뵕冤Ǵ벿冤Ǵ벿儎ʊ뵕儎ʊ뵕冤ʊ벿冤ʊ뷗僃Ǵ뷗兙Ǵ뵁兙Ǵ뵁僃ʊ뷗僃ʊ뷗兙ʊ뵁兙ʊ뵕偸Ǵ뵕儎Ǵ벿儎Ǵ벿偸ʊ뵕偸ʊ뵕儎ʊ벿儎ʊ볓倭Ǵ볓僃Ǵ밽僃Ǵ밽倭ʊ볓倭ʊ볓僃ʊ밽僃ʊ뱑俢Ǵ뱑偸Ǵ뮻偸Ǵ뮻俢ʊ뱑俢ʊ뱑偸ʊ뮻偸ʊ뱑佌Ǵ뱑俢Ǵ뮻俢Ǵ뮻佌ʊ뱑佌ʊ뱑俢ʊ뮻俢ʊ뱑亶Ǵ뱑佌Ǵ뮻佌Ǵ뮻亶ʊ뱑亶ʊ뱑佌ʊ뮻佌ʊ뱑丠Ǵ뱑亶Ǵ뮻亶Ǵ뮻丠ʊ뱑丠ʊ뱑亶ʊ뮻亶ʊ볓䷕Ǵ볓乫Ǵ밽乫Ǵ밽䷕ʊ볓䷕ʊ볓乫ʊ밽乫ʊ뵕䶊Ǵ뵕丠Ǵ벿丠Ǵ벿䶊ʊ뵕䶊ʊ뵕丠ʊ벿丠ʊ뷗䴿Ǵ뷗䷕Ǵ뵁��Ǵ뵁䴿ʊ뷗䴿ʊ뷗䷕ʊ뵁䷕ʊ빙䶊Ǵ빙丠Ǵ뷃丠Ǵ뷃䶊ʊ빙䶊ʊ빙丠ʊ뷃丠ʊ뻛䷕Ǵ뻛乫Ǵ빅乫Ǵ빅䷕ʊ뻛䷕ʊ뻛乫ʊ빅乫ʊ뽝丠Ǵ뽝亶Ǵ뻇亶Ǵ뻇丠ʊ뽝丠ʊ뽝亶ʊ뻇亶ʊ뽝䶊Ǵ뽝丠Ǵ뻇丠Ǵ뻇䶊ʊ뽝䶊ʊ뽝丠ʊ뻇丠ʊ뽝䳴Ǵ뽝䶊Ǵ뻇䶊Ǵ뻇䳴ʊ뽝䳴ʊ뽝䶊ʊ뻇䶊ʊ뽝䱞Ǵ뽝䳴Ǵ뻇䳴Ǵ뻇䱞ʊ뽝䱞ʊ뽝䳴ʊ뻇䳴ʊ뿟䰓Ǵ뿟䲩Ǵ뽉䲩Ǵ뽉䰓ʊ뿟䰓ʊ뿟䲩ʊ뽉䲩ʊ쁠䯈Ǵ쁠䱞Ǵ뿊䱞Ǵ뿊䯈ʊ쁠䯈ʊ쁠䱞ʊ뿊䱞ʊ샢䭽Ǵ샢䰓Ǵ쁌䰓Ǵ쁌䭽ʊ샢䭽ʊ샢䰓ʊ쁌䰓ʊ쁠䬲Ǵ쁠䯈Ǵ뿊䯈Ǵ뿊䬲ʊ쁠䬲ʊ쁠䯈ʊ뿊䯈ʊ뿟䫧Ǵ뿟䭽Ǵ뽉䭽Ǵ뽉䫧ʊ뿟䫧ʊ뿟䭽ʊ뽉䭽ʊ뽝䪜Ǵ뽝䬲Ǵ뻇䬲Ǵ뻇䪜ʊ뽝䪜ʊ뽝䬲ʊ뻇䬲ʊ뽝䨆Ǵ뽝䪜Ǵ뻇䪜Ǵ뻇䨆ʊ뽝䨆ʊ뽝䪜ʊ뻇䪜ʊ뽝䥰Ǵ뽝䨆Ǵ뻇䨆Ǵ뻇䥰ʊ뽝䥰ʊ뽝䨆ʊ뻇䨆ʊ뽝䣚Ǵ뽝䥰Ǵ뻇䥰Ǵ뻇䣚ʊ뽝䣚ʊ뽝䥰ʊ뻇䥰ʊ뻛䤥Ǵ뻛䦻Ǵ빅䦻Ǵ빅䤥ʊ뻛䤥ʊ뻛䦻ʊ빅䦻ʊ빙䥰Ǵ빙䨆Ǵ뷃䨆Ǵ뷃䥰ʊ빙䥰ʊ빙䨆ʊ뷃䨆ʊ뷗䦻Ǵ뷗䩑Ǵ뵁䩑Ǵ뵁䦻ʊ뷗��ʊ뷗䩑ʊ뵁䩑ʊ뵕䥰Ǵ뵕䨆Ǵ벿䨆Ǵ벿䥰ʊ뵕䥰ʊ뵕䨆ʊ벿䨆ʊ볓䤥Ǵ볓䦻Ǵ밽䦻Ǵ밽䤥ʊ볓䤥ʊ볓䦻ʊ밽䦻ʊ뱑䣚Ǵ뱑䥰Ǵ뮻䥰Ǵ뮻䣚ʊ뱑䣚ʊ뱑䥰ʊ뮻䥰ʊ뱑䡄Ǵ뱑䣚Ǵ뮻䣚Ǵ뮻䡄ʊ뱑䡄ʊ뱑䣚ʊ뮻䣚ʊ뱑䞮Ǵ뱑䡄Ǵ뮻䡄Ǵ뮻䞮ʊ뱑䞮ʊ뱑䡄ʊ뮻䡄ʊ뱑䜘Ǵ뱑䞮Ǵ뮻䞮Ǵ뮻䜘ʊ뱑䜘ʊ뱑䞮ʊ뮻䞮ʊ볓䛍Ǵ볓䝣Ǵ밽䝣Ǵ밽䛍ʊ볓䛍ʊ볓䝣ʊ밽䝣ʊ뵕䚂Ǵ뵕䜘Ǵ벿䜘Ǵ벿䚂ʊ뵕䚂ʊ뵕䜘ʊ벿䜘ʊ뷗䘷Ǵ뷗䛍Ǵ뵁䛍Ǵ뵁䘷ʊ뷗䘷ʊ뷗䛍ʊ뵁䛍ʊ뵕䗬Ǵ뵕䚂Ǵ벿䚂Ǵ벿䗬ʊ뵕䗬ʊ뵕䚂ʊ벿䚂ʊ볓䖡Ǵ볓䘷Ǵ밽䘷Ǵ밽䖡ʊ볓䖡ʊ볓䘷ʊ밽䘷ʊ뱑䕖Ǵ뱑䗬Ǵ뮻䗬Ǵ뮻䕖ʊ뱑䕖ʊ뱑䗬ʊ뮻䗬ʊ뱑䓀Ǵ뱑䕖Ǵ뮻䕖Ǵ뮻䓀ʊ뱑䓀ʊ뱑䕖ʊ뮻䕖ʊ뱑䐪Ǵ뱑䓀Ǵ뮻䓀Ǵ뮻䐪ʊ뱑䐪ʊ뱑䓀ʊ뮻䓀ʊ뱑䎔Ǵ뱑䐪Ǵ뮻䐪Ǵ뮻䎔ʊ뱑䎔ʊ뱑䐪ʊ뮻䐪ʊ볓䍉Ǵ볓䏟Ǵ밽䏟Ǵ밽䍉ʊ볓䍉ʊ볓䏟ʊ밽䏟ʊ뵕䋾Ǵ뵕䎔Ǵ벿䎔Ǵ벿䋾ʊ뵕䋾ʊ뵕䎔ʊ벿䎔ʊ뷗䊳Ǵ뷗䍉Ǵ뵁䍉Ǵ뵁䊳ʊ뷗䊳ʊ뷗䍉ʊ뵁��ʊ빙䋾Ǵ빙䎔Ǵ뷃䎔Ǵ뷃䋾ʊ빙䋾ʊ빙䎔ʊ뷃䎔ʊ뻛䍉Ǵ뻛䏟Ǵ빅䏟Ǵ빅䍉ʊ뻛䍉ʊ뻛䏟ʊ빅䏟ʊ뽝䎔Ǵ뽝䐪Ǵ뻇䐪Ǵ뻇䎔ʊ뽝䎔ʊ뽝䐪ʊ뻇䐪ʊ뽝䋾Ǵ뽝䎔Ǵ뻇䎔Ǵ뻇䋾ʊ뽝䋾ʊ뽝䎔ʊ뻇䎔ʊ뽝䉨Ǵ뽝䋾Ǵ뻇䋾Ǵ뻇䉨ʊ뽝䉨ʊ뽝䋾ʊ뻇䋾ʊ뽝䇒Ǵ뽝䉨Ǵ뻇䉨Ǵ뻇䇒ʊ뽝䇒ʊ뽝䉨ʊ뻇䉨ʊ뿟䆇Ǵ뿟䈝Ǵ뽉䈝Ǵ뽉䆇ʊ뿟䆇ʊ뿟䈝ʊ뽉䈝ʊ쁠䄼Ǵ쁠䇒Ǵ뿊䇒Ǵ뿊䄼ʊ쁠䄼ʊ쁠䇒ʊ뿊䇒ʊ샢䃱Ǵ샢䆇Ǵ쁌䆇Ǵ쁌䃱ʊ샢䃱ʊ샢䆇ʊ쁌䆇ʊ셤䄼Ǵ셤䇒Ǵ샎䇒Ǵ샎䄼ʊ셤䄼ʊ셤䇒ʊ샎䇒ʊ쇦䆇Ǵ쇦䈝Ǵ셐䈝Ǵ셐䆇ʊ쇦䆇ʊ쇦䈝ʊ셐䈝ʊ쉨䇒Ǵ쉨䉨Ǵ쇒䉨Ǵ쇒䇒ʊ쉨䇒ʊ쉨䉨ʊ쇒䉨ʊ쉨䉨Ǵ쉨䋾Ǵ쇒䋾Ǵ쇒䉨ʊ쉨䉨ʊ쉨䋾ʊ쇒䋾ʊ쉨䋾Ǵ쉨䎔Ǵ쇒䎔Ǵ쇒䋾ʊ쉨䋾ʊ쉨䎔ʊ쇒䎔ʊ쉨䎔Ǵ쉨䐪Ǵ쇒䐪Ǵ쇒䎔ʊ쉨䎔ʊ쉨䐪ʊ쇒䐪ʊ싪䍉Ǵ싪䏟Ǵ쉔䏟Ǵ쉔䍉ʊ싪䍉ʊ싪䏟ʊ쉔䏟ʊ썬䋾Ǵ썬䎔Ǵ싖䎔Ǵ싖䋾ʊ썬䋾ʊ썬䎔ʊ싖䎔ʊ쏮䊳Ǵ쏮䍉Ǵ썘䍉Ǵ썘䊳ʊ쏮䊳ʊ쏮䍉ʊ썘䍉ʊ쑰䋾Ǵ쑰��Ǵ쏚䎔Ǵ쏚䋾ʊ쑰䋾ʊ쑰䎔ʊ쏚䎔ʊ쓲䍉Ǵ쓲䏟Ǵ쑜䏟Ǵ쑜䍉ʊ쓲䍉ʊ쓲䏟ʊ쑜䏟ʊ앳䎔Ǵ앳䐪Ǵ쓝䐪Ǵ쓝䎔ʊ앳䎔ʊ앳䐪ʊ쓝䐪ʊ앳䋾Ǵ앳䎔Ǵ쓝䎔Ǵ쓝䋾ʊ앳䋾ʊ앳䎔ʊ쓝䎔ʊ앳䉨Ǵ앳䋾Ǵ쓝䋾Ǵ쓝䉨ʊ앳䉨ʊ앳䋾ʊ쓝䋾ʊ앳䇒Ǵ앳䉨Ǵ쓝䉨Ǵ쓝䇒ʊ앳䇒ʊ앳䉨ʊ쓝䉨ʊ엵䆇Ǵ엵䈝Ǵ앟䈝Ǵ앟䆇ʊ엵䆇ʊ엵䈝ʊ앟䈝ʊ왷䄼Ǵ왷䇒Ǵ엡䇒Ǵ엡䄼ʊ왷䄼ʊ왷䇒ʊ엡䇒ʊ웹䃱Ǵ웹䆇Ǵ왣䆇Ǵ왣䃱ʊ웹䃱ʊ웹䆇ʊ왣䆇ʊ왷䂦Ǵ왷䄼Ǵ엡䄼Ǵ엡䂦ʊ왷䂦ʊ왷䄼ʊ엡䄼ʊ엵䁛Ǵ엵䃱Ǵ앟䃱Ǵ앟䁛ʊ엵䁛ʊ엵䃱ʊ앟䃱ʊ앳䀐Ǵ앳䂦Ǵ쓝䂦Ǵ쓝䀐ʊ앳䀐ʊ앳䂦ʊ쓝䂦ʊ앳㽺Ǵ앳䀐Ǵ쓝䀐Ǵ쓝㽺ʊ앳㽺ʊ앳䀐ʊ쓝䀐ʊ앳㻤Ǵ앳㽺Ǵ쓝㽺Ǵ쓝㻤ʊ앳㻤ʊ앳㽺ʊ쓝㽺ʊ앳㹎Ǵ앳㻤Ǵ쓝㻤Ǵ쓝㹎ʊ앳㹎ʊ앳㻤ʊ쓝㻤ʊ엵㸃Ǵ엵㺙Ǵ앟㺙Ǵ앟㸃ʊ엵㸃ʊ엵㺙ʊ앟㺙ʊ왷㶸Ǵ왷㹎Ǵ엡㹎Ǵ엡㶸ʊ왷㶸ʊ왷㹎ʊ엡㹎ʊ웹㵭Ǵ웹㸃Ǵ왣㸃Ǵ왣㵭ʊ웹㵭ʊ웹㸃ʊ왣㸃ʊ읻㶸Ǵ읻㹎Ǵ웥㹎Ǵ웥��ʊ읻㶸ʊ읻㹎ʊ웥㹎ʊ쟽㸃Ǵ쟽㺙Ǵ읧㺙Ǵ읧㸃ʊ쟽㸃ʊ쟽㺙ʊ읧㺙ʊ졿㹎Ǵ졿㻤Ǵ쟩㻤Ǵ쟩㹎ʊ졿㹎ʊ졿㻤ʊ쟩㻤ʊ졿㶸Ǵ졿㹎Ǵ쟩㹎Ǵ쟩㶸ʊ졿㶸ʊ졿㹎ʊ쟩㹎ʊ졿㴢Ǵ졿㶸Ǵ쟩㶸Ǵ쟩㴢ʊ졿㴢ʊ졿㶸ʊ쟩㶸ʊ졿㲌Ǵ졿㴢Ǵ쟩㴢Ǵ쟩㲌ʊ졿㲌ʊ졿㴢ʊ쟩㴢ʊ줁㱁Ǵ줁㳗Ǵ졫㳗Ǵ졫㱁ʊ줁㱁ʊ줁㳗ʊ졫㳗ʊ즃㯶Ǵ즃㲌Ǵ죭㲌Ǵ죭㯶ʊ즃㯶ʊ즃㲌ʊ죭㲌ʊ쨅㮫Ǵ쨅㱁Ǵ쥯㱁Ǵ쥯㮫ʊ쨅㮫ʊ쨅㱁ʊ쥯㱁ʊ즃㭠Ǵ즃㯶Ǵ죭㯶Ǵ죭㭠ʊ즃㭠ʊ즃㯶ʊ죭㯶ʊ줁㬕Ǵ줁㮫Ǵ졫㮫Ǵ졫㬕ʊ줁㬕ʊ줁㮫ʊ졫㮫ʊ졿㫊Ǵ졿㭠Ǵ쟩㭠Ǵ쟩㫊ʊ졿㫊ʊ졿㭠ʊ쟩㭠ʊ졿㨴Ǵ졿㫊Ǵ쟩㫊Ǵ쟩㨴ʊ졿㨴ʊ졿㫊ʊ쟩㫊ʊ졿㦞Ǵ졿㨴Ǵ쟩㨴Ǵ쟩㦞ʊ졿㦞ʊ졿㨴ʊ쟩㨴ʊ졿㤈Ǵ졿㦞Ǵ쟩㦞Ǵ쟩㤈ʊ졿㤈ʊ졿㦞ʊ쟩㦞ʊ쟽㥓Ǵ쟽㧩Ǵ읧㧩Ǵ읧㥓ʊ쟽㥓ʊ쟽㧩ʊ읧㧩ʊ읻㦞Ǵ읻㨴Ǵ웥㨴Ǵ웥㦞ʊ읻㦞ʊ읻㨴ʊ웥㨴ʊ웹㧩Ǵ웹㩿Ǵ왣㩿Ǵ왣㧩ʊ웹㧩ʊ웹㩿ʊ왣㩿ʊ왷㦞Ǵ왷㨴Ǵ엡㨴Ǵ엡㦞ʊ왷㦞ʊ왷��ʊ엡㨴ʊ엵㥓Ǵ엵㧩Ǵ앟㧩Ǵ앟㥓ʊ엵㥓ʊ엵㧩ʊ앟㧩ʊ앳㤈Ǵ앳㦞Ǵ쓝㦞Ǵ쓝㤈ʊ앳㤈ʊ앳㦞ʊ쓝㦞ʊ앳㡲Ǵ앳㤈Ǵ쓝㤈Ǵ쓝㡲ʊ앳㡲ʊ앳㤈ʊ쓝㤈ʊ앳㟜Ǵ앳㡲Ǵ쓝㡲Ǵ쓝㟜ʊ앳㟜ʊ앳㡲ʊ쓝㡲ʊ앳㝆Ǵ앳㟜Ǵ쓝㟜Ǵ쓝㝆ʊ앳㝆ʊ앳㟜ʊ쓝㟜ʊ엵㛻Ǵ엵㞑Ǵ앟㞑Ǵ앟㛻ʊ엵㛻ʊ엵㞑ʊ앟㞑ʊ왷㚰Ǵ왷㝆Ǵ엡㝆Ǵ엡㚰ʊ왷㚰ʊ왷㝆ʊ엡㝆ʊ웹㙥Ǵ웹㛻Ǵ왣㛻Ǵ왣㙥ʊ웹㙥ʊ웹㛻ʊ왣㛻ʊ왷㘚Ǵ왷㚰Ǵ엡㚰Ǵ엡㘚ʊ왷㘚ʊ왷㚰ʊ엡㚰ʊ엵㗏Ǵ엵㙥Ǵ앟㙥Ǵ앟㗏ʊ엵㗏ʊ엵㙥ʊ앟㙥ʊ앳㖄Ǵ앳㘚Ǵ쓝㘚Ǵ쓝㖄ʊ앳㖄ʊ앳㘚ʊ쓝㘚ʊ앳㓮Ǵ앳㖄Ǵ쓝㖄Ǵ쓝㓮ʊ앳㓮ʊ앳㖄ʊ쓝㖄ʊ앳㑘Ǵ앳㓮Ǵ쓝㓮Ǵ쓝㑘ʊ앳㑘ʊ앳㓮ʊ쓝㓮ʊ앳㏂Ǵ앳㑘Ǵ쓝㑘Ǵ쓝㏂ʊ앳㏂ʊ앳㑘ʊ쓝㑘ʊ쓲㐍Ǵ쓲㒣Ǵ쑜㒣Ǵ쑜㐍ʊ쓲㐍ʊ쓲㒣ʊ쑜㒣ʊ쑰㑘Ǵ쑰㓮Ǵ쏚㓮Ǵ쏚㑘ʊ쑰㑘ʊ쑰㓮ʊ쏚㓮ʊ쏮㒣Ǵ쏮㔹Ǵ썘㔹Ǵ썘㒣ʊ쏮㒣ʊ쏮㔹ʊ썘㔹ʊ썬㑘Ǵ썬㓮Ǵ싖㓮Ǵ싖㑘ʊ썬㑘ʊ썬㓮ʊ싖㓮ʊ싪��Ǵ싪㒣Ǵ쉔㒣Ǵ쉔㐍ʊ싪㐍ʊ싪㒣ʊ쉔㒣ʊ쉨㏂Ǵ쉨㑘Ǵ쇒㑘Ǵ쇒㏂ʊ쉨㏂ʊ쉨㑘ʊ쇒㑘ʊ쉨㑘Ǵ쉨㓮Ǵ쇒㓮Ǵ쇒㑘ʊ쉨㑘ʊ쉨㓮ʊ쇒㓮ʊ쉨㓮Ǵ쉨㖄Ǵ쇒㖄Ǵ쇒㓮ʊ쉨㓮ʊ쉨㖄ʊ쇒㖄ʊ쉨㖄Ǵ쉨㘚Ǵ쇒㘚Ǵ쇒㖄ʊ쉨㖄ʊ쉨㘚ʊ쇒㘚ʊ쇦㗏Ǵ쇦㙥Ǵ셐㙥Ǵ셐㗏ʊ쇦㗏ʊ쇦㙥ʊ셐㙥ʊ셤㘚Ǵ셤㚰Ǵ샎㚰Ǵ샎㘚ʊ셤㘚ʊ셤㚰ʊ샎㚰ʊ샢㙥Ǵ샢㛻Ǵ쁌㛻Ǵ쁌㙥ʊ샢㙥ʊ샢㛻ʊ쁌㛻ʊ쁠㘚Ǵ쁠㚰Ǵ뿊㚰Ǵ뿊㘚ʊ쁠㘚ʊ쁠㚰ʊ뿊㚰ʊ뿟㗏Ǵ뿟㙥Ǵ뽉㙥Ǵ뽉㗏ʊ뿟㗏ʊ뿟㙥ʊ뽉㙥ʊ뽝㖄Ǵ뽝㘚Ǵ뻇㘚Ǵ뻇㖄ʊ뽝㖄ʊ뽝㘚ʊ뻇㘚ʊ뽝㓮Ǵ뽝㖄Ǵ뻇㖄Ǵ뻇㓮ʊ뽝㓮ʊ뽝㖄ʊ뻇㖄ʊ뽝㑘Ǵ뽝㓮Ǵ뻇㓮Ǵ뻇㑘ʊ뽝㑘ʊ뽝㓮ʊ뻇㓮ʊ뽝㏂Ǵ뽝㑘Ǵ뻇㑘Ǵ뻇㏂ʊ뽝㏂ʊ뽝㑘ʊ뻇㑘ʊ뻛㐍Ǵ뻛㒣Ǵ빅㒣Ǵ빅㐍ʊ뻛㐍ʊ뻛㒣ʊ빅㒣ʊ빙㑘Ǵ빙㓮Ǵ뷃㓮Ǵ뷃㑘ʊ빙㑘ʊ빙㓮ʊ뷃㓮ʊ뷗㒣Ǵ뷗㔹Ǵ뵁㔹Ǵ뵁㒣ʊ뷗㒣ʊ뷗㔹ʊ뵁㔹ʊ뵕㑘Ǵ뵕㓮Ǵ벿㓮Ǵ벿㑘ʊ뵕㑘ʊ뵕㓮ʊ벿㓮ʊ볓㐍Ǵ볓㒣Ǵ밽��Ǵ밽㐍ʊ볓㐍ʊ볓㒣ʊ밽㒣ʊ뱑㏂Ǵ뱑㑘Ǵ뮻㑘Ǵ뮻㏂ʊ뱑㏂ʊ뱑㑘ʊ뮻㑘ʊ뱑㌬Ǵ뱑㏂Ǵ뮻㏂Ǵ뮻㌬ʊ뱑㌬ʊ뱑㏂ʊ뮻㏂ʊ뱑㊖Ǵ뱑㌬Ǵ뮻㌬Ǵ뮻㊖ʊ뱑㊖ʊ뱑㌬ʊ뮻㌬ʊ뱑㈀Ǵ뱑㊖Ǵ뮻㊖Ǵ뮻㈀ʊ뱑㈀ʊ뱑㊖ʊ뮻㊖ʊ볓ㆵǴ볓㉋Ǵ밽㉋Ǵ밽ㆵʊ볓ㆵʊ볓㉋ʊ밽㉋ʊ뵕ㅪǴ뵕㈀Ǵ벿㈀Ǵ벿ㅪʊ뵕ㅪʊ뵕㈀ʊ벿㈀ʊ뷗ㄟǴ뷗ㆵǴ뵁ㆵǴ뵁ㄟʊ뷗ㄟʊ뷗ㆵʊ뵁ㆵʊ뵕ピǴ뵕ㅪǴ벿ㅪǴ벿ピʊ뵕ピʊ뵕ㅪʊ벿ㅪʊ볓らǴ볓ㄟǴ밽ㄟǴ밽らʊ볓らʊ볓ㄟʊ밽ㄟʊ뱑〾Ǵ뱑ピǴ뮻ピǴ뮻〾ʊ뱑〾ʊ뱑ピʊ뮻ピʊ뱑⾨Ǵ뱑〾Ǵ뮻〾Ǵ뮻⾨ʊ뱑⾨ʊ뱑〾ʊ뮻〾ʊ뱑⼒Ǵ뱑⾨Ǵ뮻⾨Ǵ뮻⼒ʊ뱑⼒ʊ뱑⾨ʊ뮻⾨ʊ뱑⹼Ǵ뱑⼒Ǵ뮻⼒Ǵ뮻⹼ʊ뱑⹼ʊ뱑⼒ʊ뮻⼒ʊ볓⸱Ǵ볓⻇Ǵ밽⻇Ǵ밽⸱ʊ볓⸱ʊ볓⻇ʊ밽⻇ʊ뵕ⷦǴ뵕⹼Ǵ벿⹼Ǵ벿ⷦʊ뵕ⷦʊ뵕⹼ʊ벿⹼ʊ뷗⶛Ǵ뷗⸱Ǵ뵁⸱Ǵ뵁⶛ʊ뷗⶛ʊ뷗⸱ʊ뵁⸱ʊ빙ⷦǴ빙⹼Ǵ뷃⹼Ǵ뷃ⷦʊ빙ⷦʊ빙⹼ʊ뷃⹼ʊ뻛⸱Ǵ뻛⻇Ǵ빅⻇Ǵ빅⸱ʊ뻛��ʊ뻛⻇ʊ빅⻇ʊ뽝⹼Ǵ뽝⼒Ǵ뻇⼒Ǵ뻇⹼ʊ뽝⹼ʊ뽝⼒ʊ뻇⼒ʊ뽝ⷦǴ뽝⹼Ǵ뻇⹼Ǵ뻇ⷦʊ뽝ⷦʊ뽝⹼ʊ뻇⹼ʊ뽝ⵐǴ뽝ⷦǴ뻇ⷦǴ뻇ⵐʊ뽝ⵐʊ뽝ⷦʊ뻇ⷦʊ뽝ⲺǴ뽝ⵐǴ뻇ⵐǴ뻇Ⲻʊ뽝Ⲻʊ뽝ⵐʊ뻇ⵐʊ뿟ⱯǴ뿟ⴅǴ뽉ⴅǴ뽉Ɐʊ뿟Ɐʊ뿟ⴅʊ뽉ⴅʊ쁠ⰤǴ쁠ⲺǴ뿊ⲺǴ뿊Ⱔʊ쁠Ⱔʊ쁠Ⲻʊ뿊Ⲻʊ샢⯙Ǵ샢ⱯǴ쁌ⱯǴ쁌⯙ʊ샢⯙ʊ샢Ɐʊ쁌Ɐʊ쁠⮎Ǵ쁠ⰤǴ뿊ⰤǴ뿊⮎ʊ쁠⮎ʊ쁠Ⱔʊ뿊Ⱔʊ뿟⭃Ǵ뿟⯙Ǵ뽉⯙Ǵ뽉⭃ʊ뿟⭃ʊ뿟⯙ʊ뽉⯙ʊ뽝⫸Ǵ뽝⮎Ǵ뻇⮎Ǵ뻇⫸ʊ뽝⫸ʊ뽝⮎ʊ뻇⮎ʊ뽝⩢Ǵ뽝⫸Ǵ뻇⫸Ǵ뻇⩢ʊ뽝⩢ʊ뽝⫸ʊ뻇⫸ʊ뽝⧌Ǵ뽝⩢Ǵ뻇⩢Ǵ뻇⧌ʊ뽝⧌ʊ뽝⩢ʊ뻇⩢ʊ뽝⤶Ǵ뽝⧌Ǵ뻇⧌Ǵ뻇⤶ʊ뽝⤶ʊ뽝⧌ʊ뻇⧌ʊ뻛⦁Ǵ뻛⨗Ǵ빅⨗Ǵ빅⦁ʊ뻛⦁ʊ뻛⨗ʊ빅⨗ʊ빙⧌Ǵ빙⩢Ǵ뷃⩢Ǵ뷃⧌ʊ빙⧌ʊ빙⩢ʊ뷃⩢ʊ뷗⨗Ǵ뷗⪭Ǵ뵁⪭Ǵ뵁⨗ʊ뷗⨗ʊ뷗⪭ʊ뵁⪭ʊ뵕⧌Ǵ뵕⩢Ǵ벿⩢Ǵ벿⧌ʊ뵕⧌ʊ뵕⩢ʊ벿⩢ʊ볓⦁Ǵ볓⨗Ǵ밽⨗Ǵ밽⦁ʊ볓⦁ʊ볓⨗ʊ밽��ʊ뱑⤶Ǵ뱑⧌Ǵ뮻⧌Ǵ뮻⤶ʊ뱑⤶ʊ뱑⧌ʊ뮻⧌ʊ뱑⢠Ǵ뱑⤶Ǵ뮻⤶Ǵ뮻⢠ʊ뱑⢠ʊ뱑⤶ʊ뮻⤶ʊ뱑⠊Ǵ뱑⢠Ǵ뮻⢠Ǵ뮻⠊ʊ뱑⠊ʊ뱑⢠ʊ뮻⢠ʊ뱑❴Ǵ뱑⠊Ǵ뮻⠊Ǵ뮻❴ʊ뱑❴ʊ뱑⠊ʊ뮻⠊ʊ볓✩Ǵ볓➿Ǵ밽➿Ǵ밽✩ʊ볓✩ʊ볓➿ʊ밽➿ʊ뵕⛞Ǵ뵕❴Ǵ벿❴Ǵ벿⛞ʊ뵕⛞ʊ뵕❴ʊ벿❴ʊ뷗⚓Ǵ뷗✩Ǵ뵁✩Ǵ뵁⚓ʊ뷗⚓ʊ뷗✩ʊ뵁✩ʊ뵕♈Ǵ뵕⛞Ǵ벿⛞Ǵ벿♈ʊ뵕♈ʊ뵕⛞ʊ벿⛞ʊ볓◽Ǵ볓⚓Ǵ밽⚓Ǵ밽◽ʊ볓◽ʊ볓⚓ʊ밽⚓ʊ뱑▲Ǵ뱑♈Ǵ뮻♈Ǵ뮻▲ʊ뱑▲ʊ뱑♈ʊ뮻♈ʊ뱑├Ǵ뱑▲Ǵ뮻▲Ǵ뮻├ʊ뱑├ʊ뱑▲ʊ뮻▲ʊ뱑⒆Ǵ뱑├Ǵ뮻├Ǵ뮻⒆ʊ뱑⒆ʊ뱑├ʊ뮻├ʊ뱑⏰Ǵ뱑⒆Ǵ뮻⒆Ǵ뮻⏰ʊ뱑⏰ʊ뱑⒆ʊ뮻⒆ʊ믏␻Ǵ믏ⓑǴ묹ⓑǴ묹␻ʊ믏␻ʊ믏ⓑʊ묹ⓑʊ뭍⒆Ǵ뭍├Ǵ몷├Ǵ몷⒆ʊ뭍⒆ʊ뭍├ʊ몷├ʊ뫌ⓑǴ뫌╧Ǵ먶╧Ǵ먶ⓑʊ뫌ⓑʊ뫌╧ʊ먶╧ʊ멊⒆Ǵ멊├Ǵ릴├Ǵ릴⒆ʊ멊⒆ʊ멊├ʊ릴├ʊ마␻Ǵ마ⓑǴ뤲ⓑǴ뤲␻ʊ마␻ʊ마ⓑʊ뤲ⓑʊ륆⏰Ǵ륆��Ǵ뢰⒆Ǵ뢰⏰ʊ륆⏰ʊ륆⒆ʊ뢰⒆ʊ륆⒆Ǵ륆├Ǵ뢰├Ǵ뢰⒆ʊ륆⒆ʊ륆├ʊ뢰├ʊ륆├Ǵ륆▲Ǵ뢰▲Ǵ뢰├ʊ륆├ʊ륆▲ʊ뢰▲ʊ륆▲Ǵ륆♈Ǵ뢰♈Ǵ뢰▲ʊ륆▲ʊ륆♈ʊ뢰♈ʊ룄◽Ǵ룄⚓Ǵ렮⚓Ǵ렮◽ʊ룄◽ʊ룄⚓ʊ렮⚓ʊ롂♈Ǵ롂⛞Ǵ랬⛞Ǵ랬♈ʊ롂♈ʊ롂⛞ʊ랬⛞ʊ럀⚓Ǵ럀✩Ǵ뜪✩Ǵ뜪⚓ʊ럀⚓ʊ럀✩ʊ뜪✩ʊ뜾♈Ǵ뜾⛞Ǵ뚨⛞Ǵ뚨♈ʊ뜾♈ʊ뜾⛞ʊ뚨⛞ʊ뚼◽Ǵ뚼⚓Ǵ똦⚓Ǵ똦◽ʊ뚼◽ʊ뚼⚓ʊ똦⚓ʊ똺▲Ǵ똺♈Ǵ떤♈Ǵ떤▲ʊ똺▲ʊ똺♈ʊ떤♈ʊ똺├Ǵ똺▲Ǵ떤▲Ǵ떤├ʊ똺├ʊ똺▲ʊ떤▲ʊ똺⒆Ǵ똺├Ǵ떤├Ǵ떤⒆ʊ똺⒆ʊ똺├ʊ떤├ʊ똺⏰Ǵ똺⒆Ǵ떤⒆Ǵ떤⏰ʊ똺⏰ʊ똺⒆ʊ떤⒆ʊ떸␻Ǵ떸ⓑǴ딢ⓑǴ딢␻ʊ떸␻ʊ떸ⓑʊ딢ⓑʊ딷⒆Ǵ딷├Ǵ뒡├Ǵ뒡⒆ʊ딷⒆ʊ딷├ʊ뒡├ʊ뒵ⓑǴ뒵╧Ǵ됟╧Ǵ됟ⓑʊ뒵ⓑʊ뒵╧ʊ됟╧ʊ됳⒆Ǵ됳├Ǵ뎝├Ǵ뎝⒆ʊ됳⒆ʊ됳├ʊ뎝├ʊ뎱␻Ǵ뎱ⓑǴ댛ⓑǴ댛␻ʊ뎱␻ʊ뎱ⓑʊ댛ⓑʊ댯⏰Ǵ댯⒆Ǵ늙⒆Ǵ늙��ʊ댯⏰ʊ댯⒆ʊ늙⒆ʊ댯⒆Ǵ댯├Ǵ늙├Ǵ늙⒆ʊ댯⒆ʊ댯├ʊ늙├ʊ댯├Ǵ댯▲Ǵ늙▲Ǵ늙├ʊ댯├ʊ댯▲ʊ늙▲ʊ댯▲Ǵ댯♈Ǵ늙♈Ǵ늙▲ʊ댯▲ʊ댯♈ʊ늙♈ʊ늭◽Ǵ늭⚓Ǵ눗⚓Ǵ눗◽ʊ늭◽ʊ늭⚓ʊ눗⚓ʊ눫♈Ǵ눫⛞Ǵ놕⛞Ǵ놕♈ʊ눫♈ʊ눫⛞ʊ놕⛞ʊ놩⚓Ǵ놩✩Ǵ넓✩Ǵ넓⚓ʊ놩⚓ʊ놩✩ʊ넓✩ʊ눫⛞Ǵ눫❴Ǵ놕❴Ǵ놕⛞ʊ눫⛞ʊ눫❴ʊ놕❴ʊ늭✩Ǵ늭➿Ǵ눗➿Ǵ눗✩ʊ늭✩ʊ늭➿ʊ눗➿ʊ댯❴Ǵ댯⠊Ǵ늙⠊Ǵ늙❴ʊ댯❴ʊ댯⠊ʊ늙⠊ʊ댯⠊Ǵ댯⢠Ǵ늙⢠Ǵ늙⠊ʊ댯⠊ʊ댯⢠ʊ늙⢠ʊ댯⢠Ǵ댯⤶Ǵ늙⤶Ǵ늙⢠ʊ댯⢠ʊ댯⤶ʊ늙⤶ʊ댯⤶Ǵ댯⧌Ǵ늙⧌Ǵ늙⤶ʊ댯⤶ʊ댯⧌ʊ늙⧌ʊ늭⦁Ǵ늭⨗Ǵ눗⨗Ǵ눗⦁ʊ늭⦁ʊ늭⨗ʊ눗⨗ʊ눫⧌Ǵ눫⩢Ǵ놕⩢Ǵ놕⧌ʊ눫⧌ʊ눫⩢ʊ놕⩢ʊ놩⨗Ǵ놩⪭Ǵ넓⪭Ǵ넓⨗ʊ놩⨗ʊ놩⪭ʊ넓⪭ʊ넧⧌Ǵ넧⩢Ǵ낑⩢Ǵ낑⧌ʊ넧⧌ʊ넧⩢ʊ낑⩢ʊ낥⦁Ǵ낥⨗Ǵ뀏⨗Ǵ뀏⦁ʊ낥⦁ʊ낥⨗ʊ뀏⨗ʊ뀤⤶Ǵ뀤⧌Ǵ꾎⧌Ǵ꾎⤶ʊ뀤⤶ʊ뀤��ʊ꾎⧌ʊ뀤⧌Ǵ뀤⩢Ǵ꾎⩢Ǵ꾎⧌ʊ뀤⧌ʊ뀤⩢ʊ꾎⩢ʊ뀤⩢Ǵ뀤⫸Ǵ꾎⫸Ǵ꾎⩢ʊ뀤⩢ʊ뀤⫸ʊ꾎⫸ʊ뀤⫸Ǵ뀤⮎Ǵ꾎⮎Ǵ꾎⫸ʊ뀤⫸ʊ뀤⮎ʊ꾎⮎ʊ꾢⭃Ǵ꾢⯙Ǵ꼌⯙Ǵ꼌⭃ʊ꾢⭃ʊ꾢⯙ʊ꼌⯙ʊ꼠⮎Ǵ꼠ⰤǴ꺊ⰤǴ꺊⮎ʊ꼠⮎ʊ꼠Ⱔʊ꺊Ⱔʊ꺞⯙Ǵ꺞ⱯǴ금ⱯǴ금⯙ʊ꺞⯙ʊ꺞Ɐʊ금Ɐʊ긜⮎Ǵ긜ⰤǴ궆ⰤǴ궆⮎ʊ긜⮎ʊ긜Ⱔʊ궆Ⱔʊ궚⭃Ǵ궚⯙Ǵ괄⯙Ǵ괄⭃ʊ궚⭃ʊ궚⯙ʊ괄⯙ʊ괘⫸Ǵ괘⮎Ǵ겂⮎Ǵ겂⫸ʊ괘⫸ʊ괘⮎ʊ겂⮎ʊ괘⩢Ǵ괘⫸Ǵ겂⫸Ǵ겂⩢ʊ괘⩢ʊ괘⫸ʊ겂⫸ʊ괘⧌Ǵ괘⩢Ǵ겂⩢Ǵ겂⧌ʊ괘⧌ʊ괘⩢ʊ겂⩢ʊ괘⤶Ǵ괘⧌Ǵ겂⧌Ǵ겂⤶ʊ괘⤶ʊ괘⧌ʊ겂⧌ʊ겖⦁Ǵ겖⨗Ǵ가⨗Ǵ가⦁ʊ겖⦁ʊ겖⨗ʊ가⨗ʊ갔⧌Ǵ갔⩢Ǵꭾ⩢Ǵꭾ⧌ʊ갔⧌ʊ갔⩢ʊꭾ⩢ʊꮒ⨗Ǵꮒ⪭Ǵ꫼⪭Ǵ꫼⨗ʊꮒ⨗ʊꮒ⪭ʊ꫼⪭ʊ꬐⧌Ǵ꬐⩢Ǵꩺ⩢Ǵꩺ⧌ʊ꬐⧌ʊ꬐⩢ʊꩺ⩢ʊꪏ⦁Ǵꪏ⨗Ǵ꧹⨗Ǵ꧹⦁ʊꪏ⦁ʊꪏ⨗ʊ꧹⨗ʊꨍ⤶Ǵꨍ⧌Ǵꥷ⧌Ǵꥷ⤶ʊꨍ⤶ʊꨍ⧌ʊꥷ⧌ʊꨍ��Ǵꨍ⤶Ǵꥷ⤶Ǵꥷ⢠ʊꨍ⢠ʊꨍ⤶ʊꥷ⤶ʊꨍ⠊Ǵꨍ⢠Ǵꥷ⢠Ǵꥷ⠊ʊꨍ⠊ʊꨍ⢠ʊꥷ⢠ʊꨍ❴Ǵꨍ⠊Ǵꥷ⠊Ǵꥷ❴ʊꨍ❴ʊꨍ⠊ʊꥷ⠊ʊꪏ✩Ǵꪏ➿Ǵ꧹➿Ǵ꧹✩ʊꪏ✩ʊꪏ➿ʊ꧹➿ʊ꬐⛞Ǵ꬐❴Ǵꩺ❴Ǵꩺ⛞ʊ꬐⛞ʊ꬐❴ʊꩺ❴ʊꮒ⚓Ǵꮒ✩Ǵ꫼✩Ǵ꫼⚓ʊꮒ⚓ʊꮒ✩ʊ꫼✩ʊ꬐♈Ǵ꬐⛞Ǵꩺ⛞Ǵꩺ♈ʊ꬐♈ʊ꬐⛞ʊꩺ⛞ʊꪏ◽Ǵꪏ⚓Ǵ꧹⚓Ǵ꧹◽ʊꪏ◽ʊꪏ⚓ʊ꧹⚓ʊꨍ▲Ǵꨍ♈Ǵꥷ♈Ǵꥷ▲ʊꨍ▲ʊꨍ♈ʊꥷ♈ʊꨍ├Ǵꨍ▲Ǵꥷ▲Ǵꥷ├ʊꨍ├ʊꨍ▲ʊꥷ▲ʊꨍ⒆Ǵꨍ├Ǵꥷ├Ǵꥷ⒆ʊꨍ⒆ʊꨍ├ʊꥷ├ʊꨍ⏰Ǵꨍ⒆Ǵꥷ⒆Ǵꥷ⏰ʊꨍ⏰ʊꨍ⒆ʊꥷ⒆ʊꦋ␻ǴꦋⓑǴꣵⓑǴꣵ␻ʊꦋ␻ʊꦋⓑʊꣵⓑʊ꤉⒆Ǵ꤉├Ǵꡳ├Ǵꡳ⒆ʊ꤉⒆ʊ꤉├ʊꡳ├ʊꢇⓑǴꢇ╧Ǵ꟱╧Ǵ꟱ⓑʊꢇⓑʊꢇ╧ʊ꟱╧ʊꠅ⒆Ǵꠅ├Ǵꝯ├Ǵꝯ⒆ʊꠅ⒆ʊꠅ├ʊꝯ├ʊꞃ␻ǴꞃⓑǴꛭⓑǴꛭ␻ʊꞃ␻ʊꞃⓑʊꛭⓑʊ꜁⏰Ǵ꜁⒆Ǵꙫ⒆Ǵꙫ⏰ʊ꜁⏰ʊ꜁⒆ʊꙫ⒆ʊ꜁⒆Ǵ꜁├Ǵꙫ��Ǵꙫ⒆ʊ꜁⒆ʊ꜁├ʊꙫ├ʊ꜁├Ǵ꜁▲Ǵꙫ▲Ǵꙫ├ʊ꜁├ʊ꜁▲ʊꙫ▲ʊ꜁▲Ǵ꜁♈Ǵꙫ♈Ǵꙫ▲ʊ꜁▲ʊ꜁♈ʊꙫ♈ʊꙿ◽Ǵꙿ⚓Ǵꗩ⚓Ǵꗩ◽ʊꙿ◽ʊꙿ⚓ʊꗩ⚓ʊꗽ♈Ǵꗽ⛞Ǵꕧ⛞Ǵꕧ♈ʊꗽ♈ʊꗽ⛞ʊꕧ⛞ʊꕼ⚓Ǵꕼ✩Ǵꓦ✩Ǵꓦ⚓ʊꕼ⚓ʊꕼ✩ʊꓦ✩ʊꓺ♈Ǵꓺ⛞Ǵꑤ⛞Ǵꑤ♈ʊꓺ♈ʊꓺ⛞ʊꑤ⛞ʊꑸ◽Ǵꑸ⚓Ǵꏢ⚓Ǵꏢ◽ʊꑸ◽ʊꑸ⚓ʊꏢ⚓ʊꏶ▲Ǵꏶ♈Ǵꍠ♈Ǵꍠ▲ʊꏶ▲ʊꏶ♈ʊꍠ♈ʊꏶ├Ǵꏶ▲Ǵꍠ▲Ǵꍠ├ʊꏶ├ʊꏶ▲ʊꍠ▲ʊꏶ⒆Ǵꏶ├Ǵꍠ├Ǵꍠ⒆ʊꏶ⒆ʊꏶ├ʊꍠ├ʊꏶ⏰Ǵꏶ⒆Ǵꍠ⒆Ǵꍠ⏰ʊꏶ⏰ʊꏶ⒆ʊꍠ⒆ʊꍴ␻ǴꍴⓑǴꋞⓑǴꋞ␻ʊꍴ␻ʊꍴⓑʊꋞⓑʊꋲ⒆Ǵꋲ├Ǵꉜ├Ǵꉜ⒆ʊꋲ⒆ʊꋲ├ʊꉜ├ʊꉰⓑǴꉰ╧Ǵꇚ╧Ǵꇚⓑʊꉰⓑʊꉰ╧ʊꇚ╧ʊꇮ⒆Ǵꇮ├Ǵꅘ├Ǵꅘ⒆ʊꇮ⒆ʊꇮ├ʊꅘ├ʊꅬ␻ǴꅬⓑǴꃖⓑǴꃖ␻ʊꅬ␻ʊꅬⓑʊꃖⓑʊꃪ⏰Ǵꃪ⒆Ǵꁔ⒆Ǵꁔ⏰ʊꃪ⏰ʊꃪ⒆ʊꁔ⒆ʊꃪ⍚Ǵꃪ⏰Ǵꁔ⏰Ǵꁔ⍚ʊꃪ��ʊꃪ⏰ʊꁔ⏰ʊꃪ⋄Ǵꃪ⍚Ǵꁔ⍚Ǵꁔ⋄ʊꃪ⋄ʊꃪ⍚ʊꁔ⍚ʊꃪ∮Ǵꃪ⋄Ǵꁔ⋄Ǵꁔ∮ʊꃪ∮ʊꃪ⋄ʊꁔ⋄ʊꅬ⇣Ǵꅬ≹Ǵꃖ≹Ǵꃖ⇣ʊꅬ⇣ʊꅬ≹ʊꃖ≹ʊꇮ↘Ǵꇮ∮Ǵꅘ∮Ǵꅘ↘ʊꇮ↘ʊꇮ∮ʊꅘ∮ʊꉰ⅍Ǵꉰ⇣Ǵꇚ⇣Ǵꇚ⅍ʊꉰ⅍ʊꉰ⇣ʊꇚ⇣ʊꇮℂǴꇮ↘Ǵꅘ↘Ǵꅘℂʊꇮℂʊꇮ↘ʊꅘ↘ʊꅬ₷Ǵꅬ⅍Ǵꃖ⅍Ǵꃖ₷ʊꅬ₷ʊꅬ⅍ʊꃖ⅍ʊꃪǴꃪℂǴꁔℂǴꁔʊꃪʊꃪℂʊꁔℂʊꃪῖǴꃪǴꁔǴꁔῖʊꃪῖʊꃪʊꁔʊꃪὀǴꃪῖǴꁔῖǴꁔὀʊꃪὀʊꃪῖʊꁔῖʊꃪẪǴꃪὀǴꁔὀǴꁔẪʊꃪẪʊꃪὀʊꁔὀʊꅬṟǴꅬỵǴꃖỵǴꃖṟʊꅬṟʊꅬỵʊꃖỵʊꇮḔǴꇮẪǴꅘẪǴꅘḔʊꇮḔʊꇮẪʊꅘẪʊꉰ᷉ǴꉰṟǴꇚṟǴꇚ᷉ʊꉰ᷉ʊꉰṟʊꇚṟʊꋲḔǴꋲẪǴꉜẪǴꉜḔʊꋲḔʊꋲẪʊꉜẪʊꍴṟǴꍴỵǴꋞỵǴꋞṟʊꍴṟʊꍴỵʊꋞỵʊꏶẪǴꏶὀǴꍠὀǴꍠẪʊꏶẪʊꏶὀʊꍠὀʊꏶḔǴꏶẪǴꍠẪǴꍠḔʊꏶḔʊꏶẪʊꍠ��ʊꏶᵾǴꏶḔǴꍠḔǴꍠᵾʊꏶᵾʊꏶḔʊꍠḔʊꏶ᳨ǴꏶᵾǴꍠᵾǴꍠ᳨ʊꏶ᳨ʊꏶᵾʊꍠᵾʊꑸᲝǴꑸᴳǴꏢᴳǴꏢᲝʊꑸᲝʊꑸᴳʊꏢᴳʊꓺ᱒Ǵꓺ᳨Ǵꑤ᳨Ǵꑤ᱒ʊꓺ᱒ʊꓺ᳨ʊꑤ᳨ʊꕼᰇǴꕼᲝǴꓦᲝǴꓦᰇʊꕼᰇʊꕼᲝʊꓦᲝʊꓺᮼǴꓺ᱒Ǵꑤ᱒Ǵꑤᮼʊꓺᮼʊꓺ᱒ʊꑤ᱒ʊꑸ᭱ǴꑸᰇǴꏢᰇǴꏢ᭱ʊꑸ᭱ʊꑸᰇʊꏢᰇʊꏶᬦǴꏶᮼǴꍠᮼǴꍠᬦʊꏶᬦʊꏶᮼʊꍠᮼʊꏶ᪐ǴꏶᬦǴꍠᬦǴꍠ᪐ʊꏶ᪐ʊꏶᬦʊꍠᬦʊꏶ᧺Ǵꏶ᪐Ǵꍠ᪐Ǵꍠ᧺ʊꏶ᧺ʊꏶ᪐ʊꍠ᪐ʊꏶᥤǴꏶ᧺Ǵꍠ᧺Ǵꍠᥤʊꏶᥤʊꏶ᧺ʊꍠ᧺ʊꍴ᦯ǴꍴᩅǴꋞᩅǴꋞ᦯ʊꍴ᦯ʊꍴᩅʊꋞᩅʊꋲ᧺Ǵꋲ᪐Ǵꉜ᪐Ǵꉜ᧺ʊꋲ᧺ʊꋲ᪐ʊꉜ᪐ʊꉰᩅǴꉰ᫛Ǵꇚ᫛Ǵꇚᩅʊꉰᩅʊꉰ᫛ʊꇚ᫛ʊꇮ᧺Ǵꇮ᪐Ǵꅘ᪐Ǵꅘ᧺ʊꇮ᧺ʊꇮ᪐ʊꅘ᪐ʊꅬ᦯ǴꅬᩅǴꃖᩅǴꃖ᦯ʊꅬ᦯ʊꅬᩅʊꃖᩅʊꃪᥤǴꃪ᧺Ǵꁔ᧺Ǵꁔᥤʊꃪᥤʊꃪ᧺ʊꁔ᧺ʊꃪᣎǴꃪᥤǴꁔᥤǴꁔᣎʊꃪᣎʊꃪᥤʊꁔᥤʊꃪᠸǴꃪ��ǴꁔᣎǴꁔᠸʊꃪᠸʊꃪᣎʊꁔᣎʊꃪអǴꃪᠸǴꁔᠸǴꁔអʊꃪអʊꃪᠸʊꁔᠸʊꅬ᝗Ǵꅬ៭Ǵꃖ៭Ǵꃖ᝗ʊꅬ᝗ʊꅬ៭ʊꃖ៭ʊꇮᜌǴꇮអǴꅘអǴꅘᜌʊꇮᜌʊꇮអʊꅘអʊꉰᛁǴꉰ᝗Ǵꇚ᝗Ǵꇚᛁʊꉰᛁʊꉰ᝗ʊꇚ᝗ʊꇮᙶǴꇮᜌǴꅘᜌǴꅘᙶʊꇮᙶʊꇮᜌʊꅘᜌʊꅬᘫǴꅬᛁǴꃖᛁǴꃖᘫʊꅬᘫʊꅬᛁʊꃖᛁʊꃪᗠǴꃪᙶǴꁔᙶǴꁔᗠʊꃪᗠʊꃪᙶʊꁔᙶʊꃪᕊǴꃪᗠǴꁔᗠǴꁔᕊʊꃪᕊʊꃪᗠʊꁔᗠʊꃪᒴǴꃪᕊǴꁔᕊǴꁔᒴʊꃪᒴʊꃪᕊʊꁔᕊʊꃪᐞǴꃪᒴǴꁔᒴǴꁔᐞʊꃪᐞʊꃪᒴʊꁔᒴʊꅬᏓǴꅬᑩǴꃖᑩǴꃖᏓʊꅬᏓʊꅬᑩʊꃖᑩʊꇮᎈǴꇮᐞǴꅘᐞǴꅘᎈʊꇮᎈʊꇮᐞʊꅘᐞʊꉰጽǴꉰᏓǴꇚᏓǴꇚጽʊꉰጽʊꉰᏓʊꇚᏓʊꋲᎈǴꋲᐞǴꉜᐞǴꉜᎈʊꋲᎈʊꋲᐞʊꉜᐞʊꍴᏓǴꍴᑩǴꋞᑩǴꋞᏓʊꍴᏓʊꍴᑩʊꋞᑩʊꏶᐞǴꏶᒴǴꍠᒴǴꍠᐞʊꏶᐞʊꏶᒴʊꍠᒴʊꏶᎈǴꏶᐞǴꍠᐞǴꍠᎈʊꏶᎈʊꏶᐞʊꍠᐞʊꏶዲǴꏶᎈǴꍠᎈǴꍠ��ʊꏶዲʊꏶᎈʊꍠᎈʊꏶቜǴꏶዲǴꍠዲǴꍠቜʊꏶቜʊꏶዲʊꍠዲʊꑸሑǴꑸኧǴꏢኧǴꏢሑʊꑸሑʊꑸኧʊꏢኧʊꓺᇆǴꓺቜǴꑤቜǴꑤᇆʊꓺᇆʊꓺቜʊꑤቜʊꕼᅻǴꕼሑǴꓦሑǴꓦᅻʊꕼᅻʊꕼሑʊꓦሑʊꗽᇆǴꗽቜǴꕧቜǴꕧᇆʊꗽᇆʊꗽቜʊꕧቜʊꙿሑǴꙿኧǴꗩኧǴꗩሑʊꙿሑʊꙿኧʊꗩኧʊ꜁ቜǴ꜁ዲǴꙫዲǴꙫቜʊ꜁ቜʊ꜁ዲʊꙫዲʊ꜁ዲǴ꜁ᎈǴꙫᎈǴꙫዲʊ꜁ዲʊ꜁ᎈʊꙫᎈʊ꜁ᎈǴ꜁ᐞǴꙫᐞǴꙫᎈʊ꜁ᎈʊ꜁ᐞʊꙫᐞʊ꜁ᐞǴ꜁ᒴǴꙫᒴǴꙫᐞʊ꜁ᐞʊ꜁ᒴʊꙫᒴʊꞃᏓǴꞃᑩǴꛭᑩǴꛭᏓʊꞃᏓʊꞃᑩʊꛭᑩʊꠅᎈǴꠅᐞǴꝯᐞǴꝯᎈʊꠅᎈʊꠅᐞʊꝯᐞʊꢇጽǴꢇᏓǴ꟱ᏓǴ꟱ጽʊꢇጽʊꢇᏓʊ꟱Ꮣʊ꤉ᎈǴ꤉ᐞǴꡳᐞǴꡳᎈʊ꤉ᎈʊ꤉ᐞʊꡳᐞʊꦋᏓǴꦋᑩǴꣵᑩǴꣵᏓʊꦋᏓʊꦋᑩʊꣵᑩʊꨍᐞǴꨍᒴǴꥷᒴǴꥷᐞʊꨍᐞʊꨍᒴʊꥷᒴʊꨍᎈǴꨍᐞǴꥷᐞǴꥷᎈʊꨍᎈʊꨍᐞʊꥷᐞʊꨍዲǴꨍᎈǴꥷᎈǴꥷዲʊꨍዲʊꨍ��ʊꥷᎈʊꨍቜǴꨍዲǴꥷዲǴꥷቜʊꨍቜʊꨍዲʊꥷዲʊꪏሑǴꪏኧǴ꧹ኧǴ꧹ሑʊꪏሑʊꪏኧʊ꧹ኧʊ꬐ᇆǴ꬐ቜǴꩺቜǴꩺᇆʊ꬐ᇆʊ꬐ቜʊꩺቜʊꮒᅻǴꮒሑǴ꫼ሑǴ꫼ᅻʊꮒᅻʊꮒሑʊ꫼ሑʊ꬐ᄰǴ꬐ᇆǴꩺᇆǴꩺᄰʊ꬐ᄰʊ꬐ᇆʊꩺᇆʊꪏქǴꪏᅻǴ꧹ᅻǴ꧹ქʊꪏქʊꪏᅻʊ꧹ᅻʊꨍႚǴꨍᄰǴꥷᄰǴꥷႚʊꨍႚʊꨍᄰʊꥷᄰʊꨍငǴꨍႚǴꥷႚǴꥷငʊꨍငʊꨍႚʊꥷႚʊꨍ཮ǴꨍငǴꥷငǴꥷ཮ʊꨍ཮ʊꨍငʊꥷငʊꨍ໘Ǵꨍ཮Ǵꥷ཮Ǵꥷ໘ʊꨍ໘ʊꨍ཮ʊꥷ཮ʊꪏຍǴꪏ༣Ǵ꧹༣Ǵ꧹ຍʊꪏຍʊꪏ༣ʊ꧹༣ʊ꬐โǴ꬐໘Ǵꩺ໘Ǵꩺโʊ꬐โʊ꬐໘ʊꩺ໘ʊꮒ෷ǴꮒຍǴ꫼ຍǴ꫼෷ʊꮒ෷ʊꮒຍʊ꫼ຍʊ갔โǴ갔໘Ǵꭾ໘Ǵꭾโʊ갔โʊ갔໘ʊꭾ໘ʊ겖ຍǴ겖༣Ǵ가༣Ǵ가ຍʊ겖ຍʊ겖༣ʊ가༣ʊ괘໘Ǵ괘཮Ǵ겂཮Ǵ겂໘ʊ괘໘ʊ괘཮ʊ겂཮ʊ괘โǴ괘໘Ǵ겂໘Ǵ겂โʊ괘โʊ괘໘ʊ겂໘ʊ괘ඬǴ괘โǴ겂โǴ겂ඬʊ괘ඬʊ괘โʊ겂โʊ괘��Ǵ괘ඬǴ겂ඬǴ겂ഖʊ괘ഖʊ괘ඬʊ겂ඬʊ궚ೋǴ궚ൡǴ괄ൡǴ괄ೋʊ궚ೋʊ궚ൡʊ괄ൡʊ긜ಀǴ긜ഖǴ궆ഖǴ궆ಀʊ긜ಀʊ긜ഖʊ궆ഖʊ꺞వǴ꺞ೋǴ금ೋǴ금వʊ꺞వʊ꺞ೋʊ금ೋʊ긜௪Ǵ긜ಀǴ궆ಀǴ궆௪ʊ긜௪ʊ긜ಀʊ궆ಀʊ궚டǴ궚వǴ괄వǴ괄டʊ궚டʊ궚వʊ괄వʊ괘୔Ǵ괘௪Ǵ겂௪Ǵ겂୔ʊ괘୔ʊ괘௪ʊ겂௪ʊ괘ાǴ괘୔Ǵ겂୔Ǵ겂ાʊ괘ાʊ괘୔ʊ겂୔ʊ괘ਨǴ괘ાǴ겂ાǴ겂ਨʊ괘ਨʊ괘ાʊ겂ાʊ괘঒Ǵ괘ਨǴ겂ਨǴ겂঒ʊ괘঒ʊ괘ਨʊ겂ਨʊ겖ঢ়Ǵ겖ੳǴ가ੳǴ가ঢ়ʊ겖ঢ়ʊ겖ੳʊ가ੳʊ갔ਨǴ갔ાǴꭾાǴꭾਨʊ갔ਨʊ갔ાʊꭾાʊꮒੳǴꮒଉǴ꫼ଉǴ꫼ੳʊꮒੳʊꮒଉʊ꫼ଉʊ꬐ਨǴ꬐ાǴꩺાǴꩺਨʊ꬐ਨʊ꬐ાʊꩺાʊꪏঢ়ǴꪏੳǴ꧹ੳǴ꧹ঢ়ʊꪏঢ়ʊꪏੳʊ꧹ੳʊꨍ঒ǴꨍਨǴꥷਨǴꥷ঒ʊꨍ঒ʊꨍਨʊꥷਨʊꨍࣼǴꨍ঒Ǵꥷ঒Ǵꥷࣼʊꨍࣼʊꨍ঒ʊꥷ঒ʊꨍࡦǴꨍࣼǴꥷࣼǴꥷࡦʊꨍࡦʊꨍࣼʊꥷࣼʊꨍߐǴꨍࡦǴꥷࡦǴꥷߐʊꨍߐʊꨍࡦʊꥷࡦʊꪏޅǴꪏࠛǴ꧹ࠛǴ꧹ޅʊꪏޅʊꪏࠛʊ꧹ࠛʊ꬐ܺǴ꬐ߐǴꩺߐǴꩺܺʊ꬐ܺʊ꬐ߐʊꩺߐʊꮒۯǴꮒޅǴ꫼ޅǴ꫼ۯʊꮒۯʊꮒޅʊ꫼ޅʊ꬐ڤǴ꬐ܺǴꩺܺǴꩺڤʊ꬐ڤʊ꬐ܺʊꩺܺʊꪏٙǴꪏۯǴ꧹ۯǴ꧹ٙʊꪏٙʊꪏۯʊ꧹ۯʊꨍ؎ǴꨍڤǴꥷڤǴꥷ؎ʊꨍ؎ʊꨍڤʊꥷڤʊꨍոǴꨍ؎Ǵꥷ؎Ǵꥷոʊꨍոʊꨍ؎ʊꥷ؎ʊꨍӢǴꨍոǴꥷոǴꥷӢʊꨍӢʊꨍոʊꥷոʊꨍьǴꨍӢǴꥷӢǴꥷьʊꨍьʊꨍӢʊꥷӢʊꦋҗǴꦋԭǴꣵԭǴꣵҗʊꦋҗʊꦋԭʊꣵԭʊ꤉ӢǴ꤉ոǴꡳոǴꡳӢʊ꤉Ӣʊ꤉ոʊꡳոʊꢇԭǴꢇ׃Ǵ꟱׃Ǵ꟱ԭʊꢇԭʊꢇ׃ʊ꟱׃ʊꠅӢǴꠅոǴꝯոǴꝯӢʊꠅӢʊꠅոʊꝯոʊꞃҗǴꞃԭǴꛭԭǴꛭҗʊꞃҗʊꞃԭʊꛭԭʊ꜁ьǴ꜁ӢǴꙫӢǴꙫьʊ꜁ьʊ꜁ӢʊꙫӢʊ꜁ӢǴ꜁ոǴꙫոǴꙫӢʊ꜁Ӣʊ꜁ոʊꙫոʊ꜁ոǴ꜁؎Ǵꙫ؎Ǵꙫոʊ꜁ոʊ꜁؎ʊꙫ؎ʊ꜁؎Ǵ꜁ڤǴꙫڤǴꙫ؎ʊ꜁؎ʊ꜁ڤʊꙫڤʊꙿٙǴꙿۯǴꗩۯǴꗩٙʊꙿٙʊꙿۯʊꗩۯʊꗽڤǴꗽܺǴꕧܺǴꕧڤʊꗽڤʊꗽܺʊꕧܺʊꕼۯǴ���ޅǴꓦޅǴꓦۯʊꕼۯʊꕼޅʊꓦޅʊꓺڤǴꓺܺǴꑤܺǴꑤڤʊꓺڤʊꓺܺʊꑤܺʊꑸٙǴꑸۯǴꏢۯǴꏢٙʊꑸٙʊꑸۯʊꏢۯʊꏶ؎ǴꏶڤǴꍠڤǴꍠ؎ʊꏶ؎ʊꏶڤʊꍠڤʊꏶոǴꏶ؎Ǵꍠ؎Ǵꍠոʊꏶոʊꏶ؎ʊꍠ؎ʊꏶӢǴꏶոǴꍠոǴꍠӢʊꏶӢʊꏶոʊꍠոʊꏶьǴꏶӢǴꍠӢǴꍠьʊꏶьʊꏶӢʊꍠӢʊꍴҗǴꍴԭǴꋞԭǴꋞҗʊꍴҗʊꍴԭʊꋞԭʊꋲӢǴꋲոǴꉜոǴꉜӢʊꋲӢʊꋲոʊꉜոʊꉰԭǴꉰ׃Ǵꇚ׃Ǵꇚԭʊꉰԭʊꉰ׃ʊꇚ׃ʊꇮӢǴꇮոǴꅘոǴꅘӢʊꇮӢʊꇮոʊꅘոʊꅬҗǴꅬԭǴꃖԭǴꃖҗʊꅬҗʊꅬԭʊꃖԭʊꃪьǴꃪӢǴꁔӢǴꁔьʊꃪьʊꃪӢʊꁔӢʊꃪζǴꃪьǴꁔьǴꁔζʊꃪζʊꃪьʊꁔьʊꃪ̠ǴꃪζǴꁔζǴꁔ̠ʊꃪ̠ʊꃪζʊꁔζʊꃪʊǴꃪ̠Ǵꁔ̠Ǵꁔʊʊꃪʊʊꃪ̠ʊꁔ̠ʊꅬȿǴꅬ˕Ǵꃖ˕Ǵꃖȿʊꅬȿʊꅬ˕ʊꃖ˕ʊꇮǴǴꇮʊǴꅘʊǴꅘǴʊꇮǴʊꇮʊʊꅘʊʊꉰƩǴꉰȿǴꇚȿǴꇚƩʊꉰƩʊꉰȿʊꇚȿʊꇮŞǴꇮǴǴꅘǴǴꅘŞʊꇮŞʊꇮǴʊꅘǴʊꅬēǴꅬƩǴꃖƩǴꃖēʊꅬēʊꅬƩʊꃖƩʊꃪÈǴꃪŞǴꁔŞǴꁔÈʊꃪÈʊꃪŞʊꁔŞʊꃪ2ǴꃪÈǴꁔÈǴꁔ2ʊꃪ2ʊꃪÈʊꁔÈʊꃪﾜǴꃪ2Ǵꁔ2Ǵꁔﾜʊꃪﾜʊꃪ2ʊꁔ2ʊꃪ＆ǴꃪﾜǴꁔﾜǴꁔ＆ʊꃪ＆ʊꃪﾜʊꁔﾜʊꅬﺻǴꅬｑǴꃖｑǴꃖﺻʊꅬﺻʊꅬｑʊꃖｑʊꇮﹰǴꇮ＆Ǵꅘ＆Ǵꅘﹰʊꇮﹰʊꇮ＆ʊꅘ＆ʊꉰ︥ǴꉰﺻǴꇚﺻǴꇚ︥ʊꉰ︥ʊꉰﺻʊꇚﺻʊꋲﹰǴꋲ＆Ǵꉜ＆Ǵꉜﹰʊꋲﹰʊꋲ＆ʊꉜ＆ʊꍴﺻǴꍴｑǴꋞｑǴꋞﺻʊꍴﺻʊꍴｑʊꋞｑʊꏶ＆ǴꏶﾜǴꍠﾜǴꍠ＆ʊꏶ＆ʊꏶﾜʊꍠﾜʊꏶﹰǴꏶ＆Ǵꍠ＆Ǵꍠﹰʊꏶﹰʊꏶ＆ʊꍠ＆ʊꏶ﷚ǴꏶﹰǴꍠﹰǴꍠ﷚ʊꏶ﷚ʊꏶﹰʊꍠﹰʊꏶ﵄Ǵꏶ﷚Ǵꍠ﷚Ǵꍠ﵄ʊꏶ﵄ʊꏶ﷚ʊꍠ﷚ʊꑸﳹǴꑸﶏǴꏢﶏǴꏢﳹʊꑸﳹʊꑸﶏʊꏢﶏʊꓺﲮǴꓺ﵄Ǵꑤ﵄Ǵꑤﲮʊꓺﲮʊꓺ﵄ʊꑤ﵄ʊꕼﱣǴꕼﳹǴꓦﳹǴꓦﱣʊꕼﱣʊꕼﳹʊꓦﳹʊꓺﰘǴꓺﲮǴꑤﲮǴꑤﰘʊꓺﰘʊꓺﲮʊꑤﲮʊꑸ﯍ǴꑸﱣǴꏢﱣǴꏢ﯍ʊꑸ﯍ʊꑸﱣʊꏢﱣʊꏶﮂǴꏶﰘǴꍠﰘǴꍠﮂʊꏶﮂʊꏶ���ʊꍠﰘʊꏶ﫬ǴꏶﮂǴꍠﮂǴꍠ﫬ʊꏶ﫬ʊꏶﮂʊꍠﮂʊꏶ節Ǵꏶ﫬Ǵꍠ﫬Ǵꍠ節ʊꏶ節ʊꏶ﫬ʊꍠ﫬ʊꏶ燎Ǵꏶ節Ǵꍠ節Ǵꍠ燎ʊꏶ燎ʊꏶ節ʊꍠ節ʊꍴ廓Ǵꍴ瑱Ǵꋞ瑱Ǵꋞ廓ʊꍴ廓ʊꍴ瑱ʊꋞ瑱ʊꋲ節Ǵꋲ﫬Ǵꉜ﫬Ǵꉜ節ʊꋲ節ʊꋲ﫬ʊꉜ﫬ʊꉰ瑱Ǵꉰ﬷Ǵꇚ﬷Ǵꇚ瑱ʊꉰ瑱ʊꉰ﬷ʊꇚ﬷ʊꇮ節Ǵꇮ﫬Ǵꅘ﫬Ǵꅘ節ʊꇮ節ʊꇮ﫬ʊꅘ﫬ʊꅬ廓Ǵꅬ瑱Ǵꃖ瑱Ǵꃖ廓ʊꅬ廓ʊꅬ瑱ʊꃖ瑱ʊꃪ燎Ǵꃪ節Ǵꁔ節Ǵꁔ燎ʊꃪ燎ʊꃪ節ʊꁔ節ʊꃪ浪Ǵꃪ燎Ǵꁔ燎Ǵꁔ浪ʊꃪ浪ʊꃪ燎ʊꁔ燎ʊꃪǴꃪ浪Ǵꁔ浪Ǵꁔʊꃪʊꃪ浪ʊꁔ浪ʊꃪǴꃪǴꁔǴꁔʊꃪʊꃪʊꁔʊꅬǴꅬǴꃖǴꃖʊꅬʊꅬʊꃖʊꇮǴꇮǴꅘǴꅘʊꇮʊꇮʊꅘʊꉰǴꉰǴꇚǴꇚʊꉰʊꉰʊꇚʊꇮǴꇮǴꅘǴꅘʊꇮʊꇮʊꅘʊꅬǴꅬǴꃖǴꃖʊꅬʊꅬʊꃖʊꃪǴꃪǴꁔǴꁔʊꃪʊꃪʊꁔʊꃪ���ǴꃪǴꁔǴꁔʊꃪʊꃪʊꁔʊꃪǴꃪǴꁔǴꁔʊꃪʊꃪʊꁔʊꃪǴꃪǴꁔǴꁔʊꃪʊꃪʊꁔʊꁩǴꁩǴ鿓Ǵ鿓ʊꁩʊꁩʊ鿓ʊ鿧Ǵ鿧Ǵ齑Ǵ齑ʊ鿧ʊ鿧ʊ齑ʊ齥Ǵ齥Ǵ黏Ǵ黏ʊ齥ʊ齥ʊ黏ʊ黣Ǵ黣Ǵ鹍Ǵ鹍ʊ黣ʊ黣ʊ鹍ʊ鹡Ǵ鹡Ǵ鷋Ǵ鷋ʊ鹡ʊ鹡ʊ鷋ʊ鷟Ǵ鷟Ǵ鵉Ǵ鵉ʊ鷟ʊ鷟ʊ鵉ʊ鷟Ǵ鷟Ǵ鵉Ǵ鵉ʊ鷟ʊ鷟ʊ鵉ʊ鷟Ǵ鷟Ǵ鵉Ǵ鵉ʊ鷟ʊ鷟ʊ鵉ʊ鷟Ǵ鷟Ǵ鵉Ǵ鵉ʊ鷟ʊ鷟ʊ鵉ʊ鵝Ǵ鵝Ǵ鳇Ǵ鳇ʊ鵝ʊ鵝ʊ鳇ʊ鳛Ǵ鳛Ǵ鱅Ǵ鱅ʊ鳛ʊ鳛ʊ鱅ʊ鱙Ǵ鱙Ǵ鯃Ǵ鯃ʊ鱙ʊ鱙ʊ鯃ʊ鯗Ǵ鯗Ǵ魁Ǵ魁ʊ鯗ʊ鯗ʊ魁ʊ魕Ǵ魕Ǵ骿Ǵ骿ʊ魕ʊ魕ʊ骿ʊ體Ǵ體Ǵ騾Ǵ騾ʊ體ʊ體ʊ騾ʊ體Ǵ體Ǵ騾���Ǵ騾ʊ體ʊ體ʊ騾ʊ體Ǵ體Ǵ騾Ǵ騾ʊ體ʊ體ʊ騾ʊ體Ǵ體Ǵ騾Ǵ騾ʊ體ʊ體ʊ騾ʊ驒Ǵ驒Ǵ馼Ǵ馼ʊ驒ʊ驒ʊ馼ʊ駐Ǵ駐Ǵ餺Ǵ餺ʊ駐ʊ駐ʊ餺ʊ饎Ǵ饎Ǵ颸Ǵ颸ʊ饎ʊ饎ʊ颸ʊ飌Ǵ飌Ǵ頶Ǵ頶ʊ飌ʊ飌ʊ頶ʊ顊Ǵ顊Ǵ鞴Ǵ鞴ʊ顊ʊ顊ʊ鞴ʊ韈Ǵ韈Ǵ露Ǵ露ʊ韈ʊ韈ʊ露ʊ韈Ǵ韈Ǵ露Ǵ露ʊ韈ʊ韈ʊ露ʊ韈Ǵ韈Ǵ露Ǵ露ʊ韈ʊ韈ʊ露ʊ韈Ǵ韈Ǵ露Ǵ露ʊ韈ʊ韈ʊ露ʊ靆Ǵ靆Ǵ隰Ǵ隰ʊ靆ʊ靆ʊ隰ʊ雄Ǵ雄Ǵ阮Ǵ阮ʊ雄ʊ雄ʊ阮ʊ陂Ǵ陂Ǵ閬Ǵ閬ʊ陂ʊ陂ʊ閬ʊ雄Ǵ雄Ǵ阮Ǵ阮ʊ雄ʊ雄ʊ阮ʊ靆Ǵ靆Ǵ隰Ǵ隰ʊ靆ʊ靆ʊ隰ʊ韈Ǵ韈Ǵ露Ǵ露ʊ韈ʊ韈ʊ露ʊ韈Ǵ韈浪Ǵ露浪Ǵ露ʊ韈���ʊ韈浪ʊ露浪ʊ韈浪Ǵ韈燎Ǵ露燎Ǵ露浪ʊ韈浪ʊ韈燎ʊ露燎ʊ韈燎Ǵ韈節Ǵ露節Ǵ露燎ʊ韈燎ʊ韈節ʊ露節ʊ靆廓Ǵ靆瑱Ǵ隰瑱Ǵ隰廓ʊ靆廓ʊ靆瑱ʊ隰瑱ʊ雄節Ǵ雄﫬Ǵ阮﫬Ǵ阮節ʊ雄節ʊ雄﫬ʊ阮﫬ʊ陂瑱Ǵ陂﬷Ǵ閬﬷Ǵ閬瑱ʊ陂瑱ʊ陂﬷ʊ閬﬷ʊ闁節Ǵ闁﫬Ǵ锫﫬Ǵ锫節ʊ闁節ʊ闁﫬ʊ锫﫬ʊ锿廓Ǵ锿瑱Ǵ钩瑱Ǵ钩廓ʊ锿廓ʊ锿瑱ʊ钩瑱ʊ钽燎Ǵ钽節Ǵ鐧節Ǵ鐧燎ʊ钽燎ʊ钽節ʊ鐧節ʊ钽節Ǵ钽﫬Ǵ鐧﫬Ǵ鐧節ʊ钽節ʊ钽﫬ʊ鐧﫬ʊ钽﫬Ǵ钽ﮂǴ鐧ﮂǴ鐧﫬ʊ钽﫬ʊ钽ﮂʊ鐧ﮂʊ钽ﮂǴ钽ﰘǴ鐧ﰘǴ鐧ﮂʊ钽ﮂʊ钽ﰘʊ鐧ﰘʊ鐻﯍Ǵ鐻ﱣǴ鎥ﱣǴ鎥﯍ʊ鐻﯍ʊ鐻ﱣʊ鎥ﱣʊ鎹ﰘǴ鎹ﲮǴ錣ﲮǴ錣ﰘʊ鎹ﰘʊ鎹ﲮʊ錣ﲮʊ錷ﱣǴ錷ﳹǴ銡ﳹǴ銡ﱣʊ錷ﱣʊ錷ﳹʊ銡ﳹʊ銵ﰘǴ銵ﲮǴ鈟ﲮǴ鈟ﰘʊ銵ﰘʊ銵ﲮʊ鈟ﲮʊ鈳﯍Ǵ鈳ﱣǴ醝ﱣǴ醝﯍ʊ鈳﯍ʊ鈳ﱣʊ醝ﱣʊ醱ﮂǴ醱ﰘǴ鄛ﰘǴ鄛ﮂʊ醱ﮂʊ醱ﰘʊ鄛ﰘʊ醱﫬Ǵ醱ﮂǴ鄛ﮂǴ鄛﫬ʊ醱﫬ʊ醱ﮂʊ鄛���ʊ醱節Ǵ醱﫬Ǵ鄛﫬Ǵ鄛節ʊ醱節ʊ醱﫬ʊ鄛﫬ʊ醱燎Ǵ醱節Ǵ鄛節Ǵ鄛燎ʊ醱燎ʊ醱節ʊ鄛節ʊ鄯廓Ǵ鄯瑱Ǵ邙瑱Ǵ邙廓ʊ鄯廓ʊ鄯瑱ʊ邙瑱ʊ邭節Ǵ邭﫬Ǵ逗﫬Ǵ逗節ʊ邭節ʊ邭﫬ʊ逗﫬ʊ逬瑱Ǵ逬﬷Ǵ辖﬷Ǵ辖瑱ʊ逬瑱ʊ逬﬷ʊ辖﬷ʊ辪節Ǵ辪﫬Ǵ輔﫬Ǵ輔節ʊ辪節ʊ辪﫬ʊ輔﫬ʊ輨廓Ǵ輨瑱Ǵ躒瑱Ǵ躒廓ʊ輨廓ʊ輨瑱ʊ躒瑱ʊ躦燎Ǵ躦節Ǵ踐節Ǵ踐燎ʊ躦燎ʊ躦節ʊ踐節ʊ躦浪Ǵ躦燎Ǵ踐燎Ǵ踐浪ʊ躦浪ʊ躦燎ʊ踐燎ʊ躦Ǵ躦浪Ǵ踐浪Ǵ踐ʊ躦ʊ躦浪ʊ踐浪ʊ躦Ǵ躦Ǵ踐Ǵ踐ʊ躦ʊ躦ʊ踐ʊ輨Ǵ輨Ǵ躒Ǵ躒ʊ輨ʊ輨ʊ躒ʊ辪Ǵ辪Ǵ輔Ǵ輔ʊ辪ʊ辪ʊ輔ʊ逬Ǵ逬Ǵ辖Ǵ辖ʊ逬ʊ逬ʊ辖ʊ辪Ǵ辪Ǵ輔Ǵ輔ʊ辪ʊ辪ʊ輔ʊ輨Ǵ輨Ǵ躒Ǵ躒ʊ輨ʊ輨ʊ躒ʊ躦Ǵ躦Ǵ踐Ǵ踐ʊ躦ʊ躦ʊ踐ʊ躦Ǵ躦Ǵ踐Ǵ踐ʊ躦ʊ躦ʊ踐ʊ躦Ǵ躦���Ǵ踐Ǵ踐ʊ躦ʊ躦ʊ踐ʊ躦Ǵ躦Ǵ踐Ǵ踐ʊ躦ʊ躦ʊ踐ʊ踤Ǵ踤Ǵ趎Ǵ趎ʊ踤ʊ踤ʊ趎ʊ趢Ǵ趢Ǵ贌Ǵ贌ʊ趢ʊ趢ʊ贌ʊ贠Ǵ贠Ǵ貊Ǵ貊ʊ贠ʊ贠ʊ貊ʊ貞Ǵ貞Ǵ谈Ǵ谈ʊ貞ʊ貞ʊ谈ʊ谜Ǵ谜Ǵ讆Ǵ讆ʊ谜ʊ谜ʊ讆ʊ讚Ǵ讚Ǵ謄Ǵ謄ʊ讚ʊ讚ʊ謄ʊ讚Ǵ讚Ǵ謄Ǵ謄ʊ讚ʊ讚ʊ謄ʊ讚Ǵ讚Ǵ謄Ǵ謄ʊ讚ʊ讚ʊ謄ʊ讚Ǵ讚Ǵ謄Ǵ謄ʊ讚ʊ讚ʊ謄ʊ謙Ǵ謙Ǵ誃Ǵ誃ʊ謙ʊ謙ʊ誃ʊ誗Ǵ誗Ǵ訁Ǵ訁ʊ誗ʊ誗ʊ訁ʊ訕Ǵ訕Ǵ西Ǵ西ʊ訕ʊ訕ʊ西ʊ覓Ǵ覓Ǵ製Ǵ製ʊ覓ʊ覓ʊ製ʊ褑Ǵ褑Ǵ衻Ǵ衻ʊ褑ʊ褑ʊ衻ʊ袏Ǵ袏Ǵ蟹Ǵ蟹ʊ袏ʊ袏ʊ蟹ʊ袏Ǵ袏Ǵ蟹Ǵ蟹ʊ袏ʊ袏ʊ蟹ʊ袏Ǵ袏Ǵ蟹Ǵ蟹���ʊ袏ʊ袏ʊ蟹ʊ袏Ǵ袏Ǵ蟹Ǵ蟹ʊ袏ʊ袏ʊ蟹ʊ蠍Ǵ蠍Ǵ蝷Ǵ蝷ʊ蠍ʊ蠍ʊ蝷ʊ螋Ǵ螋Ǵ蛵Ǵ蛵ʊ螋ʊ螋ʊ蛵ʊ蜉Ǵ蜉Ǵ虳Ǵ虳ʊ蜉ʊ蜉ʊ虳ʊ蚇Ǵ蚇Ǵ藱Ǵ藱ʊ蚇ʊ蚇ʊ藱ʊ蘆Ǵ蘆Ǵ蕰Ǵ蕰ʊ蘆ʊ蘆ʊ蕰ʊ薄Ǵ薄Ǵ蓮Ǵ蓮ʊ薄ʊ薄ʊ蓮ʊ薄Ǵ薄Ǵ蓮Ǵ蓮ʊ薄ʊ薄ʊ蓮ʊ薄Ǵ薄Ǵ蓮Ǵ蓮ʊ薄ʊ薄ʊ蓮ʊ薄Ǵ薄Ǵ蓮Ǵ蓮ʊ薄ʊ薄ʊ蓮ʊ蔂Ǵ蔂Ǵ葬Ǵ葬ʊ蔂ʊ蔂ʊ葬ʊ蒀Ǵ蒀Ǵ菪Ǵ菪ʊ蒀ʊ蒀ʊ菪ʊ菾Ǵ菾Ǵ荨Ǵ荨ʊ菾ʊ菾ʊ荨ʊ蒀Ǵ蒀Ǵ菪Ǵ菪ʊ蒀ʊ蒀ʊ菪ʊ蔂Ǵ蔂Ǵ葬Ǵ葬ʊ蔂ʊ蔂ʊ葬ʊ薄Ǵ薄Ǵ蓮Ǵ蓮ʊ薄ʊ薄ʊ蓮ʊ薄Ǵ薄浪Ǵ蓮浪Ǵ蓮ʊ薄ʊ薄浪ʊ蓮浪ʊ薄浪Ǵ薄燎Ǵ蓮燎Ǵ蓮浪ʊ薄浪ʊ薄���ʊ蓮燎ʊ薄燎Ǵ薄節Ǵ蓮節Ǵ蓮燎ʊ薄燎ʊ薄節ʊ蓮節ʊ蔂廓Ǵ蔂瑱Ǵ葬瑱Ǵ葬廓ʊ蔂廓ʊ蔂瑱ʊ葬瑱ʊ蒀節Ǵ蒀﫬Ǵ菪﫬Ǵ菪節ʊ蒀節ʊ蒀﫬ʊ菪﫬ʊ菾瑱Ǵ菾﬷Ǵ荨﬷Ǵ荨瑱ʊ菾瑱ʊ菾﬷ʊ荨﬷ʊ荼節Ǵ荼﫬Ǵ苦﫬Ǵ苦節ʊ荼節ʊ荼﫬ʊ苦﫬ʊ苺廓Ǵ苺瑱Ǵ艤瑱Ǵ艤廓ʊ苺廓ʊ苺瑱ʊ艤瑱ʊ艸燎Ǵ艸節Ǵ臢節Ǵ臢燎ʊ艸燎ʊ艸節ʊ臢節ʊ艸節Ǵ艸﫬Ǵ臢﫬Ǵ臢節ʊ艸節ʊ艸﫬ʊ臢﫬ʊ艸﫬Ǵ艸ﮂǴ臢ﮂǴ臢﫬ʊ艸﫬ʊ艸ﮂʊ臢ﮂʊ艸ﮂǴ艸ﰘǴ臢ﰘǴ臢ﮂʊ艸ﮂʊ艸ﰘʊ臢ﰘʊ臶﯍Ǵ臶ﱣǴ腠ﱣǴ腠﯍ʊ臶﯍ʊ臶ﱣʊ腠ﱣʊ腴ﰘǴ腴ﲮǴ胞ﲮǴ胞ﰘʊ腴ﰘʊ腴ﲮʊ胞ﲮʊ胲ﱣǴ胲ﳹǴ聜ﳹǴ聜ﱣʊ胲ﱣʊ胲ﳹʊ聜ﳹʊ腴ﲮǴ腴﵄Ǵ胞﵄Ǵ胞ﲮʊ腴ﲮʊ腴﵄ʊ胞﵄ʊ臶ﳹǴ臶ﶏǴ腠ﶏǴ腠ﳹʊ臶ﳹʊ臶ﶏʊ腠ﶏʊ艸﵄Ǵ艸﷚Ǵ臢﷚Ǵ臢﵄ʊ艸﵄ʊ艸﷚ʊ臢﷚ʊ艸﷚Ǵ艸ﹰǴ臢ﹰǴ臢﷚ʊ艸﷚ʊ艸ﹰʊ臢ﹰʊ艸ﹰǴ艸＆Ǵ臢＆Ǵ臢ﹰʊ艸ﹰʊ艸＆ʊ臢＆ʊ艸���Ǵ艸ﾜǴ臢ﾜǴ臢＆ʊ艸＆ʊ艸ﾜʊ臢ﾜʊ苺ﺻǴ苺ｑǴ艤ｑǴ艤ﺻʊ苺ﺻʊ苺ｑʊ艤ｑʊ荼ﹰǴ荼＆Ǵ苦＆Ǵ苦ﹰʊ荼ﹰʊ荼＆ʊ苦＆ʊ菾︥Ǵ菾ﺻǴ荨ﺻǴ荨︥ʊ菾︥ʊ菾ﺻʊ荨ﺻʊ蒀ﹰǴ蒀＆Ǵ菪＆Ǵ菪ﹰʊ蒀ﹰʊ蒀＆ʊ菪＆ʊ蔂ﺻǴ蔂ｑǴ葬ｑǴ葬ﺻʊ蔂ﺻʊ蔂ｑʊ葬ｑʊ薄＆Ǵ薄ﾜǴ蓮ﾜǴ蓮＆ʊ薄＆ʊ薄ﾜʊ蓮ﾜʊ薄ﾜǴ薄2Ǵ蓮2Ǵ蓮ﾜʊ薄ﾜʊ薄2ʊ蓮2ʊ薄2Ǵ薄ÈǴ蓮ÈǴ蓮2ʊ薄2ʊ薄Èʊ蓮Èʊ薄ÈǴ薄ŞǴ蓮ŞǴ蓮Èʊ薄Èʊ薄Şʊ蓮Şʊ蔂ēǴ蔂ƩǴ葬ƩǴ葬ēʊ蔂ēʊ蔂Ʃʊ葬Ʃʊ蒀ŞǴ蒀ǴǴ菪ǴǴ菪Şʊ蒀Şʊ蒀Ǵʊ菪Ǵʊ菾ƩǴ菾ȿǴ荨ȿǴ荨Ʃʊ菾Ʃʊ菾ȿʊ荨ȿʊ蒀ǴǴ蒀ʊǴ菪ʊǴ菪Ǵʊ蒀Ǵʊ蒀ʊʊ菪ʊʊ蔂ȿǴ蔂˕Ǵ葬˕Ǵ葬ȿʊ蔂ȿʊ蔂˕ʊ葬˕ʊ薄ʊǴ薄̠Ǵ蓮̠Ǵ蓮ʊʊ薄ʊʊ薄̠ʊ蓮̠ʊ薄̠Ǵ薄ζǴ蓮ζǴ蓮̠ʊ薄̠ʊ薄ζʊ蓮ζʊ薄ζǴ薄ьǴ蓮ьǴ蓮ζʊ薄ζʊ薄ьʊ蓮ьʊ薄ьǴ薄ӢǴ蓮ӢǴ蓮ьʊ薄ьʊ薄Ӣʊ蓮Ӣʊ蔂җǴ蔂ԭǴ葬ԭǴ葬җʊ蔂җʊ蔂ԭʊ葬ԭʊ蒀ӢǴ蒀ոǴ菪ոǴ菪Ӣʊ蒀Ӣʊ蒀ոʊ菪ոʊ菾ԭǴ菾׃Ǵ荨׃Ǵ荨ԭʊ菾ԭʊ菾׃ʊ荨׃ʊ荼ӢǴ荼ոǴ苦ոǴ苦Ӣʊ荼Ӣʊ荼ոʊ苦ոʊ苺җǴ苺ԭǴ艤ԭǴ艤җʊ苺җʊ苺ԭʊ艤ԭʊ艸ьǴ艸ӢǴ臢ӢǴ臢ьʊ艸ьʊ艸Ӣʊ臢Ӣʊ艸ӢǴ艸ոǴ臢ոǴ臢Ӣʊ艸Ӣʊ艸ոʊ臢ոʊ艸ոǴ艸؎Ǵ臢؎Ǵ臢ոʊ艸ոʊ艸؎ʊ臢؎ʊ艸؎Ǵ艸ڤǴ臢ڤǴ臢؎ʊ艸؎ʊ艸ڤʊ臢ڤʊ臶ٙǴ臶ۯǴ腠ۯǴ腠ٙʊ臶ٙʊ臶ۯʊ腠ۯʊ腴ڤǴ腴ܺǴ胞ܺǴ胞ڤʊ腴ڤʊ腴ܺʊ胞ܺʊ胲ۯǴ胲ޅǴ聜ޅǴ聜ۯʊ胲ۯʊ胲ޅʊ聜ޅʊ聱ڤǴ聱ܺǴ翛ܺǴ翛ڤʊ聱ڤʊ聱ܺʊ翛ܺʊ翯ٙǴ翯ۯǴ罙ۯǴ罙ٙʊ翯ٙʊ翯ۯʊ罙ۯʊ罭؎Ǵ罭ڤǴ绗ڤǴ绗؎ʊ罭؎ʊ罭ڤʊ绗ڤʊ罭ոǴ罭؎Ǵ绗؎Ǵ绗ոʊ罭ոʊ罭؎ʊ绗؎ʊ罭ӢǴ罭ոǴ绗ոǴ绗Ӣʊ罭Ӣʊ罭ոʊ绗ոʊ罭ьǴ罭ӢǴ绗ӢǴ绗ьʊ罭ьʊ罭Ӣʊ绗Ӣʊ绫җǴ绫ԭǴ繕ԭǴ繕җʊ绫җʊ绫ԭʊ繕ԭʊ繩ӢǴ繩ոǴ緓ոǴ緓Ӣʊ繩Ӣʊ繩ոʊ緓ոʊ緧ԭǴ緧׃Ǵ絑׃Ǵ絑ԭʊ緧ԭʊ緧׃ʊ絑׃ʊ絥ӢǴ絥ոǴ糏ոǴ糏Ӣʊ絥Ӣʊ絥ոʊ糏ոʊ糣җǴ糣ԭǴ籍ԭǴ籍җʊ糣җʊ糣ԭʊ籍ԭʊ籡ьǴ籡ӢǴ篋ӢǴ篋ьʊ籡ьʊ籡Ӣʊ篋Ӣʊ籡ӢǴ籡ոǴ篋ոǴ篋Ӣʊ籡Ӣʊ籡ոʊ篋ոʊ籡ոǴ籡؎Ǵ篋؎Ǵ篋ոʊ籡ոʊ籡؎ʊ篋؎ʊ籡؎Ǵ籡ڤǴ篋ڤǴ篋؎ʊ籡؎ʊ籡ڤʊ篋ڤʊ篟ٙǴ篟ۯǴ等ۯǴ等ٙʊ篟ٙʊ篟ۯʊ等ۯʊ筞ڤǴ筞ܺǴ竈ܺǴ竈ڤʊ筞ڤʊ筞ܺʊ竈ܺʊ竜ۯǴ竜ޅǴ穆ޅǴ穆ۯʊ竜ۯʊ竜ޅʊ穆ޅʊ筞ܺǴ筞ߐǴ竈ߐǴ竈ܺʊ筞ܺʊ筞ߐʊ竈ߐʊ篟ޅǴ篟ࠛǴ等ࠛǴ等ޅʊ篟ޅʊ篟ࠛʊ等ࠛʊ籡ߐǴ籡ࡦǴ篋ࡦǴ篋ߐʊ籡ߐʊ籡ࡦʊ篋ࡦʊ籡ࡦǴ籡ࣼǴ篋ࣼǴ篋ࡦʊ籡ࡦʊ籡ࣼʊ篋ࣼʊ籡ࣼǴ籡঒Ǵ篋঒Ǵ篋ࣼʊ籡ࣼʊ籡঒ʊ篋঒ʊ籡঒Ǵ籡ਨǴ篋ਨǴ篋঒ʊ籡঒ʊ籡ਨʊ篋ਨʊ篟ঢ়Ǵ篟ੳǴ等ੳǴ等ঢ়ʊ篟ঢ়ʊ篟ੳʊ等ੳʊ筞ਨǴ筞ાǴ竈ાǴ竈ਨʊ筞ਨʊ筞ાʊ竈ાʊ竜ੳǴ竜ଉǴ穆ଉǴ穆ੳʊ竜ੳʊ竜ଉʊ穆ଉʊ穚ਨǴ穚ાǴ秄ાǴ秄ਨʊ穚ਨʊ穚ાʊ秄ાʊ秘ঢ়Ǵ秘ੳǴ祂ੳǴ祂ঢ়ʊ秘ঢ়ʊ秘ੳʊ祂ੳʊ祖঒Ǵ祖ਨǴ磀ਨǴ磀঒ʊ祖঒ʊ祖ਨʊ磀ਨʊ祖ਨǴ祖ાǴ磀ાǴ磀ਨʊ祖ਨʊ祖ાʊ磀ાʊ祖ાǴ祖୔Ǵ磀୔Ǵ磀ાʊ祖ાʊ祖୔ʊ磀୔ʊ祖୔Ǵ祖௪Ǵ磀௪Ǵ磀୔ʊ祖୔ʊ祖௪ʊ磀௪ʊ磔டǴ磔వǴ砾వǴ砾டʊ磔டʊ磔వʊ砾వʊ硒௪Ǵ硒ಀǴ瞼ಀǴ瞼௪ʊ硒௪ʊ硒ಀʊ瞼ಀʊ矐వǴ矐ೋǴ眺ೋǴ眺వʊ矐వʊ矐ೋʊ眺ೋʊ睎௪Ǵ睎ಀǴ皸ಀǴ皸௪ʊ睎௪ʊ睎ಀʊ皸ಀʊ盌டǴ盌వǴ瘶వǴ瘶டʊ盌டʊ盌వʊ瘶వʊ癊୔Ǵ癊௪Ǵ疴௪Ǵ疴୔ʊ癊୔ʊ癊௪ʊ疴௪ʊ癊ાǴ癊୔Ǵ疴୔Ǵ疴ાʊ癊ાʊ癊୔ʊ疴୔ʊ癊ਨǴ癊ાǴ疴ાǴ疴ਨʊ癊ਨʊ癊ાʊ疴ાʊ癊঒Ǵ癊ਨǴ疴ਨǴ疴঒ʊ癊঒ʊ癊ਨʊ疴ਨʊ痉ঢ়Ǵ痉ੳǴ申ੳǴ申ঢ়ʊ痉ঢ়ʊ痉ੳʊ申ੳʊ畇ਨǴ畇ાǴ璱ાǴ璱ਨʊ畇ਨʊ畇ાʊ璱ાʊ瓅ੳǴ瓅ଉǴ琯ଉǴ琯ੳʊ瓅ੳʊ瓅ଉʊ琯ଉʊ瑃ਨǴ瑃ાǴ玭ાǴ玭ਨʊ瑃ਨʊ瑃ાʊ玭ાʊ珁ঢ়Ǵ珁ੳǴ猫ੳǴ猫ঢ়ʊ珁ঢ়ʊ珁ੳʊ猫ੳʊ猿঒Ǵ猿ਨǴ犩ਨǴ犩঒ʊ猿঒ʊ猿ਨʊ犩ਨʊ猿ࣼǴ猿঒Ǵ犩঒Ǵ犩ࣼʊ猿ࣼʊ猿঒ʊ犩঒ʊ猿ࡦǴ猿ࣼǴ犩ࣼǴ犩ࡦʊ猿ࡦʊ猿ࣼʊ犩ࣼʊ猿ߐǴ猿ࡦǴ犩ࡦǴ犩ߐʊ猿ߐʊ猿ࡦʊ犩ࡦʊ珁ޅǴ珁ࠛǴ猫ࠛǴ猫ޅʊ珁ޅʊ珁ࠛʊ猫ࠛʊ瑃ܺǴ瑃ߐǴ玭ߐǴ玭ܺʊ瑃ܺʊ瑃ߐʊ玭ߐʊ瓅ۯǴ瓅ޅǴ琯ޅǴ琯ۯʊ瓅ۯʊ瓅ޅʊ琯ޅʊ瑃ڤǴ瑃ܺǴ玭ܺǴ玭ڤʊ瑃ڤʊ瑃ܺʊ玭ܺʊ珁ٙǴ珁ۯǴ猫ۯǴ猫ٙʊ珁ٙʊ珁ۯʊ猫ۯʊ猿؎Ǵ猿ڤǴ犩ڤǴ犩؎ʊ猿؎ʊ猿ڤʊ犩ڤʊ猿ոǴ猿؎Ǵ犩؎Ǵ犩ոʊ猿ոʊ猿؎ʊ犩؎ʊ猿ӢǴ猿ոǴ犩ոǴ犩Ӣʊ猿Ӣʊ猿ոʊ犩ոʊ猿ьǴ猿ӢǴ犩ӢǴ犩ьʊ猿ьʊ猿Ӣʊ犩Ӣʊ犽җǴ犽ԭǴ爧ԭǴ爧җʊ犽җʊ犽ԭʊ爧ԭʊ爻ӢǴ爻ոǴ熥ոǴ熥Ӣʊ爻Ӣʊ爻ոʊ熥ոʊ熹ԭǴ熹׃Ǵ焣׃Ǵ焣ԭʊ熹ԭʊ熹׃ʊ焣׃ʊ焷ӢǴ焷ոǴ炡ոǴ炡Ӣʊ焷Ӣʊ焷ոʊ炡ոʊ炶җǴ炶ԭǴ瀠ԭǴ瀠җʊ炶җʊ炶ԭʊ瀠ԭʊ瀴ьǴ瀴ӢǴ澞ӢǴ澞ьʊ瀴ьʊ瀴Ӣʊ澞Ӣʊ瀴ӢǴ瀴ոǴ澞ոǴ澞Ӣʊ瀴Ӣʊ瀴ոʊ澞ոʊ瀴ոǴ瀴؎Ǵ澞؎Ǵ澞ոʊ瀴ոʊ瀴؎ʊ澞؎ʊ瀴؎Ǵ��ڤǴ澞ڤǴ澞؎ʊ瀴؎ʊ瀴ڤʊ澞ڤʊ澲ٙǴ澲ۯǴ漜ۯǴ漜ٙʊ澲ٙʊ澲ۯʊ漜ۯʊ漰ڤǴ漰ܺǴ溚ܺǴ溚ڤʊ漰ڤʊ漰ܺʊ溚ܺʊ溮ۯǴ溮ޅǴ渘ޅǴ渘ۯʊ溮ۯʊ溮ޅʊ渘ޅʊ測ڤǴ測ܺǴ涖ܺǴ涖ڤʊ測ڤʊ測ܺʊ涖ܺʊ涪ٙǴ涪ۯǴ洔ۯǴ洔ٙʊ涪ٙʊ涪ۯʊ洔ۯʊ洨؎Ǵ洨ڤǴ沒ڤǴ沒؎ʊ洨؎ʊ洨ڤʊ沒ڤʊ洨ոǴ洨؎Ǵ沒؎Ǵ沒ոʊ洨ոʊ洨؎ʊ沒؎ʊ洨ӢǴ洨ոǴ沒ոǴ沒Ӣʊ洨Ӣʊ洨ոʊ沒ոʊ洨ьǴ洨ӢǴ沒ӢǴ沒ьʊ洨ьʊ洨Ӣʊ沒Ӣʊ沦җǴ沦ԭǴ氐ԭǴ氐җʊ沦җʊ沦ԭʊ氐ԭʊ氤ӢǴ氤ոǴ殎ոǴ殎Ӣʊ氤Ӣʊ氤ոʊ殎ոʊ殣ԭǴ殣׃Ǵ欍׃Ǵ欍ԭʊ殣ԭʊ殣׃ʊ欍׃ʊ次ӢǴ次ոǴ檋ոǴ檋Ӣʊ次Ӣʊ次ոʊ檋ոʊ檟җǴ檟ԭǴ樉ԭǴ樉җʊ檟җʊ檟ԭʊ樉ԭʊ樝ьǴ樝ӢǴ榇ӢǴ榇ьʊ樝ьʊ樝Ӣʊ榇Ӣʊ樝ζǴ樝ьǴ榇ьǴ榇ζʊ樝ζʊ樝ьʊ榇ьʊ樝̠Ǵ樝ζǴ榇ζǴ榇̠ʊ樝̠ʊ樝ζʊ榇ζʊ樝ʊǴ樝̠Ǵ榇̠Ǵ榇ʊʊ樝ʊʊ樝̠ʊ榇̠ʊ檟ȿǴ檟˕Ǵ樉˕Ǵ樉ȿʊ檟ȿʊ檟˕ʊ樉˕ʊ次ǴǴ次ʊǴ檋ʊǴ檋Ǵʊ次Ǵʊ次ʊʊ檋ʊʊ殣��Ǵ殣ȿǴ欍ȿǴ欍Ʃʊ殣Ʃʊ殣ȿʊ欍ȿʊ次ŞǴ次ǴǴ檋ǴǴ檋Şʊ次Şʊ次Ǵʊ檋Ǵʊ檟ēǴ檟ƩǴ樉ƩǴ樉ēʊ檟ēʊ檟Ʃʊ樉Ʃʊ樝ÈǴ樝ŞǴ榇ŞǴ榇Èʊ樝Èʊ樝Şʊ榇Şʊ樝2Ǵ樝ÈǴ榇ÈǴ榇2ʊ樝2ʊ樝Èʊ榇Èʊ樝ﾜǴ樝2Ǵ榇2Ǵ榇ﾜʊ樝ﾜʊ樝2ʊ榇2ʊ樝＆Ǵ樝ﾜǴ榇ﾜǴ榇＆ʊ樝＆ʊ樝ﾜʊ榇ﾜʊ檟ﺻǴ檟ｑǴ樉ｑǴ樉ﺻʊ檟ﺻʊ檟ｑʊ樉ｑʊ次ﹰǴ次＆Ǵ檋＆Ǵ檋ﹰʊ次ﹰʊ次＆ʊ檋＆ʊ殣︥Ǵ殣ﺻǴ欍ﺻǴ欍︥ʊ殣︥ʊ殣ﺻʊ欍ﺻʊ氤ﹰǴ氤＆Ǵ殎＆Ǵ殎ﹰʊ氤ﹰʊ氤＆ʊ殎＆ʊ沦ﺻǴ沦ｑǴ氐ｑǴ氐ﺻʊ沦ﺻʊ沦ｑʊ氐ｑʊ洨＆Ǵ洨ﾜǴ沒ﾜǴ沒＆ʊ洨＆ʊ洨ﾜʊ沒ﾜʊ洨ﹰǴ洨＆Ǵ沒＆Ǵ沒ﹰʊ洨ﹰʊ洨＆ʊ沒＆ʊ洨﷚Ǵ洨ﹰǴ沒ﹰǴ沒﷚ʊ洨﷚ʊ洨ﹰʊ沒ﹰʊ洨﵄Ǵ洨﷚Ǵ沒﷚Ǵ沒﵄ʊ洨﵄ʊ洨﷚ʊ沒﷚ʊ涪ﳹǴ涪ﶏǴ洔ﶏǴ洔ﳹʊ涪ﳹʊ涪ﶏʊ洔ﶏʊ測ﲮǴ測﵄Ǵ涖﵄Ǵ涖ﲮʊ測ﲮʊ測﵄ʊ涖﵄ʊ溮ﱣǴ溮ﳹǴ渘ﳹǴ渘ﱣʊ溮ﱣʊ溮ﳹʊ渘ﳹʊ測ﰘǴ��ﲮǴ涖ﲮǴ涖ﰘʊ測ﰘʊ測ﲮʊ涖ﲮʊ涪﯍Ǵ涪ﱣǴ洔ﱣǴ洔﯍ʊ涪﯍ʊ涪ﱣʊ洔ﱣʊ洨ﮂǴ洨ﰘǴ沒ﰘǴ沒ﮂʊ洨ﮂʊ洨ﰘʊ沒ﰘʊ洨﫬Ǵ洨ﮂǴ沒ﮂǴ沒﫬ʊ洨﫬ʊ洨ﮂʊ沒ﮂʊ洨節Ǵ洨﫬Ǵ沒﫬Ǵ沒節ʊ洨節ʊ洨﫬ʊ沒﫬ʊ洨燎Ǵ洨節Ǵ沒節Ǵ沒燎ʊ洨燎ʊ洨節ʊ沒節ʊ沦廓Ǵ沦瑱Ǵ氐瑱Ǵ氐廓ʊ沦廓ʊ沦瑱ʊ氐瑱ʊ氤節Ǵ氤﫬Ǵ殎﫬Ǵ殎節ʊ氤節ʊ氤﫬ʊ殎﫬ʊ殣瑱Ǵ殣﬷Ǵ欍﬷Ǵ欍瑱ʊ殣瑱ʊ殣﬷ʊ欍﬷ʊ次節Ǵ次﫬Ǵ檋﫬Ǵ檋節ʊ次節ʊ次﫬ʊ檋﫬ʊ檟廓Ǵ檟瑱Ǵ樉瑱Ǵ樉廓ʊ檟廓ʊ檟瑱ʊ樉瑱ʊ樝燎Ǵ樝節Ǵ榇節Ǵ榇燎ʊ樝燎ʊ樝節ʊ榇節ʊ樝浪Ǵ樝燎Ǵ榇燎Ǵ榇浪ʊ樝浪ʊ樝燎ʊ榇燎ʊ樝Ǵ樝浪Ǵ榇浪Ǵ榇ʊ樝ʊ樝浪ʊ榇浪ʊ樝Ǵ樝Ǵ榇Ǵ榇ʊ樝ʊ樝ʊ榇ʊ檟Ǵ檟Ǵ樉Ǵ樉ʊ檟ʊ檟ʊ樉ʊ次Ǵ次Ǵ檋Ǵ檋ʊ次ʊ次ʊ檋ʊ殣Ǵ殣Ǵ欍Ǵ欍ʊ殣ʊ殣ʊ欍ʊ次Ǵ次Ǵ檋Ǵ��ʊ次ʊ次ʊ檋ʊ檟Ǵ檟Ǵ樉Ǵ樉ʊ檟ʊ檟ʊ樉ʊ樝Ǵ樝Ǵ榇Ǵ榇ʊ樝ʊ樝ʊ榇ʊ樝Ǵ樝Ǵ榇Ǵ榇ʊ樝ʊ樝ʊ榇ʊ樝Ǵ樝Ǵ榇Ǵ榇ʊ樝ʊ樝ʊ榇ʊ樝Ǵ樝Ǵ榇Ǵ榇ʊ樝ʊ樝ʊ榇ʊ榛Ǵ榛Ǵ椅Ǵ椅ʊ榛ʊ榛ʊ椅ʊ椙Ǵ椙Ǵ梃Ǵ梃ʊ椙ʊ椙ʊ梃ʊ梗Ǵ梗Ǵ栁Ǵ栁ʊ梗ʊ梗ʊ栁ʊ栕Ǵ栕Ǵ板Ǵ板ʊ栕ʊ栕ʊ板ʊ枓Ǵ枓Ǵ曽Ǵ曽ʊ枓ʊ枓ʊ曽ʊ朑Ǵ朑Ǵ晻Ǵ晻ʊ朑ʊ朑ʊ晻ʊ朑Ǵ朑Ǵ晻Ǵ晻ʊ朑ʊ朑ʊ晻ʊ朑Ǵ朑Ǵ晻Ǵ晻ʊ朑ʊ朑ʊ晻ʊ朑Ǵ朑Ǵ晻Ǵ晻ʊ朑ʊ朑ʊ晻ʊ暏Ǵ暏Ǵ旹Ǵ旹ʊ暏ʊ暏ʊ旹ʊ明Ǵ明Ǵ數Ǵ數ʊ明ʊ明ʊ數ʊ斌Ǵ斌Ǵ擶Ǵ擶ʊ斌ʊ斌ʊ擶ʊ攊Ǵ攊Ǵ摴Ǵ摴ʊ攊ʊ��ʊ摴ʊ撈Ǵ撈Ǵ揲Ǵ揲ʊ撈ʊ撈ʊ揲ʊ搆Ǵ搆Ǵ捰Ǵ捰ʊ搆ʊ搆ʊ捰ʊ搆Ǵ搆Ǵ捰Ǵ捰ʊ搆ʊ搆ʊ捰ʊ搆Ǵ搆Ǵ捰Ǵ捰ʊ搆ʊ搆ʊ捰ʊ搆Ǵ搆Ǵ捰Ǵ捰ʊ搆ʊ搆ʊ捰ʊ掄Ǵ掄Ǵ拮Ǵ拮ʊ掄ʊ掄ʊ拮ʊ挂Ǵ挂Ǵ扬Ǵ扬ʊ挂ʊ挂ʊ扬ʊ技Ǵ技Ǵ懪Ǵ懪ʊ技ʊ技ʊ懪ʊ懾Ǵ懾Ǵ慨Ǵ慨ʊ懾ʊ懾ʊ慨ʊ慼Ǵ慼Ǵ惦Ǵ惦ʊ慼ʊ慼ʊ惦ʊ惻Ǵ惻Ǵ恥Ǵ恥ʊ惻ʊ惻ʊ恥ʊ惻Ǵ惻Ǵ恥Ǵ恥ʊ惻ʊ惻ʊ恥ʊ惻Ǵ惻Ǵ恥Ǵ恥ʊ惻ʊ惻ʊ恥ʊ惻Ǵ惻Ǵ恥Ǵ恥ʊ惻ʊ惻ʊ恥ʊ恹Ǵ恹Ǵ忣Ǵ忣ʊ恹ʊ恹ʊ忣ʊ忷Ǵ忷Ǵ彡Ǵ彡ʊ忷ʊ忷ʊ彡ʊ彵Ǵ彵Ǵ廟Ǵ廟ʊ彵ʊ彵ʊ廟ʊ忷Ǵ忷Ǵ彡Ǵ彡ʊ忷ʊ忷ʊ彡ʊ��Ǵ恹Ǵ忣Ǵ忣ʊ恹ʊ恹ʊ忣ʊ惻Ǵ惻Ǵ恥Ǵ恥ʊ惻ʊ惻ʊ恥ʊ惻Ǵ惻浪Ǵ恥浪Ǵ恥ʊ惻ʊ惻浪ʊ恥浪ʊ惻浪Ǵ惻燎Ǵ恥燎Ǵ恥浪ʊ惻浪ʊ惻燎ʊ恥燎ʊ惻燎Ǵ惻節Ǵ恥節Ǵ恥燎ʊ惻燎ʊ惻節ʊ恥節ʊ恹廓Ǵ恹瑱Ǵ忣瑱Ǵ忣廓ʊ恹廓ʊ恹瑱ʊ忣瑱ʊ忷節Ǵ忷﫬Ǵ彡﫬Ǵ彡節ʊ忷節ʊ忷﫬ʊ彡﫬ʊ彵瑱Ǵ彵﬷Ǵ廟﬷Ǵ廟瑱ʊ彵瑱ʊ彵﬷ʊ廟﬷ʊ廳節Ǵ廳﫬Ǵ幝﫬Ǵ幝節ʊ廳節ʊ廳﫬ʊ幝﫬ʊ幱廓Ǵ幱瑱Ǵ巛瑱Ǵ巛廓ʊ幱廓ʊ幱瑱ʊ巛瑱ʊ巯燎Ǵ巯節Ǵ嵙節Ǵ嵙燎ʊ巯燎ʊ巯節ʊ嵙節ʊ巯節Ǵ巯﫬Ǵ嵙﫬Ǵ嵙節ʊ巯節ʊ巯﫬ʊ嵙﫬ʊ巯﫬Ǵ巯ﮂǴ嵙ﮂǴ嵙﫬ʊ巯﫬ʊ巯ﮂʊ嵙ﮂʊ巯ﮂǴ巯ﰘǴ嵙ﰘǴ嵙ﮂʊ巯ﮂʊ巯ﰘʊ嵙ﰘʊ嵭﯍Ǵ嵭ﱣǴ峗ﱣǴ峗﯍ʊ嵭﯍ʊ嵭ﱣʊ峗ﱣʊ峫ﰘǴ峫ﲮǴ展ﲮǴ展ﰘʊ峫ﰘʊ峫ﲮʊ展ﲮʊ屩ﱣǴ屩ﳹǴ寓ﳹǴ寓ﱣʊ屩ﱣʊ屩ﳹʊ寓ﳹʊ寧ﰘǴ寧ﲮǴ孑ﲮǴ孑ﰘʊ寧ﰘʊ寧ﲮʊ孑ﲮʊ学﯍Ǵ学ﱣǴ��ﱣǴ嫐﯍ʊ学﯍ʊ学ﱣʊ嫐ﱣʊ嫤ﮂǴ嫤ﰘǴ婎ﰘǴ婎ﮂʊ嫤ﮂʊ嫤ﰘʊ婎ﰘʊ嫤﫬Ǵ嫤ﮂǴ婎ﮂǴ婎﫬ʊ嫤﫬ʊ嫤ﮂʊ婎ﮂʊ嫤節Ǵ嫤﫬Ǵ婎﫬Ǵ婎節ʊ嫤節ʊ嫤﫬ʊ婎﫬ʊ嫤燎Ǵ嫤節Ǵ婎節Ǵ婎燎ʊ嫤燎ʊ嫤節ʊ婎節ʊ婢廓Ǵ婢瑱Ǵ姌瑱Ǵ姌廓ʊ婢廓ʊ婢瑱ʊ姌瑱ʊ姠節Ǵ姠﫬Ǵ奊﫬Ǵ奊節ʊ姠節ʊ姠﫬ʊ奊﫬ʊ奞瑱Ǵ奞﬷Ǵ壈﬷Ǵ壈瑱ʊ奞瑱ʊ奞﬷ʊ壈﬷ʊ壜節Ǵ壜﫬Ǵ塆﫬Ǵ塆節ʊ壜節ʊ壜﫬ʊ塆﫬ʊ塚廓Ǵ塚瑱Ǵ埄瑱Ǵ埄廓ʊ塚廓ʊ塚瑱ʊ埄瑱ʊ埘燎Ǵ埘節Ǵ坂節Ǵ坂燎ʊ埘燎ʊ埘節ʊ坂節ʊ埘浪Ǵ埘燎Ǵ坂燎Ǵ坂浪ʊ埘浪ʊ埘燎ʊ坂燎ʊ埘Ǵ埘浪Ǵ坂浪Ǵ坂ʊ埘ʊ埘浪ʊ坂浪ʊ埘Ǵ埘Ǵ坂Ǵ坂ʊ埘ʊ埘ʊ坂ʊ塚Ǵ塚Ǵ埄Ǵ埄ʊ塚ʊ塚ʊ埄ʊ壜Ǵ壜Ǵ塆Ǵ塆ʊ壜ʊ壜ʊ塆ʊ奞Ǵ奞Ǵ壈Ǵ壈ʊ奞ʊ奞ʊ壈ʊ壜Ǵ壜Ǵ塆Ǵ塆ʊ壜ʊ壜ʊ塆ʊ塚Ǵ塚Ǵ埄Ǵ埄ʊ��ʊ塚ʊ埄ʊ埘Ǵ埘Ǵ坂Ǵ坂ʊ埘ʊ埘ʊ坂ʊ埘Ǵ埘Ǵ坂Ǵ坂ʊ埘ʊ埘ʊ坂ʊ埘Ǵ埘Ǵ坂Ǵ坂ʊ埘ʊ埘ʊ坂ʊ埘Ǵ埘Ǵ坂Ǵ坂ʊ埘ʊ埘ʊ坂ʊ坖Ǵ坖Ǵ囀Ǵ囀ʊ坖ʊ坖ʊ囀ʊ囔Ǵ囔Ǵ嘾Ǵ嘾ʊ囔ʊ囔ʊ嘾ʊ噓Ǵ噓Ǵ喽Ǵ喽ʊ噓ʊ噓ʊ喽ʊ嗑Ǵ嗑Ǵ唻Ǵ唻ʊ嗑ʊ嗑ʊ唻ʊ問Ǵ問Ǵ咹Ǵ咹ʊ問ʊ問ʊ咹ʊ响Ǵ响Ǵ吷Ǵ吷ʊ响ʊ响ʊ吷ʊ响Ǵ响Ǵ吷Ǵ吷ʊ响ʊ响ʊ吷ʊ响Ǵ响Ǵ吷Ǵ吷ʊ响ʊ响ʊ吷ʊ响Ǵ响Ǵ吷Ǵ吷ʊ响ʊ响ʊ吷ʊ呋Ǵ呋Ǵ厵Ǵ厵ʊ呋ʊ呋ʊ厵ʊ叉Ǵ叉Ǵ匳Ǵ匳ʊ叉ʊ叉ʊ匳ʊ升Ǵ升Ǵ励Ǵ励ʊ升ʊ升ʊ励ʊ勅Ǵ勅Ǵ刯Ǵ刯ʊ勅ʊ勅ʊ刯ʊ剃Ǵ剃Ǵ冭Ǵ冭ʊ剃ʊ剃ʊ��ʊ凁Ǵ凁Ǵ儫Ǵ儫ʊ凁ʊ凁ʊ儫ʊ凁Ǵ凁Ǵ儫Ǵ儫ʊ凁ʊ凁ʊ儫ʊ凁Ǵ凁Ǵ儫Ǵ儫ʊ凁ʊ凁ʊ儫ʊ凁Ǵ凁Ǵ儫Ǵ儫ʊ凁ʊ凁ʊ儫ʊ兀Ǵ兀Ǵ傪Ǵ傪ʊ兀ʊ兀ʊ傪ʊ傾Ǵ傾Ǵ倨Ǵ倨ʊ傾ʊ傾ʊ倨ʊ值Ǵ值Ǵ侦Ǵ侦ʊ值ʊ值ʊ侦ʊ侺Ǵ侺Ǵ伤Ǵ伤ʊ侺ʊ侺ʊ伤ʊ伸Ǵ伸Ǵ亢Ǵ亢ʊ伸ʊ伸ʊ亢ʊ亶Ǵ亶Ǵ丠Ǵ丠ʊ亶ʊ亶ʊ丠ʊ亶Ǵ亶Ǵ丠Ǵ丠ʊ亶ʊ亶ʊ丠ʊ亶Ǵ亶Ǵ丠Ǵ丠ʊ亶ʊ亶ʊ丠ʊ亶Ǵ亶Ǵ丠Ǵ丠ʊ亶ʊ亶ʊ丠ʊ临Ǵ临Ǵ䶞Ǵ䶞ʊ临ʊ临ʊ䶞ʊ䶲Ǵ䶲Ǵ䴜Ǵ䴜ʊ䶲ʊ䶲ʊ䴜ʊ䴰Ǵ䴰Ǵ䲚Ǵ䲚ʊ䴰ʊ䴰ʊ䲚ʊ䶲Ǵ䶲Ǵ䴜Ǵ䴜ʊ䶲ʊ䶲ʊ䴜ʊ临Ǵ临Ǵ䶞Ǵ䶞ʊ临ʊ临ʊ䶞ʊ亶Ǵ��Ǵ丠Ǵ丠ʊ亶ʊ亶ʊ丠ʊ亶Ǵ亶浪Ǵ丠浪Ǵ丠ʊ亶ʊ亶浪ʊ丠浪ʊ亶浪Ǵ亶燎Ǵ丠燎Ǵ丠浪ʊ亶浪ʊ亶燎ʊ丠燎ʊ亶燎Ǵ亶節Ǵ丠節Ǵ丠燎ʊ亶燎ʊ亶節ʊ丠節ʊ临廓Ǵ临瑱Ǵ䶞瑱Ǵ䶞廓ʊ临廓ʊ临瑱ʊ䶞瑱ʊ䶲節Ǵ䶲﫬Ǵ䴜﫬Ǵ䴜節ʊ䶲節ʊ䶲﫬ʊ䴜﫬ʊ䴰瑱Ǵ䴰﬷Ǵ䲚﬷Ǵ䲚瑱ʊ䴰瑱ʊ䴰﬷ʊ䲚﬷ʊ䲮節Ǵ䲮﫬Ǵ䰘﫬Ǵ䰘節ʊ䲮節ʊ䲮﫬ʊ䰘﫬ʊ䰬廓Ǵ䰬瑱Ǵ䮖瑱Ǵ䮖廓ʊ䰬廓ʊ䰬瑱ʊ䮖瑱ʊ䮫燎Ǵ䮫節Ǵ䬕節Ǵ䬕燎ʊ䮫燎ʊ䮫節ʊ䬕節ʊ䮫節Ǵ䮫﫬Ǵ䬕﫬Ǵ䬕節ʊ䮫節ʊ䮫﫬ʊ䬕﫬ʊ䮫﫬Ǵ䮫ﮂǴ䬕ﮂǴ䬕﫬ʊ䮫﫬ʊ䮫ﮂʊ䬕ﮂʊ䮫ﮂǴ䮫ﰘǴ䬕ﰘǴ䬕ﮂʊ䮫ﮂʊ䮫ﰘʊ䬕ﰘʊ䬩﯍Ǵ䬩ﱣǴ䪓ﱣǴ䪓﯍ʊ䬩﯍ʊ䬩ﱣʊ䪓ﱣʊ䪧ﰘǴ䪧ﲮǴ䨑ﲮǴ䨑ﰘʊ䪧ﰘʊ䪧ﲮʊ䨑ﲮʊ䨥ﱣǴ䨥ﳹǴ䦏ﳹǴ䦏ﱣʊ䨥ﱣʊ䨥ﳹʊ䦏ﳹʊ䪧ﲮǴ䪧﵄Ǵ䨑﵄Ǵ䨑ﲮʊ䪧ﲮʊ䪧﵄ʊ䨑﵄ʊ䬩ﳹǴ䬩ﶏǴ䪓ﶏǴ䪓ﳹʊ䬩ﳹʊ䬩ﶏʊ䪓ﶏʊ䮫﵄Ǵ䮫﷚Ǵ䬕﷚Ǵ��﵄ʊ䮫﵄ʊ䮫﷚ʊ䬕﷚ʊ䮫﷚Ǵ䮫ﹰǴ䬕ﹰǴ䬕﷚ʊ䮫﷚ʊ䮫ﹰʊ䬕ﹰʊ䮫ﹰǴ䮫＆Ǵ䬕＆Ǵ䬕ﹰʊ䮫ﹰʊ䮫＆ʊ䬕＆ʊ䮫＆Ǵ䮫ﾜǴ䬕ﾜǴ䬕＆ʊ䮫＆ʊ䮫ﾜʊ䬕ﾜʊ䰬ﺻǴ䰬ｑǴ䮖ｑǴ䮖ﺻʊ䰬ﺻʊ䰬ｑʊ䮖ｑʊ䲮ﹰǴ䲮＆Ǵ䰘＆Ǵ䰘ﹰʊ䲮ﹰʊ䲮＆ʊ䰘＆ʊ䴰︥Ǵ䴰ﺻǴ䲚ﺻǴ䲚︥ʊ䴰︥ʊ䴰ﺻʊ䲚ﺻʊ䶲ﹰǴ䶲＆Ǵ䴜＆Ǵ䴜ﹰʊ䶲ﹰʊ䶲＆ʊ䴜＆ʊ临ﺻǴ临ｑǴ䶞ｑǴ䶞ﺻʊ临ﺻʊ临ｑʊ䶞ｑʊ亶＆Ǵ亶ﾜǴ丠ﾜǴ丠＆ʊ亶＆ʊ亶ﾜʊ丠ﾜʊ亶ﾜǴ亶2Ǵ丠2Ǵ丠ﾜʊ亶ﾜʊ亶2ʊ丠2ʊ亶2Ǵ亶ÈǴ丠ÈǴ丠2ʊ亶2ʊ亶Èʊ丠Èʊ亶ÈǴ亶ŞǴ丠ŞǴ丠Èʊ亶Èʊ亶Şʊ丠Şʊ临ēǴ临ƩǴ䶞ƩǴ䶞ēʊ临ēʊ临Ʃʊ䶞Ʃʊ䶲ŞǴ䶲ǴǴ䴜ǴǴ䴜Şʊ䶲Şʊ䶲Ǵʊ䴜Ǵʊ䴰ƩǴ䴰ȿǴ䲚ȿǴ䲚Ʃʊ䴰Ʃʊ䴰ȿʊ䲚ȿʊ䶲ǴǴ䶲ʊǴ䴜ʊǴ䴜Ǵʊ䶲Ǵʊ䶲ʊʊ䴜ʊʊ临ȿǴ临˕Ǵ䶞˕Ǵ䶞ȿʊ临ȿʊ临˕ʊ䶞˕ʊ亶ʊǴ亶̠Ǵ丠̠Ǵ丠ʊʊ亶ʊʊ亶̠ʊ丠̠ʊ亶̠Ǵ亶ζǴ丠ζǴ丠̠ʊ亶̠ʊ亶ζʊ丠ζʊ亶��Ǵ亶ьǴ丠ьǴ丠ζʊ亶ζʊ亶ьʊ丠ьʊ亶ьǴ亶ӢǴ丠ӢǴ丠ьʊ亶ьʊ亶Ӣʊ丠Ӣʊ临җǴ临ԭǴ䶞ԭǴ䶞җʊ临җʊ临ԭʊ䶞ԭʊ䶲ӢǴ䶲ոǴ䴜ոǴ䴜Ӣʊ䶲Ӣʊ䶲ոʊ䴜ոʊ䴰ԭǴ䴰׃Ǵ䲚׃Ǵ䲚ԭʊ䴰ԭʊ䴰׃ʊ䲚׃ʊ䲮ӢǴ䲮ոǴ䰘ոǴ䰘Ӣʊ䲮Ӣʊ䲮ոʊ䰘ոʊ䰬җǴ䰬ԭǴ䮖ԭǴ䮖җʊ䰬җʊ䰬ԭʊ䮖ԭʊ䮫ьǴ䮫ӢǴ䬕ӢǴ䬕ьʊ䮫ьʊ䮫Ӣʊ䬕Ӣʊ䮫ӢǴ䮫ոǴ䬕ոǴ䬕Ӣʊ䮫Ӣʊ䮫ոʊ䬕ոʊ䮫ոǴ䮫؎Ǵ䬕؎Ǵ䬕ոʊ䮫ոʊ䮫؎ʊ䬕؎ʊ䮫؎Ǵ䮫ڤǴ䬕ڤǴ䬕؎ʊ䮫؎ʊ䮫ڤʊ䬕ڤʊ䬩ٙǴ䬩ۯǴ䪓ۯǴ䪓ٙʊ䬩ٙʊ䬩ۯʊ䪓ۯʊ䪧ڤǴ䪧ܺǴ䨑ܺǴ䨑ڤʊ䪧ڤʊ䪧ܺʊ䨑ܺʊ䨥ۯǴ䨥ޅǴ䦏ޅǴ䦏ۯʊ䨥ۯʊ䨥ޅʊ䦏ޅʊ䦣ڤǴ䦣ܺǴ䤍ܺǴ䤍ڤʊ䦣ڤʊ䦣ܺʊ䤍ܺʊ䤡ٙǴ䤡ۯǴ䢋ۯǴ䢋ٙʊ䤡ٙʊ䤡ۯʊ䢋ۯʊ䢟؎Ǵ䢟ڤǴ䠉ڤǴ䠉؎ʊ䢟؎ʊ䢟ڤʊ䠉ڤʊ䢟ոǴ䢟؎Ǵ䠉؎Ǵ䠉ոʊ䢟ոʊ䢟؎ʊ䠉؎ʊ䢟ӢǴ䢟ոǴ䠉ոǴ䠉Ӣʊ䢟Ӣʊ䢟ոʊ䠉ոʊ䢟ьǴ䢟ӢǴ䠉ӢǴ䠉ьʊ䢟ьʊ䢟Ӣʊ䠉Ӣʊ䠝җǴ䠝ԭǴ䞇ԭǴ䞇җʊ䠝җʊ䠝ԭʊ䞇ԭ��䞛ӢǴ䞛ոǴ䜅ոǴ䜅Ӣʊ䞛Ӣʊ䞛ոʊ䜅ոʊ䜙ԭǴ䜙׃Ǵ䚃׃Ǵ䚃ԭʊ䜙ԭʊ䜙׃ʊ䚃׃ʊ䚘ӢǴ䚘ոǴ䘂ոǴ䘂Ӣʊ䚘Ӣʊ䚘ոʊ䘂ոʊ䘖җǴ䘖ԭǴ䖀ԭǴ䖀җʊ䘖җʊ䘖ԭʊ䖀ԭʊ䖔ьǴ䖔ӢǴ䓾ӢǴ䓾ьʊ䖔ьʊ䖔Ӣʊ䓾Ӣʊ䖔ӢǴ䖔ոǴ䓾ոǴ䓾Ӣʊ䖔Ӣʊ䖔ոʊ䓾ոʊ䖔ոǴ䖔؎Ǵ䓾؎Ǵ䓾ոʊ䖔ոʊ䖔؎ʊ䓾؎ʊ䖔؎Ǵ䖔ڤǴ䓾ڤǴ䓾؎ʊ䖔؎ʊ䖔ڤʊ䓾ڤʊ䔒ٙǴ䔒ۯǴ䑼ۯǴ䑼ٙʊ䔒ٙʊ䔒ۯʊ䑼ۯʊ䒐ڤǴ䒐ܺǴ䏺ܺǴ䏺ڤʊ䒐ڤʊ䒐ܺʊ䏺ܺʊ䐎ۯǴ䐎ޅǴ䍸ޅǴ䍸ۯʊ䐎ۯʊ䐎ޅʊ䍸ޅʊ䒐ܺǴ䒐ߐǴ䏺ߐǴ䏺ܺʊ䒐ܺʊ䒐ߐʊ䏺ߐʊ䔒ޅǴ䔒ࠛǴ䑼ࠛǴ䑼ޅʊ䔒ޅʊ䔒ࠛʊ䑼ࠛʊ䖔ߐǴ䖔ࡦǴ䓾ࡦǴ䓾ߐʊ䖔ߐʊ䖔ࡦʊ䓾ࡦʊ䖔ࡦǴ䖔ࣼǴ䓾ࣼǴ䓾ࡦʊ䖔ࡦʊ䖔ࣼʊ䓾ࣼʊ䖔ࣼǴ䖔঒Ǵ䓾঒Ǵ䓾ࣼʊ䖔ࣼʊ䖔঒ʊ䓾঒ʊ䖔঒Ǵ䖔ਨǴ䓾ਨǴ䓾঒ʊ䖔঒ʊ䖔ਨʊ䓾ਨʊ䔒ঢ়Ǵ䔒ੳǴ䑼ੳǴ䑼ঢ়ʊ䔒ঢ়ʊ䔒ੳʊ䑼ੳʊ䒐ਨǴ䒐ાǴ䏺ાǴ䏺ਨʊ䒐ਨʊ䒐ાʊ䏺ાʊ䐎ੳǴ䐎ଉǴ䍸ଉǴ䍸ੳʊ䐎ੳʊ䐎ଉʊ���ଉʊ䎌ਨǴ䎌ાǴ䋶ાǴ䋶ਨʊ䎌ਨʊ䎌ાʊ䋶ાʊ䌊ঢ়Ǵ䌊ੳǴ䉴ੳǴ䉴ঢ়ʊ䌊ঢ়ʊ䌊ੳʊ䉴ੳʊ䊈঒Ǵ䊈ਨǴ䇲ਨǴ䇲঒ʊ䊈঒ʊ䊈ਨʊ䇲ਨʊ䊈ਨǴ䊈ાǴ䇲ાǴ䇲ਨʊ䊈ਨʊ䊈ાʊ䇲ાʊ䊈ાǴ䊈୔Ǵ䇲୔Ǵ䇲ાʊ䊈ાʊ䊈୔ʊ䇲୔ʊ䊈୔Ǵ䊈௪Ǵ䇲௪Ǵ䇲୔ʊ䊈୔ʊ䊈௪ʊ䇲௪ʊ䈆டǴ䈆వǴ䅰వǴ䅰டʊ䈆டʊ䈆వʊ䅰వʊ䆅௪Ǵ䆅ಀǴ䃯ಀǴ䃯௪ʊ䆅௪ʊ䆅ಀʊ䃯ಀʊ䄃వǴ䄃ೋǴ䁭ೋǴ䁭వʊ䄃వʊ䄃ೋʊ䁭ೋʊ䆅ಀǴ䆅ഖǴ䃯ഖǴ䃯ಀʊ䆅ಀʊ䆅ഖʊ䃯ഖʊ䈆ೋǴ䈆ൡǴ䅰ൡǴ䅰ೋʊ䈆ೋʊ䈆ൡʊ䅰ൡʊ䊈ഖǴ䊈ඬǴ䇲ඬǴ䇲ഖʊ䊈ഖʊ䊈ඬʊ䇲ඬʊ䊈ඬǴ䊈โǴ䇲โǴ䇲ඬʊ䊈ඬʊ䊈โʊ䇲โʊ䊈โǴ䊈໘Ǵ䇲໘Ǵ䇲โʊ䊈โʊ䊈໘ʊ䇲໘ʊ䊈໘Ǵ䊈཮Ǵ䇲཮Ǵ䇲໘ʊ䊈໘ʊ䊈཮ʊ䇲཮ʊ䌊ຍǴ䌊༣Ǵ䉴༣Ǵ䉴ຍʊ䌊ຍʊ䌊༣ʊ䉴༣ʊ䎌โǴ䎌໘Ǵ䋶໘Ǵ䋶โʊ䎌โʊ䎌໘ʊ䋶໘ʊ䐎෷Ǵ䐎ຍǴ䍸ຍǴ䍸෷ʊ䐎෷ʊ䐎ຍʊ䍸ຍʊ䒐โǴ���໘Ǵ䏺໘Ǵ䏺โʊ䒐โʊ䒐໘ʊ䏺໘ʊ䔒ຍǴ䔒༣Ǵ䑼༣Ǵ䑼ຍʊ䔒ຍʊ䔒༣ʊ䑼༣ʊ䖔໘Ǵ䖔཮Ǵ䓾཮Ǵ䓾໘ʊ䖔໘ʊ䖔཮ʊ䓾཮ʊ䖔཮Ǵ䖔ငǴ䓾ငǴ䓾཮ʊ䖔཮ʊ䖔ငʊ䓾ငʊ䖔ငǴ䖔ႚǴ䓾ႚǴ䓾ငʊ䖔ငʊ䖔ႚʊ䓾ႚʊ䖔ႚǴ䖔ᄰǴ䓾ᄰǴ䓾ႚʊ䖔ႚʊ䖔ᄰʊ䓾ᄰʊ䔒ქǴ䔒ᅻǴ䑼ᅻǴ䑼ქʊ䔒ქʊ䔒ᅻʊ䑼ᅻʊ䒐ᄰǴ䒐ᇆǴ䏺ᇆǴ䏺ᄰʊ䒐ᄰʊ䒐ᇆʊ䏺ᇆʊ䐎ᅻǴ䐎ሑǴ䍸ሑǴ䍸ᅻʊ䐎ᅻʊ䐎ሑʊ䍸ሑʊ䒐ᇆǴ䒐ቜǴ䏺ቜǴ䏺ᇆʊ䒐ᇆʊ䒐ቜʊ䏺ቜʊ䔒ሑǴ䔒ኧǴ䑼ኧǴ䑼ሑʊ䔒ሑʊ䔒ኧʊ䑼ኧʊ䖔ቜǴ䖔ዲǴ䓾ዲǴ䓾ቜʊ䖔ቜʊ䖔ዲʊ䓾ዲʊ䖔ዲǴ䖔ᎈǴ䓾ᎈǴ䓾ዲʊ䖔ዲʊ䖔ᎈʊ䓾ᎈʊ䖔ᎈǴ䖔ᐞǴ䓾ᐞǴ䓾ᎈʊ䖔ᎈʊ䖔ᐞʊ䓾ᐞʊ䖔ᐞǴ䖔ᒴǴ䓾ᒴǴ䓾ᐞʊ䖔ᐞʊ䖔ᒴʊ䓾ᒴʊ䘖ᏓǴ䘖ᑩǴ䖀ᑩǴ䖀Ꮣʊ䘖Ꮣʊ䘖ᑩʊ䖀ᑩʊ䚘ᎈǴ䚘ᐞǴ䘂ᐞǴ䘂ᎈʊ䚘ᎈʊ䚘ᐞʊ䘂ᐞʊ䜙ጽǴ䜙ᏓǴ䚃ᏓǴ䚃ጽʊ䜙ጽʊ䜙Ꮣʊ䚃Ꮣʊ䞛ᎈǴ䞛ᐞǴ䜅ᐞǴ���ᎈʊ䞛ᎈʊ䞛ᐞʊ䜅ᐞʊ䠝ᏓǴ䠝ᑩǴ䞇ᑩǴ䞇Ꮣʊ䠝Ꮣʊ䠝ᑩʊ䞇ᑩʊ䢟ᐞǴ䢟ᒴǴ䠉ᒴǴ䠉ᐞʊ䢟ᐞʊ䢟ᒴʊ䠉ᒴʊ䢟ᎈǴ䢟ᐞǴ䠉ᐞǴ䠉ᎈʊ䢟ᎈʊ䢟ᐞʊ䠉ᐞʊ䢟ዲǴ䢟ᎈǴ䠉ᎈǴ䠉ዲʊ䢟ዲʊ䢟ᎈʊ䠉ᎈʊ䢟ቜǴ䢟ዲǴ䠉ዲǴ䠉ቜʊ䢟ቜʊ䢟ዲʊ䠉ዲʊ䤡ሑǴ䤡ኧǴ䢋ኧǴ䢋ሑʊ䤡ሑʊ䤡ኧʊ䢋ኧʊ䦣ᇆǴ䦣ቜǴ䤍ቜǴ䤍ᇆʊ䦣ᇆʊ䦣ቜʊ䤍ቜʊ䨥ᅻǴ䨥ሑǴ䦏ሑǴ䦏ᅻʊ䨥ᅻʊ䨥ሑʊ䦏ሑʊ䪧ᇆǴ䪧ቜǴ䨑ቜǴ䨑ᇆʊ䪧ᇆʊ䪧ቜʊ䨑ቜʊ䬩ሑǴ䬩ኧǴ䪓ኧǴ䪓ሑʊ䬩ሑʊ䬩ኧʊ䪓ኧʊ䮫ቜǴ䮫ዲǴ䬕ዲǴ䬕ቜʊ䮫ቜʊ䮫ዲʊ䬕ዲʊ䮫ዲǴ䮫ᎈǴ䬕ᎈǴ䬕ዲʊ䮫ዲʊ䮫ᎈʊ䬕ᎈʊ䮫ᎈǴ䮫ᐞǴ䬕ᐞǴ䬕ᎈʊ䮫ᎈʊ䮫ᐞʊ䬕ᐞʊ䮫ᐞǴ䮫ᒴǴ䬕ᒴǴ䬕ᐞʊ䮫ᐞʊ䮫ᒴʊ䬕ᒴʊ䰬ᏓǴ䰬ᑩǴ䮖ᑩǴ䮖Ꮣʊ䰬Ꮣʊ䰬ᑩʊ䮖ᑩʊ䲮ᎈǴ䲮ᐞǴ䰘ᐞǴ䰘ᎈʊ䲮ᎈʊ䲮ᐞʊ䰘ᐞʊ䴰ጽǴ䴰ᏓǴ䲚ᏓǴ䲚ጽʊ䴰ጽʊ䴰Ꮣʊ䲚Ꮣʊ䶲ᎈǴ䶲ᐞǴ䴜ᐞǴ䴜ᎈʊ䶲ᎈʊ���ᐞʊ䴜ᐞʊ临ᏓǴ临ᑩǴ䶞ᑩǴ䶞Ꮣʊ临Ꮣʊ临ᑩʊ䶞ᑩʊ亶ᐞǴ亶ᒴǴ丠ᒴǴ丠ᐞʊ亶ᐞʊ亶ᒴʊ丠ᒴʊ亶ᒴǴ亶ᕊǴ丠ᕊǴ丠ᒴʊ亶ᒴʊ亶ᕊʊ丠ᕊʊ亶ᕊǴ亶ᗠǴ丠ᗠǴ丠ᕊʊ亶ᕊʊ亶ᗠʊ丠ᗠʊ亶ᗠǴ亶ᙶǴ丠ᙶǴ丠ᗠʊ亶ᗠʊ亶ᙶʊ丠ᙶʊ临ᘫǴ临ᛁǴ䶞ᛁǴ䶞ᘫʊ临ᘫʊ临ᛁʊ䶞ᛁʊ䶲ᙶǴ䶲ᜌǴ䴜ᜌǴ䴜ᙶʊ䶲ᙶʊ䶲ᜌʊ䴜ᜌʊ䴰ᛁǴ䴰᝗Ǵ䲚᝗Ǵ䲚ᛁʊ䴰ᛁʊ䴰᝗ʊ䲚᝗ʊ䶲ᜌǴ䶲អǴ䴜អǴ䴜ᜌʊ䶲ᜌʊ䶲អʊ䴜អʊ临᝗Ǵ临៭Ǵ䶞៭Ǵ䶞᝗ʊ临᝗ʊ临៭ʊ䶞៭ʊ亶អǴ亶ᠸǴ丠ᠸǴ丠អʊ亶អʊ亶ᠸʊ丠ᠸʊ亶ᠸǴ亶ᣎǴ丠ᣎǴ丠ᠸʊ亶ᠸʊ亶ᣎʊ丠ᣎʊ亶ᣎǴ亶ᥤǴ丠ᥤǴ丠ᣎʊ亶ᣎʊ亶ᥤʊ丠ᥤʊ亶ᥤǴ亶᧺Ǵ丠᧺Ǵ丠ᥤʊ亶ᥤʊ亶᧺ʊ丠᧺ʊ临᦯Ǵ临ᩅǴ䶞ᩅǴ䶞᦯ʊ临᦯ʊ临ᩅʊ䶞ᩅʊ䶲᧺Ǵ䶲᪐Ǵ䴜᪐Ǵ䴜᧺ʊ䶲᧺ʊ䶲᪐ʊ䴜᪐ʊ䴰ᩅǴ䴰᫛Ǵ䲚᫛Ǵ䲚ᩅʊ䴰ᩅʊ䴰᫛ʊ䲚᫛ʊ䲮᧺Ǵ䲮᪐Ǵ䰘᪐Ǵ䰘᧺ʊ䲮᧺ʊ䲮᪐ʊ䰘᪐ʊ���᦯Ǵ䰬ᩅǴ䮖ᩅǴ䮖᦯ʊ䰬᦯ʊ䰬ᩅʊ䮖ᩅʊ䮫ᥤǴ䮫᧺Ǵ䬕᧺Ǵ䬕ᥤʊ䮫ᥤʊ䮫᧺ʊ䬕᧺ʊ䮫᧺Ǵ䮫᪐Ǵ䬕᪐Ǵ䬕᧺ʊ䮫᧺ʊ䮫᪐ʊ䬕᪐ʊ䮫᪐Ǵ䮫ᬦǴ䬕ᬦǴ䬕᪐ʊ䮫᪐ʊ䮫ᬦʊ䬕ᬦʊ䮫ᬦǴ䮫ᮼǴ䬕ᮼǴ䬕ᬦʊ䮫ᬦʊ䮫ᮼʊ䬕ᮼʊ䬩᭱Ǵ䬩ᰇǴ䪓ᰇǴ䪓᭱ʊ䬩᭱ʊ䬩ᰇʊ䪓ᰇʊ䪧ᮼǴ䪧᱒Ǵ䨑᱒Ǵ䨑ᮼʊ䪧ᮼʊ䪧᱒ʊ䨑᱒ʊ䨥ᰇǴ䨥ᲝǴ䦏ᲝǴ䦏ᰇʊ䨥ᰇʊ䨥Ოʊ䦏Ოʊ䪧᱒Ǵ䪧᳨Ǵ䨑᳨Ǵ䨑᱒ʊ䪧᱒ʊ䪧᳨ʊ䨑᳨ʊ䬩ᲝǴ䬩ᴳǴ䪓ᴳǴ䪓Ოʊ䬩Ოʊ䬩ᴳʊ䪓ᴳʊ䮫᳨Ǵ䮫ᵾǴ䬕ᵾǴ䬕᳨ʊ䮫᳨ʊ䮫ᵾʊ䬕ᵾʊ䮫ᵾǴ䮫ḔǴ䬕ḔǴ䬕ᵾʊ䮫ᵾʊ䮫Ḕʊ䬕Ḕʊ䮫ḔǴ䮫ẪǴ䬕ẪǴ䬕Ḕʊ䮫Ḕʊ䮫Ẫʊ䬕Ẫʊ䮫ẪǴ䮫ὀǴ䬕ὀǴ䬕Ẫʊ䮫Ẫʊ䮫ὀʊ䬕ὀʊ䰬ṟǴ䰬ỵǴ䮖ỵǴ䮖ṟʊ䰬ṟʊ䰬ỵʊ䮖ỵʊ䲮ḔǴ䲮ẪǴ䰘ẪǴ䰘Ḕʊ䲮Ḕʊ䲮Ẫʊ䰘Ẫʊ䴰᷉Ǵ䴰ṟǴ䲚ṟǴ䲚᷉ʊ䴰᷉ʊ䴰ṟʊ䲚ṟʊ䶲ḔǴ䶲ẪǴ䴜ẪǴ䴜Ḕʊ䶲Ḕʊ䶲Ẫʊ䴜Ẫʊ临ṟǴ临ỵǴ���ỵǴ䶞ṟʊ临ṟʊ临ỵʊ䶞ỵʊ亶ẪǴ亶ὀǴ丠ὀǴ丠Ẫʊ亶Ẫʊ亶ὀʊ丠ὀʊ亶ὀǴ亶ῖǴ丠ῖǴ丠ὀʊ亶ὀʊ亶ῖʊ丠ῖʊ亶ῖǴ亶Ǵ丠Ǵ丠ῖʊ亶ῖʊ亶ʊ丠ʊ亶Ǵ亶ℂǴ丠ℂǴ丠ʊ亶ʊ亶ℂʊ丠ℂʊ临₷Ǵ临⅍Ǵ䶞⅍Ǵ䶞₷ʊ临₷ʊ临⅍ʊ䶞⅍ʊ䶲ℂǴ䶲↘Ǵ䴜↘Ǵ䴜ℂʊ䶲ℂʊ䶲↘ʊ䴜↘ʊ䴰⅍Ǵ䴰⇣Ǵ䲚⇣Ǵ䲚⅍ʊ䴰⅍ʊ䴰⇣ʊ䲚⇣ʊ䶲↘Ǵ䶲∮Ǵ䴜∮Ǵ䴜↘ʊ䶲↘ʊ䶲∮ʊ䴜∮ʊ临⇣Ǵ临≹Ǵ䶞≹Ǵ䶞⇣ʊ临⇣ʊ临≹ʊ䶞≹ʊ亶∮Ǵ亶⋄Ǵ丠⋄Ǵ丠∮ʊ亶∮ʊ亶⋄ʊ丠⋄ʊ亶⋄Ǵ亶⍚Ǵ丠⍚Ǵ丠⋄ʊ亶⋄ʊ亶⍚ʊ丠⍚ʊ亶⍚Ǵ亶⏰Ǵ丠⏰Ǵ丠⍚ʊ亶⍚ʊ亶⏰ʊ丠⏰ʊ亶⏰Ǵ亶⒆Ǵ丠⒆Ǵ丠⏰ʊ亶⏰ʊ亶⒆ʊ丠⒆ʊ临␻Ǵ临ⓑǴ䶞ⓑǴ䶞␻ʊ临␻ʊ临ⓑʊ䶞ⓑʊ䶲⒆Ǵ䶲├Ǵ䴜├Ǵ䴜⒆ʊ䶲⒆ʊ䶲├ʊ䴜├ʊ䴰ⓑǴ䴰╧Ǵ䲚╧Ǵ䲚ⓑʊ䴰ⓑʊ䴰╧ʊ䲚╧ʊ䲮⒆Ǵ䲮├Ǵ䰘├Ǵ䰘⒆ʊ䲮⒆ʊ䲮├ʊ䰘├ʊ䰬␻Ǵ䰬ⓑǴ䮖ⓑǴ䮖␻ʊ���␻ʊ䰬ⓑʊ䮖ⓑʊ䮫⏰Ǵ䮫⒆Ǵ䬕⒆Ǵ䬕⏰ʊ䮫⏰ʊ䮫⒆ʊ䬕⒆ʊ䮫⒆Ǵ䮫├Ǵ䬕├Ǵ䬕⒆ʊ䮫⒆ʊ䮫├ʊ䬕├ʊ䮫├Ǵ䮫▲Ǵ䬕▲Ǵ䬕├ʊ䮫├ʊ䮫▲ʊ䬕▲ʊ䮫▲Ǵ䮫♈Ǵ䬕♈Ǵ䬕▲ʊ䮫▲ʊ䮫♈ʊ䬕♈ʊ䬩◽Ǵ䬩⚓Ǵ䪓⚓Ǵ䪓◽ʊ䬩◽ʊ䬩⚓ʊ䪓⚓ʊ䪧♈Ǵ䪧⛞Ǵ䨑⛞Ǵ䨑♈ʊ䪧♈ʊ䪧⛞ʊ䨑⛞ʊ䨥⚓Ǵ䨥✩Ǵ䦏✩Ǵ䦏⚓ʊ䨥⚓ʊ䨥✩ʊ䦏✩ʊ䦣♈Ǵ䦣⛞Ǵ䤍⛞Ǵ䤍♈ʊ䦣♈ʊ䦣⛞ʊ䤍⛞ʊ䤡◽Ǵ䤡⚓Ǵ䢋⚓Ǵ䢋◽ʊ䤡◽ʊ䤡⚓ʊ䢋⚓ʊ䢟▲Ǵ䢟♈Ǵ䠉♈Ǵ䠉▲ʊ䢟▲ʊ䢟♈ʊ䠉♈ʊ䢟├Ǵ䢟▲Ǵ䠉▲Ǵ䠉├ʊ䢟├ʊ䢟▲ʊ䠉▲ʊ䢟⒆Ǵ䢟├Ǵ䠉├Ǵ䠉⒆ʊ䢟⒆ʊ䢟├ʊ䠉├ʊ䢟⏰Ǵ䢟⒆Ǵ䠉⒆Ǵ䠉⏰ʊ䢟⏰ʊ䢟⒆ʊ䠉⒆ʊ䠝␻Ǵ䠝ⓑǴ䞇ⓑǴ䞇␻ʊ䠝␻ʊ䠝ⓑʊ䞇ⓑʊ䞛⒆Ǵ䞛├Ǵ䜅├Ǵ䜅⒆ʊ䞛⒆ʊ䞛├ʊ䜅├ʊ䜙ⓑǴ䜙╧Ǵ䚃╧Ǵ䚃ⓑʊ䜙ⓑʊ䜙╧ʊ䚃╧ʊ䚘⒆Ǵ䚘├Ǵ䘂├Ǵ䘂⒆ʊ䚘⒆ʊ䚘├ʊ䘂├ʊ䘖␻Ǵ䘖ⓑǴ䖀ⓑǴ䖀␻ʊ䘖␻ʊ䘖ⓑʊ���ⓑʊ䖔⏰Ǵ䖔⒆Ǵ䓾⒆Ǵ䓾⏰ʊ䖔⏰ʊ䖔⒆ʊ䓾⒆ʊ䖔⒆Ǵ䖔├Ǵ䓾├Ǵ䓾⒆ʊ䖔⒆ʊ䖔├ʊ䓾├ʊ䖔├Ǵ䖔▲Ǵ䓾▲Ǵ䓾├ʊ䖔├ʊ䖔▲ʊ䓾▲ʊ䖔▲Ǵ䖔♈Ǵ䓾♈Ǵ䓾▲ʊ䖔▲ʊ䖔♈ʊ䓾♈ʊ䔒◽Ǵ䔒⚓Ǵ䑼⚓Ǵ䑼◽ʊ䔒◽ʊ䔒⚓ʊ䑼⚓ʊ䒐♈Ǵ䒐⛞Ǵ䏺⛞Ǵ䏺♈ʊ䒐♈ʊ䒐⛞ʊ䏺⛞ʊ䐎⚓Ǵ䐎✩Ǵ䍸✩Ǵ䍸⚓ʊ䐎⚓ʊ䐎✩ʊ䍸✩ʊ䒐⛞Ǵ䒐❴Ǵ䏺❴Ǵ䏺⛞ʊ䒐⛞ʊ䒐❴ʊ䏺❴ʊ䔒✩Ǵ䔒➿Ǵ䑼➿Ǵ䑼✩ʊ䔒✩ʊ䔒➿ʊ䑼➿ʊ䖔❴Ǵ䖔⠊Ǵ䓾⠊Ǵ䓾❴ʊ䖔❴ʊ䖔⠊ʊ䓾⠊ʊ䖔⠊Ǵ䖔⢠Ǵ䓾⢠Ǵ䓾⠊ʊ䖔⠊ʊ䖔⢠ʊ䓾⢠ʊ䖔⢠Ǵ䖔⤶Ǵ䓾⤶Ǵ䓾⢠ʊ䖔⢠ʊ䖔⤶ʊ䓾⤶ʊ䖔⤶Ǵ䖔⧌Ǵ䓾⧌Ǵ䓾⤶ʊ䖔⤶ʊ䖔⧌ʊ䓾⧌ʊ䔒⦁Ǵ䔒⨗Ǵ䑼⨗Ǵ䑼⦁ʊ䔒⦁ʊ䔒⨗ʊ䑼⨗ʊ䒐⧌Ǵ䒐⩢Ǵ䏺⩢Ǵ䏺⧌ʊ䒐⧌ʊ䒐⩢ʊ䏺⩢ʊ䐎⨗Ǵ䐎⪭Ǵ䍸⪭Ǵ䍸⨗ʊ䐎⨗ʊ䐎⪭ʊ䍸⪭ʊ䎌⧌Ǵ䎌⩢Ǵ䋶⩢Ǵ䋶⧌ʊ䎌⧌ʊ䎌⩢ʊ䋶⩢ʊ䌊⦁Ǵ䌊⨗Ǵ䉴⨗Ǵ䉴⦁ʊ䌊⦁ʊ䌊⨗ʊ䉴⨗ʊ䊈⤶Ǵ���⧌Ǵ䇲⧌Ǵ䇲⤶ʊ䊈⤶ʊ䊈⧌ʊ䇲⧌ʊ䊈⧌Ǵ䊈⩢Ǵ䇲⩢Ǵ䇲⧌ʊ䊈⧌ʊ䊈⩢ʊ䇲⩢ʊ䊈⩢Ǵ䊈⫸Ǵ䇲⫸Ǵ䇲⩢ʊ䊈⩢ʊ䊈⫸ʊ䇲⫸ʊ䊈⫸Ǵ䊈⮎Ǵ䇲⮎Ǵ䇲⫸ʊ䊈⫸ʊ䊈⮎ʊ䇲⮎ʊ䈆⭃Ǵ䈆⯙Ǵ䅰⯙Ǵ䅰⭃ʊ䈆⭃ʊ䈆⯙ʊ䅰⯙ʊ䆅⮎Ǵ䆅ⰤǴ䃯ⰤǴ䃯⮎ʊ䆅⮎ʊ䆅Ⱔʊ䃯Ⱔʊ䄃⯙Ǵ䄃ⱯǴ䁭ⱯǴ䁭⯙ʊ䄃⯙ʊ䄃Ɐʊ䁭Ɐʊ䂁⮎Ǵ䂁ⰤǴ㿫ⰤǴ㿫⮎ʊ䂁⮎ʊ䂁Ⱔʊ㿫Ⱔʊ㿿⭃Ǵ㿿⯙Ǵ㽩⯙Ǵ㽩⭃ʊ㿿⭃ʊ㿿⯙ʊ㽩⯙ʊ㽽⫸Ǵ㽽⮎Ǵ㻧⮎Ǵ㻧⫸ʊ㽽⫸ʊ㽽⮎ʊ㻧⮎ʊ㽽⩢Ǵ㽽⫸Ǵ㻧⫸Ǵ㻧⩢ʊ㽽⩢ʊ㽽⫸ʊ㻧⫸ʊ㽽⧌Ǵ㽽⩢Ǵ㻧⩢Ǵ㻧⧌ʊ㽽⧌ʊ㽽⩢ʊ㻧⩢ʊ㽽⤶Ǵ㽽⧌Ǵ㻧⧌Ǵ㻧⤶ʊ㽽⤶ʊ㽽⧌ʊ㻧⧌ʊ㻻⦁Ǵ㻻⨗Ǵ㹥⨗Ǵ㹥⦁ʊ㻻⦁ʊ㻻⨗ʊ㹥⨗ʊ㹹⧌Ǵ㹹⩢Ǵ㷣⩢Ǵ㷣⧌ʊ㹹⧌ʊ㹹⩢ʊ㷣⩢ʊ㷷⨗Ǵ㷷⪭Ǵ㵡⪭Ǵ㵡⨗ʊ㷷⨗ʊ㷷⪭ʊ㵡⪭ʊ㵵⧌Ǵ㵵⩢Ǵ㳟⩢Ǵ㳟⧌ʊ㵵⧌ʊ㵵⩢ʊ㳟⩢ʊ㳳⦁Ǵ㳳⨗Ǵ㱝⨗Ǵ㱝⦁ʊ㳳⦁ʊ㳳⨗ʊ㱝⨗ʊ㱱⤶Ǵ㱱⧌Ǵ㯛⧌Ǵ���⤶ʊ㱱⤶ʊ㱱⧌ʊ㯛⧌ʊ㱱⢠Ǵ㱱⤶Ǵ㯛⤶Ǵ㯛⢠ʊ㱱⢠ʊ㱱⤶ʊ㯛⤶ʊ㱱⠊Ǵ㱱⢠Ǵ㯛⢠Ǵ㯛⠊ʊ㱱⠊ʊ㱱⢠ʊ㯛⢠ʊ㱱❴Ǵ㱱⠊Ǵ㯛⠊Ǵ㯛❴ʊ㱱❴ʊ㱱⠊ʊ㯛⠊ʊ㳳✩Ǵ㳳➿Ǵ㱝➿Ǵ㱝✩ʊ㳳✩ʊ㳳➿ʊ㱝➿ʊ㵵⛞Ǵ㵵❴Ǵ㳟❴Ǵ㳟⛞ʊ㵵⛞ʊ㵵❴ʊ㳟❴ʊ㷷⚓Ǵ㷷✩Ǵ㵡✩Ǵ㵡⚓ʊ㷷⚓ʊ㷷✩ʊ㵡✩ʊ㵵♈Ǵ㵵⛞Ǵ㳟⛞Ǵ㳟♈ʊ㵵♈ʊ㵵⛞ʊ㳟⛞ʊ㳳◽Ǵ㳳⚓Ǵ㱝⚓Ǵ㱝◽ʊ㳳◽ʊ㳳⚓ʊ㱝⚓ʊ㱱▲Ǵ㱱♈Ǵ㯛♈Ǵ㯛▲ʊ㱱▲ʊ㱱♈ʊ㯛♈ʊ㱱├Ǵ㱱▲Ǵ㯛▲Ǵ㯛├ʊ㱱├ʊ㱱▲ʊ㯛▲ʊ㱱⒆Ǵ㱱├Ǵ㯛├Ǵ㯛⒆ʊ㱱⒆ʊ㱱├ʊ㯛├ʊ㱱⏰Ǵ㱱⒆Ǵ㯛⒆Ǵ㯛⏰ʊ㱱⏰ʊ㱱⒆ʊ㯛⒆ʊ㯰␻Ǵ㯰ⓑǴ㭚ⓑǴ㭚␻ʊ㯰␻ʊ㯰ⓑʊ㭚ⓑʊ㭮⒆Ǵ㭮├Ǵ㫘├Ǵ㫘⒆ʊ㭮⒆ʊ㭮├ʊ㫘├ʊ㫬ⓑǴ㫬╧Ǵ㩖╧Ǵ㩖ⓑʊ㫬ⓑʊ㫬╧ʊ㩖╧ʊ㩪⒆Ǵ㩪├Ǵ㧔├Ǵ㧔⒆ʊ㩪⒆ʊ㩪├ʊ㧔├ʊ㧨␻Ǵ㧨ⓑǴ㥒ⓑǴ㥒␻ʊ㧨␻ʊ㧨ⓑʊ㥒ⓑʊ㥦⏰Ǵ㥦⒆Ǵ㣐⒆Ǵ㣐⏰ʊ㥦⏰ʊ���⒆ʊ㣐⒆ʊ㥦⒆Ǵ㥦├Ǵ㣐├Ǵ㣐⒆ʊ㥦⒆ʊ㥦├ʊ㣐├ʊ㥦├Ǵ㥦▲Ǵ㣐▲Ǵ㣐├ʊ㥦├ʊ㥦▲ʊ㣐▲ʊ㥦▲Ǵ㥦♈Ǵ㣐♈Ǵ㣐▲ʊ㥦▲ʊ㥦♈ʊ㣐♈ʊ㣤◽Ǵ㣤⚓Ǵ㡎⚓Ǵ㡎◽ʊ㣤◽ʊ㣤⚓ʊ㡎⚓ʊ㡢♈Ǵ㡢⛞Ǵ㟌⛞Ǵ㟌♈ʊ㡢♈ʊ㡢⛞ʊ㟌⛞ʊ㟠⚓Ǵ㟠✩Ǵ㝊✩Ǵ㝊⚓ʊ㟠⚓ʊ㟠✩ʊ㝊✩ʊ㝞♈Ǵ㝞⛞Ǵ㛈⛞Ǵ㛈♈ʊ㝞♈ʊ㝞⛞ʊ㛈⛞ʊ㛝◽Ǵ㛝⚓Ǵ㙇⚓Ǵ㙇◽ʊ㛝◽ʊ㛝⚓ʊ㙇⚓ʊ㙛▲Ǵ㙛♈Ǵ㗅♈Ǵ㗅▲ʊ㙛▲ʊ㙛♈ʊ㗅♈ʊ㙛├Ǵ㙛▲Ǵ㗅▲Ǵ㗅├ʊ㙛├ʊ㙛▲ʊ㗅▲ʊ㙛⒆Ǵ㙛├Ǵ㗅├Ǵ㗅⒆ʊ㙛⒆ʊ㙛├ʊ㗅├ʊ㙛⏰Ǵ㙛⒆Ǵ㗅⒆Ǵ㗅⏰ʊ㙛⏰ʊ㙛⒆ʊ㗅⒆ʊ㗙␻Ǵ㗙ⓑǴ㕃ⓑǴ㕃␻ʊ㗙␻ʊ㗙ⓑʊ㕃ⓑʊ㕗⒆Ǵ㕗├Ǵ㓁├Ǵ㓁⒆ʊ㕗⒆ʊ㕗├ʊ㓁├ʊ㓕ⓑǴ㓕╧Ǵ㐿╧Ǵ㐿ⓑʊ㓕ⓑʊ㓕╧ʊ㐿╧ʊ㑓⒆Ǵ㑓├Ǵ㎽├Ǵ㎽⒆ʊ㑓⒆ʊ㑓├ʊ㎽├ʊ㏑␻Ǵ㏑ⓑǴ㌻ⓑǴ㌻␻ʊ㏑␻ʊ㏑ⓑʊ㌻ⓑʊ㍏⏰Ǵ㍏⒆Ǵ㊹⒆Ǵ㊹⏰ʊ㍏⏰ʊ㍏⒆ʊ㊹⒆ʊ���⒆Ǵ㍏├Ǵ㊹├Ǵ㊹⒆ʊ㍏⒆ʊ㍏├ʊ㊹├ʊ㍏├Ǵ㍏▲Ǵ㊹▲Ǵ㊹├ʊ㍏├ʊ㍏▲ʊ㊹▲ʊ㍏▲Ǵ㍏♈Ǵ㊹♈Ǵ㊹▲ʊ㍏▲ʊ㍏♈ʊ㊹♈ʊ㋍◽Ǵ㋍⚓Ǵ㈷⚓Ǵ㈷◽ʊ㋍◽ʊ㋍⚓ʊ㈷⚓ʊ㉋♈Ǵ㉋⛞Ǵㆵ⛞Ǵㆵ♈ʊ㉋♈ʊ㉋⛞ʊㆵ⛞ʊ㇉⚓Ǵ㇉✩Ǵㄳ✩Ǵㄳ⚓ʊ㇉⚓ʊ㇉✩ʊㄳ✩ʊ㉋⛞Ǵ㉋❴Ǵㆵ❴Ǵㆵ⛞ʊ㉋⛞ʊ㉋❴ʊㆵ❴ʊ㋍✩Ǵ㋍➿Ǵ㈷➿Ǵ㈷✩ʊ㋍✩ʊ㋍➿ʊ㈷➿ʊ㍏❴Ǵ㍏⠊Ǵ㊹⠊Ǵ㊹❴ʊ㍏❴ʊ㍏⠊ʊ㊹⠊ʊ㍏⠊Ǵ㍏⢠Ǵ㊹⢠Ǵ㊹⠊ʊ㍏⠊ʊ㍏⢠ʊ㊹⢠ʊ㍏⢠Ǵ㍏⤶Ǵ㊹⤶Ǵ㊹⢠ʊ㍏⢠ʊ㍏⤶ʊ㊹⤶ʊ㍏⤶Ǵ㍏⧌Ǵ㊹⧌Ǵ㊹⤶ʊ㍏⤶ʊ㍏⧌ʊ㊹⧌ʊ㋍⦁Ǵ㋍⨗Ǵ㈷⨗Ǵ㈷⦁ʊ㋍⦁ʊ㋍⨗ʊ㈷⨗ʊ㉋⧌Ǵ㉋⩢Ǵㆵ⩢Ǵㆵ⧌ʊ㉋⧌ʊ㉋⩢ʊㆵ⩢ʊ㇉⨗Ǵ㇉⪭Ǵㄳ⪭Ǵㄳ⨗ʊ㇉⨗ʊ㇉⪭ʊㄳ⪭ʊㅈ⧌Ǵㅈ⩢Ǵゲ⩢Ǵゲ⧌ʊㅈ⧌ʊㅈ⩢ʊゲ⩢ʊテ⦁Ǵテ⨗Ǵ〰⨗Ǵ〰⦁ʊテ⦁ʊテ⨗ʊ〰⨗ʊい⤶Ǵい⧌Ǵ⾮⧌Ǵ⾮⤶ʊい⤶ʊい⧌ʊ⾮⧌ʊい⧌Ǵい⩢Ǵ���⩢Ǵ⾮⧌ʊい⧌ʊい⩢ʊ⾮⩢ʊい⩢Ǵい⫸Ǵ⾮⫸Ǵ⾮⩢ʊい⩢ʊい⫸ʊ⾮⫸ʊい⫸Ǵい⮎Ǵ⾮⮎Ǵ⾮⫸ʊい⫸ʊい⮎ʊ⾮⮎ʊ⿂⭃Ǵ⿂⯙Ǵ⼬⯙Ǵ⼬⭃ʊ⿂⭃ʊ⿂⯙ʊ⼬⯙ʊ⽀⮎Ǵ⽀ⰤǴ⺪ⰤǴ⺪⮎ʊ⽀⮎ʊ⽀Ⱔʊ⺪Ⱔʊ⺾⯙Ǵ⺾ⱯǴ⸨ⱯǴ⸨⯙ʊ⺾⯙ʊ⺾Ɐʊ⸨Ɐʊ⽀ⰤǴ⽀ⲺǴ⺪ⲺǴ⺪Ⱔʊ⽀Ⱔʊ⽀Ⲻʊ⺪Ⲻʊ⿂ⱯǴ⿂ⴅǴ⼬ⴅǴ⼬Ɐʊ⿂Ɐʊ⿂ⴅʊ⼬ⴅʊいⲺǴいⵐǴ⾮ⵐǴ⾮ⲺʊいⲺʊいⵐʊ⾮ⵐʊいⵐǴいⷦǴ⾮ⷦǴ⾮ⵐʊいⵐʊいⷦʊ⾮ⷦʊいⷦǴい⹼Ǵ⾮⹼Ǵ⾮ⷦʊいⷦʊい⹼ʊ⾮⹼ʊい⹼Ǵい⼒Ǵ⾮⼒Ǵ⾮⹼ʊい⹼ʊい⼒ʊ⾮⼒ʊテ⸱Ǵテ⻇Ǵ〰⻇Ǵ〰⸱ʊテ⸱ʊテ⻇ʊ〰⻇ʊㅈⷦǴㅈ⹼Ǵゲ⹼Ǵゲⷦʊㅈⷦʊㅈ⹼ʊゲ⹼ʊ㇉⶛Ǵ㇉⸱Ǵㄳ⸱Ǵㄳ⶛ʊ㇉⶛ʊ㇉⸱ʊㄳ⸱ʊ㉋ⷦǴ㉋⹼Ǵㆵ⹼Ǵㆵⷦʊ㉋ⷦʊ㉋⹼ʊㆵ⹼ʊ㋍⸱Ǵ㋍⻇Ǵ㈷⻇Ǵ㈷⸱ʊ㋍⸱ʊ㋍⻇ʊ㈷⻇ʊ㍏⹼Ǵ㍏⼒Ǵ㊹⼒Ǵ㊹⹼ʊ㍏⹼ʊ㍏⼒ʊ㊹⼒ʊ㍏⼒Ǵ㍏⾨Ǵ㊹⾨Ǵ㊹⼒ʊ���⼒ʊ㍏⾨ʊ㊹⾨ʊ㍏⾨Ǵ㍏〾Ǵ㊹〾Ǵ㊹⾨ʊ㍏⾨ʊ㍏〾ʊ㊹〾ʊ㍏〾Ǵ㍏ピǴ㊹ピǴ㊹〾ʊ㍏〾ʊ㍏ピʊ㊹ピʊ㋍らǴ㋍ㄟǴ㈷ㄟǴ㈷らʊ㋍らʊ㋍ㄟʊ㈷ㄟʊ㉋ピǴ㉋ㅪǴㆵㅪǴㆵピʊ㉋ピʊ㉋ㅪʊㆵㅪʊ㇉ㄟǴ㇉ㆵǴㄳㆵǴㄳㄟʊ㇉ㄟʊ㇉ㆵʊㄳㆵʊ㉋ㅪǴ㉋㈀Ǵㆵ㈀Ǵㆵㅪʊ㉋ㅪʊ㉋㈀ʊㆵ㈀ʊ㋍ㆵǴ㋍㉋Ǵ㈷㉋Ǵ㈷ㆵʊ㋍ㆵʊ㋍㉋ʊ㈷㉋ʊ㍏㈀Ǵ㍏㊖Ǵ㊹㊖Ǵ㊹㈀ʊ㍏㈀ʊ㍏㊖ʊ㊹㊖ʊ㍏㊖Ǵ㍏㌬Ǵ㊹㌬Ǵ㊹㊖ʊ㍏㊖ʊ㍏㌬ʊ㊹㌬ʊ㍏㌬Ǵ㍏㏂Ǵ㊹㏂Ǵ㊹㌬ʊ㍏㌬ʊ㍏㏂ʊ㊹㏂ʊ㍏㏂Ǵ㍏㑘Ǵ㊹㑘Ǵ㊹㏂ʊ㍏㏂ʊ㍏㑘ʊ㊹㑘ʊ㋍㐍Ǵ㋍㒣Ǵ㈷㒣Ǵ㈷㐍ʊ㋍㐍ʊ㋍㒣ʊ㈷㒣ʊ㉋㑘Ǵ㉋㓮Ǵㆵ㓮Ǵㆵ㑘ʊ㉋㑘ʊ㉋㓮ʊㆵ㓮ʊ㇉㒣Ǵ㇉㔹Ǵㄳ㔹Ǵㄳ㒣ʊ㇉㒣ʊ㇉㔹ʊㄳ㔹ʊㅈ㑘Ǵㅈ㓮Ǵゲ㓮Ǵゲ㑘ʊㅈ㑘ʊㅈ㓮ʊゲ㓮ʊテ㐍Ǵテ㒣Ǵ〰㒣Ǵ〰㐍ʊテ㐍ʊテ㒣ʊ〰㒣ʊい㏂Ǵい㑘Ǵ⾮㑘Ǵ⾮㏂ʊい㏂ʊい㑘ʊ⾮㑘ʊい㑘Ǵい㓮Ǵ⾮㓮Ǵ⾮㑘ʊい㑘ʊい㓮ʊ���㓮ʊい㓮Ǵい㖄Ǵ⾮㖄Ǵ⾮㓮ʊい㓮ʊい㖄ʊ⾮㖄ʊい㖄Ǵい㘚Ǵ⾮㘚Ǵ⾮㖄ʊい㖄ʊい㘚ʊ⾮㘚ʊ⿂㗏Ǵ⿂㙥Ǵ⼬㙥Ǵ⼬㗏ʊ⿂㗏ʊ⿂㙥ʊ⼬㙥ʊ⽀㘚Ǵ⽀㚰Ǵ⺪㚰Ǵ⺪㘚ʊ⽀㘚ʊ⽀㚰ʊ⺪㚰ʊ⺾㙥Ǵ⺾㛻Ǵ⸨㛻Ǵ⸨㙥ʊ⺾㙥ʊ⺾㛻ʊ⸨㛻ʊ⸼㘚Ǵ⸼㚰Ǵⶦ㚰Ǵⶦ㘚ʊ⸼㘚ʊ⸼㚰ʊⶦ㚰ʊⶺ㗏Ǵⶺ㙥Ǵⴤ㙥Ǵⴤ㗏ʊⶺ㗏ʊⶺ㙥ʊⴤ㙥ʊⴸ㖄Ǵⴸ㘚ǴⲢ㘚ǴⲢ㖄ʊⴸ㖄ʊⴸ㘚ʊⲢ㘚ʊⴸ㓮Ǵⴸ㖄ǴⲢ㖄ǴⲢ㓮ʊⴸ㓮ʊⴸ㖄ʊⲢ㖄ʊⴸ㑘Ǵⴸ㓮ǴⲢ㓮ǴⲢ㑘ʊⴸ㑘ʊⴸ㓮ʊⲢ㓮ʊⴸ㏂Ǵⴸ㑘ǴⲢ㑘ǴⲢ㏂ʊⴸ㏂ʊⴸ㑘ʊⲢ㑘ʊⲶ㐍ǴⲶ㒣ǴⰠ㒣ǴⰠ㐍ʊⲶ㐍ʊⲶ㒣ʊⰠ㒣ʊⰵ㑘Ǵⰵ㓮Ǵ⮟㓮Ǵ⮟㑘ʊⰵ㑘ʊⰵ㓮ʊ⮟㓮ʊ⮳㒣Ǵ⮳㔹Ǵ⬝㔹Ǵ⬝㒣ʊ⮳㒣ʊ⮳㔹ʊ⬝㔹ʊ⬱㑘Ǵ⬱㓮Ǵ⪛㓮Ǵ⪛㑘ʊ⬱㑘ʊ⬱㓮ʊ⪛㓮ʊ⪯㐍Ǵ⪯㒣Ǵ⨙㒣Ǵ⨙㐍ʊ⪯㐍ʊ⪯㒣ʊ⨙㒣ʊ⨭㏂Ǵ⨭㑘Ǵ⦗㑘Ǵ⦗㏂ʊ⨭㏂ʊ⨭㑘ʊ⦗㑘ʊ⨭㑘Ǵ⨭㓮Ǵ⦗㓮Ǵ⦗㑘ʊ⨭㑘ʊ⨭㓮ʊ⦗㓮ʊ⨭㓮Ǵ���㖄Ǵ⦗㖄Ǵ⦗㓮ʊ⨭㓮ʊ⨭㖄ʊ⦗㖄ʊ⨭㖄Ǵ⨭㘚Ǵ⦗㘚Ǵ⦗㖄ʊ⨭㖄ʊ⨭㘚ʊ⦗㘚ʊ⦫㗏Ǵ⦫㙥Ǵ⤕㙥Ǵ⤕㗏ʊ⦫㗏ʊ⦫㙥ʊ⤕㙥ʊ⤩㘚Ǵ⤩㚰Ǵ⢓㚰Ǵ⢓㘚ʊ⤩㘚ʊ⤩㚰ʊ⢓㚰ʊ⢧㙥Ǵ⢧㛻Ǵ⠑㛻Ǵ⠑㙥ʊ⢧㙥ʊ⢧㛻ʊ⠑㛻ʊ⤩㚰Ǵ⤩㝆Ǵ⢓㝆Ǵ⢓㚰ʊ⤩㚰ʊ⤩㝆ʊ⢓㝆ʊ⦫㛻Ǵ⦫㞑Ǵ⤕㞑Ǵ⤕㛻ʊ⦫㛻ʊ⦫㞑ʊ⤕㞑ʊ⨭㝆Ǵ⨭㟜Ǵ⦗㟜Ǵ⦗㝆ʊ⨭㝆ʊ⨭㟜ʊ⦗㟜ʊ⨭㟜Ǵ⨭㡲Ǵ⦗㡲Ǵ⦗㟜ʊ⨭㟜ʊ⨭㡲ʊ⦗㡲ʊ⨭㡲Ǵ⨭㤈Ǵ⦗㤈Ǵ⦗㡲ʊ⨭㡲ʊ⨭㤈ʊ⦗㤈ʊ⨭㤈Ǵ⨭㦞Ǵ⦗㦞Ǵ⦗㤈ʊ⨭㤈ʊ⨭㦞ʊ⦗㦞ʊ⦫㥓Ǵ⦫㧩Ǵ⤕㧩Ǵ⤕㥓ʊ⦫㥓ʊ⦫㧩ʊ⤕㧩ʊ⤩㦞Ǵ⤩㨴Ǵ⢓㨴Ǵ⢓㦞ʊ⤩㦞ʊ⤩㨴ʊ⢓㨴ʊ⢧㧩Ǵ⢧㩿Ǵ⠑㩿Ǵ⠑㧩ʊ⢧㧩ʊ⢧㩿ʊ⠑㩿ʊ⠥㦞Ǵ⠥㨴Ǵ➏㨴Ǵ➏㦞ʊ⠥㦞ʊ⠥㨴ʊ➏㨴ʊ➣㥓Ǵ➣㧩Ǵ✍㧩Ǵ✍㥓ʊ➣㥓ʊ➣㧩ʊ✍㧩ʊ✢㤈Ǵ✢㦞Ǵ⚌㦞Ǵ⚌㤈ʊ✢㤈ʊ✢㦞ʊ⚌㦞ʊ✢㦞Ǵ✢㨴Ǵ⚌㨴Ǵ⚌㦞ʊ✢㦞ʊ✢㨴ʊ⚌㨴ʊ✢㨴Ǵ✢㫊Ǵ⚌㫊Ǵ���㨴ʊ✢㨴ʊ✢㫊ʊ⚌㫊ʊ✢㫊Ǵ✢㭠Ǵ⚌㭠Ǵ⚌㫊ʊ✢㫊ʊ✢㭠ʊ⚌㭠ʊ⚠㬕Ǵ⚠㮫Ǵ☊㮫Ǵ☊㬕ʊ⚠㬕ʊ⚠㮫ʊ☊㮫ʊ☞㭠Ǵ☞㯶Ǵ█㯶Ǵ█㭠ʊ☞㭠ʊ☞㯶ʊ█㯶ʊ▜㮫Ǵ▜㱁Ǵ┆㱁Ǵ┆㮫ʊ▜㮫ʊ▜㱁ʊ┆㱁ʊ☞㯶Ǵ☞㲌Ǵ█㲌Ǵ█㯶ʊ☞㯶ʊ☞㲌ʊ█㲌ʊ⚠㱁Ǵ⚠㳗Ǵ☊㳗Ǵ☊㱁ʊ⚠㱁ʊ⚠㳗ʊ☊㳗ʊ✢㲌Ǵ✢㴢Ǵ⚌㴢Ǵ⚌㲌ʊ✢㲌ʊ✢㴢ʊ⚌㴢ʊ✢㴢Ǵ✢㶸Ǵ⚌㶸Ǵ⚌㴢ʊ✢㴢ʊ✢㶸ʊ⚌㶸ʊ✢㶸Ǵ✢㹎Ǵ⚌㹎Ǵ⚌㶸ʊ✢㶸ʊ✢㹎ʊ⚌㹎ʊ✢㹎Ǵ✢㻤Ǵ⚌㻤Ǵ⚌㹎ʊ✢㹎ʊ✢㻤ʊ⚌㻤ʊ➣㸃Ǵ➣㺙Ǵ✍㺙Ǵ✍㸃ʊ➣㸃ʊ➣㺙ʊ✍㺙ʊ⠥㶸Ǵ⠥㹎Ǵ➏㹎Ǵ➏㶸ʊ⠥㶸ʊ⠥㹎ʊ➏㹎ʊ⢧㵭Ǵ⢧㸃Ǵ⠑㸃Ǵ⠑㵭ʊ⢧㵭ʊ⢧㸃ʊ⠑㸃ʊ⤩㶸Ǵ⤩㹎Ǵ⢓㹎Ǵ⢓㶸ʊ⤩㶸ʊ⤩㹎ʊ⢓㹎ʊ⦫㸃Ǵ⦫㺙Ǵ⤕㺙Ǵ⤕㸃ʊ⦫㸃ʊ⦫㺙ʊ⤕㺙ʊ⨭㹎Ǵ⨭㻤Ǵ⦗㻤Ǵ⦗㹎ʊ⨭㹎ʊ⨭㻤ʊ⦗㻤ʊ⨭㻤Ǵ⨭㽺Ǵ⦗㽺Ǵ⦗㻤ʊ⨭㻤ʊ⨭㽺ʊ⦗㽺ʊ⨭㽺Ǵ⨭䀐Ǵ⦗䀐Ǵ⦗㽺ʊ⨭㽺ʊ���䀐ʊ⦗䀐ʊ⨭䀐Ǵ⨭䂦Ǵ⦗䂦Ǵ⦗䀐ʊ⨭䀐ʊ⨭䂦ʊ⦗䂦ʊ⦫䁛Ǵ⦫䃱Ǵ⤕䃱Ǵ⤕䁛ʊ⦫䁛ʊ⦫䃱ʊ⤕䃱ʊ⤩䂦Ǵ⤩䄼Ǵ⢓䄼Ǵ⢓䂦ʊ⤩䂦ʊ⤩䄼ʊ⢓䄼ʊ⢧䃱Ǵ⢧䆇Ǵ⠑䆇Ǵ⠑䃱ʊ⢧䃱ʊ⢧䆇ʊ⠑䆇ʊ⤩䄼Ǵ⤩䇒Ǵ⢓䇒Ǵ⢓䄼ʊ⤩䄼ʊ⤩䇒ʊ⢓䇒ʊ⦫䆇Ǵ⦫䈝Ǵ⤕䈝Ǵ⤕䆇ʊ⦫䆇ʊ⦫䈝ʊ⤕䈝ʊ⨭䇒Ǵ⨭䉨Ǵ⦗䉨Ǵ⦗䇒ʊ⨭䇒ʊ⨭䉨ʊ⦗䉨ʊ⨭䉨Ǵ⨭䋾Ǵ⦗䋾Ǵ⦗䉨ʊ⨭䉨ʊ⨭䋾ʊ⦗䋾ʊ⨭䋾Ǵ⨭䎔Ǵ⦗䎔Ǵ⦗䋾ʊ⨭䋾ʊ⨭䎔ʊ⦗䎔ʊ⨭䎔Ǵ⨭䐪Ǵ⦗䐪Ǵ⦗䎔ʊ⨭䎔ʊ⨭䐪ʊ⦗䐪ʊ⪯䍉Ǵ⪯䏟Ǵ⨙䏟Ǵ⨙䍉ʊ⪯䍉ʊ⪯䏟ʊ⨙䏟ʊ⬱䋾Ǵ⬱䎔Ǵ⪛䎔Ǵ⪛䋾ʊ⬱䋾ʊ⬱䎔ʊ⪛䎔ʊ⮳䊳Ǵ⮳䍉Ǵ⬝䍉Ǵ⬝䊳ʊ⮳䊳ʊ⮳䍉ʊ⬝䍉ʊⰵ䋾Ǵⰵ䎔Ǵ⮟䎔Ǵ⮟䋾ʊⰵ䋾ʊⰵ䎔ʊ⮟䎔ʊⲶ䍉ǴⲶ䏟ǴⰠ䏟ǴⰠ䍉ʊⲶ䍉ʊⲶ䏟ʊⰠ䏟ʊⴸ䎔Ǵⴸ䐪ǴⲢ䐪ǴⲢ䎔ʊⴸ䎔ʊⴸ䐪ʊⲢ䐪ʊⴸ䋾Ǵⴸ䎔ǴⲢ䎔ǴⲢ䋾ʊⴸ䋾ʊⴸ䎔ʊⲢ䎔ʊⴸ䉨Ǵⴸ䋾ǴⲢ䋾ǴⲢ䉨ʊⴸ䉨ʊⴸ䋾ʊⲢ䋾ʊ���䇒Ǵⴸ䉨ǴⲢ䉨ǴⲢ䇒ʊⴸ䇒ʊⴸ䉨ʊⲢ䉨ʊⶺ䆇Ǵⶺ䈝Ǵⴤ䈝Ǵⴤ䆇ʊⶺ䆇ʊⶺ䈝ʊⴤ䈝ʊ⸼䄼Ǵ⸼䇒Ǵⶦ䇒Ǵⶦ䄼ʊ⸼䄼ʊ⸼䇒ʊⶦ䇒ʊ⺾䃱Ǵ⺾䆇Ǵ⸨䆇Ǵ⸨䃱ʊ⺾䃱ʊ⺾䆇ʊ⸨䆇ʊ⽀䄼Ǵ⽀䇒Ǵ⺪䇒Ǵ⺪䄼ʊ⽀䄼ʊ⽀䇒ʊ⺪䇒ʊ⿂䆇Ǵ⿂䈝Ǵ⼬䈝Ǵ⼬䆇ʊ⿂䆇ʊ⿂䈝ʊ⼬䈝ʊい䇒Ǵい䉨Ǵ⾮䉨Ǵ⾮䇒ʊい䇒ʊい䉨ʊ⾮䉨ʊい䉨Ǵい䋾Ǵ⾮䋾Ǵ⾮䉨ʊい䉨ʊい䋾ʊ⾮䋾ʊい䋾Ǵい䎔Ǵ⾮䎔Ǵ⾮䋾ʊい䋾ʊい䎔ʊ⾮䎔ʊい䎔Ǵい䐪Ǵ⾮䐪Ǵ⾮䎔ʊい䎔ʊい䐪ʊ⾮䐪ʊテ䍉Ǵテ䏟Ǵ〰䏟Ǵ〰䍉ʊテ䍉ʊテ䏟ʊ〰䏟ʊㅈ䋾Ǵㅈ䎔Ǵゲ䎔Ǵゲ䋾ʊㅈ䋾ʊㅈ䎔ʊゲ䎔ʊ㇉䊳Ǵ㇉䍉Ǵㄳ䍉Ǵㄳ䊳ʊ㇉䊳ʊ㇉䍉ʊㄳ䍉ʊ㉋䋾Ǵ㉋䎔Ǵㆵ䎔Ǵㆵ䋾ʊ㉋䋾ʊ㉋䎔ʊㆵ䎔ʊ㋍䍉Ǵ㋍䏟Ǵ㈷䏟Ǵ㈷䍉ʊ㋍䍉ʊ㋍䏟ʊ㈷䏟ʊ㍏䎔Ǵ㍏䐪Ǵ㊹䐪Ǵ㊹䎔ʊ㍏䎔ʊ㍏䐪ʊ㊹䐪ʊ㍏䐪Ǵ㍏䓀Ǵ㊹䓀Ǵ㊹䐪ʊ㍏䐪ʊ㍏䓀ʊ㊹䓀ʊ㍏䓀Ǵ㍏䕖Ǵ㊹䕖Ǵ㊹䓀ʊ㍏䓀ʊ㍏䕖ʊ㊹䕖ʊ㍏䕖Ǵ㍏䗬Ǵ���䗬Ǵ㊹䕖ʊ㍏䕖ʊ㍏䗬ʊ㊹䗬ʊ㋍䖡Ǵ㋍䘷Ǵ㈷䘷Ǵ㈷䖡ʊ㋍䖡ʊ㋍䘷ʊ㈷䘷ʊ㉋䗬Ǵ㉋䚂Ǵㆵ䚂Ǵㆵ䗬ʊ㉋䗬ʊ㉋䚂ʊㆵ䚂ʊ㇉䘷Ǵ㇉䛍Ǵㄳ䛍Ǵㄳ䘷ʊ㇉䘷ʊ㇉䛍ʊㄳ䛍ʊ㉋䚂Ǵ㉋䜘Ǵㆵ䜘Ǵㆵ䚂ʊ㉋䚂ʊ㉋䜘ʊㆵ䜘ʊ㋍䛍Ǵ㋍䝣Ǵ㈷䝣Ǵ㈷䛍ʊ㋍䛍ʊ㋍䝣ʊ㈷䝣ʊ㍏䜘Ǵ㍏䞮Ǵ㊹䞮Ǵ㊹䜘ʊ㍏䜘ʊ㍏䞮ʊ㊹䞮ʊ㍏䞮Ǵ㍏䡄Ǵ㊹䡄Ǵ㊹䞮ʊ㍏䞮ʊ㍏䡄ʊ㊹䡄ʊ㍏䡄Ǵ㍏䣚Ǵ㊹䣚Ǵ㊹䡄ʊ㍏䡄ʊ㍏䣚ʊ㊹䣚ʊ㍏䣚Ǵ㍏䥰Ǵ㊹䥰Ǵ㊹䣚ʊ㍏䣚ʊ㍏䥰ʊ㊹䥰ʊ㋍䤥Ǵ㋍䦻Ǵ㈷䦻Ǵ㈷䤥ʊ㋍䤥ʊ㋍䦻ʊ㈷䦻ʊ㉋䥰Ǵ㉋䨆Ǵㆵ䨆Ǵㆵ䥰ʊ㉋䥰ʊ㉋䨆ʊㆵ䨆ʊ㇉䦻Ǵ㇉䩑Ǵㄳ䩑Ǵㄳ䦻ʊ㇉䦻ʊ㇉䩑ʊㄳ䩑ʊㅈ䥰Ǵㅈ䨆Ǵゲ䨆Ǵゲ䥰ʊㅈ䥰ʊㅈ䨆ʊゲ䨆ʊテ䤥Ǵテ䦻Ǵ〰䦻Ǵ〰䤥ʊテ䤥ʊテ䦻ʊ〰䦻ʊい䣚Ǵい䥰Ǵ⾮䥰Ǵ⾮䣚ʊい䣚ʊい䥰ʊ⾮䥰ʊい䥰Ǵい䨆Ǵ⾮䨆Ǵ⾮䥰ʊい䥰ʊい䨆ʊ⾮䨆ʊい䨆Ǵい䪜Ǵ⾮䪜Ǵ⾮䨆ʊい䨆ʊい䪜ʊ⾮䪜ʊい䪜Ǵい䬲Ǵ⾮䬲Ǵ⾮䪜ʊ���䪜ʊい䬲ʊ⾮䬲ʊ⿂䫧Ǵ⿂䭽Ǵ⼬䭽Ǵ⼬䫧ʊ⿂䫧ʊ⿂䭽ʊ⼬䭽ʊ⽀䬲Ǵ⽀䯈Ǵ⺪䯈Ǵ⺪䬲ʊ⽀䬲ʊ⽀䯈ʊ⺪䯈ʊ⺾䭽Ǵ⺾䰓Ǵ⸨䰓Ǵ⸨䭽ʊ⺾䭽ʊ⺾䰓ʊ⸨䰓ʊ⽀䯈Ǵ⽀䱞Ǵ⺪䱞Ǵ⺪䯈ʊ⽀䯈ʊ⽀䱞ʊ⺪䱞ʊ⿂䰓Ǵ⿂䲩Ǵ⼬䲩Ǵ⼬䰓ʊ⿂䰓ʊ⿂䲩ʊ⼬䲩ʊい䱞Ǵい䳴Ǵ⾮䳴Ǵ⾮䱞ʊい䱞ʊい䳴ʊ⾮䳴ʊい䳴Ǵい䶊Ǵ⾮䶊Ǵ⾮䳴ʊい䳴ʊい䶊ʊ⾮䶊ʊい䶊Ǵい丠Ǵ⾮丠Ǵ⾮䶊ʊい䶊ʊい丠ʊ⾮丠ʊい丠Ǵい亶Ǵ⾮亶Ǵ⾮丠ʊい丠ʊい亶ʊ⾮亶ʊテ䷕Ǵテ乫Ǵ〰乫Ǵ〰䷕ʊテ䷕ʊテ乫ʊ〰乫ʊㅈ䶊Ǵㅈ丠Ǵゲ丠Ǵゲ䶊ʊㅈ䶊ʊㅈ丠ʊゲ丠ʊ㇉䴿Ǵ㇉䷕Ǵㄳ䷕Ǵㄳ䴿ʊ㇉䴿ʊ㇉䷕ʊㄳ䷕ʊ㉋䶊Ǵ㉋丠Ǵㆵ丠Ǵㆵ䶊ʊ㉋䶊ʊ㉋丠ʊㆵ丠ʊ㋍䷕Ǵ㋍乫Ǵ㈷乫Ǵ㈷䷕ʊ㋍䷕ʊ㋍乫ʊ㈷乫ʊ㍏丠Ǵ㍏亶Ǵ㊹亶Ǵ㊹丠ʊ㍏丠ʊ㍏亶ʊ㊹亶ʊ㍏亶Ǵ㍏佌Ǵ㊹佌Ǵ㊹亶ʊ㍏亶ʊ㍏佌ʊ㊹佌ʊ㍏佌Ǵ㍏俢Ǵ㊹俢Ǵ㊹佌ʊ㍏佌ʊ㍏俢ʊ㊹俢ʊ㍏俢Ǵ㍏偸Ǵ㊹偸Ǵ㊹俢ʊ㍏俢ʊ㍏偸ʊ���偸ʊ㋍倭Ǵ㋍僃Ǵ㈷僃Ǵ㈷倭ʊ㋍倭ʊ㋍僃ʊ㈷僃ʊ㉋偸Ǵ㉋儎Ǵㆵ儎Ǵㆵ偸ʊ㉋偸ʊ㉋儎ʊㆵ儎ʊ㇉僃Ǵ㇉兙Ǵㄳ兙Ǵㄳ僃ʊ㇉僃ʊ㇉兙ʊㄳ兙ʊ㉋儎Ǵ㉋冤Ǵㆵ冤Ǵㆵ儎ʊ㉋儎ʊ㉋冤ʊㆵ冤ʊ㋍兙Ǵ㋍凯Ǵ㈷凯Ǵ㈷兙ʊ㋍兙ʊ㋍凯ʊ㈷凯ʊ㍏冤Ǵ㍏刺Ǵ㊹刺Ǵ㊹冤ʊ㍏冤ʊ㍏刺ʊ㊹刺ʊ㍏刺Ǵ㍏勐Ǵ㊹勐Ǵ㊹刺ʊ㍏刺ʊ㍏勐ʊ㊹勐ʊ㍏勐Ǵ㍏卦Ǵ㊹卦Ǵ㊹勐ʊ㍏勐ʊ㍏卦ʊ㊹卦ʊ㍏卦Ǵ㍏叼Ǵ㊹叼Ǵ㊹卦ʊ㍏卦ʊ㍏叼ʊ㊹叼ʊ㏑匛Ǵ㏑厱Ǵ㌻厱Ǵ㌻匛ʊ㏑匛ʊ㏑厱ʊ㌻厱ʊ㑓勐Ǵ㑓卦Ǵ㎽卦Ǵ㎽勐ʊ㑓勐ʊ㑓卦ʊ㎽卦ʊ㓕劅Ǵ㓕匛Ǵ㐿匛Ǵ㐿劅ʊ㓕劅ʊ㓕匛ʊ㐿匛ʊ㕗勐Ǵ㕗卦Ǵ㓁卦Ǵ㓁勐ʊ㕗勐ʊ㕗卦ʊ㓁卦ʊ㗙匛Ǵ㗙厱Ǵ㕃厱Ǵ㕃匛ʊ㗙匛ʊ㗙厱ʊ㕃厱ʊ㙛卦Ǵ㙛叼Ǵ㗅叼Ǵ㗅卦ʊ㙛卦ʊ㙛叼ʊ㗅叼ʊ㙛勐Ǵ㙛卦Ǵ㗅卦Ǵ㗅勐ʊ㙛勐ʊ㙛卦ʊ㗅卦ʊ㙛刺Ǵ㙛勐Ǵ㗅勐Ǵ㗅刺ʊ㙛刺ʊ㙛勐ʊ㗅勐ʊ㙛冤Ǵ㙛刺Ǵ㗅刺Ǵ㗅冤ʊ㙛冤ʊ㙛刺ʊ㗅刺ʊ㛝兙Ǵ���凯Ǵ㙇凯Ǵ㙇兙ʊ㛝兙ʊ㛝凯ʊ㙇凯ʊ㝞儎Ǵ㝞冤Ǵ㛈冤Ǵ㛈儎ʊ㝞儎ʊ㝞冤ʊ㛈冤ʊ㟠僃Ǵ㟠兙Ǵ㝊兙Ǵ㝊僃ʊ㟠僃ʊ㟠兙ʊ㝊兙ʊ㡢儎Ǵ㡢冤Ǵ㟌冤Ǵ㟌儎ʊ㡢儎ʊ㡢冤ʊ㟌冤ʊ㣤兙Ǵ㣤凯Ǵ㡎凯Ǵ㡎兙ʊ㣤兙ʊ㣤凯ʊ㡎凯ʊ㥦冤Ǵ㥦刺Ǵ㣐刺Ǵ㣐冤ʊ㥦冤ʊ㥦刺ʊ㣐刺ʊ㥦刺Ǵ㥦勐Ǵ㣐勐Ǵ㣐刺ʊ㥦刺ʊ㥦勐ʊ㣐勐ʊ㥦勐Ǵ㥦卦Ǵ㣐卦Ǵ㣐勐ʊ㥦勐ʊ㥦卦ʊ㣐卦ʊ㥦卦Ǵ㥦叼Ǵ㣐叼Ǵ㣐卦ʊ㥦卦ʊ㥦叼ʊ㣐叼ʊ㧨匛Ǵ㧨厱Ǵ㥒厱Ǵ㥒匛ʊ㧨匛ʊ㧨厱ʊ㥒厱ʊ㩪勐Ǵ㩪卦Ǵ㧔卦Ǵ㧔勐ʊ㩪勐ʊ㩪卦ʊ㧔卦ʊ㫬劅Ǵ㫬匛Ǵ㩖匛Ǵ㩖劅ʊ㫬劅ʊ㫬匛ʊ㩖匛ʊ㭮勐Ǵ㭮卦Ǵ㫘卦Ǵ㫘勐ʊ㭮勐ʊ㭮卦ʊ㫘卦ʊ㯰匛Ǵ㯰厱Ǵ㭚厱Ǵ㭚匛ʊ㯰匛ʊ㯰厱ʊ㭚厱ʊ㱱卦Ǵ㱱叼Ǵ㯛叼Ǵ㯛卦ʊ㱱卦ʊ㱱叼ʊ㯛叼ʊ㱱勐Ǵ㱱卦Ǵ㯛卦Ǵ㯛勐ʊ㱱勐ʊ㱱卦ʊ㯛卦ʊ㱱刺Ǵ㱱勐Ǵ㯛勐Ǵ㯛刺ʊ㱱刺ʊ㱱勐ʊ㯛勐ʊ㱱冤Ǵ㱱刺Ǵ㯛刺Ǵ㯛冤ʊ㱱冤ʊ㱱刺ʊ㯛刺ʊ㳳兙Ǵ㳳凯Ǵ㱝凯Ǵ���兙ʊ㳳兙ʊ㳳凯ʊ㱝凯ʊ㵵儎Ǵ㵵冤Ǵ㳟冤Ǵ㳟儎ʊ㵵儎ʊ㵵冤ʊ㳟冤ʊ㷷僃Ǵ㷷兙Ǵ㵡兙Ǵ㵡僃ʊ㷷僃ʊ㷷兙ʊ㵡兙ʊ㵵偸Ǵ㵵儎Ǵ㳟儎Ǵ㳟偸ʊ㵵偸ʊ㵵儎ʊ㳟儎ʊ㳳倭Ǵ㳳僃Ǵ㱝僃Ǵ㱝倭ʊ㳳倭ʊ㳳僃ʊ㱝僃ʊ㱱俢Ǵ㱱偸Ǵ㯛偸Ǵ㯛俢ʊ㱱俢ʊ㱱偸ʊ㯛偸ʊ㱱佌Ǵ㱱俢Ǵ㯛俢Ǵ㯛佌ʊ㱱佌ʊ㱱俢ʊ㯛俢ʊ㱱亶Ǵ㱱佌Ǵ㯛佌Ǵ㯛亶ʊ㱱亶ʊ㱱佌ʊ㯛佌ʊ㱱丠Ǵ㱱亶Ǵ㯛亶Ǵ㯛丠ʊ㱱丠ʊ㱱亶ʊ㯛亶ʊ㳳䷕Ǵ㳳乫Ǵ㱝乫Ǵ㱝䷕ʊ㳳䷕ʊ㳳乫ʊ㱝乫ʊ㵵䶊Ǵ㵵丠Ǵ㳟丠Ǵ㳟䶊ʊ㵵䶊ʊ㵵丠ʊ㳟丠ʊ㷷䴿Ǵ㷷䷕Ǵ㵡䷕Ǵ㵡䴿ʊ㷷䴿ʊ㷷䷕ʊ㵡䷕ʊ㹹䶊Ǵ㹹丠Ǵ㷣丠Ǵ㷣䶊ʊ㹹䶊ʊ㹹丠ʊ㷣丠ʊ㻻䷕Ǵ㻻乫Ǵ㹥乫Ǵ㹥䷕ʊ㻻䷕ʊ㻻乫ʊ㹥乫ʊ㽽丠Ǵ㽽亶Ǵ㻧亶Ǵ㻧丠ʊ㽽丠ʊ㽽亶ʊ㻧亶ʊ㽽䶊Ǵ㽽丠Ǵ㻧丠Ǵ㻧䶊ʊ㽽䶊ʊ㽽丠ʊ㻧丠ʊ㽽䳴Ǵ㽽䶊Ǵ㻧䶊Ǵ㻧䳴ʊ㽽䳴ʊ㽽䶊ʊ㻧䶊ʊ㽽䱞Ǵ㽽䳴Ǵ㻧䳴Ǵ㻧䱞ʊ㽽䱞ʊ㽽䳴ʊ㻧䳴ʊ㿿䰓Ǵ㿿䲩Ǵ㽩䲩Ǵ㽩䰓ʊ㿿䰓ʊ���䲩ʊ㽩䲩ʊ䂁䯈Ǵ䂁䱞Ǵ㿫䱞Ǵ㿫䯈ʊ䂁䯈ʊ䂁䱞ʊ㿫䱞ʊ䄃䭽Ǵ䄃䰓Ǵ䁭䰓Ǵ䁭䭽ʊ䄃䭽ʊ䄃䰓ʊ䁭䰓ʊ䆅䯈Ǵ䆅䱞Ǵ䃯䱞Ǵ䃯䯈ʊ䆅䯈ʊ䆅䱞ʊ䃯䱞ʊ䈆䰓Ǵ䈆䲩Ǵ䅰䲩Ǵ䅰䰓ʊ䈆䰓ʊ䈆䲩ʊ䅰䲩ʊ䊈䱞Ǵ䊈䳴Ǵ䇲䳴Ǵ䇲䱞ʊ䊈䱞ʊ䊈䳴ʊ䇲䳴ʊ䊈䳴Ǵ䊈䶊Ǵ䇲䶊Ǵ䇲䳴ʊ䊈䳴ʊ䊈䶊ʊ䇲䶊ʊ䊈䶊Ǵ䊈丠Ǵ䇲丠Ǵ䇲䶊ʊ䊈䶊ʊ䊈丠ʊ䇲丠ʊ䊈丠Ǵ䊈亶Ǵ䇲亶Ǵ䇲丠ʊ䊈丠ʊ䊈亶ʊ䇲亶ʊ䌊䷕Ǵ䌊乫Ǵ䉴乫Ǵ䉴䷕ʊ䌊䷕ʊ䌊乫ʊ䉴乫ʊ䎌䶊Ǵ䎌丠Ǵ䋶丠Ǵ䋶䶊ʊ䎌䶊ʊ䎌丠ʊ䋶丠ʊ䐎䴿Ǵ䐎䷕Ǵ䍸䷕Ǵ䍸䴿ʊ䐎䴿ʊ䐎䷕ʊ䍸䷕ʊ䒐䶊Ǵ䒐丠Ǵ䏺丠Ǵ䏺䶊ʊ䒐䶊ʊ䒐丠ʊ䏺丠ʊ䔒䷕Ǵ䔒乫Ǵ䑼乫Ǵ䑼䷕ʊ䔒䷕ʊ䔒乫ʊ䑼乫ʊ䖔丠Ǵ䖔亶Ǵ䓾亶Ǵ䓾丠ʊ䖔丠ʊ䖔亶ʊ䓾亶ʊ䖔亶Ǵ䖔佌Ǵ䓾佌Ǵ䓾亶ʊ䖔亶ʊ䖔佌ʊ䓾佌ʊ䖔佌Ǵ䖔俢Ǵ䓾俢Ǵ䓾佌ʊ䖔佌ʊ䖔俢ʊ䓾俢ʊ䖔俢Ǵ䖔偸Ǵ䓾偸Ǵ䓾俢ʊ䖔俢ʊ䖔偸ʊ䓾偸ʊ䔒倭Ǵ䔒僃Ǵ䑼僃Ǵ䑼倭ʊ䔒倭ʊ䔒僃ʊ䑼僃ʊ���偸Ǵ䒐儎Ǵ䏺儎Ǵ䏺偸ʊ䒐偸ʊ䒐儎ʊ䏺儎ʊ䐎僃Ǵ䐎兙Ǵ䍸兙Ǵ䍸僃ʊ䐎僃ʊ䐎兙ʊ䍸兙ʊ䒐儎Ǵ䒐冤Ǵ䏺冤Ǵ䏺儎ʊ䒐儎ʊ䒐冤ʊ䏺冤ʊ䔒兙Ǵ䔒凯Ǵ䑼凯Ǵ䑼兙ʊ䔒兙ʊ䔒凯ʊ䑼凯ʊ䖔冤Ǵ䖔刺Ǵ䓾刺Ǵ䓾冤ʊ䖔冤ʊ䖔刺ʊ䓾刺ʊ䖔刺Ǵ䖔勐Ǵ䓾勐Ǵ䓾刺ʊ䖔刺ʊ䖔勐ʊ䓾勐ʊ䖔勐Ǵ䖔卦Ǵ䓾卦Ǵ䓾勐ʊ䖔勐ʊ䖔卦ʊ䓾卦ʊ䖔卦Ǵ䖔叼Ǵ䓾叼Ǵ䓾卦ʊ䖔卦ʊ䖔叼ʊ䓾叼ʊ䘖匛Ǵ䘖厱Ǵ䖀厱Ǵ䖀匛ʊ䘖匛ʊ䘖厱ʊ䖀厱ʊ䚘勐Ǵ䚘卦Ǵ䘂卦Ǵ䘂勐ʊ䚘勐ʊ䚘卦ʊ䘂卦ʊ䜙劅Ǵ䜙匛Ǵ䚃匛Ǵ䚃劅ʊ䜙劅ʊ䜙匛ʊ䚃匛ʊ䞛勐Ǵ䞛卦Ǵ䜅卦Ǵ䜅勐ʊ䞛勐ʊ䞛卦ʊ䜅卦ʊ䠝匛Ǵ䠝厱Ǵ䞇厱Ǵ䞇匛ʊ䠝匛ʊ䠝厱ʊ䞇厱ʊ䢟卦Ǵ䢟叼Ǵ䠉叼Ǵ䠉卦ʊ䢟卦ʊ䢟叼ʊ䠉叼ʊ䢟勐Ǵ䢟卦Ǵ䠉卦Ǵ䠉勐ʊ䢟勐ʊ䢟卦ʊ䠉卦ʊ䢟刺Ǵ䢟勐Ǵ䠉勐Ǵ䠉刺ʊ䢟刺ʊ䢟勐ʊ䠉勐ʊ䢟冤Ǵ䢟刺Ǵ䠉刺Ǵ䠉冤ʊ䢟冤ʊ䢟刺ʊ䠉刺ʊ䤡兙Ǵ䤡凯Ǵ䢋凯Ǵ䢋兙ʊ䤡兙ʊ䤡凯ʊ䢋凯ʊ䦣儎Ǵ䦣冤Ǵ���冤Ǵ䤍儎ʊ䦣儎ʊ䦣冤ʊ䤍冤ʊ䨥僃Ǵ䨥兙Ǵ䦏兙Ǵ䦏僃ʊ䨥僃ʊ䨥兙ʊ䦏兙ʊ䪧儎Ǵ䪧冤Ǵ䨑冤Ǵ䨑儎ʊ䪧儎ʊ䪧冤ʊ䨑冤ʊ䬩兙Ǵ䬩凯Ǵ䪓凯Ǵ䪓兙ʊ䬩兙ʊ䬩凯ʊ䪓凯ʊ䮫冤Ǵ䮫刺Ǵ䬕刺Ǵ䬕冤ʊ䮫冤ʊ䮫刺ʊ䬕刺ʊ䮫刺Ǵ䮫勐Ǵ䬕勐Ǵ䬕刺ʊ䮫刺ʊ䮫勐ʊ䬕勐ʊ䮫勐Ǵ䮫卦Ǵ䬕卦Ǵ䬕勐ʊ䮫勐ʊ䮫卦ʊ䬕卦ʊ䮫卦Ǵ䮫叼Ǵ䬕叼Ǵ䬕卦ʊ䮫卦ʊ䮫叼ʊ䬕叼ʊ䰬匛Ǵ䰬厱Ǵ䮖厱Ǵ䮖匛ʊ䰬匛ʊ䰬厱ʊ䮖厱ʊ䲮勐Ǵ䲮卦Ǵ䰘卦Ǵ䰘勐ʊ䲮勐ʊ䲮卦ʊ䰘卦ʊ䴰劅Ǵ䴰匛Ǵ䲚匛Ǵ䲚劅ʊ䴰劅ʊ䴰匛ʊ䲚匛ʊ䶲勐Ǵ䶲卦Ǵ䴜卦Ǵ䴜勐ʊ䶲勐ʊ䶲卦ʊ䴜卦ʊ临匛Ǵ临厱Ǵ䶞厱Ǵ䶞匛ʊ临匛ʊ临厱ʊ䶞厱ʊ亶卦Ǵ亶叼Ǵ丠叼Ǵ丠卦ʊ亶卦ʊ亶叼ʊ丠叼ʊ亶叼Ǵ亶咒Ǵ丠咒Ǵ丠叼ʊ亶叼ʊ亶咒ʊ丠咒ʊ亶咒Ǵ亶唨Ǵ丠唨Ǵ丠咒ʊ亶咒ʊ亶唨ʊ丠唨ʊ亶唨Ǵ亶喾Ǵ丠喾Ǵ丠唨ʊ亶唨ʊ亶喾ʊ丠喾ʊ临啳Ǵ临嘉Ǵ䶞嘉Ǵ䶞啳ʊ临啳ʊ临嘉ʊ䶞嘉ʊ䶲喾Ǵ䶲噔Ǵ䴜噔Ǵ䴜喾ʊ���喾ʊ䶲噔ʊ䴜噔ʊ䴰嘉Ǵ䴰嚟Ǵ䲚嚟Ǵ䲚嘉ʊ䴰嘉ʊ䴰嚟ʊ䲚嚟ʊ䶲噔Ǵ䶲囪Ǵ䴜囪Ǵ䴜噔ʊ䶲噔ʊ䶲囪ʊ䴜囪ʊ临嚟Ǵ临圵Ǵ䶞圵Ǵ䶞嚟ʊ临嚟ʊ临圵ʊ䶞圵ʊ亶囪Ǵ亶垀Ǵ丠垀Ǵ丠囪ʊ亶囪ʊ亶垀ʊ丠垀ʊ亶垀Ǵ亶堖Ǵ丠堖Ǵ丠垀ʊ亶垀ʊ亶堖ʊ丠堖ʊ亶堖Ǵ亶墬Ǵ丠墬Ǵ丠堖ʊ亶堖ʊ亶墬ʊ丠墬ʊ亶墬Ǵ亶奂Ǵ丠奂Ǵ丠墬ʊ亶墬ʊ亶奂ʊ丠奂ʊ临壷Ǵ临妍Ǵ䶞妍Ǵ䶞壷ʊ临壷ʊ临妍ʊ䶞妍ʊ䶲奂Ǵ䶲姘Ǵ䴜姘Ǵ䴜奂ʊ䶲奂ʊ䶲姘ʊ䴜姘ʊ䴰妍Ǵ䴰娣Ǵ䲚娣Ǵ䲚妍ʊ䴰妍ʊ䴰娣ʊ䲚娣ʊ䲮奂Ǵ䲮姘Ǵ䰘姘Ǵ䰘奂ʊ䲮奂ʊ䲮姘ʊ䰘姘ʊ䰬壷Ǵ䰬妍Ǵ䮖妍Ǵ䮖壷ʊ䰬壷ʊ䰬妍ʊ䮖妍ʊ䮫墬Ǵ䮫奂Ǵ䬕奂Ǵ䬕墬ʊ䮫墬ʊ䮫奂ʊ䬕奂ʊ䮫奂Ǵ䮫姘Ǵ䬕姘Ǵ䬕奂ʊ䮫奂ʊ䮫姘ʊ䬕姘ʊ䮫姘Ǵ䮫婮Ǵ䬕婮Ǵ䬕姘ʊ䮫姘ʊ䮫婮ʊ䬕婮ʊ䮫婮Ǵ䮫嬄Ǵ䬕嬄Ǵ䬕婮ʊ䮫婮ʊ䮫嬄ʊ䬕嬄ʊ䬩媹Ǵ䬩孏Ǵ䪓孏Ǵ䪓媹ʊ䬩媹ʊ䬩孏ʊ䪓孏ʊ䪧嬄Ǵ䪧定Ǵ䨑定Ǵ䨑嬄ʊ䪧嬄ʊ䪧定ʊ���定ʊ䨥孏Ǵ䨥寥Ǵ䦏寥Ǵ䦏孏ʊ䨥孏ʊ䨥寥ʊ䦏寥ʊ䪧定Ǵ䪧尰Ǵ䨑尰Ǵ䨑定ʊ䪧定ʊ䪧尰ʊ䨑尰ʊ䬩寥Ǵ䬩屻Ǵ䪓屻Ǵ䪓寥ʊ䬩寥ʊ䬩屻ʊ䪓屻ʊ䮫尰Ǵ䮫峆Ǵ䬕峆Ǵ䬕尰ʊ䮫尰ʊ䮫峆ʊ䬕峆ʊ䮫峆Ǵ䮫嵜Ǵ䬕嵜Ǵ䬕峆ʊ䮫峆ʊ䮫嵜ʊ䬕嵜ʊ䮫嵜Ǵ䮫已Ǵ䬕已Ǵ䬕嵜ʊ䮫嵜ʊ䮫已ʊ䬕已ʊ䮫已Ǵ䮫庈Ǵ䬕庈Ǵ䬕已ʊ䮫已ʊ䮫庈ʊ䬕庈ʊ䰬嶧Ǵ䰬帽Ǵ䮖帽Ǵ䮖嶧ʊ䰬嶧ʊ䰬帽ʊ䮖帽ʊ䲮嵜Ǵ䲮已Ǵ䰘已Ǵ䰘嵜ʊ䲮嵜ʊ䲮已ʊ䰘已ʊ䴰崑Ǵ䴰嶧Ǵ䲚嶧Ǵ䲚崑ʊ䴰崑ʊ䴰嶧ʊ䲚嶧ʊ䶲嵜Ǵ䶲已Ǵ䴜已Ǵ䴜嵜ʊ䶲嵜ʊ䶲已ʊ䴜已ʊ临嶧Ǵ临帽Ǵ䶞帽Ǵ䶞嶧ʊ临嶧ʊ临帽ʊ䶞帽ʊ亶已Ǵ亶庈Ǵ丠庈Ǵ丠已ʊ亶已ʊ亶庈ʊ丠庈ʊ亶庈Ǵ亶弞Ǵ丠弞Ǵ丠庈ʊ亶庈ʊ亶弞ʊ丠弞ʊ亶弞Ǵ亶徴Ǵ丠徴Ǵ丠弞ʊ亶弞ʊ亶徴ʊ丠徴ʊ亶徴Ǵ亶恊Ǵ丠恊Ǵ丠徴ʊ亶徴ʊ亶恊ʊ丠恊ʊ临忿Ǵ临悕Ǵ䶞悕Ǵ䶞忿ʊ临忿ʊ临悕ʊ䶞悕ʊ䶲恊Ǵ䶲惠Ǵ䴜惠Ǵ䴜恊ʊ䶲恊ʊ䶲惠ʊ䴜惠ʊ䴰悕Ǵ���愫Ǵ䲚愫Ǵ䲚悕ʊ䴰悕ʊ䴰愫ʊ䲚愫ʊ䶲惠Ǵ䶲慶Ǵ䴜慶Ǵ䴜惠ʊ䶲惠ʊ䶲慶ʊ䴜慶ʊ临愫Ǵ临懁Ǵ䶞懁Ǵ䶞愫ʊ临愫ʊ临懁ʊ䶞懁ʊ亶慶Ǵ亶戌Ǵ丠戌Ǵ丠慶ʊ亶慶ʊ亶戌ʊ丠戌ʊ亶戌Ǵ亶抢Ǵ丠抢Ǵ丠戌ʊ亶戌ʊ亶抢ʊ丠抢ʊ亶抢Ǵ亶挸Ǵ丠挸Ǵ丠抢ʊ亶抢ʊ亶挸ʊ丠挸ʊ亶挸Ǵ亶揎Ǵ丠揎Ǵ丠挸ʊ亶挸ʊ亶揎ʊ丠揎ʊ临掃Ǵ临搙Ǵ䶞搙Ǵ䶞掃ʊ临掃ʊ临搙ʊ䶞搙ʊ䶲揎Ǵ䶲摤Ǵ䴜摤Ǵ䴜揎ʊ䶲揎ʊ䶲摤ʊ䴜摤ʊ䴰搙Ǵ䴰撯Ǵ䲚撯Ǵ䲚搙ʊ䴰搙ʊ䴰撯ʊ䲚撯ʊ䲮揎Ǵ䲮摤Ǵ䰘摤Ǵ䰘揎ʊ䲮揎ʊ䲮摤ʊ䰘摤ʊ䰬掃Ǵ䰬搙Ǵ䮖搙Ǵ䮖掃ʊ䰬掃ʊ䰬搙ʊ䮖搙ʊ䮫挸Ǵ䮫揎Ǵ䬕揎Ǵ䬕挸ʊ䮫挸ʊ䮫揎ʊ䬕揎ʊ䮫揎Ǵ䮫摤Ǵ䬕摤Ǵ䬕揎ʊ䮫揎ʊ䮫摤ʊ䬕摤ʊ䮫摤Ǵ䮫擺Ǵ䬕擺Ǵ䬕摤ʊ䮫摤ʊ䮫擺ʊ䬕擺ʊ䮫擺Ǵ䮫斐Ǵ䬕斐Ǵ䬕擺ʊ䮫擺ʊ䮫斐ʊ䬕斐ʊ䬩故Ǵ䬩旛Ǵ䪓旛Ǵ䪓故ʊ䬩故ʊ䬩旛ʊ䪓旛ʊ䪧斐Ǵ䪧昦Ǵ䨑昦Ǵ䨑斐ʊ䪧斐ʊ䪧昦ʊ䨑昦ʊ䨥旛Ǵ䨥晱Ǵ䦏晱Ǵ���旛ʊ䨥旛ʊ䨥晱ʊ䦏晱ʊ䦣斐Ǵ䦣昦Ǵ䤍昦Ǵ䤍斐ʊ䦣斐ʊ䦣昦ʊ䤍昦ʊ䤡故Ǵ䤡旛Ǵ䢋旛Ǵ䢋故ʊ䤡故ʊ䤡旛ʊ䢋旛ʊ䢟擺Ǵ䢟斐Ǵ䠉斐Ǵ䠉擺ʊ䢟擺ʊ䢟斐ʊ䠉斐ʊ䢟摤Ǵ䢟擺Ǵ䠉擺Ǵ䠉摤ʊ䢟摤ʊ䢟擺ʊ䠉擺ʊ䢟揎Ǵ䢟摤Ǵ䠉摤Ǵ䠉揎ʊ䢟揎ʊ䢟摤ʊ䠉摤ʊ䢟挸Ǵ䢟揎Ǵ䠉揎Ǵ䠉挸ʊ䢟挸ʊ䢟揎ʊ䠉揎ʊ䠝掃Ǵ䠝搙Ǵ䞇搙Ǵ䞇掃ʊ䠝掃ʊ䠝搙ʊ䞇搙ʊ䞛揎Ǵ䞛摤Ǵ䜅摤Ǵ䜅揎ʊ䞛揎ʊ䞛摤ʊ䜅摤ʊ䜙搙Ǵ䜙撯Ǵ䚃撯Ǵ䚃搙ʊ䜙搙ʊ䜙撯ʊ䚃撯ʊ䚘揎Ǵ䚘摤Ǵ䘂摤Ǵ䘂揎ʊ䚘揎ʊ䚘摤ʊ䘂摤ʊ䘖掃Ǵ䘖搙Ǵ䖀搙Ǵ䖀掃ʊ䘖掃ʊ䘖搙ʊ䖀搙ʊ䖔挸Ǵ䖔揎Ǵ䓾揎Ǵ䓾挸ʊ䖔挸ʊ䖔揎ʊ䓾揎ʊ䖔揎Ǵ䖔摤Ǵ䓾摤Ǵ䓾揎ʊ䖔揎ʊ䖔摤ʊ䓾摤ʊ䖔摤Ǵ䖔擺Ǵ䓾擺Ǵ䓾摤ʊ䖔摤ʊ䖔擺ʊ䓾擺ʊ䖔擺Ǵ䖔斐Ǵ䓾斐Ǵ䓾擺ʊ䖔擺ʊ䖔斐ʊ䓾斐ʊ䔒故Ǵ䔒旛Ǵ䑼旛Ǵ䑼故ʊ䔒故ʊ䔒旛ʊ䑼旛ʊ䒐斐Ǵ䒐昦Ǵ䏺昦Ǵ䏺斐ʊ䒐斐ʊ䒐昦ʊ䏺昦ʊ䐎旛Ǵ䐎晱Ǵ䍸晱Ǵ䍸旛ʊ䐎旛ʊ���晱ʊ䍸晱ʊ䒐昦Ǵ䒐暼Ǵ䏺暼Ǵ䏺昦ʊ䒐昦ʊ䒐暼ʊ䏺暼ʊ䔒晱Ǵ䔒朇Ǵ䑼朇Ǵ䑼晱ʊ䔒晱ʊ䔒朇ʊ䑼朇ʊ䖔暼Ǵ䖔杒Ǵ䓾杒Ǵ䓾暼ʊ䖔暼ʊ䖔杒ʊ䓾杒ʊ䖔杒Ǵ䖔柨Ǵ䓾柨Ǵ䓾杒ʊ䖔杒ʊ䖔柨ʊ䓾柨ʊ䖔柨Ǵ䖔桾Ǵ䓾桾Ǵ䓾柨ʊ䖔柨ʊ䖔桾ʊ䓾桾ʊ䖔桾Ǵ䖔椔Ǵ䓾椔Ǵ䓾桾ʊ䖔桾ʊ䖔椔ʊ䓾椔ʊ䔒棉Ǵ䔒楟Ǵ䑼楟Ǵ䑼棉ʊ䔒棉ʊ䔒楟ʊ䑼楟ʊ䒐椔Ǵ䒐榪Ǵ䏺榪Ǵ䏺椔ʊ䒐椔ʊ䒐榪ʊ䏺榪ʊ䐎楟Ǵ䐎槵Ǵ䍸槵Ǵ䍸楟ʊ䐎楟ʊ䐎槵ʊ䍸槵ʊ䎌椔Ǵ䎌榪Ǵ䋶榪Ǵ䋶椔ʊ䎌椔ʊ䎌榪ʊ䋶榪ʊ䌊棉Ǵ䌊楟Ǵ䉴楟Ǵ䉴棉ʊ䌊棉ʊ䌊楟ʊ䉴楟ʊ䊈桾Ǵ䊈椔Ǵ䇲椔Ǵ䇲桾ʊ䊈桾ʊ䊈椔ʊ䇲椔ʊ䊈椔Ǵ䊈榪Ǵ䇲榪Ǵ䇲椔ʊ䊈椔ʊ䊈榪ʊ䇲榪ʊ䊈榪Ǵ䊈橀Ǵ䇲橀Ǵ䇲榪ʊ䊈榪ʊ䊈橀ʊ䇲橀ʊ䊈橀Ǵ䊈櫖Ǵ䇲櫖Ǵ䇲橀ʊ䊈橀ʊ䊈櫖ʊ䇲櫖ʊ䈆檋Ǵ䈆次Ǵ䅰次Ǵ䅰檋ʊ䈆檋ʊ䈆次ʊ䅰次ʊ䆅櫖Ǵ䆅歬Ǵ䃯歬Ǵ䃯櫖ʊ䆅櫖ʊ䆅歬ʊ䃯歬ʊ䄃次Ǵ䄃殷Ǵ䁭殷Ǵ䁭次ʊ䄃次ʊ䄃殷ʊ䁭殷ʊ���歬Ǵ䆅氂Ǵ䃯氂Ǵ䃯歬ʊ䆅歬ʊ䆅氂ʊ䃯氂ʊ䈆殷Ǵ䈆汍Ǵ䅰汍Ǵ䅰殷ʊ䈆殷ʊ䈆汍ʊ䅰汍ʊ䊈氂Ǵ䊈沘Ǵ䇲沘Ǵ䇲氂ʊ䊈氂ʊ䊈沘ʊ䇲沘ʊ䊈沘Ǵ䊈洮Ǵ䇲洮Ǵ䇲沘ʊ䊈沘ʊ䊈洮ʊ䇲洮ʊ䊈洮Ǵ䊈淄Ǵ䇲淄Ǵ䇲洮ʊ䊈洮ʊ䊈淄ʊ䇲淄ʊ䊈淄Ǵ䊈湚Ǵ䇲湚Ǵ䇲淄ʊ䊈淄ʊ䊈湚ʊ䇲湚ʊ䌊浹Ǵ䌊渏Ǵ䉴渏Ǵ䉴浹ʊ䌊浹ʊ䌊渏ʊ䉴渏ʊ䎌洮Ǵ䎌淄Ǵ䋶淄Ǵ䋶洮ʊ䎌洮ʊ䎌淄ʊ䋶淄ʊ䐎泣Ǵ䐎浹Ǵ䍸浹Ǵ䍸泣ʊ䐎泣ʊ䐎浹ʊ䍸浹ʊ䒐洮Ǵ䒐淄Ǵ䏺淄Ǵ䏺洮ʊ䒐洮ʊ䒐淄ʊ䏺淄ʊ䔒浹Ǵ䔒渏Ǵ䑼渏Ǵ䑼浹ʊ䔒浹ʊ䔒渏ʊ䑼渏ʊ䖔淄Ǵ䖔湚Ǵ䓾湚Ǵ䓾淄ʊ䖔淄ʊ䖔湚ʊ䓾湚ʊ䖔湚Ǵ䖔滰Ǵ䓾滰Ǵ䓾湚ʊ䖔湚ʊ䖔滰ʊ䓾滰ʊ䖔滰Ǵ䖔澆Ǵ䓾澆Ǵ䓾滰ʊ䖔滰ʊ䖔澆ʊ䓾澆ʊ䖔澆Ǵ䖔瀜Ǵ䓾瀜Ǵ䓾澆ʊ䖔澆ʊ䖔瀜ʊ䓾瀜ʊ䔒濑Ǵ䔒灧Ǵ䑼灧Ǵ䑼濑ʊ䔒濑ʊ䔒灧ʊ䑼灧ʊ䒐瀜Ǵ䒐炲Ǵ䏺炲Ǵ䏺瀜ʊ䒐瀜ʊ䒐炲ʊ䏺炲ʊ䐎灧Ǵ䐎烽Ǵ䍸烽Ǵ䍸灧ʊ䐎灧ʊ䐎烽ʊ䍸烽ʊ䒐炲Ǵ䒐煈Ǵ���煈Ǵ䏺炲ʊ䒐炲ʊ䒐煈ʊ䏺煈ʊ䔒烽Ǵ䔒熓Ǵ䑼熓Ǵ䑼烽ʊ䔒烽ʊ䔒熓ʊ䑼熓ʊ䖔煈Ǵ䖔燞Ǵ䓾燞Ǵ䓾煈ʊ䖔煈ʊ䖔燞ʊ䓾燞ʊ䖔燞Ǵ䖔牴Ǵ䓾牴Ǵ䓾燞ʊ䖔燞ʊ䖔牴ʊ䓾牴ʊ䖔牴Ǵ䖔猊Ǵ䓾猊Ǵ䓾牴ʊ䖔牴ʊ䖔猊ʊ䓾猊ʊ䖔猊Ǵ䖔玠Ǵ䓾玠Ǵ䓾猊ʊ䖔猊ʊ䖔玠ʊ䓾玠ʊ䘖犿Ǵ䘖獕Ǵ䖀獕Ǵ䖀犿ʊ䘖犿ʊ䘖獕ʊ䖀獕ʊ䚘牴Ǵ䚘猊Ǵ䘂猊Ǵ䘂牴ʊ䚘牴ʊ䚘猊ʊ䘂猊ʊ䜙爩Ǵ䜙犿Ǵ䚃犿Ǵ䚃爩ʊ䜙爩ʊ䜙犿ʊ䚃犿ʊ䞛牴Ǵ䞛猊Ǵ䜅猊Ǵ䜅牴ʊ䞛牴ʊ䞛猊ʊ䜅猊ʊ䠝犿Ǵ䠝獕Ǵ䞇獕Ǵ䞇犿ʊ䠝犿ʊ䠝獕ʊ䞇獕ʊ䢟猊Ǵ䢟玠Ǵ䠉玠Ǵ䠉猊ʊ䢟猊ʊ䢟玠ʊ䠉玠ʊ䢟牴Ǵ䢟猊Ǵ䠉猊Ǵ䠉牴ʊ䢟牴ʊ䢟猊ʊ䠉猊ʊ䢟燞Ǵ䢟牴Ǵ䠉牴Ǵ䠉燞ʊ䢟燞ʊ䢟牴ʊ䠉牴ʊ䢟煈Ǵ䢟燞Ǵ䠉燞Ǵ䠉煈ʊ䢟煈ʊ䢟燞ʊ䠉燞ʊ䤡烽Ǵ䤡熓Ǵ䢋熓Ǵ䢋烽ʊ䤡烽ʊ䤡熓ʊ䢋熓ʊ䦣炲Ǵ䦣煈Ǵ䤍煈Ǵ䤍炲ʊ䦣炲ʊ䦣煈ʊ䤍煈ʊ䨥灧Ǵ䨥烽Ǵ䦏烽Ǵ䦏灧ʊ䨥灧ʊ䨥烽ʊ䦏烽ʊ䪧炲Ǵ䪧煈Ǵ䨑煈Ǵ䨑炲ʊ���炲ʊ䪧煈ʊ䨑煈ʊ䬩烽Ǵ䬩熓Ǵ䪓熓Ǵ䪓烽ʊ䬩烽ʊ䬩熓ʊ䪓熓ʊ䮫煈Ǵ䮫燞Ǵ䬕燞Ǵ䬕煈ʊ䮫煈ʊ䮫燞ʊ䬕燞ʊ䮫燞Ǵ䮫牴Ǵ䬕牴Ǵ䬕燞ʊ䮫燞ʊ䮫牴ʊ䬕牴ʊ䮫牴Ǵ䮫猊Ǵ䬕猊Ǵ䬕牴ʊ䮫牴ʊ䮫猊ʊ䬕猊ʊ䮫猊Ǵ䮫玠Ǵ䬕玠Ǵ䬕猊ʊ䮫猊ʊ䮫玠ʊ䬕玠ʊ䰬犿Ǵ䰬獕Ǵ䮖獕Ǵ䮖犿ʊ䰬犿ʊ䰬獕ʊ䮖獕ʊ䲮牴Ǵ䲮猊Ǵ䰘猊Ǵ䰘牴ʊ䲮牴ʊ䲮猊ʊ䰘猊ʊ䴰爩Ǵ䴰犿Ǵ䲚犿Ǵ䲚爩ʊ䴰爩ʊ䴰犿ʊ䲚犿ʊ䶲牴Ǵ䶲猊Ǵ䴜猊Ǵ䴜牴ʊ䶲牴ʊ䶲猊ʊ䴜猊ʊ临犿Ǵ临獕Ǵ䶞獕Ǵ䶞犿ʊ临犿ʊ临獕ʊ䶞獕ʊ亶猊Ǵ亶玠Ǵ丠玠Ǵ丠猊ʊ亶猊ʊ亶玠ʊ丠玠ʊ亶玠Ǵ亶琶Ǵ丠琶Ǵ丠玠ʊ亶玠ʊ亶琶ʊ丠琶ʊ亶琶Ǵ亶瓌Ǵ丠瓌Ǵ丠琶ʊ亶琶ʊ亶瓌ʊ丠瓌ʊ亶瓌Ǵ亶畢Ǵ丠畢Ǵ丠瓌ʊ亶瓌ʊ亶畢ʊ丠畢ʊ临甗Ǵ临疭Ǵ䶞疭Ǵ䶞甗ʊ临甗ʊ临疭ʊ䶞疭ʊ䶲畢Ǵ䶲痸Ǵ䴜痸Ǵ䴜畢ʊ䶲畢ʊ䶲痸ʊ䴜痸ʊ䴰疭Ǵ䴰癃Ǵ䲚癃Ǵ䲚疭ʊ䴰疭ʊ䴰癃ʊ䲚癃ʊ䶲痸Ǵ䶲皎Ǵ䴜皎Ǵ䴜痸ʊ䶲痸ʊ䶲皎ʊ���皎ʊ临癃Ǵ临盙Ǵ䶞盙Ǵ䶞癃ʊ临癃ʊ临盙ʊ䶞盙ʊ亶皎Ǵ亶眤Ǵ丠眤Ǵ丠皎ʊ亶皎ʊ亶眤ʊ丠眤ʊ亶眤Ǵ亶瞺Ǵ丠瞺Ǵ丠眤ʊ亶眤ʊ亶瞺ʊ丠瞺ʊ亶瞺Ǵ亶硐Ǵ丠硐Ǵ丠瞺ʊ亶瞺ʊ亶硐ʊ丠硐ʊ亶硐Ǵ亶磦Ǵ丠磦Ǵ丠硐ʊ亶硐ʊ亶磦ʊ丠磦ʊ临碛Ǵ临礱Ǵ䶞礱Ǵ䶞碛ʊ临碛ʊ临礱ʊ䶞礱ʊ䶲磦Ǵ䶲祼Ǵ䴜祼Ǵ䴜磦ʊ䶲磦ʊ䶲祼ʊ䴜祼ʊ䴰礱Ǵ䴰秇Ǵ䲚秇Ǵ䲚礱ʊ䴰礱ʊ䴰秇ʊ䲚秇ʊ䲮磦Ǵ䲮祼Ǵ䰘祼Ǵ䰘磦ʊ䲮磦ʊ䲮祼ʊ䰘祼ʊ䰬碛Ǵ䰬礱Ǵ䮖礱Ǵ䮖碛ʊ䰬碛ʊ䰬礱ʊ䮖礱ʊ䮫硐Ǵ䮫磦Ǵ䬕磦Ǵ䬕硐ʊ䮫硐ʊ䮫磦ʊ䬕磦ʊ䮫磦Ǵ䮫祼Ǵ䬕祼Ǵ䬕磦ʊ䮫磦ʊ䮫祼ʊ䬕祼ʊ䮫祼Ǵ䮫稒Ǵ䬕稒Ǵ䬕祼ʊ䮫祼ʊ䮫稒ʊ䬕稒ʊ䮫稒Ǵ䮫窨Ǵ䬕窨Ǵ䬕稒ʊ䮫稒ʊ䮫窨ʊ䬕窨ʊ䬩穝Ǵ䬩竳Ǵ䪓竳Ǵ䪓穝ʊ䬩穝ʊ䬩竳ʊ䪓竳ʊ䪧窨Ǵ䪧笾Ǵ䨑笾Ǵ䨑窨ʊ䪧窨ʊ䪧笾ʊ䨑笾ʊ䨥竳Ǵ䨥箉Ǵ䦏箉Ǵ䦏竳ʊ䨥竳ʊ䨥箉ʊ䦏箉ʊ䪧笾Ǵ䪧篔Ǵ䨑篔Ǵ䨑笾ʊ䪧笾ʊ䪧篔ʊ䨑篔ʊ䬩箉Ǵ���簟Ǵ䪓簟Ǵ䪓箉ʊ䬩箉ʊ䬩簟ʊ䪓簟ʊ䮫篔Ǵ䮫籪Ǵ䬕籪Ǵ䬕篔ʊ䮫篔ʊ䮫籪ʊ䬕籪ʊ䮫籪Ǵ䮫紀Ǵ䬕紀Ǵ䬕籪ʊ䮫籪ʊ䮫紀ʊ䬕紀ʊ䮫紀Ǵ䮫綖Ǵ䬕綖Ǵ䬕紀ʊ䮫紀ʊ䮫綖ʊ䬕綖ʊ䮫綖Ǵ䮫縬Ǵ䬕縬Ǵ䬕綖ʊ䮫綖ʊ䮫縬ʊ䬕縬ʊ䰬絋Ǵ䰬緡Ǵ䮖緡Ǵ䮖絋ʊ䰬絋ʊ䰬緡ʊ䮖緡ʊ䲮紀Ǵ䲮綖Ǵ䰘綖Ǵ䰘紀ʊ䲮紀ʊ䲮綖ʊ䰘綖ʊ䴰粵Ǵ䴰絋Ǵ䲚絋Ǵ䲚粵ʊ䴰粵ʊ䴰絋ʊ䲚絋ʊ䶲紀Ǵ䶲綖Ǵ䴜綖Ǵ䴜紀ʊ䶲紀ʊ䶲綖ʊ䴜綖ʊ临絋Ǵ临緡Ǵ䶞緡Ǵ䶞絋ʊ临絋ʊ临緡ʊ䶞緡ʊ亶綖Ǵ亶縬Ǵ丠縬Ǵ丠綖ʊ亶綖ʊ亶縬ʊ丠縬ʊ亶縬Ǵ亶绂Ǵ丠绂Ǵ丠縬ʊ亶縬ʊ亶绂ʊ丠绂ʊ亶绂Ǵ亶罘Ǵ丠罘Ǵ丠绂ʊ亶绂ʊ亶罘ʊ丠罘ʊ亶罘Ǵ亶翮Ǵ丠翮Ǵ丠罘ʊ亶罘ʊ亶翮ʊ丠翮ʊ临羣Ǵ临耹Ǵ䶞耹Ǵ䶞羣ʊ临羣ʊ临耹ʊ䶞耹ʊ䶲翮Ǵ䶲肄Ǵ䴜肄Ǵ䴜翮ʊ䶲翮ʊ䶲肄ʊ䴜肄ʊ䴰耹Ǵ䴰胏Ǵ䲚胏Ǵ䲚耹ʊ䴰耹ʊ䴰胏ʊ䲚胏ʊ䶲肄Ǵ䶲脚Ǵ䴜脚Ǵ䴜肄ʊ䶲肄ʊ䶲脚ʊ䴜脚ʊ临胏Ǵ临腥Ǵ䶞腥Ǵ���胏ʊ临胏ʊ临腥ʊ䶞腥ʊ亶脚Ǵ亶膰Ǵ丠膰Ǵ丠脚ʊ亶脚ʊ亶膰ʊ丠膰ʊ亶膰Ǵ亶艆Ǵ丠艆Ǵ丠膰ʊ亶膰ʊ亶艆ʊ丠艆ʊ亶艆Ǵ亶苜Ǵ丠��Ǵ丠艆ʊ亶艆ʊ亶苜ʊ丠苜ʊ亶苜Ǵ亶荲Ǵ丠荲Ǵ丠苜ʊ亶苜ʊ亶荲ʊ丠荲ʊ End>TTJ208.sb< Start>TTJ579.sb< current_screen = "" next_screen = "first" Controls.ButtonClicked=OnButtonClicked ' screen managing loop While "true" If next_screen <> current_screen Then current_screen = next_screen If next_screen = "first" Then ShowFirstScreen() ElseIf next_screen = "second" Then ShowSecondScreen() ElseIf next_screen = "third" Then ShowThirdScreen() Endif EndIf Program.Delay(100) EndWhile Sub OnButtonClicked If Controls.LastClickedButton=second_screen_button Then next_screen = "second" ElseIf Controls.LastClickedButton=first_screen_button Then next_screen = "first" endif EndSub Sub ShowFirstScreen GraphicsWindow.Clear() GraphicsWindow.BackgroundColor = "white" GraphicsWindow.DrawText(50,150,"I. this is the first screen") second_screen_button=controls.AddButton("NEXT",300,230) endsub sub ShowSecondScreen GraphicsWindow.Clear() GraphicsWindow.BackgroundColor = "yellow" GraphicsWindow.DrawText(50,150,"II. this is the second screen... wait 1000ms") Program.Delay(1000) ShowThirdScreen() endsub Sub ShowThirdScreen GraphicsWindow.Clear() GraphicsWindow.BackgroundColor="black" GraphicsWindow.DrawText(50,150,"III. this is the third screen") first_screen_button=controls.AddButton("goto first screen",300,230) endsub End>TTJ579.sb< Start>TTK762.sb< GraphicsWindow.Title = "CubModeler" GraphicsWindow.BackgroundColor = "teal Init() LDUtilities.ShowErrors="false args=0 ss=8 dx=-20 dy=-20 p300=300 objmd="false ob=1 ii=1 par = "y=-2;x=4;z=0;color=darkblue|y=-2;x=1;z=0;color=darkblue dvox() param = "y="+(dy-4)+";x="+dx+";z=1;width=3;height=5;depth=1;color=Red DrawCuboid() par = "y=-4;x=5;z=1;color=Yellow|y=-3;x=5;z=1;color=Red|y=-2;x=5;z=1;color=Yellow dvox() param = "y="+(dy-4)+";x="+(4+dx)+";z=2;width=3;height=1;depth=1;color=Orange;" DrawCuboid() cmat[1]="yellow" dx=10 dy=10 z45=45 For zz=1 to z45 GraphicsWindow.Title =">>"+zz For xx=1 to 50 For yy=1 To 50 cdf[zz][xx][yy]=0 endfor EndFor endfor f=20 For z=1 To z45 If z>9 Then f=f-.5 endif GraphicsWindow.Title =z For t=0 to 360 Step 2 py=math.Floor(LDMath.Sin(t)*f)+25 px=math.Floor(LDMath.cos(t)*f)+25 cdf[z][px][py]=1 EndFor endfor For zz=1 to z45 GraphicsWindow.Title =">>"+zz For xxx=1 to 50 For xyy=1 To 50 co=cdf[zz][xxx][xyy] If co>0 Then GraphicsWindow.Title="**"+zz param = "y="+xyy+";x="+xxx+";z="+zz+";color="+cmat[co] drawvoxel () endif endfor EndFor endfor Sub smove For tt=1 to args[3] for w=1 to Array.GetItemCount (po[ii]) Shapes.Move(po[ii][w],Shapes.GetLeft(po[ii][w])+args[1],Shapes.Gettop(po[ii][w])+args[2]) endfor Program.Delay(p300) endfor EndSub Sub dvox pa=LDText.Split (par,"|") For r=1 to Array.GetItemCount (pa) param=pa[r] DrawVoxel() endfor EndSub Sub drawvoxel LDCall.Function5 ("drawcube" param["x"]+dx param["y"]+dy param["z"] ss param["color"]) EndSub Sub DrawCuboid Stack.PushValue("local", param) xmin = param["x"] ymin = param["y"] zmin = param["z"] xmax = param["height"] + xmin - 1 ymax = param["width"] + ymin - 1 zmax = param["depth"] + zmin - 1 sColor = param["color"] For _z = zmin To zmax For _y = ymin To ymax For _x = xmin To xmax LDCall.Function5("drawcube",_x _y _z ss sColor ) EndFor EndFor EndFor param = Stack.PopValue("local") EndSub Sub Conv3Dto2D cx = gw / 2 - Math.SquareRoot(1 / 2) * args[1]*ss cx = cx + Math.SquareRoot(1 / 2) * args[2]*ss cy = gh / 2 + Math.SquareRoot(1 / 6) * args[1]*ss cy = cy + Math.SquareRoot(1 / 6) * args[2]*ss cy = cy - Math.SquareRoot(2 / 3) * args[3]*ss EndSub Sub Color_RGBtoHSL rHue=LDColours.GetHue (sColor) rLightness=LDColours.GetLightness(sColor ) rSaturation=LDColours.GetSaturation (sColor ) EndSub Sub DrawCube lz=args[3] xx=args[1] yy=args[2] Conv3Dto2D() edge = Math.SquareRoot(2 / 3) * args[4] x1 = math.Round (cx) y1 = math.Round (cy) sColor = args[5] ccc=ldcolours.GetHue(scolor) For i=1 To 3 color[i] = LDColours.HSLtoRGB(ccc 1 .8/Math.Power(1.5 i)) EndFor GraphicsWindow.PenWidth =0 x3=0 x4=0 y3=0 y4=0 For a = 60 To 420 Step 60 x2 = math.Round (cx - edge * ldMath.Sin(a)) y2 = math.Round (cy - edge * ldMath.Cos(a)) If a>60 and math.Remainder ((a-60),120)=0 Then ppp=0 ppp[1][1]=x1+50 ppp[1][2]=y1-30 ppp[2][1]=x2+50 ppp[2][2]=y2-30 ppp[3][1]=x3+50 ppp[3][2]=y3-30 ppp[4][1]=x4+50 ppp[4][2]=y4-30 of=1 If objmd then po[ob][pc]=LDShapes.AddPolygon (ppp) LDShapes.BrushColour(po[ob][pc],color[(a-60)/120]) pc=pc+1 else br=LDShapes.BrushGradient("1="+color[(a-60) / 120]+";2="+color[(a-60) / 120],"V") LDShapes.BrushPolygon (br,ppp) endif EndIf x4 = x3 y4 = y3 x3 = x2 y3 = y2 EndFor EndSub Sub Init gw = 800 gh = 800 GraphicsWindow.BackgroundColor ="teal GraphicsWindow.Left =10 GraphicsWindow.top=10 GraphicsWindow.Width = gw GraphicsWindow.Height = gh xo = gw / 2 yo = gh * 3 / 4 u = 20 r = u * Math.SquareRoot(2 / 3) a60 = Math.GetRadians(60) EndSub End>TTK762.sb< Start>TTM329.sb< 'Lottery draw demo 'jalpc October 2014 ' numMax=9 speed=200 delay=300 data() GraphicsWindow.Hide() formPG() drawObjects() GraphicsWindow.Show() ' Controls.ButtonClicked=OnButtonClicked ' 'Loop While "True" If flag_btnStart Then showDemo() flag_btnStart="False" EndIf EndWhile ' ''Event's '==================== ' Sub OnButtonClicked If Controls.LastClickedButton=btnStart Then flag_btnStart="True" Else Program.End() EndIf EndSub ' 'Sub's '==================== Sub showDemo GraphicsWindow.Hide() GraphicsWindow.Clear() data() formPG() drawObjects() Shapes.SetOpacity(btnStart,0) GraphicsWindow.Show() showRandom() Shapes.SetOpacity(btnStart,100) EndSub ' Sub showRandom For j= 1 To numMax 'array init '-------------- arr[j] = j '--------------- EndFor For item=1 To numMax Sound.PlayClickAndWait() num=item ' get Random '----------------------------------------------------------- numRandom = Math.GetRandomNumber(numMax) '------------------------------------------------------------ Program.Delay(delay) showCounter() showNumRandom() shadowArray() showArrows() Program.Delay(delay) showRandom_Item() showTemp_Item() showChangeRandom_Item() ' save in temp '----------------------- temp = arr[item] '----------------------- showChangeItem_Temp() 'change Value '------------------------------------- arr[item] = arr[numRandom] '------------------------------------ showChangeItem_Random() Program.Delay(speed) showTemp_PosItemRandom() showTemp_ItemRandom() 'change Value '------------------------------ arr[numRandom] = temp '------------------------------- showChangeTemp_ItemRandom() EndFor Sound.PlayChimesAndWait() For i=1 To 6 Shapes.SetOpacity(rectEnd,100) Program.Delay(300) Shapes.SetOpacity(rectEnd,0) Program.Delay(300) EndFor Shapes.SetOpacity(rectEnd,100) Shapes.SetOpacity(btnStart,100) EndSub ' Sub drawObjects param="1=White;2=Red;" color() Shapes.Remove(rectEnd) rectEnd=Shapes.AddRectangle(375,60) Shapes.Move(rectEnd,posNumArray_X[1]-20,posNumArray_Y[1]-20) Shapes.SetOpacity(rectEnd,0) showCounter() rectRandom() showNumRandom() GraphicsWindow.FontSize="15" For i = 1 To numMax num=i param="1=White;2=Black;99=100;" color() drawRectArray() param="1=Black;2=Black;99=100;" color() drawNumArray() param="1=Yellow;2=Black;99=0;" color() drawTempRectArray() param="0=T;1=Red;2=Black;" color() drawTempNumArray() param="0=º;1=Black;2=Black;99=0;" color() drawArrayOrder() EndFor btnStart=Controls.AddButton("START",PGW*0.05,PGH-50) btnEnd=Controls.AddButton("END",PGW*0.85,PGH-50) EndSub ' Sub showArrows dif1="1=15;2=-80;3=13;4=-47;" dif2="1=-2;2=0;3=9;4=0;5=3;6=5;" x1=posRectArray_X[num]+dif1[1] y1=posRectArray_Y[num]+dif1[2] x2=posRectArray_X[num]+dif1[3] y2=posRectArray_Y[num]+dif1[4] If num > 5 Then x3=195 y3=100 Else x3=x1 y3=y1 EndIf param="1=Blue;2=Blue;" color() Shapes.Remove(linR1) linR1=Shapes.AddRectangle(3,40) Shapes.Move(linR1,x1,y1) Shapes.Remove(linR2) linR2=Shapes.AddTriangle(x2+dif2[1],y2+dif2[2],x2+dif2[3],y2+dif2[4],x2+dif2[5],y2+dif2[6]) Shapes.Remove(linR3) widthLin=40*(Math.Abs(num-5))+3 linR3=Shapes.AddRectangle(widthLin,3) Shapes.Move(linR3,x3,y3) ' dif1="1=15;2=72;3=15;4=72;" dif2="1=-5;2=6;3=7;4=6;5=1;6=0;" x1=posRectArray_X[item]+dif1[1] y1=posRectArray_Y[item]+dif1[2] x2=posRectArray_X[numRandom]+dif1[3] y2=posRectArray_Y[numRandom]+dif1[4] If (num-numRandom) > 0 Then x=x2 y=y2 Else x=x1 y=y1 EndIf param="1=Black;2=Black;" color() Shapes.Remove(linT1) linT1=Shapes.AddRectangle(3,38) Shapes.Move(linT1,x1,y1) Shapes.Remove(linT2) linT2=Shapes.AddRectangle(3,38) Shapes.Move(linT2,x2,y2) Shapes.Remove(linT3) linT3=Shapes.AddTriangle(x2+dif2[1],y2+dif2[2],x2+dif2[3],y2+dif2[4],x2+dif2[5],y2+dif2[6]) Shapes.Remove(Lin4) widthLin=40*(Math.Abs(num-numRandom))+3 Lin4=Shapes.AddRectangle(widthLin,3) Shapes.Move(Lin4,x,y+38) EndSub ' Sub formPG GraphicsWindow.Left=PGleft GraphicsWindow.Top=PGtop GraphicsWindow.Width=PGW GraphicsWindow.Height=PGH GraphicsWindow.Title="Lottery draw demo " GraphicsWindow.CanResize="False" EndSub ' Sub showCounter 'show counter item's cont=cont+1 param="1=White;2=Red;" color() GraphicsWindow.DrawRectangle(10,10,rectW*2,rectW*2) GraphicsWindow.FillRectangle(15,15,rectW*1.8,rectW*1.8) param="1=Red;2=Red;" color() GraphicsWindow.FontSize="40" GraphicsWindow.DrawBoundText(30,20,50,cont) EndSub ' Sub rectRandom param="1=LightBlue;2=Black;" color() GraphicsWindow.FillRectangle(100,10,200,50) GraphicsWindow.DrawRectangle(100,10,200,50) GraphicsWindow.FillRectangle(170,50,50,40) GraphicsWindow.DrawRectangle(170,50,50,40) param="1=Blue;2=Black;" color() GraphicsWindow.FontSize="12" GraphicsWindow.DrawBoundText(105,12,150,"NUM RANDOM:") param="1=Blue;2=Blue;" color() GraphicsWindow.FillRectangle(195,90,3,10) EndSub ' Sub showNumRandom param="1=LightBlue;2=Black;" color() Shapes.Remove(moveRectRandom) moveRectRandom=Shapes.AddRectangle(rectW,rectH) Shapes.Move(moveRectRandom,posMoveRectRandom_X,posMoveRectRandom_Y) param="1=Blue;2=Black;" color() GraphicsWindow.FontSize=15 Shapes.Remove(moveRandom) moveRandom=Shapes.AddText(numRandom) Shapes.Move(moveRandom,posMoveRandom_X,posMoveRandom_Y) If numRandom <> "?" Then GraphicsWindow.DrawBoundText(95+(item*20),30,20,numRandom) EndIf EndSub ' Sub drawRectArray Shapes.Remove(rectArray[num]) rectArray[num]=Shapes.AddRectangle(35,30) Shapes.Move(rectArray[num],posRectArray_X[num],posRectArray_Y[num]) Shapes.SetOpacity(rectArray[num],param[99]) EndSub ' Sub drawNumArray Shapes.Remove(arrayNum[num]) arrayNum[num]=Shapes.AddText(num) Shapes.Move(arrayNum[num],posNumArray_X[num],posNumArray_Y[num]) Shapes.SetOpacity(arrayNum[num],param[99]) EndSub ' Sub drawTempRectArray tempRectArray[num]=Shapes.AddRectangle(35,30) Shapes.Move(tempRectArray[num],posTempRectArray_X[num],posTempRectArray_Y[num]) Shapes.SetOpacity(tempRectArray[num],param[99]) EndSub ' Sub drawTempNumArray Shapes.Remove(tempNumArray[num]) tempNumArray[num]=Shapes.AddText(param[0]) Shapes.Move(tempNumArray[num],posTempNumArray_X[num],posTempNumArray_Y[num]) Shapes.SetOpacity(tempNumArray[num],param[99]) EndSub ' Sub drawArrayOrder GraphicsWindow.DrawBoundText(posNumArray_X[num],posNumArray_Y[num]+120,30,num+param[0]) EndSub ' Sub shadowArray param="1=Magenta;2=Magenta;" color() GraphicsWindow.DrawRectangle(posRectArray_X[num]+34,posRectArray_Y[num]+2,2,30) GraphicsWindow.DrawRectangle(posRectArray_X[num]+3,posRectArray_Y[num]+30,31,2) param="1=Black;2=Black;" color() GraphicsWindow.DrawRectangle(posRectArray_X[num]+3,posRectArray_Y[num]+150,31,1) EndSub ' Sub showTemp_Item Shapes.SetOpacity(tempRectArray[num],100) Shapes.SetOpacity(tempNumArray[num],100) Program.Delay(speed) Shapes.Animate(tempRectArray[num],posRectArray_X[num],posRectArray_Y[num]+40,speed) Shapes.Animate(tempNumArray[num],posNumArray_X[num],posNumArray_Y[num]+40,speed) Program.Delay(speed) EndSub ' Sub showRandom_Item Shapes.Animate(moveRectRandom,posRectArray_X[num],posRectArray_Y[num]-40,speed) Shapes.Animate(moveRandom,posNumArray_X[num],posNumArray_Y[num]-40,speed) Program.Delay(speed) EndSub ' Sub showChangeRandom_Item Shapes.Animate(moveRectRandom,posRectArray_X[num],posRectArray_Y[num],speed) Shapes.Animate(moveRandom,posNumArray_X[num],posNumArray_Y[num],speed) Shapes.Animate(rectArray[num],posRectArray_X[num],posRectArray_Y[num]+40,speed) Shapes.Animate(arrayNum[num],posNumArray_X[num],posNumArray_Y[num]+40,speed) Program.Delay(speed) EndSub ' Sub showChangeItem_Temp Shapes.Remove(tempRectArray[num]) Shapes.Remove(tempNumArray[num]) param="1=Yellow;2=Black;" color() tempRectArray[num]=Shapes.AddRectangle(35,30) Shapes.Move(tempRectArray[num],posRectArray_X[num],posRectArray_Y[num]+40) param="1=Red;2=Black;" color() tempNumArray[num]=Shapes.AddText(temp) Shapes.Move(tempNumArray[num],posNumArray_X[num],posNumArray_Y[num]+40) EndSub ' Sub showChangeItem_Random Shapes.Remove(rectArray[num]) Shapes.Remove(arrayNum[num]) Shapes.Remove(moveRandom) param="1=LightBlue;2=Black;" color() rectArray[item]=Shapes.AddRectangle(35,30) Shapes.Move(rectArray[num],posRectArray_X[num],posRectArray_Y[num]) GraphicsWindow.BrushColor="Blue" param="1=Blue;2=Black;" color() arrayNum[num]=Shapes.AddText(arr[numRandom]) Shapes.Move(arrayNum[num],posNumArray_X[num],posNumArray_Y[num]) moveRandom=Shapes.AddText("?") Shapes.Move(moveRandom,posMoveRandom_X,posMoveRandom_Y) Shapes.Move(moveRectRandom,posMoveRectRandom_X,posMoveRectRandom_Y) EndSub ' Sub showTemp_PosItemRandom Shapes.Animate(tempRectArray[num],posRectArray_X[numRandom],posRectArray_Y[numRandom]+40,speed) Shapes.Animate(tempNumArray[num],posNumArray_X[numRandom],posNumArray_Y[numRandom]+40,speed) Program.Delay(speed) EndSub ' Sub showTemp_ItemRandom Shapes.Animate(tempRectArray[num],posRectArray_X[numRandom],posRectArray_Y[numRandom],speed) Shapes.Animate(tempNumArray[num],posNumArray_X[numRandom],posNumArray_Y[numRandom],speed) Program.Delay(speed) EndSub ' Sub color GraphicsWindow.BrushColor=param[1] GraphicsWindow.PenColor=param[2] EndSub ' Sub showChangeTemp_ItemRandom Shapes.Remove(rectArray[numRandom]) Shapes.Remove(arrayNum[numRandom]) Shapes.Remove(tempNumArray) param="1=Yellow;2=Black;" color() rectArray[numRandom]=Shapes.AddRectangle(35,30) Shapes.Move(rectArray[numRandom],posRectArray_X[numRandom],posRectArray_Y[numRandom]) param="1=Red;2=Black;" color() arrayNum[numRandom]=Shapes.AddText(temp) Shapes.Move(arrayNum[numRandom],posNumArray_X[numRandom],posNumArray_Y[numRandom]) GraphicsWindow.PenColor="Black" param="1=Yellow;2=Black;" color() tempNumArray[item]=Shapes.AddRectangle(35,30) Shapes.Move(tempNumArray[num],posTempNumArray_X[num],posTempNumArray_Y[num]) Shapes.SetOpacity(tempNumArray[num],0) EndSub ' Sub data cont=-1 numRandom="?" PGleft=40 PGtop=5 PGW=400 PGH=430 rectW=35 rectH=30 posMoveRectRandom_X=177 posMoveRectRandom_Y=55 posMoveRandom_X=191 posMoveRandom_Y=60 For numItem = 1 To numMax posRectArray_X[numItem]=40*numItem-20 posRectArray_Y[numItem]=180 posNumArray_X[numItem]=posRectArray_X[numItem] + 10 posNumArray_Y[numItem]=posRectArray_Y[numItem] + 6 posTempRectArray_X[numItem]=posRectArray_X[numItem] posTempRectArray_Y[numItem]=posRectArray_Y[numItem]+160 posTempNumArray_X[numItem]=posNumArray_X[numItem] posTempNumArray_Y[numItem]=posNumArray_Y[numItem]+160 EndFor EndSub End>TTM329.sb< Start>TTR427.sb< GraphicsWindow.Show() 'Show the Graphic Window GraphicsWindow.Title = "Hello world" GraphicsWindow.BackgroundColor = "Azure" 'The background color is Azure Helloworld = Shapes.AddText("Hello world") 'Write the text Hello world in the Graphic Window Ombre = Shapes.AddText("Hello world") Shapes.SetOpacity(Ombre, 50) Shapes.Move(Ombre, GraphicsWindow.Width / 2 - 33, GraphicsWindow.Height / 2 - 13) Shapes.Move(Helloworld, GraphicsWindow.Width / 2 - 30, GraphicsWindow.Height /2 - 10) 'Put the text in the middle Program.Delay(2000) 'Pause 2 sec 'Zoom the text For i = 1 To 9 Step 0.1 Shapes.Zoom(Helloworld, i, i) Shapes.Zoom(Ombre, i, i) Program.Delay(50) EndFor GraphicsWindow.MouseUp = Mouse_click Sub Mouse_click Program.End() 'Close EndSub End>TTR427.sb< Start>TTR706.sb< gw = 500 gh = gw GraphicsWindow.Width = gw GraphicsWindow.Height = gh GraphicsWindow.BackgroundColor = "LightGray" GraphicsWindow.PenWidth = 0 GraphicsWindow.BrushColor = "Black" GraphicsWindow.FillRectangle(gw/2-2,gh/2-10,4,20) GraphicsWindow.FillRectangle(gw/2-10,gh/2-2,20,4) GraphicsWindow.PenWidth = 0 GraphicsWindow.BrushColor = "Magenta" For i = 1 To 12 ball[i] = Shapes.AddEllipse(40,40) theta = i*2*Math.Pi/12 x = gw/2+200*Math.Cos(theta) y = gh/2+200*Math.Sin(theta) Shapes.Move(ball[i],x-20,y-20) EndFor While("True") For i = 1 To 12 Shapes.HideShape(ball[i]) Program.Delay(150) Shapes.ShowShape(ball[i]) EndFor EndWhile End>TTR706.sb< Start>TTT049.sb< ' OctObeR 2019 ' mahreen miangul ' Multiple Animation ' Multiple Keyboard 'GraphicsWindow.Left = 0.5 * (Desktop.Width - GraphicsWindow.Width) 'GraphicsWindow.Top = 0.5 * (Desktop.Height - GraphicsWindow.Height) GraphicsWindow.top= -2.0 GraphicsWindow.left= 80 GraphicsWindow.Title = "mahreen miangul" GraphicsWindow.BackgroundColor="blue" GraphicsWindow.Width = "1280" GraphicsWindow.Height = "666" ' ===================================mussa-maina============================= GraphicsWindow.FontSize = 8 'GraphicsWindow.brushColor = GraphicsWindow.GetRandomColor() 'GraphicsWindow.brushColor = GraphicsWindow.getcolorfromrgb(175, 75, 125) GraphicsWindow.brushColor = "gold miangul = Shapes.Addtext("mussa-maina") Shapes.Move(miangul, 700,280) Shapes.rotate(miangul, 30) Shapes.SetOpacity(miangul, 130) Shapes.Zoom(miangul, 3, 5) '---------------------------------------------------------mahreen//miangul ----------------------------------------------------------------------------------------- GraphicsWindow.FontName = "Times New Roman" GraphicsWindow.FontSize = 80 GraphicsWindow.FontItalic = "True" GraphicsWindow.BrushColor = "yellow" ' Text shadow color GraphicsWindow.DrawText(380, 0, "mahreen!") ' Shadow position/text GraphicsWindow.DrawText(500, 60, "miangul!") orangered= GraphicsWindow.getcolorfromrgb(250,80,80) GraphicsWindow.BrushColor=orangered GraphicsWindow.BrushColor = orangered ' Text color GraphicsWindow.DrawText(385, 5, "mahreen!") ' Position and text GraphicsWindow.DrawText(505, 65, "miangul!") ' ===================mahreen miangul--Text//WELL COME============ CRLF= Text.GetCharacter(13)+Text.GetCharacter(10) '<------------- line feed GraphicsWindow.FontSize = 44 GraphicsWindow.brushColor = "orange msg=Shapes.AddText("WELL COME!"+CRLF+"from"+CRLF+"haroon "+CRLF+"rashid!") Shapes.Move(msg,0,0) ' =============================ThoABan// Sprites============================= GraphicsWindow.FontSize = 44 GraphicsWindow.BrushColor= "greenyellow miangulBOX = Shapes.Addtext("👹") Shapes.Move(miangulBOX, 0,0) Shapes.Animate(miangulBOX, 110,55,2000) GraphicsWindow.BrushColor= "snow miangulBOX = Shapes.Addtext("👹") Shapes.Move(miangulBOX, 1080,660) Shapes.Animate(miangulBOX, 150,55,2000) GraphicsWindow.BrushColor= "yellow miangulBOX = Shapes.Addtext("👹") Shapes.Move(miangulBOX, 1080,0) Shapes.Animate(miangulBOX, 190,55,2000) GraphicsWindow.BrushColor= "YellowGreen miangulBOX = Shapes.Addtext("👹") Shapes.Move(miangulBOX, 0,660) Shapes.Animate(miangulBOX, 230,55,2000) GraphicsWindow.KeyDown = onkeyDown ' ======================Make Image1()Madam Apple======================= MakeImage1() ' ============================== Hill================================ GraphicsWindow.brushColor = "tan" GraphicsWindow.fillEllipse(-88,505,620,288) GraphicsWindow.fillEllipse(211,388,622,366) GraphicsWindow.fillEllipse(211,388,1888,666) '--------------------------------------------------Text 420---------------------------------------------------- GraphicsWindow.FontSize = 33 GraphicsWindow.brushColor = GraphicsWindow.GetRandomColor() GraphicsWindow.DrawText(0, 630, "420")'>>>>>>>>>>>>>1 GraphicsWindow.brushColor = GraphicsWindow.GetRandomColor() GraphicsWindow.DrawText(0, 600, "420")'>>>>>>>>>>>>>2 GraphicsWindow.brushColor = GraphicsWindow.GetRandomColor() GraphicsWindow.DrawText(0, 570, "420")'>>>>>>>>>>>>>3 GraphicsWindow.brushColor = GraphicsWindow.GetRandomColor() GraphicsWindow.DrawText(0, 540, "420")'>>>>>>>>>>>>>4 GraphicsWindow.brushColor = GraphicsWindow.GetRandomColor() GraphicsWindow.DrawText(80, 630, "420")'>>>>>>>>>>>>>5 GraphicsWindow.brushColor = GraphicsWindow.GetRandomColor() GraphicsWindow.DrawText(80, 600, "420")'>>>>>>>>>>>>>6 GraphicsWindow.brushColor = GraphicsWindow.GetRandomColor() GraphicsWindow.DrawText(80, 570, "420")'>>>>>>>>>>>>>7 GraphicsWindow.brushColor = GraphicsWindow.GetRandomColor() GraphicsWindow.DrawText(80, 540, "420")'>>>>>>>>>>>>>8 GraphicsWindow.brushColor = GraphicsWindow.GetRandomColor() GraphicsWindow.DrawText(80, 510, "420")'>>>>>>>>>>>>>9 GraphicsWindow.brushColor = GraphicsWindow.GetRandomColor() GraphicsWindow.DrawText(160, 550, "420")'>>>>>>>>>>>>>10 GraphicsWindow.brushColor = GraphicsWindow.GetRandomColor() GraphicsWindow.DrawText(160, 630, "420")'>>>>>>>>>>>>>11 '=============================Makesprite()============================ SPRITE_init() add_shapes() ' ============================== Aircraft Animation====================== dZ = 0.1 zoom = 1 ddx=0 ddy=0 bdx=0 bdy=0 bdy2=5 ' <------ initial ball2 moving speed-Y ANMB="5:1" BNMB="6:1" ' <----- Blue car shapes number=6 repeat =1 shoot="False" shoot2="False" ' <----- zm=1 Hit_count=0 No_hit=0 ' ------------------------------------------------------STARS--------------------------------------------------------- GraphicsWindow.BrushColor = "yellow" For i = 0 To 80 GraphicsWindow.FontSize = 5+ Math.GetRandomNumber(30) x = Math.GetRandomNumber(GraphicsWindow.Width) y = Math.GetRandomNumber(GraphicsWindow.height/2.6) star[i]=Shapes.AddText("★") '<------------- Shapes.Move(star[i],x,y) '<------------- Program.Delay(10) EndFor ' ----------------------------------------------------MOON-------------------------------------------------------- GraphicsWindow.BrushColor = "yellow" GraphicsWindow.PenWidth=0 '<------------- moon= Shapes.AddEllipse(20,20) '<------------- Shapes.Move(moon,50,50) '<------------- GraphicsWindow.BrushColor = "blue" shadow= Shapes.AddEllipse(20,20) '<------------- Shapes.Move(shadow,60,45) '<------------- ' ============================== Cannon Animation ============================== GraphicsWindow.PenWidth = 0 GraphicsWindow.BrushColor= "Red" Ball=Shapes.AddEllipse(10,20) Shapes.Move(Ball,shapes.GetLeft(shp[ANMB][9])+10,shapes.Gettop(shp[ANMB][9])+30) Shapes.HideShape(Ball) GraphicsWindow.BrushColor= "Navy" ' <----- Ball2=Shapes.AddEllipse(10,20) ' <----- Shapes.Move(Ball2,shapes.GetLeft(shp[BNMB][15]),shapes.Gettop(shp[BNMB][15]))' <----- Shapes.HideShape(Ball2) ' <----- ' ============================== BlueCar Timer ==================================== Timer.Interval=800 Timer.Tick=BlueCar_up ' =======================Drag & Drop to Target or Return Home======================= GraphicsWindow.brushColor = "AliceBlue" home = "X=0;Y=0" spriteSize = "420" sprite[1] = Shapes.Addtext("👹") Shapes.Move(sprite[1], home["X"], home["Y"]) spriteTarget[1] = Shapes.Addtext(spriteSize + 0) 'upSize Target for special fx Shapes.Move(spriteTarget[1], 160, 590) Shapes.SetOpacity(spriteTarget[1], 600) '================================Cloud Moving===================================== dx = GraphicsWindow.Width dY = GraphicsWindow.Height GraphicsWindow.BrushColor = "silver" GraphicsWindow.FontSize = 122 x = x + dX - 44 y = y + dY - 550 cloud() Sub cloud cloud = Shapes.Addtext("🌁") Shapes.Animate(cloud,x,y,22000) Endsub Shapes.Animate(cloud,x,y,0) Program.Delay(800) cloud() '============================Mouse Click and Drag to Targrt================================ While "True" ' And "North" <> "South" <--- No meanig , it always "True" mseX = GraphicsWindow.MouseX mseY = GraphicsWindow.MouseY If Mouse.IsLeftButtonDown Then 'handle click and select If selected = "" And clicked = "False" Then 'can loop thru here for more than 1 box If mseX >= home["X"] And mseX <= home["X"] + spriteSize And mseY >= home["Y"] And mseY <= home["Y"] + spriteSize Then selected = 1 'box number EndIf EndIf clicked = "True" 'the mse has been clicked for this frame Shapes.Move(sprite[selected], mseX, mseY) Else If Math.Round(mseX/50) = Math.Round(Shapes.GetLeft(spriteTarget[selected])/50) Then If Math.Round(mseY/50) = Math.Round(Shapes.GetTop(spriteTarget[selected])/50) Then Shapes.Remove(sprite[selected]) Shapes.SetOpacity(spriteTarget[selected], 100) EndIf EndIf Shapes.Move(sprite[selected], home["X"], home["Y"]) selected = "" 'deselect when finishised with the box clicked = "False" 'inits here, get ready for next click EndIf Program.Delay(20) 'EndWhile ' <----------- no use 'While 0=0 ' <----------- no use '============================Aircraft Blinking Program======================= zoom = zoom - dZ For i = 1 To Array.GetItemCount(shape[5]) If Array.ContainsValue(shape[5][i], "eye") Then Shapes.Zoom(shp[ANMB][i], 1, zoom) ElseIf Array.ContainsValue(shape[5][i], "mouth") Then Shapes.Zoom(shp[ANMB][i], zoom, zoom) EndIf shapes.Move(shp[ANMB][i],shapes.GetLeft(shp[ANMB][i])+ddx,shapes.Gettop(shp[ANMB][i])+ddy) EndFor If zoom = 0.1 Or zoom = 1 Then dZ = -dZ EndIf ' ============================Star Blinking and ShootingProgram========================== 'While zm<6 'If zm<6 Then ' <<<<>>>> mmm= Math.GetRandomNumber(80) ' blinking star number _op=Shapes.GetOpacity(star[mmm]) ' opacity ... brightness If _op>50 Then Shapes.SetOpacity(star[mmm],Math.GetRandomNumber(49)) ' darker Else Shapes.SetOpacity(star[mmm],50+Math.GetRandomNumber(50)) ' brighter EndIf If mmm=50 Then Shapes.Move(star[0],400+Math.GetRandomNumber(700),-200) Shapes.Animate(star[0],Math.GetRandomNumber(500),2200,2000) 'shooting star Program.Delay(30) zm=zm+0.1 '===============================Moon Opacity and Zoom=============================== Shapes.Zoom(moon,zm,zm) ' moon becomes bigger Shapes.Zoom(shadow,zm,zm)' shadow becomes bigger Shapes.Move(moon,shapes.GetLeft(moon)+1,shapes.GetTop(moon)+1) Shapes.Move(shadow,shapes.GetLeft(shadow)+2,shapes.GetTop(shadow)+1) EndIf Program.Delay(20) ' <<<<>>>> 'endif 'endwhile '============================Aircraft Reverse Moving=====X,Y Direction============= cycleX= shapes.GetLeft(shp[ANMB][5]) cycleY= shapes.GetTop(shp[ANMB][5]) If cycleX<0 Or cycleX>GraphicsWindow.Width Then ddx=-ddx EndIf If cycleY<0 Or cycleY>200 Then ddy=-ddy EndIf ' ===========================BallFire======================================= If shoot Then shapes.Move(Ball ,shapes.GetLeft(ball)-bdx/2,shapes.Gettop(ball)-bdy/2) If shapes.Gettop(ball)>700 Then shoot="False" No_hit=No_hit+1 GraphicsWindow.Title="You Hit !!!!!! Total "+(Hit_count*10-No_hit*5) +" Points get" Shapes.Move(Ball,shapes.GetLeft(shp[ANMB][9])+10,shapes.Gettop(shp[ANMB][9])+30) Shapes.HideShape(Ball) EndIf '==========================Collision Check Here================================= BCar_X=shapes.GetLeft(shp[BNMB][5]) BCar_Y=shapes.GetTop(shp[BNMB][5]) ballX=shapes.GetLeft(ball) bally=shapes.GetTop(ball) If (BCar_X>>> shape[5][13] = "func=ell;x=-177;y=270;width=25;height=25;angle=0;bc=Gainsboro;pc=darkslategray;pw=4;tag=eye" ' eye 2 ' <<<<>>>> shape[5][14] = "func=ell;x=-250;y=177;width=44;height=22;angle=0;bc=deeppink;pc=yellow;pw=2;tag=mouth" ' ' <<<<>>>> shape[5][15] = "func=ell;x=-255;y=166;width=22;height=44;angle=0;bc=yellow;pc=deeppink;pw=2;tag=mouth" ' ' <<<<>>>> ' Car s[6] ="1=0.5" shX[6] ="1=600" shY[6] ="1=550" shape[6][1] = "func=rect;x=0;y=20;width=36;height=44;bc=#000000;pw=0;" shape[6][2] = "func=rect;x=77;y=23;width=36;height=44;bc=#000000;pw=0;" shape[6][3] = "func=rect;x=0;y=154;width=36;height=44;bc=#000000;pw=0;" shape[6][4] = "func=rect;x=77;y=156;width=36;height=44;bc=#000000;pw=0;" shape[6][5] = "func=rect;x=11;y=0;width=93;height=230;bc=#000000;pw=0;" shape[6][6] = "func=rect;x=17;y=25;width=81;height=55;bc=#00000;pw=0;" shape[6][7] = "func=rect;x=27;y=35;width=62;height=48;bc=#000000;pw=0;" shape[6][8] = "func=line;x=17;y=24;x1=11;y1=14;x2=0;y2=0;pc=#000000;pw=2;" shape[6][9] = "func=line;x=87;y=23;x1=0;y1=16;x2=12;y2=0;pc=#000000;pw=2;" shape[6][10] = "func=rect;x=17;y=85;width=81;height=134;bc=darkslategray;pw=0;" shape[6][11]="func=ell;x=18;y=7;width=29;height=19;angle=-50;bc=snow;pw=0.5" shape[6][12]="func=ell;X=70;Y=7;width=29;height=19;angle=50;bc=mediumslateblue;pw=0.5" shape[6][13]="func=rect;X=14;Y=180;width=33;height=15;angle=40;bc=snow;pc=darkslategray;pw=0" shape[6][14]="func=rect;X=72;Y=180;width=33;height=15;angle=-40;bc=mediumslateblue;pc=darkslategray;pw=0" shape[6][15]="func=rect;x=50;y=-20;width=22;height=66;angle=0;bc=mediumslateblue;pc=darkslategray;pw=0" '<------ cannon for ball2 'shape[6][16]="func=ell;X=-420;Y=-880;width=15;height=25;angle=50;bc=saddlebrown;pc=cornsilk;pw=1.5" 'shape[6][17]="func=rect;x=-420;y=-800;width=50;height=50;angle=-40;bc=saddlebrown;pc=cornsilk;pw=2" 'Ladder s[7] ="1=0.6" ' scale shx[7] ="1= 380" ' initial x -position shy[7] ="1= 180" ' initial y-position shape[7][1] = "func=line;x=0;y=0;x1=400;y1=200;x2=660;y2=525;angle=0;bc=darkslategray;pc=#oooooo;pw=2" ' Ladder P1 shape[7][2] = "func=line;x=0;y=0;x1=440;y1=200;x2=700;y2=525;angle=0;bc=darkslategray;pc=#oooooo;pw=2" ' Ladder P2 shape[7][3] = "func=line;x=0;y=0;x1=415;y1=220;x2=455;y2=220;angle=0;bc=darkslategray;pc=#oooooo;pw=2" ' Ladder Step 1 shape[7][4] = "func=line;x=0;y=0;x1=430;y1=240;x2=470;y2=240;angle=0;bc=darkslategray;pc=#oooooo;pw=2" ' Ladder Step 2 shape[7][5] = "func=line;x=0;y=0;x1=445;y1=260;x2=488;y2=260;angle=0;bc=darkslategray;pc=#oooooo;pw=2" ' Ladder Step 3 shape[7][6] = "func=line;x=0;y=0;x1=460;y1=280;x2=505;y2=280;angle=0;bc=darkslategray;pc=#oooooo;pw=2" ' Ladder Step 4 shape[7][7] = "func=line;x=0;y=0;x1=475;y1=300;x2=522;y2=300;angle=0;bc=darkslategray;pc=#oooooo;pw=2" ' Ladder Step 5 shape[7][8] = "func=line;x=0;y=0;x1=492;y1=320;x2=537;y2=320;angle=0;bc=darkslategray;pc=#oooooo;pw=2" ' Ladder Step 6 shape[7][9] = "func=line;x=0;y=0;x1=508;y1=340;x2=549;y2=340;angle=0;bc=darkslategray;pc=#oooooo;pw=2" ' Ladder Step 7 shape[7][10] = "func=line;x=0;y=0;x1=528;y1=360;x2=568;y2=360;angle=0;bc=darkslategray;pc=#oooooo;pw=2" ' Ladder Step 8 shape[7][11] = "func=line;x=0;y=0;x1=636;y1=500;x2=680;y2=500;angle=0;bc=darkslategray;pc=#oooooo;pw=2" ' Ladder Step L shape[7][12] = "func=line;x=0;y=0;x1=400;y1=200;x2=400;y2=530;angle=0;bc=mediumslateblue;pc=darkgray;pw=2"'<------------' Shadow1 P1 shape[7][13] = "func=line;x=0;y=0;x1=440;y1=200;x2=445;y2=500;angle=0;bc=mediumslateblue;pc=darkgray;pw=2"'<------------' Shadow1 P2 shape[7][14] = "func=line;x=0;y=0;x1=444;y1=500;x2=640;y2=500;angle=0;bc=darkslategray;pc=darkgray;pw=2" ' <------------' Shadow2 P1 shape[7][15] = "func=line;x=0;y=0;x1=400;y1=530;x2=660;y2=530;angle=0;bc=darkslategray;pc=darkgray;pw=2" ' <------------' Shadow2 P1 shape[7][16] = "func=line;x=0;y=0;x1=400;y1=220;x2=414;y2=220;angle=0;bc=darkslategray;pc=darkgray;pw=2" ' <------------' Shadow1 Step 1 shape[7][17] = "func=line;x=0;y=0;x1=400;y1=240;x2=430;y2=240;angle=0;bc=darkslategray;pc=darkgray;pw=2" ' <------------' Shadow1 Step 2 'shape[7][0] = "func=line;x=0;y=0;x1=400;y1=530;x2=444;y2=500;angle=0;bc=darkslategray;pc=darkgray;pw=2" ' <------------' Shadow Step M 'shape[7][0] = "func=line;x=0;y=0;x1=440;y1=530;x2=484;y2=500;angle=0;bc=darkslategray;pc=darkgray;pw=2" ' <------------' Shadow2 Step 1 shape[7][18] = "func=line;x=0;y=0;x1=530;y1=530;x2=530;y2=500;angle=0;bc=darkslategray;pc=darkgray;pw=2" ' <------------' Shadow2 Step 2 shape[7][19] = "func=line;x=0;y=0;x1=570;y1=530;x2=570;y2=500;angle=0;bc=darkslategray;pc=darkgray;pw=2" ' <------------' Shadow2 Step 3 shape[7][20] = "func=line;x=0;y=0;x1=604;y1=530;x2=604;y2=500;angle=0;bc=darkslategray;pc=darkgray;pw=2" ' <------------' Shadow2 Step 4 'shape[7][0] = "func=line;x=0;y=0;x1=640;y1=530;x2=640;y2=500;angle=0;bc=darkslategray;pc=darkgray;pw=2" ' <------------' Shadow2 Step 5 shape[7][21] = "func=line;x=0;y=0;x1=638;y1=530;x2=638;y2=502;angle=0;bc=darkslategray;pc=darkgray;pw=2" ' <------------' Shadow2 Step L shape[7][22] = "func=line;x=0;y=0;x1=545;y1=380;x2=585;y2=380;angle=0;bc=darkslategray;pc=#oooooo;pw=2" ' Ladder Step 9 shape[7][23] = "func=line;x=0;y=0;x1=560;y1=400;x2=600;y2=400;angle=0;bc=darkslategray;pc=#oooooo;pw=2" ' Ladder Step 10 shape[7][24] = "func=line;x=0;y=0;x1=575;y1=420;x2=615;y2=420;angle=0;bc=darkslategray;pc=#oooooo;pw=2" ' Ladder Step 11 shape[7][25] = "func=line;x=0;y=0;x1=590;y1=440;x2=630;y2=440;angle=0;bc=darkslategray;pc=#oooooo;pw=2" ' Ladder Step 12 shape[7][26] = "func=line;x=0;y=0;x1=605;y1=460;x2=645;y2=460;angle=0;bc=darkslategray;pc=#oooooo;pw=2" ' Ladder Step 13 shape[7][27] = "func=line;x=0;y=0;x1=622;y1=480;x2=660;y2=480;angle=0;bc=darkslategray;pc=#oooooo;pw=2" ' Ladder Step 14 shape[7][28] = "func=line;x=0;y=0;x1=400;y1=260;x2=445;y2=260;angle=0;bc=darkslategray;pc=darkgray;pw=2" ' <------------' Shadow1 Step 3 shape[7][29] = "func=line;x=0;y=0;x1=400;y1=280;x2=445;y2=280;angle=0;bc=darkslategray;pc=darkgray;pw=2" ' <------------' Shadow1 Step 4 shape[7][30] = "func=line;x=0;y=0;x1=400;y1=300;x2=445;y2=300;angle=0;bc=darkslategray;pc=darkgray;pw=2" ' <------------' Shadow1 Step 5 shape[7][31] = "func=line;x=0;y=0;x1=400;y1=320;x2=445;y2=320;angle=0;bc=darkslategray;pc=darkgray;pw=2" ' <------------' Shadow1 Step 6 shape[7][32] = "func=line;x=0;y=0;x1=400;y1=340;x2=445;y2=340;angle=0;bc=darkslategray;pc=silver;pw=2" ' <------------' Shadow1 Step 7 shape[7][33] = "func=line;x=0;y=0;x1=400;y1=360;x2=445;y2=360;angle=0;bc=darkslategray;pc=silver;pw=2" ' <------------' Shadow1 Step 8 shape[7][34] = "func=line;x=0;y=0;x1=400;y1=380;x2=445;y2=380;angle=0;bc=darkslategray;pc=silver;pw=2" ' <------------' Shadow1 Step 9 'shape[7][35] = "func=line;x=0;y=0;x1=400;y1=400;x2=445;y2=400;angle=0;bc=darkslategray;pc=silver;pw=2" ' <------------' Shadow1 Step 10 'shape[7][36] = "func=line;x=0;y=0;x1=400;y1=420;x2=445;y2=420;angle=0;bc=darkslategray;pc=silver;pw=2" ' <------------' Shadow1 Step 11 'shape[7][37] = "func=line;x=0;y=0;x1=400;y1=440;x2=445;y2=440;angle=0;bc=darkslategray;pc=silver;pw=2" ' <------------' Shadow1 Step 12 'shape[7][38] = "func=line;x=0;y=0;x1=400;y1=460;x2=445;y2=460;angle=0;bc=darkslategray;pc=silver;pw=2" ' <------------' Shadow1 Step 13 'shape[7][39] = "func=line;x=0;y=0;x1=400;y1=480;x2=445;y2=480;angle=0;bc=darkslategray;pc=silver;pw=2" ' <------------' Shadow1 Step 14 'shape[7][40] = "func=line;x=0;y=0;x1=400;y1=500;x2=445;y2=500;angle=0;bc=darkslategray;pc=silver;pw=2" ' <------------' Shadow1 Step 15 'Tree s[8]="1=0.7;2=0.7;3=0.7;4=0.7;" shX[8]="1=1040;2=1070;3=1100;4=1130" shY[8]="1=200;2=200;3=200;4=200" ' 5,6,13,14 shape[8]=shape[1] 'Apple s[9] ="1=0.2;2=0.2;3=0.2;4=0.2;5=0.2;6=0.2;7=.2;8=.2;" shX[9] ="1=1000;2=1030;3=1060;4=970;5=1000;6=1030;7=1060;8=1090" shY[9] ="1=270;2=270;3=270;4=300;5=300;6=300;7=300;8=300" shape[9]=shape[2] endsub End>TTT049.sb< Start>TTZ421.sb< ' Program by Yvan Leduc, May 10th 2016 ' floating rubik cube ' program no: z=1 y=1 z=Math.GetRandomNumber(100) y=Math.GetRandomNumber(100) q=Math.GetRandomNumber(10) ciel=ImageList.LoadImage("https://upload.wikimedia.org/wikipedia/en/thumb/c/c7/Cumulus_clouds_wallpaper.jpg/1280px-Cumulus_clouds_wallpaper.jpg") rubik=ImageList.LoadImage("http://findicons.com/files/icons/907/puzzle/128/rubik_s_cube.png") dessin_images() buttonclicked = 0 GraphicsWindow.Title = " rubik cube floatting " GraphicsWindow.top= 0 GraphicsWindow.left= 0 GraphicsWindow.Height= 500 GraphicsWindow.Width = 800 'affichage du texte GraphicsWindow.BrushColor = "black" GraphicsWindow.FontSize = 20 GraphicsWindow.BrushColor = "darkred" button = Controls.AddButton("", 1450, 275) Controls.ButtonClicked = Click ' **************************************** sub click ********************************************************************************* Sub Click If Controls.LastClickedButton = button Then buttonclicked = 1 EndIf EndSub ' ****************** branchement no2 une BOUCLE nommé BUTTONLOOP qui attend que je clic la case SOUMETTRE ******************************* buttonloop: animation() ' tant que j ai as cliqué soumettre ce loop d attente j anime un cube rubik If buttonclicked = 0 Then Goto buttonloop Else buttonclicked = 0 EndIf ' **************************SOUS ROUTINE SUB au nom de présentation******************************************** Sub dessin_images GraphicsWindow.DrawresizedImage(ciel, 0, 0,800,500) rubik1 = Shapes.AddImage(rubik) Shapes.Zoom (rubik1,0.45,0.45) Shapes.Move (rubik1,1,1) rubik2 = Shapes.AddImage(rubik) Shapes.Zoom (rubik2,0.55,0.55) Shapes.Move (rubik2,100,1) rubik3 = Shapes.AddImage(rubik) Shapes.Zoom (rubik3,0.35,0.35) Shapes.Move (rubik3,1,100) endsub sub animation Shapes.animate (rubik1,100+z,150-math.Cos(z),10000) Shapes.Zoom (rubik1,0.01/z,0.01/z) Shapes.Rotate (rubik1,z+z) Shapes.animate (rubik2,600+y,50-math.Cos(z),2000) Shapes.Rotate (rubik2,y+y) Shapes.animate (rubik3,600-y,50-math.sin(z),2000) Shapes.Rotate (rubik3,y-z) z=z+1 y=y-1 Program.Delay(100) EndSub sub animation_1 While z < 300 Shapes.animate (rubik1,100-z,150-math.Cos(y),5000) Shapes.Zoom (rubik1,q/100,q/100) Shapes.Rotate (rubik1,z+z) Shapes.animate (rubik2,320+math.Cos(y),150-z,2000) Shapes.Rotate (rubik2,z+y) z=z+1 y=y-1 If q > 25 Then q=q-1 Else q=q+1 endif Program.Delay(100) endwhile z=Math.GetRandomNumber(100) y=Math.GetRandomNumber(100) q=Math.GetRandomNumber(10) EndSub animation_1() ' sa donne une animation_1 sans fin avec un reset des valeurs apres la fin de a boucle while End>TTZ421.sb< Start>TVB982.sb< 'Nearest stars to our sun rendered in 3D 'distance out to approx 16 light-years 'Zeven Provincien May 2010 ' 'Star data taken from a version of the Gliese star catalog 'that I found at this address: 'http://cc.joensuu.fi/~tniemi/starmaps/TN_Gliese3simplified.dat ' '3D rendering code adapted from code originally published 'by rdohmen and modified by litdev and Oskariok 'on the Small Basic forum, 'Rotating Cube' thread ' 'Use a,s,d,f keys to rotate 'Use x&c keys to zoom 'Use arrow keys to slide up/down, left/right 'Use mouse-click to set view in rotation 'Hover over a star to show its name and distance from our sun in light-years GraphicsWindow.BackgroundColor = "Black" Star["X"]="1= 0;2= 2.93;3= 3.12;4= 4.98;5= -1.9;" Star["X"]=Star["X"]+"6= -3.4;7= -2.1;8= -5.75;9= 9.22;10= -3.38;" Star["X"]=Star["X"]+"11= -6.86;12= 0.01;13= 4.12;14= -4.79;15= 6.91;" Star["X"]=Star["X"]+"16= 1.51;17= 0.13;18= -3.23;19= -9.24;20= 4.67;" Star["X"]=Star["X"]+"21= -9.54;22= -2.05;23= -10.25;24= 9;25= -3.42;" Star["X"]=Star["X"]+"26= -3.29;27= 12.18;28= -11.24;29= -2.63;30= 1.45;" Star["X"]=Star["X"]+"31= -4.01;32= -9.41;33= -8.47;34= 4.58;35= 3.44;" Star["X"]=Star["X"]+"36= -1.74;37= 14.09;38= 6.53;39= 10.28;40= -9.09;" Star["Y"]="1= 0;2= -3.04;3= -3.04;4= 2.98;5= -3.9;" Star["Y"]=Star["Y"]+"6= -0.3;7= 0.17;8= -6.21;9= 1.84;10= 9.29;" Star["Y"]=Star["Y"]+"11= -1.95;12= -5.48;13= 4.42;14= 9.55;15= -3.04;" Star["Y"]=Star["Y"]+"16= 11.13;17= 10.39;18= 0.39;19= -6.17;20= 0.42;" Star["Y"]=Star["Y"]+"21= -2.92;22= 1.2;23= -6.48;24= 0.62;25= -9.61;" Star["Y"]=Star["Y"]+"26= 12.52;27= 0.72;28= -7.28;29= -8.02;30= -4.24;" Star["Y"]=Star["Y"]+"31= 6.45;32= -7.95;33= 5.37;34= -13.89;35= -1;" Star["Y"]=Star["Y"]+"36= -10.94;37= -4.3;38= -13.39;39= -1.96;40= 2.29;" Star["Z"]="1= 0;2= -0.14;3= -0.05;4= 1.45;5= 6.48;" Star["Z"]=Star["Z"]+"6= 7.46;7= -8.3;8= -1.32;9= -1.7;10= -3.01;" Star["Z"]=Star["Z"]+"11= -7.93;12= 9.34;13= -9.29;14= -3.56;15= -8.39;" Star["Z"]=Star["Z"]+"16= -1.14;17= 4.67;18= -10.93;19= 2.57;20= -10.46;" Star["Z"]=Star["Z"]+"21= 6.34;22= -11.96;23= 2.22;24= -8.8;25= -7.43;" Star["Z"]=Star["Z"]+"26= 0;27= 5.35;28= -1.45;29= -11.16;30= 13.31;" Star["Z"]=Star["Z"]+"31= -11.9;32= 7.74;33= -10.56;34= -0.51;35= -14.25;" Star["Z"]=Star["Z"]+"36= 9.74;37= -1.75;38= -0.74;39= -10.97;40= 12.08;" Star["Class"]="1=G5;2=M5;3=G5;4=M5;5=M5;6=M5;7=M5;8=A5;9=M5;10=M5;" Star["Class"]=Star["Class"]+"11=K5;12=M5;13=M5;14=M5;15=K5;16=K5;17=M5;" Star["Class"]=Star["Class"]+"18=G5;19=F4;20=M5;21=M5;22=M5;23=M5;24=M5;25=M5;" Star["Class"]=Star["Class"]+"26=M5;27=M5;28=M5;29=M5;30=M5;31=DZ;32=K5;" Star["Class"]=Star["Class"]+"33=M5;34=M5;35=M5;36=M5;37=M5;38=DQ;39=M5;40=K5;" Star["Name"]="1=Sol;2=Proxima Centauri;3=Alpha Centauri;4=Barnard's Star;" Star["Name"]=Star["Name"]+"5=Wolf 359;6=LHS 37;7=UV Ceti;8=Sirius;9=Ross 154;" Star["Name"]=Star["Name"]+"10=Ross 248;11=Epsilon Eridani;12=Ross 128;" Star["Name"]=Star["Name"]+"13=LHS 68;14=GX Andromedae;15=Epsilon Indi;16=61 Cygni;" Star["Name"]=Star["Name"]+"17=LHS 58;18=Tau Ceti;19=LHS 233;20=LHS 70;" Star["Name"]=Star["Name"]+"21=LHS 248;22=L 725-32;23=LHS 33;24=LHS 66;25=Kapteyn's Star;" Star["Name"]=Star["Name"]+"26=DO Cephei;27=LHS 419;28=577 Monocerotis;29=LFT 295;30=FL Virginis;" Star["Name"]=Star["Name"]+"31=Van Maanen's Star;32=LHS 6;33=LHS 11;34=LHS 288;35=LHS 1;" Star["Name"]=Star["Name"]+"36=LHS 292;37=LHS 449;38=LHS 43;39=L 354-89;40=LHS 280;" i = 0 'While (Line[i] <> "EOF") And (i < 40) While i < 40 i = i + 1 ' The following line could be harmful and has been automatically commented. ' 'Line[i] = File.ReadLine("C:\users\Craig\Documents\SmallBasic\gliese_catalog_3.txt", i) 'TextWindow.WriteLine(Line[i]) 'Star["Gliese"][i] = Text.GetSubText(Line[i],1,8) 'Star["X"][i] = Text.GetSubText(Line[i],18,7) 'Star["Y"][i] = Text.GetSubText(Line[i],26,7) 'Star["Z"][i] = Text.GetSubText(Line[i],34,7) 'Star["dist"][i] = Text.GetSubText(Line[i],43,6) 'Star["Class"][i] = Text.GetSubText(Line[i],57,2) 'Star["Name"][i] = Text.GetSubText(Line[i],73,20) If Text.StartsWith(Star["Class"][i], "O") Then GraphicsWindow.BrushColor = "Blue" ElseIf Text.StartsWith(Star["Class"][i], "B") Then GraphicsWindow.BrushColor = "CornflowerBlue" ElseIf Text.StartsWith(Star["Class"][i], "A") Then GraphicsWindow.BrushColor = "White" ElseIf Text.StartsWith(Star["Class"][i], "F") Then GraphicsWindow.BrushColor = "LightYellow" ElseIf Text.StartsWith(Star["Class"][i], "G") Then GraphicsWindow.BrushColor = "Yellow" ElseIf Text.StartsWith(Star["Class"][i], "K") Then GraphicsWindow.BrushColor = "Orange" Else GraphicsWindow.BrushColor = "Red" 'M class star EndIf Star["Shape"][i] = Shapes.AddEllipse(7,7) distsq = Star["X"][i]*Star["X"][i]+Star["Y"][i]*Star["Y"][i]+Star["Z"][i]*Star["Z"][i] Star["dist"][i] = Math.SquareRoot(distsq) Star["dist"][i] = Math.Round(Star["dist"][i]*100)/100 EndWhile 'TextWindow.WriteLine(Star["Gliese"]) ' The following line could be harmful and has been automatically commented. ' 'File.WriteContents("C:\users\Craig\Documents\SmallBasic\test.txt",Star["Class"]) StarNo = i 'add coordinate system as last three points Star["Gliese"][StarNo+1] = "" Star["X"][StarNo+1] = 25 Star["Y"][StarNo+1] = 0 Star["Z"][StarNo+1] = 0 Star["dist"][StarNo+1] = 25 Star["Class"][StarNo+1] = "" Star["Name"][StarNo+1] = "Galactic X coordinate" Star["Gliese"][StarNo+2] = "" Star["X"][StarNo+2] = 0 Star["Y"][StarNo+2] = 25 Star["Z"][StarNo+2] = 0 Star["dist"][StarNo+2] = 25 Star["Class"][StarNo+2] = "" Star["Name"][StarNo+2] = "Galactic Y coordinate" Star["Gliese"][StarNo+3] = "" Star["X"][StarNo+3] = 0 Star["Y"][StarNo+3] = 0 Star["Z"][StarNo+3] = 25 Star["dist"][StarNo+3] = 25 Star["Class"][StarNo+3] = "" Star["Name"][StarNo+3] = "Galactic Z coordinate" GraphicsWindow.BrushColor = "Yellow" IDStatus = "No" M = 0.5 R = Math.GetRadians(0.5) S = 0.5 CubeX = 500 CubeY = 400 CubeSize = 20 Info = "False" 'Event handling GraphicsWindow.KeyDown=OnKeyDown GraphicsWindow.KeyUp = OnKeyUp 'GraphicsWindow.MouseMove = OnMouseMove GraphicsWindow.MouseDown = OnMouseDown Timer.Tick=OnTimer Timer.Interval=20 CreateProgram() While Run = "True" If MovingDown = "True" Then CubeY = CubeY + M NeedToDraw = "True" EndIf If MovingUp = "True" Then CubeY = CubeY - M NeedToDraw = "True" EndIf If MovingRight = "True" Then CubeX = CubeX + M NeedToDraw = "True" EndIf If MovingLeft = "True" Then CubeX = CubeX - M NeedToDraw = "True" EndIf If RotatingDown = "True" Then angleV=angleV-R NeedToDraw = "True" EndIf If RotatingUp = "True" Then angleV=angleV+R NeedToDraw = "True" EndIf If RotatingRight = "True" Then angleH=angleH-R NeedToDraw = "True" EndIf If RotatingLeft = "True" Then angleH=angleH+R NeedToDraw = "True" EndIf If ZoomingPlus = "True" Then CubeSize=CubeSize+S NeedToDraw = "True" EndIf If ZoomingMinus = "True" Then CubeSize=CubeSize-S NeedToDraw = "True" If CubeSize < 1 Then CubeSize = 1 EndIf EndIf If NeedToDraw = "True" Then Draw() EndIf EndWhile Sub CreateProgram angleH=30*math.Pi/180 angleV=30*math.Pi/180 NeedToDraw = "False" Run = "True" GraphicsWindow.Show() GraphicsWindow.Title = "Our sun and its neighbours" GraphicsWindow.Width = 1000 GraphicsWindow.Height = 800 GraphicsWindow.Left = Desktop.Width/2-GraphicsWindow.Width/2 GraphicsWindow.Top = Desktop.Height/2-GraphicsWindow.Height/2 If Info = "True" Then TextWindow.Show() TextWindow.Title = "3D info" TextWindow.Left = Desktop.Width/2-330 TextWindow.Top = Desktop.Height/2+330 EndIf RotatingLeft = "False" RotatingRight = "False" RotatingUp = "False" RotatingDown = "False" MovingLeft = "False" MovingRight = "False" MovingUp = "False" MovingDown = "False" ZoomingPlus = "False" ZoomingMinus = "False" Draw() EndSub Sub OnKeyDown K = GraphicsWindow.LastKey If K = "A" Then RotatingLeft = "True" EndIF If K = "S" Then RotatingRight = "True" EndIF If K = "W" Then RotatingUp = "True" EndIf If K = "Z" Then RotatingDown = "True" EndIf If K = "Up" Then MovingUp = "True" EndIf If K = "Down" Then MovingDown = "True" EndIf If K = "Right" Then MovingRight = "True" EndIf If K = "Left" Then MovingLeft = "True" EndIf If K = "X" Then ZoomingPlus = "True" EndIf If K = "C" Then ZoomingMinus = "True" EndIf EndSub Sub OnKeyUp K = GraphicsWindow.LastKey If K = "A" Then RotatingLeft = "False" EndIF If K = "S" Then RotatingRight = "False" EndIF If K = "W" Then RotatingUp = "False" EndIf If K = "Z" Then RotatingDown = "False" EndIf If K = "Up" Then MovingUp = "False" EndIf If K = "Down" Then MovingDown = "False" EndIf If K = "Right" Then MovingRight = "False" EndIf If K = "Left" Then MovingLeft = "False" EndIf If K = "X" Then ZoomingPlus = "False" EndIf If K = "C" Then ZoomingMinus = "False" EndIf EndSub Sub calcPoints For i=1 To StarNo+3 ' draai in horizontale richting 'x' = x*cos q - y*sin q Star["x1"][i]=Star["X"][i]*math.cos(angleH)-Star["Y"][i]*math.sin(angleH) 'y' = x*sin q + y*cos q Star["y1"][i]=Star["X"][i]*math.sin(angleH)+Star["Y"][i]*math.cos(angleH) 'z' = z Star["z1"][i]=Star["Z"][i] ' draai in verticale richting 'y' = x*cos q - y*sin q Star["y2"][i]=Star["y1"][i]*math.cos(angleV)-Star["z1"][i]*math.sin(angleV) 'z' = x*sin q + y*cos q Star["z2"][i]=Star["y1"][i]*math.sin(angleV)+Star["z1"][i]*math.cos(angleV) 'x' = x Star["x2"][i]=Star["x1"][i] 'Calculate X And Y Star["x2"][i] = Star["x2"][i]*CubeSize Star["y2"][i] = Star["y2"][i]*CubeSize Star["x2"][i] = Star["x2"][i]+CubeX Star["y2"][i] = Star["y2"][i]+CubeY endfor endsub Sub Draw 'Draw Info If Info = "True" Then ShowInfo() EndIf 'erase old coordinate lines GraphicsWindow.PenColor = "Black" GraphicsWindow.BrushColor = "Black" GraphicsWindow.PenWidth = 4 For i = (StarNo+1) to (StarNo+3) GraphicsWindow.DrawLine(Star["x2"][1],Star["y2"][1],Star["x2"][i],Star["y2"][i]) GraphicsWindow.FillRectangle(Star["x2"][i]+10,Star["y2"][i], 140, 20) EndFor 'Calculate Points calcPoints() 'Delete Old Cube 'GraphicsWindow.Clear() For i = 1 to StarNo 'GraphicsWindow.DrawEllipse(Star["x2"][i],Star["y2"][i],5,5) 'GraphicsWindow.SetPixel(Star["x2"][i],Star["y2"][i],"black") Shapes.Move(Star["Shape"][i],Star["x2"][i],Star["y2"][i]) EndFor ' Redraw The Coordinate system GraphicsWindow.PenColor = "Gray" GraphicsWindow.BrushColor = "Gray" GraphicsWindow.PenWidth = 1 For i = (StarNo+1) to (StarNo+3) GraphicsWindow.DrawLine(Star["x2"][1],Star["y2"][1],Star["x2"][i],Star["y2"][i]) GraphicsWindow.DrawText(Star["x2"][i]+10,Star["y2"][i], Star["Name"][i]) EndFor 'Set NeedToDrawFalse NeedToDraw = "False" EndSub Sub ShowInfo TextWindow.Clear() TextWindow.WriteLine("3D info") TextWindow.WriteLine("CubeX = "+CubeX) TextWindow.WriteLine("CubeY = "+CubeY) TextWindow.WriteLine("Cube Size = "+CubeSize) TextWindow.WriteLine("Cube Horizontal Angle = "+angleH) TextWindow.WriteLine("Cube Vertical Angle = "+angleV) EndSub Sub OnTimer If IDStatus = "No" then For loop = 1 To StarNo If Math.Abs(GraphicsWindow.MouseX-Star["x2"][loop]) < 10 And Math.Abs(GraphicsWindow.MouseY-Star["y2"][loop]) < 10 Then StarIdent = loop IDStatus = "Yes" StarX = Star["x2"][loop] StarY = Star["y2"][loop] Stardist = Star["dist"][loop] IDStar() Endif EndFor Elseif IDStatus = "Yes" then If Math.Abs(GraphicsWindow.MouseX-Star["x2"][StarIdent]) > 10 Or Math.Abs(GraphicsWindow.MouseY-Star["y2"][StarIdent]) > 10 Then IDStatus = "No" GraphicsWindow.BrushColor = "Black" GraphicsWindow.FillRectangle(StarX+10, StarY, 120, 50) StarIdent = 0 Endif Endif EndSub Sub IDStar GraphicsWindow.BrushColor = "Yellow" 'GraphicsWindow.DrawText(Star["x2"][StarIdent]+10,Star["y2"][StarIdent],Star["Name"][StarIdent]) GraphicsWindow.DrawText(StarX+10, StarY, Star["Name"][StarIdent]) GraphicsWindow.DrawText(StarX+10,StarY+20, Stardist + " LY") EndSub Sub OnMouseDown If RotatingLeft = "False" Then RotatingLeft = "True" Else RotatingLeft = "False" EndIf EndSub End>TVB982.sb< Start>TVF891.sb< args=0 GraphicsWindow.Title="LED display font GraphicsWindow.Width=1550 GraphicsWindow.Height=800 GraphicsWindow.Left=10 GraphicsWindow.Top=10 GraphicsWindow.BackgroundColor="darkblue GraphicsWindow.PenWidth=0 For dx=1 to 7 i=1 For y=0 To 3 For x=0 To 1 GraphicsWindow.BrushColor="gold" 'LDColours.HSLtoRGB (y*60 1 .5) ss[dx][i]=Shapes.AddRectangle (7 18 ) Shapes.Move(ss[dx][i] x*30+55+dx*50 55+y*17.5) i=i+1 EndFor EndFor For f=0 To 4 ss[dx][i]=Shapes.AddRectangle (23 7) Shapes.Move(ss[dx][i] 62+dx*50 52+f*17.5) i=i+1 EndFor endfor cdf() zy=400 For o=1 to 2 zx=11 dff="ssdrw If o=2 Then dff="ssdrwe endif tx="Quick brown fox jumps the lazy dog 123 456 7890 For r=1 to Text.GetLength(tx) cc=Text.GetSubText (tx r 1 ) c=text.GetCharacterCode (cc) If c>64 And c<92 Then ai=cc+cc Else ai=cc endif If Text.IsSubText ("ijI" cc) Then zx=zx-20 endif If cc="m" Or cc="w" Then nmd="false Else nmd="true endif LDCall.Function4 (dff zx zy sgm[ai] o) If Text.IsSubText ("lrtfLEFC" cc) Then zx=zx+28 ElseIf cc=" " then zx=zx+20 else zx=zx+35 endif endfor zy=zy+150 endfor tx="ABCD EFGH IJKL MNOQ PRST UVW XYZ abcd efgh ijkl mn opqr stuv wxyz 123 456 7890 +123 456 7890 !123 456 7890 ~ "'mwv yy=0 While "true For r=1 to Text.GetLength(tx)-6 dx=1 For w=0 to 6 cc=Text.GetSubText (tx r+w 1 ) If cc="+" Then yy=2 cc=" " ElseIf cc="!" then yy=4 cc=" " ElseIf cc="~" then yy=0 cc=" " endif c=text.GetCharacterCode (cc) If c>64 And c<92 Then ai=cc+cc Else If cc="m" then ai="#" elseif cc="w" then ai="^ else ai=cc endif endif sg=text.GetSubTextToEnd ("...." 5-yy)+sgm[ai] ssg() dx=dx+1 endfor Program.Delay (444) endfor endwhile Sub ssg ff=0 For f=1 To 13 If yy>0 And f>8 Then ff=yy/2 endif If Text.GetSubText (sg f+ff 1)="." Then Shapes.HideShape (ss[dx][f]) Else Shapes.showShape (ss[dx][f]) EndIf endfor EndSub Sub ssdrwe sx=args[1] sy=args[2] sg=args[3] i=1 For y=0 To 3 For x=0 To 1 Step .5 If Text.GetSubText (sg i 1)="." Or (nmd And x=.5) Then If x=.5 And nmd then i=i-1 endif else GraphicsWindow.BrushColor="gold" If args[4]=2 then GraphicsWindow.BrushColor=LDColours.HSLtoRGB (math.Remainder (ic 330) 1 .5) ic=ic+5 endif GraphicsWindow .FillEllipse (x*20+sx sy+y*17.5 7 18 ) endif i=i+1 EndFor EndFor For f=0 To 4 If Text.GetSubText (sg i 1)="." Then else GraphicsWindow .FillEllipse ( sx+7 sy-3+f*17.5 13 7) endif i=i+1 EndFor EndSub Sub ssdrw sx=args[1] sy=args[2] sg=args[3] i=1 For y=0 To 3 For x=0 To 1 Step .5 If Text.GetSubText (sg i 1)="." Or (nmd And x=.5) Then If x=.5 And nmd then i=i-1 endif else GraphicsWindow.BrushColor="gold" 'LDColours.HSLtoRGB (y*60 1 .5) GraphicsWindow .FillRectangle (x*20+sx sy+y*17.5 7 18 ) endif i=i+1 EndFor EndFor For f=0 To 4 If Text.GetSubText (sg i 1)="." Then else GraphicsWindow .FillRectangle ( sx+7 sy-3+f*17.5 13 7) endif i=i+1 EndFor EndSub Sub cdf sgm["1"] =".o.o......... sgm["2"] =".oo.....ooo.. sgm["3"] =".o.o....ooo.. sgm["4"] ="oo.o.....o... sgm["5"] ="o..o....ooo.. sgm["6"] ="o.oo....ooo.. sgm["7"] =".o.o....o.... sgm["8"] ="oooo....ooo.. sgm["9"] ="oo.o....ooo.. sgm["0"] ="oooo....o.o.. sgm["aa"]="oooooo..o.o.." 'A sgm["bb"]="oooooo..oo.o. sgm["cc"]="ooo.oo..o..o. sgm["dd"]="oooooo..o.oo. sgm["ee"]="o.o.o...oo.o. sgm["ff"]="o.o.o...oo... sgm["gg"]="o.oooo..o..o. sgm["hh"]="oooooo...o... sgm["ii"]="o.o.o........ sgm["jj"]=".o.ooo.....o. sgm["kk"]="o.oooo..oo... sgm["ll"]="o.o.o......oo sgm["mm"]="oooooo..o...o sgm["nn"]="oooooo..o.... sgm["oo"]="oooooo..o..o. sgm["pp"]="ooooo...o.o.. sgm["qq"]="ooooooo.o..oo sgm["rr"]="ooo.o...o.... sgm["ss"]="o.o..o..o.oo. sgm["tt"]="o.o.o...o.... sgm["uu"]="oooooo.....o. sgm["vv"]="oooooo.....oo sgm["ww"]="oooooo....oo. sgm["xx"]="oooooo...o..o sgm["yy"]="oo.o.o...o... sgm["zz"]=".o.oo...o.oo. sgm["a"]="...ooo...ooo. sgm["b"]="o.oooo...o.o. sgm["c"]="..o.o....o.o. sgm["d"]=".ooooo...o.o. sgm["e"]="..ooo....ooo. sgm["f"]="o.o.o...oo... sgm["g"]="..oooo.o.o.oo sgm["h"]="o.oooo...o... sgm["i"]="...o.o....... sgm["j"]="...o.o.o....o sgm["k"]="..o.oo...oo.. sgm["l"]="o.o.o......o. sgm["m"]="...oooo.o....o... sgm["#"]="..oooo..oo... sgm["n"]="..oooo...o... sgm["o"]="..oooo...o.o. sgm["p"]="..ooooo..o.o. sgm["q"]="..oooo.o.o.o. sgm["r"]="..o.o....o... sgm["s"]="..o..o...ooo. sgm["t"]="o.o.o....o.o. sgm["u"]="..oooo.....o. sgm["v"]="..oooo..o..o. sgm["^"]="..oooo.....oo sgm["w"]="...o.oooo......o. sgm["x"]="..oooo....o.. sgm["y"]="..oooo.o...oo sgm["z"]="...oo....ooo. sgm[" "]="............. EndSub End>TVF891.sb< Start>TVG295.sb< ' OctObeR 2019 ' mahreen miangul ' Multiple Animation ' Multiple Keyboard 'GraphicsWindow.Left = 0.5 * (Desktop.Width - GraphicsWindow.Width) 'GraphicsWindow.Top = 0.5 * (Desktop.Height - GraphicsWindow.Height) GraphicsWindow.top= -2.0 GraphicsWindow.left= 80 GraphicsWindow.Title = "mahreen miangul" GraphicsWindow.BackgroundColor="blue" GraphicsWindow.Width = "1280" GraphicsWindow.Height = "666" ' ===================================mussa-maina============================= GraphicsWindow.FontSize = 8 'GraphicsWindow.brushColor = GraphicsWindow.GetRandomColor() 'GraphicsWindow.brushColor = GraphicsWindow.getcolorfromrgb(175, 75, 125) GraphicsWindow.brushColor = "gold miangul = Shapes.Addtext("mussa-maina") Shapes.Move(miangul, 700,280) Shapes.rotate(miangul, 30) Shapes.SetOpacity(miangul, 130) Shapes.Zoom(miangul, 3, 5) '---------------------------------------------------------mahreen//miangul ----------------------------------------------------------------------------------------- GraphicsWindow.FontName = "Times New Roman" GraphicsWindow.FontSize = 80 GraphicsWindow.FontItalic = "True" GraphicsWindow.BrushColor = "yellow" ' Text shadow color GraphicsWindow.DrawText(380, 0, "mahreen!") ' Shadow position/text GraphicsWindow.DrawText(500, 60, "miangul!") orangered= GraphicsWindow.getcolorfromrgb(250,80,80) GraphicsWindow.BrushColor=orangered GraphicsWindow.BrushColor = orangered ' Text color GraphicsWindow.DrawText(385, 5, "mahreen!") ' Position and text GraphicsWindow.DrawText(505, 65, "miangul!") ' ===================mahreen miangul--Text//WELL COME============ CRLF= Text.GetCharacter(13)+Text.GetCharacter(10) '<------------- line feed GraphicsWindow.FontSize = 44 GraphicsWindow.brushColor = "orange msg=Shapes.AddText("WELL COME!"+CRLF+"from"+CRLF+"haroon "+CRLF+"rashid!") Shapes.Move(msg,0,0) ' =============================ThoABan// Sprites============================= GraphicsWindow.FontSize = 44 GraphicsWindow.BrushColor= "greenyellow miangulBOX = Shapes.Addtext("👹") Shapes.Move(miangulBOX, 0,0) Shapes.Animate(miangulBOX, 110,55,2000) GraphicsWindow.BrushColor= "snow miangulBOX = Shapes.Addtext("👹") Shapes.Move(miangulBOX, 1080,660) Shapes.Animate(miangulBOX, 150,55,2000) GraphicsWindow.BrushColor= "yellow miangulBOX = Shapes.Addtext("👹") Shapes.Move(miangulBOX, 1080,0) Shapes.Animate(miangulBOX, 190,55,2000) GraphicsWindow.BrushColor= "YellowGreen miangulBOX = Shapes.Addtext("👹") Shapes.Move(miangulBOX, 0,660) Shapes.Animate(miangulBOX, 230,55,2000) GraphicsWindow.KeyDown = onkeyDown ' ======================Make Image1()Madam Apple======================= MakeImage1() ' ============================== Hill================================ GraphicsWindow.brushColor = "tan" GraphicsWindow.fillEllipse(-88,505,620,288) GraphicsWindow.fillEllipse(211,388,622,366) GraphicsWindow.fillEllipse(211,388,1888,666) '--------------------------------------------------Text 420---------------------------------------------------- GraphicsWindow.FontSize = 33 GraphicsWindow.brushColor = GraphicsWindow.GetRandomColor() GraphicsWindow.DrawText(0, 630, "420")'>>>>>>>>>>>>>1 GraphicsWindow.brushColor = GraphicsWindow.GetRandomColor() GraphicsWindow.DrawText(0, 600, "420")'>>>>>>>>>>>>>2 GraphicsWindow.brushColor = GraphicsWindow.GetRandomColor() GraphicsWindow.DrawText(0, 570, "420")'>>>>>>>>>>>>>3 GraphicsWindow.brushColor = GraphicsWindow.GetRandomColor() GraphicsWindow.DrawText(0, 540, "420")'>>>>>>>>>>>>>4 GraphicsWindow.brushColor = GraphicsWindow.GetRandomColor() GraphicsWindow.DrawText(80, 630, "420")'>>>>>>>>>>>>>5 GraphicsWindow.brushColor = GraphicsWindow.GetRandomColor() GraphicsWindow.DrawText(80, 600, "420")'>>>>>>>>>>>>>6 GraphicsWindow.brushColor = GraphicsWindow.GetRandomColor() GraphicsWindow.DrawText(80, 570, "420")'>>>>>>>>>>>>>7 GraphicsWindow.brushColor = GraphicsWindow.GetRandomColor() GraphicsWindow.DrawText(80, 540, "420")'>>>>>>>>>>>>>8 GraphicsWindow.brushColor = GraphicsWindow.GetRandomColor() GraphicsWindow.DrawText(80, 510, "420")'>>>>>>>>>>>>>9 GraphicsWindow.brushColor = GraphicsWindow.GetRandomColor() GraphicsWindow.DrawText(160, 550, "420")'>>>>>>>>>>>>>10 GraphicsWindow.brushColor = GraphicsWindow.GetRandomColor() GraphicsWindow.DrawText(160, 630, "420")'>>>>>>>>>>>>>11 '=============================Makesprite()============================ SPRITE_init() add_shapes() ' ============================== Aircraft Animation====================== dZ = 0.1 zoom = 1 ddx=0 ddy=0 bdx=0 bdy=0 bdy2=5 ' <------ initial ball2 moving speed-Y ANMB="5:1" BNMB="6:1" ' <----- Blue car shapes number=6 repeat =1 shoot="False" shoot2="False" ' <----- zm=1 Hit_count=0 No_hit=0 ' ------------------------------------------------------STARS--------------------------------------------------------- GraphicsWindow.BrushColor = "yellow" For i = 0 To 80 GraphicsWindow.FontSize = 5+ Math.GetRandomNumber(30) x = Math.GetRandomNumber(GraphicsWindow.Width) y = Math.GetRandomNumber(GraphicsWindow.height/2.6) star[i]=Shapes.AddText("★") '<------------- Shapes.Move(star[i],x,y) '<------------- Program.Delay(10) EndFor ' ----------------------------------------------------MOON-------------------------------------------------------- GraphicsWindow.BrushColor = "yellow" GraphicsWindow.PenWidth=0 '<------------- moon= Shapes.AddEllipse(20,20) '<------------- Shapes.Move(moon,50,50) '<------------- GraphicsWindow.BrushColor = "blue" shadow= Shapes.AddEllipse(20,20) '<------------- Shapes.Move(shadow,60,45) '<------------- ' ============================== Cannon Animation ============================== GraphicsWindow.PenWidth = 0 GraphicsWindow.BrushColor= "Red" Ball=Shapes.AddEllipse(10,20) Shapes.Move(Ball,shapes.GetLeft(shp[ANMB][9])+10,shapes.Gettop(shp[ANMB][9])+30) Shapes.HideShape(Ball) GraphicsWindow.BrushColor= "Navy" ' <----- Ball2=Shapes.AddEllipse(10,20) ' <----- Shapes.Move(Ball2,shapes.GetLeft(shp[BNMB][15]),shapes.Gettop(shp[BNMB][15]))' <----- Shapes.HideShape(Ball2) ' <----- ' ============================== BlueCar Timer ==================================== Timer.Interval=800 Timer.Tick=BlueCar_up ' =======================Drag & Drop to Target or Return Home======================= GraphicsWindow.brushColor = "AliceBlue" home = "X=0;Y=0" spriteSize = "420" sprite[1] = Shapes.Addtext("👹") Shapes.Move(sprite[1], home["X"], home["Y"]) spriteTarget[1] = Shapes.Addtext(spriteSize + 0) 'upSize Target for special fx Shapes.Move(spriteTarget[1], 160, 590) Shapes.SetOpacity(spriteTarget[1], 600) '================================Cloud Moving===================================== dx = GraphicsWindow.Width dY = GraphicsWindow.Height GraphicsWindow.BrushColor = "silver" GraphicsWindow.FontSize = 122 x = x + dX - 44 y = y + dY - 550 cloud() Sub cloud cloud = Shapes.Addtext("🌁") Shapes.Animate(cloud,x,y,22000) Endsub Shapes.Animate(cloud,x,y,0) Program.Delay(800) cloud() '============================Mouse Click and Drag to Targrt================================ While "True" ' And "North" <> "South" <--- No meanig , it always "True" mseX = GraphicsWindow.MouseX mseY = GraphicsWindow.MouseY If Mouse.IsLeftButtonDown Then 'handle click and select If selected = "" And clicked = "False" Then 'can loop thru here for more than 1 box If mseX >= home["X"] And mseX <= home["X"] + spriteSize And mseY >= home["Y"] And mseY <= home["Y"] + spriteSize Then selected = 1 'box number EndIf EndIf clicked = "True" 'the mse has been clicked for this frame Shapes.Move(sprite[selected], mseX, mseY) Else If Math.Round(mseX/50) = Math.Round(Shapes.GetLeft(spriteTarget[selected])/50) Then If Math.Round(mseY/50) = Math.Round(Shapes.GetTop(spriteTarget[selected])/50) Then Shapes.Remove(sprite[selected]) Shapes.SetOpacity(spriteTarget[selected], 100) EndIf EndIf Shapes.Move(sprite[selected], home["X"], home["Y"]) selected = "" 'deselect when finishised with the box clicked = "False" 'inits here, get ready for next click EndIf Program.Delay(20) 'EndWhile ' <----------- no use 'While 0=0 ' <----------- no use '============================Aircraft Blinking Program======================= zoom = zoom - dZ For i = 1 To Array.GetItemCount(shape[5]) If Array.ContainsValue(shape[5][i], "eye") Then Shapes.Zoom(shp[ANMB][i], 1, zoom) ElseIf Array.ContainsValue(shape[5][i], "mouth") Then Shapes.Zoom(shp[ANMB][i], zoom, zoom) EndIf shapes.Move(shp[ANMB][i],shapes.GetLeft(shp[ANMB][i])+ddx,shapes.Gettop(shp[ANMB][i])+ddy) EndFor If zoom = 0.1 Or zoom = 1 Then dZ = -dZ EndIf ' ============================Star Blinking and ShootingProgram========================== 'While zm<6 'If zm<6 Then ' <<<<>>>> mmm= Math.GetRandomNumber(80) ' blinking star number _op=Shapes.GetOpacity(star[mmm]) ' opacity ... brightness If _op>50 Then Shapes.SetOpacity(star[mmm],Math.GetRandomNumber(49)) ' darker Else Shapes.SetOpacity(star[mmm],50+Math.GetRandomNumber(50)) ' brighter EndIf If mmm=50 Then Shapes.Move(star[0],400+Math.GetRandomNumber(700),-200) Shapes.Animate(star[0],Math.GetRandomNumber(500),2200,2000) 'shooting star Program.Delay(30) zm=zm+0.1 '===============================Moon Opacity and Zoom=============================== Shapes.Zoom(moon,zm,zm) ' moon becomes bigger Shapes.Zoom(shadow,zm,zm)' shadow becomes bigger Shapes.Move(moon,shapes.GetLeft(moon)+1,shapes.GetTop(moon)+1) Shapes.Move(shadow,shapes.GetLeft(shadow)+2,shapes.GetTop(shadow)+1) EndIf Program.Delay(20) ' <<<<>>>> 'endif 'endwhile '============================Aircraft Reverse Moving=====X,Y Direction============= cycleX= shapes.GetLeft(shp[ANMB][5]) cycleY= shapes.GetTop(shp[ANMB][5]) If cycleX<0 Or cycleX>GraphicsWindow.Width Then ddx=-ddx EndIf If cycleY<0 Or cycleY>200 Then ddy=-ddy EndIf ' ===========================BallFire======================================= If shoot Then shapes.Move(Ball ,shapes.GetLeft(ball)-bdx/2,shapes.Gettop(ball)-bdy/2) If shapes.Gettop(ball)>700 Then shoot="False" No_hit=No_hit+1 GraphicsWindow.Title="You Hit !!!!!! Total "+(Hit_count*10-No_hit*5) +" Points get" Shapes.Move(Ball,shapes.GetLeft(shp[ANMB][9])+10,shapes.Gettop(shp[ANMB][9])+30) Shapes.HideShape(Ball) EndIf '==========================Collision Check Here================================= BCar_X=shapes.GetLeft(shp[BNMB][5]) BCar_Y=shapes.GetTop(shp[BNMB][5]) ballX=shapes.GetLeft(ball) bally=shapes.GetTop(ball) If (BCar_X>>> shape[5][13] = "func=ell;x=-177;y=270;width=25;height=25;angle=0;bc=Gainsboro;pc=darkslategray;pw=4;tag=eye" ' eye 2 ' <<<<>>>> shape[5][14] = "func=ell;x=-250;y=177;width=44;height=22;angle=0;bc=deeppink;pc=yellow;pw=2;tag=mouth" ' ' <<<<>>>> shape[5][15] = "func=ell;x=-255;y=166;width=22;height=44;angle=0;bc=yellow;pc=deeppink;pw=2;tag=mouth" ' ' <<<<>>>> ' Car s[6] ="1=0.5" shX[6] ="1=600" shY[6] ="1=550" shape[6][1] = "func=rect;x=0;y=20;width=36;height=44;bc=#000000;pw=0;" shape[6][2] = "func=rect;x=77;y=23;width=36;height=44;bc=#000000;pw=0;" shape[6][3] = "func=rect;x=0;y=154;width=36;height=44;bc=#000000;pw=0;" shape[6][4] = "func=rect;x=77;y=156;width=36;height=44;bc=#000000;pw=0;" shape[6][5] = "func=rect;x=11;y=0;width=93;height=230;bc=#000000;pw=0;" shape[6][6] = "func=rect;x=17;y=25;width=81;height=55;bc=#00000;pw=0;" shape[6][7] = "func=rect;x=27;y=35;width=62;height=48;bc=#000000;pw=0;" shape[6][8] = "func=line;x=17;y=24;x1=11;y1=14;x2=0;y2=0;pc=#000000;pw=2;" shape[6][9] = "func=line;x=87;y=23;x1=0;y1=16;x2=12;y2=0;pc=#000000;pw=2;" shape[6][10] = "func=rect;x=17;y=85;width=81;height=134;bc=darkslategray;pw=0;" shape[6][11]="func=ell;x=18;y=7;width=29;height=19;angle=-50;bc=snow;pw=0.5" shape[6][12]="func=ell;X=70;Y=7;width=29;height=19;angle=50;bc=mediumslateblue;pw=0.5" shape[6][13]="func=rect;X=14;Y=180;width=33;height=15;angle=40;bc=snow;pc=darkslategray;pw=0" shape[6][14]="func=rect;X=72;Y=180;width=33;height=15;angle=-40;bc=mediumslateblue;pc=darkslategray;pw=0" shape[6][15]="func=rect;x=50;y=-20;width=22;height=66;angle=0;bc=mediumslateblue;pc=darkslategray;pw=0" '<------ cannon for ball2 'shape[6][16]="func=ell;X=-420;Y=-880;width=15;height=25;angle=50;bc=saddlebrown;pc=cornsilk;pw=1.5" 'shape[6][17]="func=rect;x=-420;y=-800;width=50;height=50;angle=-40;bc=saddlebrown;pc=cornsilk;pw=2" 'Ladder s[7] ="1=0.6" ' scale shx[7] ="1= 380" ' initial x -position shy[7] ="1= 180" ' initial y-position shape[7][1] = "func=line;x=0;y=0;x1=400;y1=200;x2=660;y2=525;angle=0;bc=darkslategray;pc=#oooooo;pw=2" ' Ladder P1 shape[7][2] = "func=line;x=0;y=0;x1=440;y1=200;x2=700;y2=525;angle=0;bc=darkslategray;pc=#oooooo;pw=2" ' Ladder P2 shape[7][3] = "func=line;x=0;y=0;x1=415;y1=220;x2=455;y2=220;angle=0;bc=darkslategray;pc=#oooooo;pw=2" ' Ladder Step 1 shape[7][4] = "func=line;x=0;y=0;x1=430;y1=240;x2=470;y2=240;angle=0;bc=darkslategray;pc=#oooooo;pw=2" ' Ladder Step 2 shape[7][5] = "func=line;x=0;y=0;x1=445;y1=260;x2=488;y2=260;angle=0;bc=darkslategray;pc=#oooooo;pw=2" ' Ladder Step 3 shape[7][6] = "func=line;x=0;y=0;x1=460;y1=280;x2=505;y2=280;angle=0;bc=darkslategray;pc=#oooooo;pw=2" ' Ladder Step 4 shape[7][7] = "func=line;x=0;y=0;x1=475;y1=300;x2=522;y2=300;angle=0;bc=darkslategray;pc=#oooooo;pw=2" ' Ladder Step 5 shape[7][8] = "func=line;x=0;y=0;x1=492;y1=320;x2=537;y2=320;angle=0;bc=darkslategray;pc=#oooooo;pw=2" ' Ladder Step 6 shape[7][9] = "func=line;x=0;y=0;x1=508;y1=340;x2=549;y2=340;angle=0;bc=darkslategray;pc=#oooooo;pw=2" ' Ladder Step 7 shape[7][10] = "func=line;x=0;y=0;x1=528;y1=360;x2=568;y2=360;angle=0;bc=darkslategray;pc=#oooooo;pw=2" ' Ladder Step 8 shape[7][11] = "func=line;x=0;y=0;x1=636;y1=500;x2=680;y2=500;angle=0;bc=darkslategray;pc=#oooooo;pw=2" ' Ladder Step L shape[7][12] = "func=line;x=0;y=0;x1=400;y1=200;x2=400;y2=530;angle=0;bc=mediumslateblue;pc=darkgray;pw=2"'<------------' Shadow1 P1 shape[7][13] = "func=line;x=0;y=0;x1=440;y1=200;x2=445;y2=500;angle=0;bc=mediumslateblue;pc=darkgray;pw=2"'<------------' Shadow1 P2 shape[7][14] = "func=line;x=0;y=0;x1=444;y1=500;x2=640;y2=500;angle=0;bc=darkslategray;pc=darkgray;pw=2" ' <------------' Shadow2 P1 shape[7][15] = "func=line;x=0;y=0;x1=400;y1=530;x2=660;y2=530;angle=0;bc=darkslategray;pc=darkgray;pw=2" ' <------------' Shadow2 P1 shape[7][16] = "func=line;x=0;y=0;x1=400;y1=220;x2=414;y2=220;angle=0;bc=darkslategray;pc=darkgray;pw=2" ' <------------' Shadow1 Step 1 shape[7][17] = "func=line;x=0;y=0;x1=400;y1=240;x2=430;y2=240;angle=0;bc=darkslategray;pc=darkgray;pw=2" ' <------------' Shadow1 Step 2 'shape[7][0] = "func=line;x=0;y=0;x1=400;y1=530;x2=444;y2=500;angle=0;bc=darkslategray;pc=darkgray;pw=2" ' <------------' Shadow Step M 'shape[7][0] = "func=line;x=0;y=0;x1=440;y1=530;x2=484;y2=500;angle=0;bc=darkslategray;pc=darkgray;pw=2" ' <------------' Shadow2 Step 1 shape[7][18] = "func=line;x=0;y=0;x1=530;y1=530;x2=530;y2=500;angle=0;bc=darkslategray;pc=darkgray;pw=2" ' <------------' Shadow2 Step 2 shape[7][19] = "func=line;x=0;y=0;x1=570;y1=530;x2=570;y2=500;angle=0;bc=darkslategray;pc=darkgray;pw=2" ' <------------' Shadow2 Step 3 shape[7][20] = "func=line;x=0;y=0;x1=604;y1=530;x2=604;y2=500;angle=0;bc=darkslategray;pc=darkgray;pw=2" ' <------------' Shadow2 Step 4 'shape[7][0] = "func=line;x=0;y=0;x1=640;y1=530;x2=640;y2=500;angle=0;bc=darkslategray;pc=darkgray;pw=2" ' <------------' Shadow2 Step 5 shape[7][21] = "func=line;x=0;y=0;x1=638;y1=530;x2=638;y2=502;angle=0;bc=darkslategray;pc=darkgray;pw=2" ' <------------' Shadow2 Step L shape[7][22] = "func=line;x=0;y=0;x1=545;y1=380;x2=585;y2=380;angle=0;bc=darkslategray;pc=#oooooo;pw=2" ' Ladder Step 9 shape[7][23] = "func=line;x=0;y=0;x1=560;y1=400;x2=600;y2=400;angle=0;bc=darkslategray;pc=#oooooo;pw=2" ' Ladder Step 10 shape[7][24] = "func=line;x=0;y=0;x1=575;y1=420;x2=615;y2=420;angle=0;bc=darkslategray;pc=#oooooo;pw=2" ' Ladder Step 11 shape[7][25] = "func=line;x=0;y=0;x1=590;y1=440;x2=630;y2=440;angle=0;bc=darkslategray;pc=#oooooo;pw=2" ' Ladder Step 12 shape[7][26] = "func=line;x=0;y=0;x1=605;y1=460;x2=645;y2=460;angle=0;bc=darkslategray;pc=#oooooo;pw=2" ' Ladder Step 13 shape[7][27] = "func=line;x=0;y=0;x1=622;y1=480;x2=660;y2=480;angle=0;bc=darkslategray;pc=#oooooo;pw=2" ' Ladder Step 14 shape[7][28] = "func=line;x=0;y=0;x1=400;y1=260;x2=445;y2=260;angle=0;bc=darkslategray;pc=darkgray;pw=2" ' <------------' Shadow1 Step 3 shape[7][29] = "func=line;x=0;y=0;x1=400;y1=280;x2=445;y2=280;angle=0;bc=darkslategray;pc=darkgray;pw=2" ' <------------' Shadow1 Step 4 shape[7][30] = "func=line;x=0;y=0;x1=400;y1=300;x2=445;y2=300;angle=0;bc=darkslategray;pc=darkgray;pw=2" ' <------------' Shadow1 Step 5 shape[7][31] = "func=line;x=0;y=0;x1=400;y1=320;x2=445;y2=320;angle=0;bc=darkslategray;pc=darkgray;pw=2" ' <------------' Shadow1 Step 6 shape[7][32] = "func=line;x=0;y=0;x1=400;y1=340;x2=445;y2=340;angle=0;bc=darkslategray;pc=silver;pw=2" ' <------------' Shadow1 Step 7 shape[7][33] = "func=line;x=0;y=0;x1=400;y1=360;x2=445;y2=360;angle=0;bc=darkslategray;pc=silver;pw=2" ' <------------' Shadow1 Step 8 shape[7][34] = "func=line;x=0;y=0;x1=400;y1=380;x2=445;y2=380;angle=0;bc=darkslategray;pc=silver;pw=2" ' <------------' Shadow1 Step 9 'shape[7][35] = "func=line;x=0;y=0;x1=400;y1=400;x2=445;y2=400;angle=0;bc=darkslategray;pc=silver;pw=2" ' <------------' Shadow1 Step 10 'shape[7][36] = "func=line;x=0;y=0;x1=400;y1=420;x2=445;y2=420;angle=0;bc=darkslategray;pc=silver;pw=2" ' <------------' Shadow1 Step 11 'shape[7][37] = "func=line;x=0;y=0;x1=400;y1=440;x2=445;y2=440;angle=0;bc=darkslategray;pc=silver;pw=2" ' <------------' Shadow1 Step 12 'shape[7][38] = "func=line;x=0;y=0;x1=400;y1=460;x2=445;y2=460;angle=0;bc=darkslategray;pc=silver;pw=2" ' <------------' Shadow1 Step 13 'shape[7][39] = "func=line;x=0;y=0;x1=400;y1=480;x2=445;y2=480;angle=0;bc=darkslategray;pc=silver;pw=2" ' <------------' Shadow1 Step 14 'shape[7][40] = "func=line;x=0;y=0;x1=400;y1=500;x2=445;y2=500;angle=0;bc=darkslategray;pc=silver;pw=2" ' <------------' Shadow1 Step 15 'Tree s[8]="1=0.7;2=0.7;3=0.7;4=0.7;" shX[8]="1=1040;2=1070;3=1100;4=1130" shY[8]="1=200;2=200;3=200;4=200" ' 5,6,13,14 shape[8]=shape[1] 'Apple s[9] ="1=0.2;2=0.2;3=0.2;4=0.2;5=0.2;6=0.2;7=.2;8=.2;" shX[9] ="1=1000;2=1030;3=1060;4=970;5=1000;6=1030;7=1060;8=1090" shY[9] ="1=270;2=270;3=270;4=300;5=300;6=300;7=300;8=300" shape[9]=shape[2] endsub End>TVG295.sb< Start>TVJ007.sb< '********************************** ' Roman numerals ' www.miskei.hu ' 2014. 10. 10. '********************************** a[0]=1000 a[1]=900 a[2]=500 a[3]=400 a[4]=100 a[5]=90 a[6]=50 a[7]=40 a[8]=10 a[9]=9 a[10]=5 a[11]=4 a[12]=1 r[0]="M" r[1]="CM" r[2]="D" r[3]="CD" r[4]="C" r[5]="XC" r[6]="L" r[7]="XL" r[8]="X" r[9]="IX" r[10]="V" r[11]="IV" r[12]="I" For sz=1 to 200 valt() TextWindow.Write(sz) TextWindow.Write(" = ") TextWindow.WriteLine(rn) EndFor '***************************************************************** Sub valt i=0 rn="" d=sz While (d<>0) While (d>=a[i]) d=d-a[i] rn=rn+r[i] EndWhile i=i+1 EndWhile EndSub End>TVJ007.sb< Start>TVJ820.sb< GraphicsWindow.top=0 GraphicsWindow.left=0 GraphicsWindow.Title = "S-W-A-T" GraphicsWindow.Width = "1288" GraphicsWindow.Height = "666" GraphicsWindow.BackgroundColor = "skyblue" '----------------- Draw Hill, Lake, Sun-------------------------------------------------------------------------------------------------------- ' Hill GraphicsWindow.brushColor = "tan" GraphicsWindow.fillEllipse(-88,505,620,288) GraphicsWindow.fillEllipse(211,388,622,366) GraphicsWindow.fillEllipse(211,388,1888,666) ' Lake GraphicsWindow.BrushColor = "SkyBlue" GraphicsWindow.PenColor = "LightSlateGray" SnowGlobe = Shapes.AddEllipse(600,200) Shapes.Move(SnowGlobe,666,420) ' Sun GraphicsWindow.BrushColor = "yellow" GraphicsWindow.fillEllipse(1100,10,150,150) GraphicsWindow.BrushColor = "darkslategray" GraphicsWindow.FillEllipse(1130,40,15,45) GraphicsWindow.FillEllipse(1190,40,15,45) GraphicsWindow.brushColor = "darkslategray GraphicsWindow.Fillrectangle(1130,110,80,10) ' Clouds GraphicsWindow.PenColor = "darkslategray" GraphicsWindow.PenWidth = 2 GraphicsWindow.DrawEllipse(80,40,100,100) GraphicsWindow.DrawEllipse(50,60,40,50) GraphicsWindow.DrawEllipse(60,16,70,50) GraphicsWindow.DrawEllipse(130,14,70,40) GraphicsWindow.DrawEllipse(150,50,80,50) GraphicsWindow.DrawEllipse(150,90,70,70) GraphicsWindow.DrawEllipse(70,100,95,70) GraphicsWindow.brushColor = "lightgray" GraphicsWindow.fillEllipse(80,40,100,100) GraphicsWindow.fillEllipse(50,60,40,50) GraphicsWindow.fillEllipse(60,16,70,50) GraphicsWindow.fillEllipse(130,14,70,40) GraphicsWindow.fillEllipse(150,50,80,50) GraphicsWindow.fillEllipse(150,90,70,70) GraphicsWindow.fillEllipse(70,100,95,70) '--------------------Font Animation ----------------------------------------------------------------------------------------- GraphicsWindow.FontName = "Times New Roman" GraphicsWindow.FontSize = 100 GraphicsWindow.FontItalic = "True" GraphicsWindow.BrushColor = "lightyellow" ' Text shadow color GraphicsWindow.DrawText(25, 545, "haroon rashid!") gold= GraphicsWindow.getcolorfromrgb(121,94,40) GraphicsWindow.BrushColor=gold GraphicsWindow.BrushColor = gold ' Text color GraphicsWindow.DrawText(20, 540, "haroon rashid!") MakeSprite() by=2 ' ball speed Y-direction '-------------------------Animation // Shapes-------------------------------------------------------- ' 1Tree Tree_init() shape=tree Name="Tree" add_shapes() ' 2House house_Init() shape=house Name="house" add_shapes() ' 3Apple aple_Init() shape=aple Name="aple" add_shapes() ' 4Ball balls_init() shape=ball Name="Ball" add_shapes() ' 5Duck Duck_Init() shape=duck Name="Duck" add_shapes() '----------------------Add // Shapes----------------------------------------------------------------- Sub add_shapes For M=1 To Array.GetItemCount(scale) ss=scale[M] SName=Name+"_"+M for i=1 To Array.GetItemCount(shape) GraphicsWindow.PenWidth = shape[i]["pw"] GraphicsWindow.BrushColor = shape[i]["bc"] GraphicsWindow.penColor = shape[i]["pc"] If shape[i]["func"]="ell" Then shp[SName][i] = Shapes.AddEllipse(shape[i]["width"]*ss, shape[i]["height"]*ss) ElseIf shape[i]["func"]="rect" Then shp[SName][i] = Shapes.AddRectangle(shape[i]["width"]*ss, shape[i]["height"]*ss) ElseIf shape[i]["func"]="tri" Then shp[SName][i] = Shapes.Addtriangle(shape[i]["x1"]*ss, shape[i]["y1"]*ss,shape[i]["x2"]*ss, shape[i]["y2"]*ss, shape[i]["x3"]*ss, shape[i]["y3"]*ss) ElseIf shape[i]["func"]="line" Then shp[SName][i] = Shapes.Addline(shape[i]["x1"]*ss, shape[i]["y1"]*ss,shape[i]["x2"]*ss, shape[i]["y2"]*ss) ElseIf shape[i]["func"]="txt" Then GraphicsWindow.FontSize=shape[i]["Size"] shp[SName][i] = Shapes.Addtext(shape[i]["Letter"]) EndIf Shapes.Animate(shp[SName][i], shape[i]["x"]*ss+shX[M], shape[i]["y"]*ss+shY[M], 500) Shapes.Rotate(shp[SName][i], Shape[i]["angle"]) EndFor EndFor EndSub '-----------------------------------------Animation // 1 (Cannon) 2 (Ball )--------------------------------------------------- GraphicsWindow.BrushColor = "slateblue" GraphicsWindow.penColor = "slateblue" cannon1_x = 644 cannon1_y = 566 sprite1_x = 0 sprite1_y = 20 cannon = Shapes.AddRectangle(50,100) Shapes.Move(cannon, cannon1_x, cannon1_y) GraphicsWindow.BrushColor="darkslategray" GraphicsWindow.penColor="darkslategray" Ball=Shapes.AddEllipse(40,40) Shapes.Move(Ball,cannon1_x+5,cannon1_y+30) Shapes.HideShape(Ball) Timer.interval=500 Timer.tick=OnTimerTick '-----------------------------------------------Animation---------------------------------------------------- GraphicsWindow.KeyDown = OnKeyDown While "True" '<------------ TrainMove="True" '<------------ While TrainMove '<------------ For i=1 To 13 Shapes.Move(ell[i],Shapes.GetLeft(ell[i])+ddx,shapes.GetTop(ell[i])+ddy) Shapes.Move(rec[i],Shapes.GetLeft(rec[i])+ddx,shapes.GetTop(rec[i])+ddy) Shapes.Move(Tri[i],Shapes.GetLeft(Tri[i])+ddx,shapes.GetTop(Tri[i])+ddy) EndFor If Shapes.GetLeft(ell[1])<-200 Then moveright() EndIf If Shapes.GetLeft(ell[1])>1200 then 'WhT ddx=-ddx 'WhT EndIf 'WhT If shoot Then '<------------ TX= Shapes.GetLeft(Tri[4])+230 '<------------ TY= Shapes.Gettop(Tri[4])+385 '<------------ If bY<-100 then '<------------ shoot="False"'<------------ EndIf '<------- Hit="True" '<------------ TrainMove="False" '<------------ EndIf '<------------ Program.Delay(20) endwhile Program.Delay(1500) '<------------ endwhile Sub moveright el1y=shapes.GetTop(rec[9]) '<--------- ddy= Math.GetRandomNumber(Math.Abs(300-el1y))-el1y ddx=-ddx 'WhT For i=1 To 13 Shapes.Move(ell[i],Shapes.GetLeft(ell[i])+ddx,shapes.GetTop(ell[i])+ddy) 'WhT changed 1200 to ddx Shapes.Move(rec[i],Shapes.GetLeft(rec[i])+ddx,shapes.GetTop(rec[i])+ddy) 'WhT changed 1200 to ddx Shapes.Move(Tri[i],Shapes.GetLeft(Tri[i])+ddx,shapes.GetTop(Tri[i])+ddy) 'haroon rashid changed 1200 to ddx EndFor 'ddy=0 EndSub Sub OnTimerTick Timer.Pause() Shapes.HideShape(Ball) Shapes.Move(Ball,cannon1_x+5,cannon1_y+30) EndSub '-------------------------------------Data // Sprite----------------------------------------------------------- Sub MakeSprite ' 7 Rectangle GraphicsWindow.BrushColor="green" rec[1] = Shapes.AddRectangle(50,8) '<-- Shapes.Move(rec[1], 440,115) rec[2] = Shapes.AddRectangle(50,8) '<-- Shapes.Move(rec[2], 440,140) GraphicsWindow.brushcolor = "sienna" rec[3] = Shapes.AddRectangle(60,6) '<-- Shapes.Move(rec[3], 355,120) rec[4] = Shapes.AddRectangle(60,6) '<-- Shapes.Move(rec[4], 355,138) GraphicsWindow.brushcolor = "darkgoldenrod" rec[5] = Shapes.AddRectangle(100,22) '<-- Shapes.Move(rec[5], 400,120) ' 7 Ellipses GraphicsWindow.BrushColor="bisque" ell[1] = Shapes.AddEllipse(30,20) Shapes.Move(ell[1], 520,90) ell[2] = Shapes.AddEllipse(30,20) Shapes.Move(ell[2], 520,150) GraphicsWindow.BrushColor="purple" ell[3] = Shapes.AddEllipse(70,70) Shapes.Move(ell[3], 500,95) GraphicsWindow.BrushColor="sienna" ell[4] = Shapes.AddEllipse(30,10) Shapes.Move(ell[4], 520,120) GraphicsWindow.BrushColor="pink" ell[5] = Shapes.AddEllipse(10,30) Shapes.Move(ell[5], 510,115) GraphicsWindow.BrushColor="cyan" ell[6] = Shapes.AddEllipse(30,20) Shapes.Move(ell[6], 530,102) ell[7] = Shapes.AddEllipse(30,20) Shapes.Move(ell[7], 530,128) ' 1 triangles GraphicsWindow.BrushColor="gold" tri[1] = Shapes.Addtriangle(566,100,611,130,566,160) Shapes.Move(tri[1], 0,0) chrome=GraphicsWindow.getcolorfromrgb(215,219,213) GraphicsWindow.brushcolor=chrome tri[3] = Shapes.Addtriangle(585,405,585,420,450,390) Shapes.Move(tri[3], 0,0) GraphicsWindow.BrushColor="#000000" tri[4] = Shapes.Addtriangle(350,445,230,445,350,385) Shapes.Move(tri[4], 0,0) ' piston cylinder GraphicsWindow.brushcolor=chrome rec[12] = Shapes.Addrectangle(150,20) Shapes.Move(rec[12], 585,405) rec[13] = Shapes.Addrectangle(90,30) Shapes.Move(rec[13], 360,380) EndSub '-----------------------------------Data//Shapes------------------------------------------------------ Sub aple_init scale ="1=0.2;2=0.2;3=0.2;4=0.2;5=0.2;6=0.2;7=0.2;8=0.2" shX ="1=-20;2=80;3=666;4=888;5=777;6=922;7=155;8=144" shY ="1=340;2=330;3=250;4=240;5=320;6=360;7=340;8=420" aple[1] = "func=rect;x=626;y=110;width=20;height=60;angle=0;bc=green;pw=0;" aple[2] = "func=ell;x=511;y=148;width=150;height=150;bc=crimson;pw=0;" aple[3] = "func=ell;x=603;y=148;width=150;height=150;bc=crimson;pw=0;" aple[4] = "func=ell;x=594;y=188;width=40;height=40;bc=snow;pw=0;" aple[5] = "func=ell;x=633;y=188;width=40;height=40;bc=snow;pw=0;" aple[6] = "func=ell;x=614;y=196;width=15;height=15;bc=darkslategray;pw=0;" aple[7] = "func=ell;x=635;y=196;width=15;height=15;angle=7;bc=darkslategray;pw=0;" aple[8] = "func=rect;x=600;y=250;width=80;height=20;angle=-5;bc=purple;pw=0;" endsub Sub house_init scale = "1=0.5" shX = "1=25" shY = "1=40" house[1] = "func=rect;x=800;y=280;width=210;height=30;bc=gray;pc=darkslategray;pw=1"'Rec A4 house[2] = "func=rect;x=777;y=310;width=258;height=30;bc=silver;pc=darkslategray;pw=1"'Rec A3 house[3] = "func=rect;x=755;y=340;width=277;height=30;bc=gray;pc=darkslategray;pw=2"'Rec A2 house[4] = "func=rect;x=766;y=370;width=272;height=30;bc=silver;pc=darkslategray;pw=2"'Rec A1 house[5] = "func=tri;x=480;y=340;x1=222;y1=60;x2=262;y2=8;x3=320;y3=60;bc=silver;pc=darkslategray;pw=2"'Tri A1 house[6] = "func=tri;x=480;y=320;x1=244;y1=50;x2=280;y2=6;x3=320;y3=50;bc=gray;pc=darkslategray;pw=2"'Tri A2 house[7] = "func=tri;x=480;y=300;x1=267;y1=40;x2=298;y2=4;x3=320;y3=40;bc=silver;pc=darkslategray;pw=2"'Tri A3 house[8] = "func=tri;x=480;y=280;x1=292;y1=30;x2=320;y2=2;x3=320;y3=30;bc=gray;pc=darkslategray;pw=2"'Tri A4 house[9] = "func=tri;x=480;y=340;x1=530;y1=60;x2=585;y2=8;x3=636;y3=60;bc=silver;pc=darkslategray;pw=2"'Tri A1 house[10] = "func=tri;x=480;y=320;x1=530;y1=50;x2=566;y2=6;x3=608;y3=50;bc=gray;pc=darkslategray;pw=2"'Tri A2 house[11] = "func=tri;x=480;y=300;x1=530;y1=40;x2=548;y2=4;x3=580;y3=40;bc=silver;pc=darkslategray;pw=2"'Tri A3 house[12] = "func=tri;x=480;y=280;x1=530;y1=30;x2=530;y2=2;x3=555;y3=30;bc=gray;pc=darkslategray;pw=2"'Tri A4 house[13] = "func=rect;x=743;y=397;width=333;height=333;bc=snow;pc=darkslategray;pw=2"'Body Structpw=2ure house[14] = "func=rect;x=766;y=608;width=100;height=122;bc=saddlebrown;pc=darkslategray;pw=2"'DoorA house[15] = "func=ell;x=766;y=573;width=100;height=80;bc=saddlebrown;pw=2"'pc=saddlebrown;"'DoorB house[16] ="func=ell;x=788;y=684;width=10;height=10;bc=yellow;pc=darcksategray;pw=2"'DoorC house[17] ="func=rect;x=944;y=480;width=100;height=122;bc=saddlebrown;darkslategray;pw=2"'WindowA house[18] ="func=ell;x=944;y=428;width=100;height=122;bc=saddlebrown;darkslategray;pw=2"'WindowB house[19] = "func=rect;x=955;y=473;width=80;height=111;bc=skyblue;pc=darkslategray;pw=2"'windowC house[20] = "func=ell;x=955;y=442;width=80;height=88;bc=skyblue;pc=darkslategray;pw=2"'windowD house[21] ="func=line;x=877;y=451;x1=80;y1=30;x2=155;y2=30;bc=dodgerblue;pc=darkslategray;pw=2"'Widow Grill 1 house[22] ="func=line;x=8977;y=451;x1=80;y1=60;x2=155;y2=60;bc=dodgerblue;pc=darkslategray;pw=2"'Widow Grill 2 house[23] ="func=line;x=877;y=451;x1=80;y1=90;x2=155;y2=90;bc=dodgerblue;pc=darkslategray;pw=2"'Widow Grill 3 house[24] ="func=line;x=900;y=395;x1=95;y1=44;x2=95;y2=188;bc=dodgerblue;pc=darkslategray;pw=2"'Window Grill 4 house[25] ="func=rect;x=922;y=242;width=80;height=100;bc=crimson;pc=darkslategray;pw=2"'Chimny 1 house[26] ="func=rect;x=911;y=241;width=100;height=20;bc=firebrick;pc=darkslategray;pw=2"'Chimny 2 endsub Sub balls_init scale ="1=0.4;2=0.4;3=0.3;4=0.2" shX ="1=844;2=888;3=800;4=777" shY ="1=50;2=60;3=60;4=40" ball[1] = "func=ell;x=99;y=0;width=56;height=24;bc=#DFCA54;pc=#000000;pw=2;" ' Head ball[2] = "func=ell;x=129;y=6;width=15;height=6;bc=#DF3954;pc=#000000;pw=2;" ' Eye ball[3] = "func=ell;x=105;y=12;width=16;height=36;angle=45;bc=#00CA54;pc=#000000;pw=2;" ' Neck ball[4] = "func=tri;x=50;y=5;x1=21;y1=0;x2=0;y2=57;x3=29;y3=57;bc=#DFCA54;pc=#000000;pw=2;" 'Wing ball[5] = "func=ell;x=1;y=38;width=108;height=31;bc=#DFCA54;pc=#000000;pw=2;" ' Body ball[6] = "func=tri;x=37;y=0;x1=7;y1=0;x2=0;y2=57;x3=29;y3=57;bc=#DF8754;pc=#000000;pw=2;" 'Wing ball[7] = "func=ell;x=144;y=15;width=29;height=9;angle=13;bc=#DF8754;pc=#000000;pw=2;" 'Mouth ball[8] = "func=line;x=8;y=60;x1=0;y1=8;x2=49;y2=7;pc=#DF3954;pw=2;" ball[9] = "func=line;x=0;y=70;x1=9;y1=0;x2=0;y2=10;pc=#DF3954;pw=2;" EndSub Sub Tree_init ' Tree Data scale ="1=.8;2=.8;3=.8;4=.8;5=.8;6=.8;7=.8;8=.8;9=0.8" shX ="1=10;2=100;3=200;4=700;5=800;6=900;7=1000;8=1100;9=133" shY ="1=188;2=177;3=166;4=110;5=100;6=100;7=100;8=110;9=210" tree[1]="func=ell;X=0;Y=188;width=200;height=140;bc=Green;pc=Green;pw=0" ' PW=0 then pc no meaning tree[2]="func=ell;X=10;Y=277;width=80;height=60;bc=Green;pc=Green;pw=0" ' PW=0 then pc no meaning" tree[3]="func=ell;X=4;Y=255;width=80;height=70;bc=Green;pc=Green;pw=0" ' PW=0 then pc no meaning tree[4]="func=ell;X=0;Y=191;width=80;height=80;bc=Green;pc=Green;pw=0" ' PW=0 then pc no meaning tree[5]="func=ell;X=40;Y=177;width=80;height=80;bc=Green;pc=Green;pw=0" ' PW=0 then pc no meaning tree[6]="func=ell;X=100;Y=177;width=120;height=80;bc=Green;pc=Green;pw=0" ' PW=0 then pc no meaning tree[7]="func=ell;X=130;Y=240;width=100;height=80;bc=Green;pc=Green;pw=0" ' PW=0 then pc no meaning tree[8]="func=ell;X=130;Y=260;width=100;height=80;bc=Green;pc=Green;pw=0" ' PW=0 then pc no meaning tree[9]="func=rect;X=80;Y=322;width=60;height=100;bc=saddlebrown;pc=darkslatgray;pw=0" ' PW=0 then pc no meaning tree[10]="func=tri;X1=140;Y1=262;X2=110;Y2=322;X3=140;Y3=322;bc=saddlebrown;pc=darkslatgray;pw=0" ' PW=0 then pc no meaning tree[11]="func=tri;X1=140;Y1=262;X2=170;Y2=262;X3=140;Y3=322;bc=saddlebrown;pc=darkslatgray;pw=0" ' PW=0 then pc no meaning tree[12]="func=tri;X1=50;Y1=262;X2=96;Y2=262;X3=80;Y3=322;bc=saddlebrown;pc=darkslatgray;pw=0" ' PW=0 then pc no meaning tree[13]="func=tri;X1=96;Y1=262;X2=80;Y2=322;X3=126;Y3=322;bc=saddlebrown;pc=darkslatgray;pw=0" ' PW=0 then pc no meaning endsub Sub Duck_Init ' Duck scale ="1=0.3;2=0.25;3=0.2;4=0.15" shX ="1=922;2=900;3=888;4=844" shY ="1=500;2=500;3=500;4=500" duck[1] = "func=tri;x=153;y=41;x1=47;y1=0;x2=0;y2=22;x3=95;y3=22;bc=red;pw=0" ';beck" duck[2] = "func=ell;x=118;y=0;width=91;height=73;bc=blue;pw=0;" duck[3] = "func=line;x=172;y=36;x1=0;y1=0;x2=22;y2=0;pc=red;pw=2" ' ;blink" duck[4] = "func=ell;x=172;y=25;width=22;height=22;bc=pink;pw=0" ' ;eye" duck[5] = "func=tri;x=132;y=58;x1=31;y1=0;x2=0;y2=45;x3=62;y3=45;bc=red;pw=0" ' ;neck" duck[6] = "func=tri;x=0;y=80;x1=37;y1=0;x2=0;y2=32;x3=75;y3=32;angle=178;bc=red;pw=0" ' ;tail" duck[7] = "func=line;x=91;y=134;x1=0;y1=0;x2=0;y2=36;pc=red;pw=8" ' ;Leg1" duck[8] = "func=ell;x=33;y=72;width=164;height=82;bc=yellow;pw=0" ' ;body" duck[9] = "func=tri;x=58;y=180;x1=46;y1=0;x2=0;y2=14;x3=93;y3=14;bc=red;pw=0" ';Leg3" duck[10] = "func=line;x=90;y=169;x1=0;y1=0;x2=14;y2=15;pc=yellow;pw=8" ' ;Leg2" EndSub ' Keys S, W, A, T, X,Z,F , SpaceBar works Sub OnKeyDown key= GraphicsWindow.LastKey If key="S" Then ddx=4 ElseIf Key="W"then ddx=-4 ElseIf Key="A"then ddy=4 ElseIf key="T"Then ddy=-4 ElseIf key="Space" Then ddx=0 'WhT ddy=0 EndIf If Key = "X" Then Shapes.Rotate(cannon,angle+5) angle=angle+5 ElseIf Key = "Z" Then Shapes.Rotate(cannon,angle-5) angle=angle-5 ElseIf Key="F" then Shapes.Animate(ball,GraphicsWindow.width/2,sprite1_y-60,600) Shapes.ShowShape(Ball) Timer.Resume() EndIf EndSub End>TVJ820.sb< Start>TVM515.sb< LDControls.TreeViewItemChanged = OnTreeViewItemChanged RootDir = "E:\0000 Small Basic" 'path of my small basic programs Apendix = ".exe" 'all program with apendix exe T = "True" F = "False" SDir = "DirStack" 'Stackname GraphicsWindow.Show() GraphicsWindow.Width = Desktop.Width GraphicsWindow.Height = Desktop.Height - 80 GraphicsWindow.Top = 1 GraphicsWindow.Left = 1 Main() Sub Main Stack.PushValue(SDir, RootDir) While Stack.GetCount(SDir) > 0 SearchDir() EndWhile TC[1] = LDControls.AddTreeView(tree, GraphicsWindow.Width - 20, GraphicsWindow.Height - 20) Controls.HideControl(TC[1]) Controls.Move(TC[1], 10, 10) LDControls.TreeViewExpand(TC[1], 1, T, T) Controls.ShowControl(TC[1]) While T = "True" If OTVIC = T Then OTVIC = F LDProcess.Start(AAF[LDControls.LastTreeViewIndex - 1], "") EndIf EndWhile EndSub Sub SearchDir Dir = Stack.PopValue(SDir) 'Save = Dir 'SaveIt() ' The following line could be harmful and has been automatically commented. ' AD = File.GetDirectories(Dir) For i = 1 To Array.GetItemCount(AD) Stack.PushValue(SDir, AD[i]) EndFor AD = "" SearchFile() EndSub 'SearchDir Sub SearchFile ' The following line could be harmful and has been automatically commented. ' AF = File.GetFiles(Dir) For i = 1 To Array.GetItemCount(AF) If Text.EndsWith(AF[i], Apendix) Then Save = AF[i] SaveIt() EndIf EndFor AF = "" EndSub 'SearchFile Sub SaveIt j = j + 1 AAF[j] = Save If j = 1 Then tree[j][0] = "All Files" EndIf tree[j+1][1] = Save EndSub 'SaveIt Sub OnTreeViewItemChanged OTVIC = T EndSub 'OnTreeViewItemChanged End>TVM515.sb< Start>TVN530.sb< rrr: GraphicsWindow.Width =1500 GraphicsWindow.Height=600 GraphicsWindow.BackgroundColor ="teal GraphicsWindow.BrushColor ="lime GraphicsWindow.Clear () GraphicsWindow.Title ="Delivery system LDPhysics.Reset () GraphicsWindow.Left=10 GraphicsWindow.Top=10 ss10=Shapes.AddRectangle (600 20) ss1=Shapes.AddRectangle (600 20) ss11=Shapes.AddRectangle (600 20) ss12=Shapes.AddRectangle (30 30) dd=250 LDPhysics.AddFixedShape (ss12 .01 1) LDPhysics.SetPosition (ss12 800+dd 270, -9) LDPhysics.AddFixedShape (ss1 .01 0) LDPhysics.SetPosition (ss1 200 200 6) LDPhysics.AddFixedShape (ss11 .01 0) LDPhysics.SetPosition (ss11 500+dd 330, -9) LDPhysics.AddFixedShape (ss10 .01 0) LDPhysics.SetPosition (ss10 200 580 6) LDPhysics.SetGravity (0 60) For f=1 To 2 GraphicsWindow.BrushColor ="red ss[f]=Shapes.AddRectangle (100 20) GraphicsWindow.BrushColor ="gray ee[f]= Shapes.AddEllipse (30 30) ee1[f]= Shapes.AddEllipse (30 30) Shapes.Move (ee1[f] 80 10) Shapes.Move (ee[f] 10 10) LDPhysics.AddMovingShape (ss[f] 1 0 .1) LDPhysics.AddMovingShape(ee[f] 0.1 0 2) LDPhysics.AttachShapesWithRotation ( ee[f] ss[f]) LDPhysics.AddMovingShape(ee1[f] 0.1 0 .1) LDPhysics.AttachShapesWithRotation ( ee1[f] ss[f]) LDPhysics.SetPosition (ss[f] 10+f*110 100 45) LDPhysics.DoTimestep () For x=1 To 190 LDPhysics.DoTimestep () program.Delay (15) EndFor endfor LDPhysics.AddChain (ss[1] ss[2]) GraphicsWindow.BrushColor ="yellow sz=math.GetRandomNumber (10)*2.5+30 rr=Shapes.AddRectangle (sz sz) LDPhysics.AddMovingShape (rr 1 0 2) LDPhysics.SetPosition (rr 300 5 0) LDPhysics.SetVelocity (ss 500 20) While "true LDPhysics.DoTimestep () program.Delay (15) pp= LDPhysics.GetPosition (rr) 'GraphicsWindow.Title =pp If pp[2]>500 And pp[1]>465 Then' GraphicsWindow.ShowMessage ("Delivery done!" "") Goto rrr endif EndWhile End>TVN530.sb< Start>TVP565-0.sb< 'program DebugProgram-function2.sb Debug="True" 'to set to false if you don't want the textwindow.write.line commands args = "" ' The following line could be harmful and has been automatically commented. ' DebugFile="debugFile.txt" ' The following line could be harmful and has been automatically commented. ' File.DeleteFile(DebugFile) ' The following line could be harmful and has been automatically commented. ' File.AppendContents(DebugFile,"DebugFile : "+Clock.date+" = "+Clock.time) ' The following line could be harmful and has been automatically commented. ' File.AppendContents(DebugFile,"=================================") LDCall.Function2("DebugFunc","Hello Small basic I have a problem","White") LDCall.Function2("DebugFunc","We will test the version !!!","Yellow") for x=1 to 15 if x=13 then LDCall.Function("DebugFunc"," ") LDCall.Function2("DebugFunc","You are in trouble with version ="+x+"=!","Red") LDCall.Function("DebugFunc"," ") endif endfor TextWindow.ForegroundColor="White" ' The following line could be harmful and has been automatically commented. ' textwindow.writeline(file.ReadContents("debugFile.txt")) 'END PROGRAM 'Function subroutine Sub DebugFunc if debug then TextWindow.ForegroundColor=(args[2]) TextWindow.WriteLine(args[1]) endif ' The following line could be harmful and has been automatically commented. ' File.AppendContents(DebugFile,args[1]) EndSub End>TVP565-0.sb< Start>TVS217.sb< ' program by Yled ' Small basic forum, February 8th 2017 ' simple collision GraphicsWindow.top= 0 GraphicsWindow.left= 0 GraphicsWindow.Height = 600 GraphicsWindow.Width = 1200 GraphicsWindow.fontsize=50 GraphicsWindow.BackgroundColor="#000044" GraphicsWindow.pencolor="#eeeeee" GraphicsWindow.DrawLine(1,270,1200,270) GraphicsWindow.brushcolor="magenta" ball1=Shapes.AddRectangle(20,20) GraphicsWindow.brushcolor="#eeeeee" text1=shapes.AddText("") GraphicsWindow.brushcolor="yellow" ball2=Shapes.AddRectangle(40,40) GraphicsWindow.brushcolor="#eeeeee" text2=shapes.AddText("") pos1=100 pos2=900 contact=(pos2-pos1)/2 Shapes.Move (ball1,pos1,250) shapes.Move (text1,100,100) Shapes.Move (ball2,pos2,230) shapes.Move (text2,900,100) forward() Sub forward Sound.PlayMusic ("O7C4") ' metal sound For t = 1 To 1000 x0=x0+1 x1=x1+1 If x0=contact Then reverse() EndIf Shapes.move (ball1,pos1+x0,250) shapes.SetText(text1,x0) Shapes.move (ball2,pos2-x1,230) shapes.SetText(text2,x1) Program.Delay(20) EndFor EndSub Sub reverse Sound.PlayMusic ("O2C4") ' metal sound For t = 1 To 1000 x0=x0-1 x1=x1-1 If x0=0 Then forward() EndIf Shapes.move (ball1,pos1+x0,250) shapes.SetText(text1,x0) Shapes.move (ball2,pos2-x1,230) shapes.SetText(text2,x1) Program.Delay(20) EndFor EndSub End>TVS217.sb< Start>TVS225.sb< m=2 ' Initial Dice Number Init_Data() Init_View() HowManyDice() 'Input dice number Init_Data() Init_View() Dice_Total() Last_MSG() Program.Delay(1000) print_graph() 'this code needs Data Extension and SB ver0.95 Sub Dice_Total For J=1 To SFN ' SFN= Shoot Frequency number total=0 For i=1 To m ' Get Random Dice Number Dice[i]=math.GetRandomNumber(Max_DNo) Total=Total+ Dice[i] Endfor Dice_Number() 'displays dice number Count[Total]=Count[Total]+1 Bar_Graph() 'displays bar chart If Max_Count <=Count[Total] Then Max_Count=Count[Total] Max_Total=Total 'Total number at max count Endif EndFor EndSub Sub Dice_Number 'displays dice numbers Shapes.Remove(SDice) For i=1 To m msg=text.Append(msg+" ",Dice[i]) EndFor GraphicsWindow.FontSize=25 SDice=shapes.AddText("Dice = "+msg+" : "+J+"shoots") Shapes.move(sDice,XS+5,YS) msg="" EndSub Sub Bar_Graph 'Bar chart For k=Min_X To Max_X Y=YGP*Count[k]/(Max_Y/10) GraphicsWindow.BrushColor="Navy" GraphicsWindow.FillRectangle(XS+XGP/5+XGP*(k-2),GPY+YS-Y,XGP/2,Y) EndFor EndSub Sub Last_MSG 'Calculated results GraphicsWindow.BrushColor="Red" GraphicsWindow.FontSize=25 Title=shapes.AddText("Max Counts= "+Max_Count+" at Dice Total= "+Max_Total) Shapes.Move(Title,Math.GetRandomNumber(GPW),Min_Y) Shapes.Animate(Title,XS+5,YS+GPY/8,LT) EndSub Sub Init_Data Max_DNo= 6 'Dice max No LT= 800 'Lag time SFN= 1000*m/2 ' Shoot Frequency number Max_X= 6*m 'Dice Total max No Min_X= 2 'Dice Total min No GPW= 1050 'GraphicWindow Width GPH= 500 'GraphicWindow Hight GPY= 400 'Graph Hight XGP= 160/m 'X-Graph pitch YGP= GPY/10 'Y-Graph pitch XS= 60 'X-axis start point YS= 20 'Y-axis start point XTS= 30 'X-text start point GLS= 5 'Dotted Line pitch Max_Y = 400 'Total Counts max No Min_Y = 0 'Total Counts min No Ystp=(Max_Y-Min_Y)/10 'Yaxis step Endsub Sub Init_View GraphicsWindow.BackgroundColor="White" GraphicsWindow.top=0 GraphicsWindow.Left=0 GraphicsWindow.Width=GPW GraphicsWindow.Height=GPH For L=Min_Y To Max_Y Step Ystp 'Y---Axis GraphicsWindow.PenWidth=1 GraphicsWindow.PenColor="green" For Lb=Min_X-1 To XGP*(Max_X-Min_X+1) Step GLS 'Dot line GraphicsWindow.DrawLine(XS+Lb,YS+YGP*L/Ystp,XS+Lb+2,YS+YGP*L/Ystp) EndFor dumy=text.Append(" ",L) PT=text.GetSubText(dumy,text.GetLength(dumy)-2,4) GraphicsWindow.FontSize=15 GraphicsWindow.DrawText(xts/1.5,YS/2+YGP*(Max_Y-L)/Ystp,PT) EndFor GraphicsWindow.DrawText(XS,0,"Counts") For k=Min_X To Max_X ' X---Axis GraphicsWindow.PenColor="green" GraphicsWindow.PenWidth=2 For KB=Min_Y To GPY Step GLS 'Dot line GraphicsWindow.DrawLine(XS+XGP*(k-1),YS+KB,XS+XGP*(k-1),YS+KB+2) Endfor GraphicsWindow.FontSize=90/m GraphicsWindow.FontName="Coorie new" GraphicsWindow.DrawText(XS+XGP*(k-2),GPY+YS+5,k) endfor GraphicsWindow.PenColor="Red" GraphicsWindow.PenWidth=4 GraphicsWindow.DrawRectangle(XS,YS,XGP*(Max_X - Min_X+1),GPY) GraphicsWindow.FontSize=30 XTitle=shapes.AddText("Dice Total ") Shapes.Move(XTitle,Math.GetRandomNumber(GPW),Min_Y) Shapes.Animate(XTitle,XGP+GPW/3,GPY+(GPH-GPY)/1.5,LT/2) endsub Sub HowManyDice Loop: GraphicsWindow.FontSize=15 BoxA=Controls.AddTextBox (150, 30) msg="How many Dice ? " dnl0=text.GetLength(msg) Controls.SetTextBoxText(BoxA,msg ) subloop: DiceNumber=Controls.GetTextBoxText(BoxA) dnl1=text.GetLength(DiceNumber) If dnl1>dnl0 Then Goto end1 EndIf Goto subloop end1: m=text.GetSubTextToEnd(DiceNumber,dnl1) 'Dice Number If 10 THEN ' The following line could be harmful and has been automatically commented. ' FILE.DeleteFile("PrintFile.bat") ' Delete a Bat file EndIf ' Graph image print soft ........ example ; I_View32.exe(IrfanView) mspaint.exe(/ windows/system32 ) ' ms_print=Text.Append("I_View32.exe " , G_file )+" /print" ms_print=Text.Append("mspaint.exe /p ",G_file ) ' Graph printing by mspaint.exe ' The following line could be harmful and has been automatically commented. ' File.AppendContents("PrintFile.bat",ms_print) 'Make a new bat file ' The following line could be harmful and has been automatically commented. ' CMD.RunCMDorBatFile("PrintFile.bat") 'Execute bat file EndSub End>TVS225.sb< Start>TVT958.sb< ShowFirstScreen() Sub ShowFirstScreen Controls.ButtonClicked=OnButtonClicked GraphicsWindow.DrawText(0,150,"I. this is the first screen") next_button=controls.AddButton("NEXT",300,230) endsub Sub OnButtonClicked If Controls.LastClickedButton=next_button Then ShowSecondScreen() endif EndSub sub ShowSecondScreen GraphicsWindow.BackgroundColor = "yellow" GraphicsWindow.DrawText(50,150,"II. this is the second screen... wait 1000ms") Program.Delay(1000) ShowThirdScreen() endsub Sub ShowThirdScreen GraphicsWindow.Clear() GraphicsWindow.BackgroundColor="black" GraphicsWindow.DrawText(50,150,"III. this is the third screen") endsub End>TVT958.sb< Start>TVV010.sb< 'Variables CurrentFontName = "Microsoft Sans Serif" CurrentFontSize = 13 CurrentFontBold = "False" CurrentFontItalic = "False" CurrentFontColor = "Black" CurrentMenu = "" PrevFDFontName = "" PrevFDFontSize = "" PrevFDFontBold = "" PrevFDFontItalic = "" PrevFDFontColor = "" UserWantsFontSettingsRestored = "No" FurtherFontNamesHidden = "Yes" SecondScreenAdded = "No" ImageAdded = "No" PreviousTop = "" ChangesAffect = "TF1" 'Images ImgFontLogo = "C:\Users\Θανάσης\Documents\Small Basic\Images\Notebook\FontIcon.png" ' The following line could be harmful and has been automatically commented. ' ImgTMNewFile = "C:\Users\Θανάσης\Documents\Small Basic\Images\Notebook\NewFile.png" ' The following line could be harmful and has been automatically commented. ' ImgTMOpenFile = "C:\Users\Θανάσης\Documents\Small Basic\Images\Notebook\OpenFile.png" ' The following line could be harmful and has been automatically commented. ' ImgTMSaveFile = "C:\Users\Θανάσης\Documents\Small Basic\Images\Notebook\SaveFile.png" ImgTMFontSize = "C:\Users\Θανάσης\Documents\Small Basic\Images\Notebook\FontSize.png" ImgTMSecondScreen = "C:\Users\Θανάσης\Documents\Small Basic\Images\Notebook\SecondScreen.png" ImgDMInfoIcon = "C:\Users\Θανάσης\Documents\Small Basic\Images\Notebook\InfoIcon.png" ImgCopyPaste = "C:\Users\Θανάσης\Documents\Small Basic\Images\Notebook\CopyPaste.png" ImgTMAddImage = "C:\Users\Θανάσης\Documents\Small Basic\Images\Notebook\AddImage.png" ImgTMGear = "C:\Users\Θανάσης\Documents\Small Basic\Images\Notebook\Gear.png" 'Colors GrayControl = GraphicsWindow.GetColorFromRGB(240, 240, 240) GrayControlShadow = GraphicsWindow.GetColorFromRGB(160, 160, 160) 'Window GraphicsWindow.Hide() GraphicsWindow.Title = "Notebook" GraphicsWindow.Width = 1000 GraphicsWindow.Height = 600 GraphicsWindow.Top = 2500 GraphicsWindow.Left = 1500 GraphicsWindow.CanResize = "False" GraphicsWindow.BackgroundColor = GraphicsWindow.GetColorFromRGB(200, 200, 200) GraphicsWindow.Show() 'Main SetupProgram() GraphicsWindow.Top = (Desktop.Height - 670) / 2 GraphicsWindow.Left = (Desktop.Width - 1000) / 2 'SUBROUTINES '*************** 'SetupProgram Sub SetupProgram GraphicsWindow.Hide() AddTopMenu() HideTopMenu() AddScreen() HideScreen() AddNewFileDialog() HideNewFileDialog() AddOpenFileDialog() HideOpenFileDialog() AddSaveFileDialog() HideSaveFileDialog() AddFontDialog() HideFontDialog() AddCopyPasteDialog() HideCopyPasteDialog() AddSettingsDialog() HideSettingsDialog() ShowTopMenu() Shapes.ShowShape(Screen) GraphicsWindow.Show() EndSub 'AddTopMenu Sub AddTopMenu GraphicsWindow.BrushColor = GrayControl GraphicsWindow.PenWidth = 1 GraphicsWindow.PenColor = GrayControlShadow TMBackRec = Shapes.AddRectangle(GraphicsWindow.Width - 10, 35) Shapes.Move(TMBackRec, 5, 5) TMSeperator8 = Shapes.AddRectangle(39, 35) Shapes.Move(TMSeperator8, 233, 5) TMSeperator7 = Shapes.AddRectangle(229, 35) Shapes.Move(TMSeperator7, 5, 5) TMSeperator5 = Shapes.AddRectangle(191, 35) Shapes.Move(TMSeperator5, 5, 5) TMSeperator4 = Shapes.AddRectangle(153, 35) Shapes.Move(TMSeperator4, 5, 5) TMSeperator3 = Shapes.AddRectangle(115, 35) Shapes.Move(TMSeperator3, 5, 5) TMSeperator2 = Shapes.AddRectangle(77, 35) Shapes.Move(TMSeperator2, 5, 5) TMSeperator = Shapes.AddRectangle(39, 35) Shapes.Move(TMSeperator, 5, 5) TMIconNewFile = Shapes.AddImage(ImgTMNewFile) Shapes.Move(TMIconNewFile, 12, 12) TMIconOpenFile = Shapes.AddImage(ImgTMOpenFile) Shapes.Move(TMIconOpenFile, 52, 12) TMIconSaveFile = Shapes.AddImage(ImgTMSaveFile) Shapes.Move(TMIconSaveFile, 90, 12) TMIconFontSize = Shapes.AddImage(ImgTMFontSize) Shapes.Move(TMIconFontSize, 128, 12) TMIconSecondScreen = Shapes.AddImage(ImgTMSecondScreen) Shapes.Move(TMIconSecondScreen, 166, 11) TMIconAddImage = Shapes.AddImage(ImgTMAddImage) Shapes.Move(TMIconAddImage, 204, 15) TMIconGear = Shapes.AddImage(ImgTMGear) Shapes.Move(TMIconGear, 242, 13) TMBtnNewFile = Controls.AddButton("", 6, 6) Controls.SetSize(TMBtnNewFile, 37, 33) Shapes.SetOpacity(TMBtnNewFile, 20) TMBtnOpenFile = Controls.AddButton("", 44, 6) Controls.SetSize(TMBtnOpenFile, 39, 33) Shapes.SetOpacity(TMBtnOpenFile, 20) TMBtnSaveFile = Controls.AddButton("", 81, 6) Controls.SetSize(TMBtnSaveFile, 39, 33) Shapes.SetOpacity(TMBtnSaveFile, 20) TMBtnFont = Controls.AddButton("", 120, 6) Controls.SetSize(TMBtnFont, 37, 33) Shapes.SetOpacity(TMBtnFont, 20) TMBtnSecondScreen = Controls.AddButton("", 158, 6) Controls.SetSize(TMBtnSecondScreen, 37, 33) Shapes.SetOpacity(TMBtnSecondScreen, 20) TMBtnAddImage = Controls.AddButton("", 196, 6) Controls.SetSize(TMBtnAddImage, 37, 33) Shapes.SetOpacity(TMBtnAddImage, 20) TMBtnSettings = Controls.AddButton("", 234, 6) Controls.SetSize(TMBtnSettings, 37, 33) Shapes.SetOpacity(TMBtnSettings, 20) TMBackRec2 = Shapes.AddRectangle(0, 35) Shapes.Move(TMBackRec2, 503, 5) Shapes.SetOpacity(TMBackRec2, 0) TMSeperator6 = Shapes.AddRectangle(39, 35) Shapes.Move(TMSeperator6, 503, 5) TMIconCopyPaste = Shapes.AddImage(ImgCopyPaste) Shapes.Move(TMIconCopyPaste, 512, 13) TMBtnCopyPaste = Controls.AddButton("", 504, 6) Controls.SetSize(TMBtnCopyPaste, 37, 33) Shapes.SetOpacity(TMBtnCopyPaste, 20) EndSub 'HideTopMenu Sub HideTopMenu Shapes.HideShape(TMBackRec) Shapes.HideShape(TMSeperator) Shapes.HideShape(TMSeperator2) Shapes.HideShape(TMSeperator3) Shapes.HideShape(TMSeperator4) Shapes.HideShape(TMSeperator5) Shapes.HideShape(TMSeperator6) Shapes.HideShape(TMSeperator7) Shapes.HideShape(TMSeperator8) Shapes.HideShape(TMIconNewFile) Shapes.HideShape(TMIconOpenFile) Shapes.HideShape(TMIconSaveFile) Shapes.HideShape(TMIconFontSize) Shapes.HideShape(TMIconSecondScreen) Shapes.HideShape(TMIconCopyPaste) Shapes.HideShape(TMIconAddImage) Shapes.HideShape(TMIconGear) Shapes.HideShape(TMBackRec2) Controls.HideControl(TMBtnNewFile) Controls.HideControl(TMBtnOpenFile) Controls.HideControl(TMBtnSaveFile) Controls.HideControl(TMBtnFont) Controls.HideControl(TMBtnSecondScreen) Controls.HideControl(TMBtnCopyPaste) Controls.HideControl(TMBtnAddImage) Controls.HideControl(TMBtnSettings) EndSub 'ShowTopMenu Sub ShowTopMenu Shapes.ShowShape(TMBackRec) Shapes.ShowShape(TMSeperator) Shapes.ShowShape(TMSeperator2) Shapes.ShowShape(TMSeperator3) Shapes.ShowShape(TMSeperator4) Shapes.ShowShape(TMSeperator5) Shapes.ShowShape(TMSeperator7) Shapes.ShowShape(TMSeperator8) Shapes.ShowShape(TMIconSaveFile) Shapes.ShowShape(TMIconFontSize) Shapes.ShowShape(TMIconNewFile) Shapes.ShowShape(TMIconOpenFile) Shapes.ShowShape(TMIconSecondScreen) Shapes.ShowShape(TMIconAddImage) Shapes.ShowShape(TMIconGear) Controls.ShowControl(TMBtnFont) Controls.ShowControl(TMBtnNewFile) Controls.ShowControl(TMBtnOpenFile) Controls.ShowControl(TMBtnSaveFile) Controls.ShowControl(TMBtnSecondScreen) Controls.ShowControl(TMBtnAddImage) Controls.ShowControl(TMBtnSettings) If SecondScreenAdded = "Yes" Then Controls.ShowControl(TMBtnCopyPaste) Shapes.ShowShape(TMBackRec2) Shapes.ShowShape(TMIconCopyPaste) Shapes.ShowShape(TMSeperator6) EndIf EndSub 'AddNewFileDialog Sub AddNewFileDialog GraphicsWindow.BrushColor = "Gainsboro" GraphicsWindow.PenColor = GrayControlShadow DMBackRec = Shapes.AddRectangle(190, 35) Shapes.Move(DMBackRec, 405, 155) GraphicsWindow.BrushColor = "Black" GraphicsWindow.FontSize = 13 DMTitle = Shapes.AddText("") Shapes.Move(DMTitle, (GraphicsWindow.Width - 58) / 2, 164) GraphicsWindow.BrushColor = GrayControl DMBackRec2 = Shapes.AddRectangle(600, 200) Shapes.Move(DMBackRec2, (GraphicsWindow.Width - 600) / 2, 200) GraphicsWindow.BrushColor = "White" GraphicsWindow.PenColor = "White" DMBackColor = Shapes.AddRectangle(598, 98) Shapes.Move(DMBackColor, (GraphicsWindow.Width - 598) / 2, 201) GraphicsWindow.BrushColor = "Gainsboro" GraphicsWindow.PenColor = "Gainsboro" DMBackColor2 = Shapes.AddRectangle(598, 98) Shapes.Move(DMBackColor2, (GraphicsWindow.Width - 598) / 2, 301) GraphicsWindow.PenColor = "Black" GraphicsWindow.BrushColor = "Black" DMLabel = Shapes.AddText("Are you sure you wish to make a new file? All unsaved data will be lost.") Shapes.Move(DMLabel, (GraphicsWindow.Width - 400) / 2, 245) DMIconInfo = Shapes.AddImage(ImgDMInfoIcon) Shapes.Move(DMIconInfo, (GraphicsWindow.Width - 630) / 2, 190) Shapes.Zoom(DMIconInfo, 0.5, 0.5) DMBtnYes = Controls.AddButton("Yes", (GraphicsWindow.Width - 210) / 2, 335) Controls.SetSize(DMBtnYes, 100, 30) DMBtnNo = Controls.AddButton("No", GraphicsWindow.Width / 2, 335) Controls.SetSize(DMBtnNo, 100, 30) EndSub 'ShowNewFileDialog Sub ShowNewFileDialog Shapes.Move(DMTitle, (GraphicsWindow.Width - 58) / 2, 164) Shapes.Move(DMBackRec, 405, 155) Shapes.SetText(DMTitle, "New File") Shapes.SetText(DMLabel, "Are you sure you wish to make a new file? All unsaved data will be lost.") Controls.ShowControl(DMBtnNo) Controls.ShowControl(DMBtnYes) ShowBasicDM() EndSub 'HideNewFileDialog Sub HideNewFileDialog HideBasicDM() Controls.HideControl(DMBtnNo) Controls.HideControl(DMBtnYes) EndSub 'ShowBasicDM Sub ShowBasicDM Shapes.ShowShape(DMBackColor) Shapes.ShowShape(DMBackColor2) Shapes.ShowShape(DMBackRec) Shapes.ShowShape(DMBackRec2) Shapes.ShowShape(DMIconInfo) Shapes.ShowShape(DMLabel) Shapes.ShowShape(DMTitle) EndSub 'HideBasicDM Sub HideBasicDM Shapes.HideShape(DMBackColor) Shapes.HideShape(DMBackColor2) Shapes.HideShape(DMBackRec) Shapes.HideShape(DMBackRec2) Shapes.HideShape(DMIconInfo) Shapes.HideShape(DMLabel) Shapes.HideShape(DMTitle) EndSub 'AddScreen Sub AddScreen Controls.Remove(Screen) Controls.Remove(Screen2) GraphicsWindow.FontName = CurrentFontName GraphicsWindow.BrushColor = CurrentFontColor GraphicsWindow.FontBold = CurrentFontBold GraphicsWindow.FontItalic = CurrentFontItalic GraphicsWindow.FontSize = CurrentFontSize Screen = Controls.AddMultiLineTextBox(5, 45) If SecondScreenAdded = "No" Then Controls.SetSize(Screen, GraphicsWindow.Width - 10, GraphicsWindow.Height - 50) ElseIf SecondScreenAdded = "Yes" Then Controls.SetSize(Screen, 492.5, GraphicsWindow.Height - 50) EndIf Screen2 = Controls.AddMultiLineTextBox(502.5, 45) Controls.SetSize(Screen2, 492.5, GraphicsWindow.Height - 50) Controls.HideControl(Screen2) If SecondScreenAdded = "No" Then Shapes.SetOpacity(Screen2, 0) EndIf EndSub 'HideScreen Sub HideScreen Controls.HideControl(Screen) Controls.HideControl(Screen2) EndSub 'AddOpenFileDialog Sub AddOpenFileDialog OFTextBox = Controls.AddTextBox((GraphicsWindow.Width - 400) / 2, 320) Controls.SetSize(OFTextBox, 400, 23) OFBtnConfirm = Controls.AddButton("Open", (GraphicsWindow.Width - 210) / 2, 350) Controls.SetSize(OFBtnConfirm, 100, 30) OFBtnCancel = Controls.AddButton("Cancel", GraphicsWindow.Width / 2, 350) Controls.SetSize(OFBtnCancel, 100, 30) EndSub 'ShowOpenFileDialog Sub ShowOpenFileDialog Shapes.Move(DMTitle, (GraphicsWindow.Width - 65) / 2, 164) Shapes.Move(DMBackRec, 405, 155) Shapes.SetText(DMTitle, "Open File") Shapes.SetText(DMLabel, "Enter the path the name and the extension of the file you wish to open.") ShowBasicDM() Controls.ShowControl(OFTextBox) Controls.ShowControl(OFBtnConfirm) Controls.ShowControl(OFBtnCancel) EndSub 'HideOpenFileDialog Sub HideOpenFileDialog HideBasicDM() Controls.HideControl(OFTextBox) Controls.HideControl(OFBtnConfirm) Controls.HideControl(OFBtnCancel) EndSub 'AddSaveFileDialog Sub AddSaveFileDialog SFTextBox = Controls.AddTextBox((GraphicsWindow.Width - 400) / 2, 320) Controls.SetSize(SFTextBox, 400, 23) SFBtnConfirm = Controls.AddButton("Save", (GraphicsWindow.Width - 210) / 2, 350) Controls.SetSize(SFBtnConfirm, 100, 30) SFBtnCancel = Controls.AddButton("Cancel", GraphicsWindow.Width / 2, 350) Controls.SetSize(SFBtnCancel, 100, 30) EndSub 'ShowSaveFileDialog Sub ShowSaveFileDialog Shapes.Move(DMTitle, (GraphicsWindow.Width - 65) / 2, 164) Shapes.Move(DMBackRec, 405, 155) Shapes.SetText(DMTitle, "Save File") Shapes.SetText(DMLabel, "Enter the path the name and the extension of the file you wish to save.") ShowBasicDM() Controls.ShowControl(SFTextBox) Controls.ShowControl(SFBtnConfirm) Controls.ShowControl(SFBtnCancel) EndSub 'HideSaveFileDialog Sub HideSaveFileDialog HideBasicDM() Controls.HideControl(SFTextBox) Controls.HideControl(SFBtnConfirm) Controls.HideControl(SFBtnCancel) EndSub 'AddFontDialog Sub AddFontDialog GraphicsWindow.BrushColor = "Gainsboro" GraphicsWindow.PenColor = GrayControlShadow FDBackRec = Shapes.AddRectangle(400, 300) Shapes.Move(FDBackRec, 300, 150) GraphicsWindow.BrushColor = "Black" FDLabel = Shapes.AddText("Font name:") Shapes.Move(FDLabel, 340, 185) FDTBFontName = Controls.AddTextBox(430, 183) Controls.SetTextBoxText(FDTBFontName, "Microsoft Sans Serif") FDBtnFurtherFontNames = Controls.AddButton("Names", 600, 183) Controls.SetSize(FDBtnFurtherFontNames, 55, 23) FDLabel2 = Shapes.AddText("Font size:") Shapes.Move(FDLabel2, 340, 230) FDTBFontSize = Controls.AddTextBox(430, 227) Controls.SetTextBoxText(FDTBFontSize, 13) Controls.SetSize(FDTBFontSize, 37, 22) FDBtnIncrFS = Controls.AddButton("+", 472, 227) Controls.SetSize(FDBtnIncrFS, 22, 22) FDBtnDecrFS = Controls.AddButton("-", 499, 227) Controls.SetSize(FDBtnDecrFS, 22, 22) FDLabel3 = Shapes.AddText("Font bold:") Shapes.Move(FDLabel3, 340, 275) FDBtnFontBold = Controls.AddButton("No", 430, 270) Controls.SetSize(FDBtnFontBold, 32, 27) FDLabel4 = Shapes.AddText("Font italic:") Shapes.Move(FDLabel4, 340, 320) FDBtnFontItalic = Controls.AddButton("No", 430, 315) Controls.SetSize(FDBtnFontItalic, 32, 27) FDTBFontColor = Controls.AddTextBox(430, 377) Controls.SetSize(FDTBFontColor, 80, 23) Controls.SetTextBoxText(FDTBFontColor, "Black") FDIconFont = Shapes.AddImage(ImgFontLogo) Shapes.Move(FDIconFont, 540, 220) FDLabel5 = Shapes.AddText("Font color:") Shapes.Move(FDLabel5, 340, 380) GraphicsWindow.BrushColor = "Red" FDBtnRed = Controls.AddButton("■", 520, 360) GraphicsWindow.BrushColor = "Green" FDBtnGreen = Controls.AddButton("■", 545, 360) GraphicsWindow.BrushColor = "Blue" FDBtnBlue = Controls.AddButton("■", 570, 360) GraphicsWindow.BrushColor = "Gold" FDBtnGold = Controls.AddButton("■", 595, 360) GraphicsWindow.BrushColor = "Magenta" FDBtnMagenta = Controls.AddButton("■", 620, 360) GraphicsWindow.BrushColor = "Pink" FDBtnPink = Controls.AddButton("■", 645, 360) GraphicsWindow.BrushColor = "Crimson" FDBtnCrimson = Controls.AddButton("■", 520, 389) GraphicsWindow.BrushColor = "Lime" FDBtnLime = Controls.AddButton("■", 545, 389) GraphicsWindow.BrushColor = "Cyan" FDBtnCyan = Controls.AddButton("■", 570, 389) GraphicsWindow.BrushColor = "Yellow" FDBtnYellow = Controls.AddButton("■", 595, 389) GraphicsWindow.BrushColor = "Indigo" FDBtnIndigo = Controls.AddButton("■", 620, 389) GraphicsWindow.BrushColor = "Black" FDBtnBlack = Controls.AddButton("■", 645, 389) GraphicsWindow.BrushColor = "GainsBoro" GraphicsWindow.PenColor = GrayControlShadow FDBackRec2 = Shapes.AddRectangle(200, 300) Shapes.Move(FDBackRec2, 720, 150) GraphicsWindow.BrushColor = "Black" FDBtnRestore = Controls.AddButton("Restore", 340, 460) Controls.SetSize(FDBtnRestore, 100, 30) FDBtnConfirm = Controls.AddButton("Confirm", 450, 460) Controls.SetSize(FDBtnConfirm, 100, 30) FDBtnCancel = Controls.AddButton("Cancel", 560, 460) Controls.SetSize(FDBtnCancel, 100, 30) GraphicsWindow.BrushColor = "Black" GraphicsWindow.FontName = "Times New Roman" FDTBName = Controls.AddTextBox(738, 168) GraphicsWindow.FontName = "Arial" FDTBName2 = Controls.AddTextBox(738, 198) GraphicsWindow.FontName = "Consolas" FDTBName3 = Controls.AddTextBox(738, 228) GraphicsWindow.FontName = "CASTELLAR" FDTBName4 = Controls.AddTextBox(738, 258) GraphicsWindow.FontName = "Curlz MT" FDTBName5 = Controls.AddTextBox(738, 288) GraphicsWindow.FontName = "Baskerville Old Face" FDTBName6 = Controls.AddTextBox(738, 318) GraphicsWindow.FontName = "Blackadder ITC" FDTBName7 = Controls.AddTextBox(738, 348) GraphicsWindow.FontName = "Ravie" FDTBName8 = Controls.AddTextBox(738, 378) GraphicsWindow.FontName = "Snap ITC" FDTBName9 = Controls.AddTextBox(738, 408) SetFDTBNames() EndSub 'ShowFontDialog Sub ShowFontDialog Shapes.Move(DMTitle, (GraphicsWindow.Width - 75) / 2, 114) Shapes.Move(DMBackRec, 405, 105) Shapes.SetText(DMTitle, "Font Dialog") Shapes.ShowShape(DMTitle) Shapes.ShowShape(DMBackRec) Shapes.ShowShape(FDBackRec) Shapes.ShowShape(FDLabel) Shapes.ShowShape(FDLabel2) Shapes.ShowShape(FDLabel3) Shapes.ShowShape(FDLabel4) Shapes.ShowShape(FDLabel5) Shapes.ShowShape(FDIconFont) Controls.ShowControl(FDBtnFontBold) Controls.ShowControl(FDBtnFontItalic) Controls.ShowControl(FDTBFontName) Controls.ShowControl(FDTBFontSize) Controls.ShowControl(FDBtnCancel) Controls.ShowControl(FDBtnConfirm) Controls.ShowControl(FDBtnFontBold) Controls.ShowControl(FDBtnFontItalic) Controls.ShowControl(FDTBFontName) Controls.ShowControl(FDTBFontSize) Controls.ShowControl(FDBtnCancel) Controls.ShowControl(FDBtnConfirm) Controls.ShowControl(FDTBFontColor) Controls.ShowControl(FDBtnBlack) Controls.ShowControl(FDBtnBlue) Controls.ShowControl(FDBtnRed) Controls.ShowControl(FDBtnMagenta) Controls.ShowControl(FDBtnGold) Controls.ShowControl(FDBtnGreen) Controls.ShowControl(FDBtnIndigo) Controls.ShowControl(FDBtnCyan) Controls.ShowControl(FDBtnLime) Controls.ShowControl(FDBtnPink) Controls.ShowControl(FDBtnYellow) Controls.ShowControl(FDTBFontColor) Controls.ShowControl(FDBtnCrimson) Controls.ShowControl(FDBtnDecrFS) Controls.ShowControl(FDBtnIncrFS) Controls.ShowControl(FDBtnFurtherFontNames) Controls.ShowControl(FDBtnRestore) If FurtherFontNamesHidden = "No" Then Controls.ShowControl(FDTBName) Controls.ShowControl(FDTBName2) Controls.ShowControl(FDTBName3) Controls.ShowControl(FDTBName4) Controls.ShowControl(FDTBName5) Controls.ShowControl(FDTBName6) Controls.ShowControl(FDTBName7) Controls.ShowControl(FDTBName8) Controls.ShowControl(FDTBName9) Controls.ShowControl(FDBackRec2) EndIf EndSub 'HideFontDialog Sub HideFontDialog Shapes.HideShape(DMTitle) Shapes.HideShape(DMBackRec) Shapes.HideShape(FDBackRec) Shapes.HideShape(FDLabel) Shapes.HideShape(FDLabel2) Shapes.HideShape(FDLabel3) Shapes.HideShape(FDLabel4) Shapes.HideShape(FDLabel5) Shapes.HideShape(FDIconFont) Controls.HideControl(FDBtnFurtherFontNames) Controls.HideControl(FDBtnFontBold) Controls.HideControl(FDBtnFontItalic) Controls.HideControl(FDTBFontName) Controls.HideControl(FDTBFontSize) Controls.HideControl(FDBtnCancel) Controls.HideControl(FDBtnConfirm) Controls.HideControl(FDTBFontColor) Controls.HideControl(FDBtnBlack) Controls.HideControl(FDBtnBlue) Controls.HideControl(FDBtnRed) Controls.HideControl(FDBtnMagenta) Controls.HideControl(FDBtnGold) Controls.HideControl(FDBtnGreen) Controls.HideControl(FDBtnIndigo) Controls.HideControl(FDBtnCyan) Controls.HideControl(FDBtnLime) Controls.HideControl(FDBtnPink) Controls.HideControl(FDBtnYellow) Controls.HideControl(FDBtnCrimson) Controls.HideControl(FDBtnRestore) Controls.HideControl(FDTBName) Controls.HideControl(FDTBName2) Controls.HideControl(FDTBName3) Controls.HideControl(FDTBName4) Controls.HideControl(FDTBName5) Controls.HideControl(FDTBName6) Controls.HideControl(FDTBName7) Controls.HideControl(FDTBName8) Controls.HideControl(FDTBName9) Controls.HideControl(FDBackRec2) Controls.HideControl(FDBtnDecrFS) Controls.HideControl(FDBtnIncrFS) EndSub 'AddCopyPasteDialog Sub AddCopyPasteDialog GraphicsWindow.FontName = "Microsoft Sans Serif" CPBtnLeft = Controls.AddButton("Left", 340, 335) Controls.SetSize(CPBtnLeft, 100, 30) CPBtnRight= Controls.AddButton("Right", 450, 335) Controls.SetSize(CPBtnRight, 100, 30) CPBtnCancel = Controls.AddButton("Cancel", 560, 335) Controls.SetSize(CPBtnCancel, 100, 30) EndSub 'ShowCopyPasteDialog Sub ShowCopyPasteDialog Shapes.Move(DMTitle, (GraphicsWindow.Width - 80) / 2, 164) Shapes.Move(DMBackRec, 405, 155) Shapes.SetText(DMTitle, "Copy Paste") Shapes.SetText(DMLabel, "Select where you want the text to be pasted.") ShowBasicDM() Controls.ShowControl(CPBtnLeft) Controls.ShowControl(CPBtnRight) Controls.ShowControl(CPBtnCancel) EndSub 'HideCopyPasteDialog Sub HideCopyPasteDialog HideBasicDM() Controls.HideControl(SFTextBox) Controls.HideControl(SFBtnConfirm) Controls.HideControl(SFBtnCancel) Controls.HideControl(CPBtnLeft) Controls.HideControl(CPBtnRight) Controls.HideControl(CPBtnCancel) EndSub 'AddSettingsDialog Sub AddSettingsDialog GraphicsWindow.BrushColor = GrayControl SDBackRec = Shapes.AddRectangle(500, 180) Shapes.Move(SDBackRec, 250, 175) SDSeperator2 = Shapes.AddRectangle(500, 120) Shapes.Move(SDSeperator2, 250, 175) SDSeperator = Shapes.AddRectangle(500, 60) Shapes.Move(SDSeperator, 250, 175) GraphicsWindow.BrushColor = "White" SDBackRadio = Shapes.AddEllipse(15, 15) Shapes.Move(SDBackRadio, 270, 197) SDBackRadio2 = Shapes.AddEllipse(15, 15) Shapes.Move(SDBackRadio2, 270, 257) SDBackRadio3 = Shapes.AddEllipse(15, 15) Shapes.Move(SDBackRadio3, 270, 317) GraphicsWindow.FontSize = 13 GraphicsWindow.BrushColor = "Black" SDLabel = Shapes.AddText("Future changes will affect the first text field.") Shapes.Move(SDLabel, 295, 197) SDLabel2 = Shapes.AddText("Future changes will affect the second text field.") Shapes.Move(SDLabel2, 295, 257) SDLabel3 = Shapes.AddText("Future changes will affect both text fields.") Shapes.Move(SDLabel3, 295, 317) SDBtnConfirm = Controls.AddButton("Confirm", 395, 365) Controls.SetSize(SDBtnConfirm, 100, 30) SDBtnCancel = Controls.AddButton("Cancel", 505, 365) Controls.SetSize(SDBtnCancel, 100, 30) GraphicsWindow.PenColor = "Black" SDRadio = Shapes.AddEllipse(7, 7) Shapes.Move(SDRadio, 274, 201) EndSub 'ShowSettingsDialog Sub ShowSettingsDialog Shapes.Move(DMBackRec, 405, 120) Shapes.SetText(DMTitle, "Settings") Shapes.Move(DMTitle, 472, 131) Shapes.ShowShape(DMTitle) Shapes.ShowShape(DMBackRec) Shapes.ShowShape(SDBackRec) Shapes.ShowShape(SDBackRadio) Shapes.ShowShape(SDBackRadio2) Shapes.ShowShape(SDBackRadio3) Shapes.ShowShape(SDRadio) Shapes.ShowShape(SDLabel) Shapes.ShowShape(SDLabel2) Shapes.ShowShape(SDLabel3) Shapes.ShowShape(SDSeperator) Shapes.ShowShape(SDSeperator2) Controls.ShowControl(SDBtnCancel) Controls.ShowControl(SDBtnConfirm) EndSub 'HideSettingsDialog Sub HideSettingsDialog HideBasicDM() Shapes.HideShape(SDBackRec) Shapes.HideShape(SDLabel) Shapes.HideShape(SDLabel2) Shapes.HideShape(SDLabel3) Shapes.HideShape(SDBackRadio) Shapes.HideShape(SDBackRadio2) Shapes.HideShape(SDBackRadio3) Shapes.HideShape(SDSeperator) Shapes.HideShape(SDSeperator2) Shapes.HideShape(SDRadio) Controls.HideControl(SDBtnCancel) Controls.HideControl(SDBtnConfirm) EndSub 'ApplyFontSettings Sub ApplyFontSettings CurrentFontName = Controls.GetTextBoxText(FDTBFontName) CurrentFontSize = Controls.GetTextBoxText(FDTBFontSize) CurrentFontColor = Controls.GetTextBoxText(FDTBFontColor) CurrentFontBold = Controls.GetButtonCaption(FDBtnFontBold) CurrentFontItalic = Controls.GetButtonCaption(FDBtnFontItalic) GetScreenText = Controls.GetTextBoxText(Screen) GetScreen2Text = Controls.GetTextBoxText(Screen2) Controls.Remove(Screen) If CurrentFontBold = "Yes" Then CurrentFontBold = "True" Else CurrentFontBold = "False" EndIf If CurrentFontItalic = "Yes" Then CurrentFontItalic = "True" Else CurrentFontItalic = "False" EndIf GraphicsWindow.FontBold = CurrentFontBold GraphicsWindow.FontItalic = CurrentFontItalic GraphicsWindow.FontSize = CurrentFontSize GraphicsWindow.FontName = CurrentFontName GraphicsWindow.BrushColor = CurrentFontColor EndSub 'CancelFontSettings Sub CancelFontSettings Controls.SetTextBoxText(FDTBFontName, PrevFDFontName) Controls.SetTextBoxText(FDTBFontSize, PrevFDFontSize) Controls.SetTextBoxText(FDTBFontColor, PrevFDFontColor) If PrevFDFontBold = "No" Then Controls.SetButtonCaption(FDBtnFontBold, "No") CurrentFontBold = "False" ElseIf PrevFDFontBold = "Yes" Then Controls.SetButtonCaption(FDBtnFontBold, "Yes") CurrentFontBold = "True" EndIf If PrevFDFontItalic = "No" Then Controls.SetButtonCaption(FDBtnFontItalic, "No") CurrentFontItalic = "False" ElseIf PrevFDFontItalic = "Yes" Then Controls.SetButtonCaption(FDBtnFontItalic, "Yes") CurrentFontItalic = "True" EndIf EndSub 'RestoreFontSettings Sub RestoreFontSettings Controls.SetTextBoxText(FDTBFontName, "Microsoft Sans Serif") Controls.SetTextBoxText(FDTBFontSize, 13) Controls.SetButtonCaption(FDBtnFontBold, "No") Controls.SetButtonCaption(FDBtnFontItalic, "No") Controls.SetTextBoxText(FDTBFontColor, "Black") UserWantsFontSettingsRestored = "Yes" EndSub 'HideAllMenus Sub HideAllMenus CurrentMenu = "" HideTopMenu() HideScreen() HideNewFileDialog() HideOpenFileDialog() HideSaveFileDialog() HideFontDialog() HideCopyPasteDialog() HideSettingsDialog() EndSub 'SetFDTBNames Sub SetFDTBNames Controls.SetTextBoxText(FDTBName, "Times New Roman") Controls.SetTextBoxText(FDTBName2, "Arial") Controls.SetTextBoxText(FDTBName3, "Consolas") Controls.SetTextBoxText(FDTBName4, "CASTELLAR") Controls.SetTextBoxText(FDTBName5, "Curlz MT") Controls.SetTextBoxText(FDTBName6, "Baskerville Old Face") Controls.SetTextBoxText(FDTBName7, "Blackadder ITC") Controls.SetTextBoxText(FDTBName8, "Ravie") Controls.SetTextBoxText(FDTBName9, "Snap ITC") EndSub 'GetPreviousSettings Sub GetPreviousSettings PrevFDFontBold = Controls.GetButtonCaption(FDBtnFontBold) PrevFDFontItalic = Controls.GetButtonCaption(FDBtnFontItalic) PrevFDFontName = Controls.GetTextBoxText(FDTBFontName) PrevFDFontSize = Controls.GetTextBoxText(FDTBFontSize) PrevFDFontColor = Controls.GetTextBoxText(FDTBFontColor) EndSub 'TextTyped Controls.TextTyped = TextTyped Sub TextTyped SetFDTBNames() If Controls.GetTextBoxText(FDTBFontSize) < 8 Then Controls.SetTextBoxText(FDTBFontSize, 8) ElseIf Text.IsSubText(Controls.GetTextBoxText(FDTBFontName), 0) Or Text.IsSubText(Controls.GetTextBoxText(FDTBFontName), 1) Or Text.IsSubText(Controls.GetTextBoxText(FDTBFontName), 2) Or Text.IsSubText(Controls.GetTextBoxText(FDTBFontName), 3) Or Text.IsSubText(Controls.GetTextBoxText(FDTBFontName), 4) Or Text.IsSubText(Controls.GetTextBoxText(FDTBFontName), 5) Or Text.IsSubText(Controls.GetTextBoxText(FDTBFontName), 6) Or Text.IsSubText(Controls.GetTextBoxText(FDTBFontName), 7) Or Text.IsSubText(Controls.GetTextBoxText(FDTBFontName), 8) Or Text.IsSubText(Controls.GetTextBoxText(FDTBFontName), 9) Then Controls.SetTextBoxText(FDTBFontName, PrevFDFontName) ElseIf Text.IsSubText(Controls.GetTextBoxText(FDTBFontColor), 0) Or Text.IsSubText(Controls.GetTextBoxText(FDTBFontColor), 1) Or Text.IsSubText(Controls.GetTextBoxText(FDTBFontColor), 2) Or Text.IsSubText(Controls.GetTextBoxText(FDTBFontColor), 3) Or Text.IsSubText(Controls.GetTextBoxText(FDTBFontColor), 4) Or Text.IsSubText(Controls.GetTextBoxText(FDTBFontColor), 5) Or Text.IsSubText(Controls.GetTextBoxText(FDTBFontColor), 6) Or Text.IsSubText(Controls.GetTextBoxText(FDTBFontColor), 7) Or Text.IsSubText(Controls.GetTextBoxText(FDTBFontColor), 8) Or Text.IsSubText(Controls.GetTextBoxText(FDTBFontColor), 9) Then Controls.SetTextBoxText(FDTBFontColor, PrevFDFontColor) EndIf EndSub 'MouseDown GraphicsWindow.MouseDown = MouseDown Sub MouseDown x = GraphicsWindow.MouseX y = GraphicsWindow.MouseY If CurrentMenu = "Settings" Then If x > 270 And x < 550 And y > 197 And y < 212 Then Sound.PlayClick() Shapes.Move(SDRadio, 274, 201) ElseIf x > 270 And x < 570 And y > 257 And y < 272 Then Sound.PlayClick() Shapes.Move(SDRadio, 274, 261) ElseIf x > 270 And x < 540 And y > 317 And y < 332 Then Sound.PlayClick() Shapes.Move(SDRadio, 274, 321) EndIf EndIf EndSub 'ButtonClicked Controls.ButtonClicked = ButtonClicked Sub ButtonClicked If Controls.LastClickedButton = TMBtnNewFile Then Sound.PlayClick() HideTopMenu() HideScreen() ShowNewFileDialog() ElseIf Controls.LastClickedButton = TMBtnOpenFile Then Sound.PlayClick() HideTopMenu() HideScreen() ShowOpenFileDialog() ElseIf Controls.LastClickedButton = DMBtnYes Then Sound.PlayClick() HideNewFileDialog() ShowTopMenu() If ChangesAffect = "TF1" Then Controls.SetTextBoxText(Screen, "") ElseIf ChangesAffect = "TF2" Then Controls.SetTextBoxText(Screen2, "") ElseIf ChangesAffect = "Both" Then Controls.SetTextBoxText(Screen, "") Controls.SetTextBoxText(Screen2, "") EndIf Shapes.ShowShape(Screen) If SecondScreenAdded = "Yes" Then Shapes.ShowShape(Screen2) EndIf ElseIf Controls.LastClickedButton = DMBtnNo Then Sound.PlayClick() HideNewFileDialog() ShowTopMenu() Shapes.ShowShape(Screen) If SecondScreenAdded = "Yes" Then Shapes.ShowShape(Screen2) EndIf ElseIf Controls.LastClickedButton = OFBtnCancel Then Sound.PlayClick() HideOpenFileDialog() ShowTopMenu() Shapes.ShowShape(Screen) If SecondScreenAdded = "Yes" Then Shapes.ShowShape(Screen2) EndIf ElseIf Controls.LastClickedButton = OFBtnConfirm Then Sound.PlayClick() GetOpenFilePath = Controls.GetTextBoxText(OFTextBox) If GetOpenFilePath = "" Then GraphicsWindow.ShowMessage("Please enter a path.", "Information") Sound.PlayClick() Else ' The following line could be harmful and has been automatically commented. ' FileContents = File.ReadContents(GetOpenFilePath) If FileContents = "" Then GraphicsWindow.ShowMessage("There is no such file.", "Information") Sound.PlayClick() Else If ChangesAffect = "TF1" Then Controls.SetTextBoxText(Screen, FileContents) ElseIf ChangesAffect = "TF2" Then Controls.SetTextBoxText(Screen2, FileContents) ElseIf ChangesAffect = "Both" Then Controls.SetTextBoxText(Screen, FileContents) Controls.SetTextBoxText(Screen2, FileContents) EndIf HideOpenFileDialog() ShowTopMenu() Shapes.ShowShape(Screen) If SecondScreenAdded = "Yes" Then Shapes.ShowShape(Screen2) EndIf EndIf EndIf ElseIf Controls.LastClickedButton = TMBtnSaveFile Then Sound.PlayClick() HideTopMenu() HideScreen() ShowSaveFileDialog() ElseIf Controls.LastClickedButton = SFBtnCancel Then Sound.PlayClick() HideSaveFileDialog() ShowTopMenu() Controls.ShowControl(Screen) If SecondScreenAdded = "Yes" Then Shapes.ShowShape(Screen2) EndIf ElseIf Controls.LastClickedButton = SFBtnConfirm Then Sound.PlayClick() GetSaveFilePath = Controls.GetTextBoxText(SFTextBox) If GetSaveFilePath = "" Then GraphicsWindow.ShowMessage("Please enter a path.", "Information") Sound.PlayClick() Else GetScreenText = Controls.GetTextBoxText(Screen) GetScreen2Text = Controls.GetTextBoxText(Screen2) PathLength = Text.GetLength(GetSaveFilePath) FileExtention = Text.GetSubText(GetSaveFilePath, PathLength - 4, 5) If ChangesAffect = "TF1" Then ' The following line could be harmful and has been automatically commented. ' File.WriteContents(GetSaveFilePath, GetScreenText) ElseIf ChangesAffect = "TF2" Then ' The following line could be harmful and has been automatically commented. ' File.WriteContents(GetSaveFilePath, GetScreen2Text) ElseIf ChangesAffect = "Both" Then ' The following line could be harmful and has been automatically commented. ' File.WriteContents(GetSaveFilePath, GetScreenText) ' The following line could be harmful and has been automatically commented. ' File.WriteContents(GetSaveFilePath + "2" + FileExtention, GetScreen2Text) EndIf HideSaveFileDialog() ShowTopMenu() Shapes.ShowShape(Screen) If SecondScreenAdded = "Yes" Then Shapes.ShowShape(Screen2) EndIf EndIf ElseIf Controls.LastClickedButton = TMBtnFont Then Sound.PlayClick() GetPreviousSettings() HideTopMenu() HideScreen() ShowFontDialog() ElseIf Controls.LastClickedButton = FDBtnFontBold Then Sound.PlayClick() If Controls.GetButtonCaption(FDBtnFontBold) = "No" Then Controls.SetButtonCaption(FDBtnFontBold, "Yes") Controls.SetSize(FDBtnFontBold, 32, 27) CurrentFontBold = "True" ElseIf Controls.GetButtonCaption(FDBtnFontBold) = "Yes" Then Controls.SetButtonCaption(FDBtnFontBold, "No") Controls.SetSize(FDBtnFontBold, 32, 27) CurrentFontBold = "False" EndIf ElseIf Controls.LastClickedButton = FDBtnFontItalic Then Sound.PlayClick() If Controls.GetButtonCaption(FDBtnFontItalic) = "No" Then Controls.SetButtonCaption(FDBtnFontItalic, "Yes") Controls.SetSize(FDBtnFontItalic, 32, 27) CurrentFontItalic = "True" ElseIf Controls.GetButtonCaption(FDBtnFontItalic) = "Yes" Then Controls.SetButtonCaption(FDBtnFontItalic, "No") Controls.SetSize(FDBtnFontItalic, 32, 27) CurrentFontItalic = "False" EndIf ElseIf Controls.LastClickedButton = FDBtnCancel Then Sound.PlayClick() UserWantsFontSettingsRestored = "No" HideFontDialog() CancelFontSettings() ShowTopMenu() Shapes.ShowShape(Screen) If SecondScreenAdded = "Yes" Then Shapes.ShowShape(Screen2) EndIf ElseIf Controls.LastClickedButton = FDBtnConfirm Then Sound.PlayClick() GetFontName = Controls.GetTextBoxText(FDTBFontName) GetFontSize = Controls.GetTextBoxText(FDTBFontSize) GetFontColor = Controls.GetTextBoxText(FDTBFontColor) If GetFontName = "" Or GetFontSize = "" Or GetFontColor = "" Then GraphicsWindow.ShowMessage("Please fill all the text fields.", "Attention") Else If UserWantsFontSettingsRestored = "No" Then UserWantsFontSettingsRestored = "No" HideFontDialog() ApplyFontSettings() ShowTopMenu() AddScreen() If SecondScreenAdded = "Yes" Then Shapes.ShowShape(Screen2) EndIf Controls.SetTextBoxText(Screen, GetScreenText) Controls.SetTextBoxText(Screen2, GetScreen2Text) Else UserWantsFontSettingsRestored = "No" CurrentFontName = "Microsoft Sans Serif" CurrentFontSize = 11 CurrentFontBold = "False" CurrentFontItalic = "False" CurrentFontColor = "Black" HideFontDialog() ApplyFontSettings() ShowTopMenu() AddScreen() Shapes.ShowShape(Screen2) Controls.SetTextBoxText(Screen, GetScreenText) Controls.SetTextBoxText(Screen2, GetScreen2Text) EndIf EndIf ElseIf Controls.LastClickedButton = FDBtnRed Then Sound.PlayClick() Controls.SetTextBoxText(FDTBFontColor, "Red") CurrentFontColor = "Red" ElseIf Controls.LastClickedButton = FDBtnGreen Then Sound.PlayClick() Controls.SetTextBoxText(FDTBFontColor, "Green") CurrentFontColor = "Green" ElseIf Controls.LastClickedButton = FDBtnBlue Then Sound.PlayClick() Controls.SetTextBoxText(FDTBFontColor, "Blue") CurrentFontColor = "Blue" ElseIf Controls.LastClickedButton = FDBtnGold Then Sound.PlayClick() Controls.SetTextBoxText(FDTBFontColor, "Gold") CurrentFontColor = "Gold" ElseIf Controls.LastClickedButton = FDBtnMagenta Then Sound.PlayClick() Controls.SetTextBoxText(FDTBFontColor, "Magenta") CurrentFontColor = "Magenta" ElseIf Controls.LastClickedButton = FDBtnPink Then Sound.PlayClick() Controls.SetTextBoxText(FDTBFontColor, "Pink") CurrentFontColor = "Pink" ElseIf Controls.LastClickedButton = FDBtnCrimson Then Sound.PlayClick() Controls.SetTextBoxText(FDTBFontColor, "Crimson") CurrentFontColor = "Crimson" ElseIf Controls.LastClickedButton = FDBtnLime Then Sound.PlayClick() Controls.SetTextBoxText(FDTBFontColor, "Lime") CurrentFontColor = "Lime" ElseIf Controls.LastClickedButton = FDBtnCyan Then Sound.PlayClick() Controls.SetTextBoxText(FDTBFontColor, "Cyan") CurrentFontColor = "Cyan" ElseIf Controls.LastClickedButton = FDBtnYellow Then Sound.PlayClick() Controls.SetTextBoxText(FDTBFontColor, "Yellow") CurrentFontColor = "Yellow" ElseIf Controls.LastClickedButton = FDBtnIndigo Then Sound.PlayClick() Controls.SetTextBoxText(FDTBFontColor, "Indigo") CurrentFontColor = "Indigo" ElseIf Controls.LastClickedButton = FDBtnBlack Then Sound.PlayClick() Controls.SetTextBoxText(FDTBFontColor, "Black") CurrentFontColor = "Black" ElseIf Controls.LastClickedButton = FDBtnRestore Then Sound.PlayClick() RestoreFontSettings() ElseIf Controls.LastClickedButton = FDBtnFurtherFontNames Then Sound.PlayClick() If Controls.GetButtonCaption(FDBtnFurtherFontNames) = "Names" Then FurtherFontNamesHidden = "No" Controls.SetButtonCaption(FDBtnFurtherFontNames, "Hide") Controls.ShowControl(FDTBName) Controls.ShowControl(FDTBName2) Controls.ShowControl(FDTBName3) Controls.ShowControl(FDTBName4) Controls.ShowControl(FDTBName5) Controls.ShowControl(FDTBName6) Controls.ShowControl(FDTBName7) Controls.ShowControl(FDTBName8) Controls.ShowControl(FDTBName9) Shapes.ShowShape(FDBackRec2) Else Controls.SetButtonCaption(FDBtnFurtherFontNames, "Names") FurtherFontNamesHidden = "Yes" Controls.HideControl(FDTBName) Controls.HideControl(FDTBName2) Controls.HideControl(FDTBName3) Controls.HideControl(FDTBName4) Controls.HideControl(FDTBName5) Controls.HideControl(FDTBName6) Controls.HideControl(FDTBName7) Controls.HideControl(FDTBName8) Controls.HideControl(FDTBName9) Shapes.HideShape(FDBackRec2) EndIf ElseIf Controls.LastClickedButton = TMBtnSecondScreen Then Sound.PlayClick() If ImageAdded = "Yes" Then GraphicsWindow.ShowMessage("You can not add a second text field while using an image.", "Information") Sound.PlayClick() Else Controls.HideControl(TMBtnSecondScreen) Controls.HideControl(TMBtnNewFile) Controls.HideControl(TMBtnOpenFile) Controls.HideControl(TMBtnSaveFile) Controls.HideControl(TMBtnFont) Controls.HideControl(TMBtnAddImage) Controls.HideControl(TMBtnSettings) If SecondScreenAdded = "No" Then PrevText = Controls.GetTextBoxText(Screen) PrevTxt = Controls.GetTextBoxText(Screen2) Controls.SetTextBoxText(Screen, "") Controls.SetTextBoxText(Screen2, "") For Decrease = 980 To 492.5 Step -0.8 Controls.SetSize(TMBackRec, Decrease, 35) Controls.SetSize(Screen, Decrease, GraphicsWindow.Height - 50) EndFor Shapes.ShowShape(Screen2) Shapes.ShowShape(TMBackRec2) For Times = 0 To 492 Step 0.8 Controls.SetSize(TMBackRec2, Times, 35) Shapes.SetOpacity(TMBackRec2, Times / 3) Controls.SetSize(Screen2, Times, GraphicsWindow.Height - 50) Shapes.SetOpacity(Screen2, (Times) / 3) EndFor Controls.SetTextBoxText(Screen, PrevText) Controls.SetTextBoxText(Screen2, PrevTxt) Controls.ShowControl(TMBtnSecondScreen) SecondScreenAdded = "Yes" ShowTopMenu() Else PrevText1 = Controls.GetTextBoxText(Screen) PrevText2 = Controls.GetTextBoxText(Screen2) Controls.SetTextBoxText(Screen, "") Controls.SetTextBoxText(Screen2, "") Shapes.HideShape(TMIconCopyPaste) Shapes.HideShape(TMSeperator6) Controls.HideControl(TMBtnCopyPaste) For Fade = 100 To 0 Step -0.08 Shapes.SetOpacity(Screen2, Fade) Shapes.SetOpacity(TMBackRec2, Fade) EndFor Controls.HideControl(Screen2) For Increase = 492 To 990 Step 0.8 Controls.SetSize(TMBackRec, Increase, 35) Controls.SetSize(Screen, Increase, GraphicsWindow.Height - 50) EndFor Controls.SetTextBoxText(Screen, PrevText1) Controls.SetTextBoxText(Screen2, PrevText2) Controls.ShowControl(TMBtnSecondScreen) Controls.ShowControl(TMBtnNewFile) Controls.ShowControl(TMBtnOpenFile) Controls.ShowControl(TMBtnSaveFile) Controls.ShowControl(TMBtnFont) Controls.ShowControl(TMBtnAddImage) Controls.ShowControl(TMBtnSettings) SecondScreenAdded = "No" EndIf EndIf ElseIf Controls.LastClickedButton = FDBtnIncrFS Then Sound.PlayClick() PrevFontSize = Controls.GetTextBoxText(FDTBFontSize) Controls.SetTextBoxText(FDTBFontSize, PrevFontSize + 1) ElseIf Controls.LastClickedButton = FDBtnDecrFS Then Sound.PlayClick() PrevFontSize = Controls.GetTextBoxText(FDTBFontSize) Controls.SetTextBoxText(FDTBFontSize, PrevFontSize - 1) ElseIf Controls.LastClickedButton = TMBtnCopyPaste Then Sound.PlayClick() HideAllMenus() ShowCopyPasteDialog() ElseIf Controls.LastClickedButton = CPBtnCancel Then Sound.PlayClick() HideAllMenus() ShowTopMenu() Shapes.ShowShape(Screen) Shapes.ShowShape(Screen2) ElseIf Controls.LastClickedButton = CPBtnRight Then Sound.PlayClick() HideAllMenus() ShowTopMenu() Shapes.ShowShape(Screen) Shapes.ShowShape(Screen2) If Controls.GetTextBoxText(Screen) = "" Then GraphicsWindow.ShowMessage("The first text field is empty.", "Information") Sound.PlayClick() Else Controls.SetTextBoxText(Screen2, Controls.GetTextBoxText(Screen)) EndIf ElseIf Controls.LastClickedButton = CPBtnLeft Then Sound.PlayClick() HideAllMenus() ShowTopMenu() Shapes.ShowShape(Screen) Shapes.ShowShape(Screen2) If Controls.GetTextBoxText(Screen2) = "" Then GraphicsWindow.ShowMessage("The second text field is empty.", "Information") Sound.PlayClick() Else Controls.SetTextBoxText(Screen, Controls.GetTextBoxText(Screen2)) EndIf ElseIf Controls.LastClickedButton = TMBtnAddImage Then Sound.PlayClick() If SecondScreenAdded = "Yes" Then GraphicsWindow.ShowMessage("You can not add an image while using a second text field.", "Information") Sound.PlayClick() Else If ImageAdded = "No" Then ImageAdded = "Yes" ElseIf ImageAdded = "Yes" Then ImageAdded = "No" EndIf EndIf ElseIf Controls.LastClickedButton = TMBtnSettings Then Sound.PlayClick() HideAllMenus() ShowSettingsDialog() PreviousTop = Shapes.GetTop(SDRadio) CurrentMenu = "Settings" ElseIf Controls.LastClickedButton = SDBtnCancel Then Sound.PlayClick() HideAllMenus() Shapes.Move(SDRadio, 274, PreviousTop) ShowTopMenu() Shapes.ShowShape(Screen) If SecondScreenAdded = "Yes" Then Shapes.ShowShape(Screen2) EndIf ElseIf Controls.LastClickedButton = SDBtnConfirm Then Sound.PlayClick() HideAllMenus() If Shapes.GetTop(SDRadio) = 201 Then ChangesAffect = "TF1" ElseIf Shapes.GetTop(SDRadio) = 261 Then ChangesAffect = "TF2" ElseIf Shapes.GetTop(SDRadio) = 321 Then ChangesAffect = "Both" EndIf ShowTopMenu() Shapes.ShowShape(Screen) If SecondScreenAdded = "Yes" Then Shapes.ShowShape(Screen2) EndIf EndIf EndSub End>TVV010.sb< Start>TVV777.sb< ndtt=108 '----------- number of axedots*2 GraphicsWindow.Width=750 GraphicsWindow.Height =750 cx=400 GraphicsWindow.Left =10 GraphicsWindow.Top =10 GraphicsWindow.MouseMove =mwwq LDUtilities.ShowNoShapeErrors="false LDUtilities.ShowErrors="false GraphicsWindow.BackgroundColor="Darkblue args=0 ccc=ldtext.Split("#00cc00 #00bb00 #00ee00"," ") cc1=ldtext.Split("Gold Yellow Pink"," ") gucktheta=math.GetRadians ( 85) th=90 guckphi=0 pi=Math.pi T_="true F_="false hlf=T_ axx=F_ add=0 bw=700 bh=bw dd=25 ee=shapes.AddEllipse ( bw,bw) Shapes.Move (ee,dd,dd) Shapes.SetOpacity (ee,80) ecl=LDColours.HSLtoRGB (180,.8,.2) LDShapes .BrushColour(ee,ecl) LDDialogs.AddRightClickMenu ("1=halfdome;2=fullglobe;3=N pole;4=S pole","") LDDialogs.RightClickMenu=rmnn s5=15 ndt2=ndtt/2 r1=0.5 r5=2 l55=50 fsw=-22 f=0 lmxx=400 For n=1 to lmxx GraphicsWindow.Title ="Generating nodes...%"+Math.Round (n/lmxx*100) x1[n]=n y1[n]=n-90 ss[n]=Shapes.AddEllipse(6,6) LDShapes.BrushColour (ss[n],LDColours.HSLtoRGB(n*1.33,0.8,0.6)) LDShapes.PenWidth(ss[n],0) fss[n]= LDFastShapes.ShapeIndex (ss[n]) If n>l55 Then LDFastShapes.HideShape (fss[n]) endif endfor LDFastShapes.Update () GraphicsWindow.Title = "Spin the wheel..." LDEvents.MouseWheel =mww pf=1 dds=6 bx=0 by=90 aa=45 mma=0 da=1 acc=l55 GraphicsWindow.KeyDown=kdd While 1=1 For n=0 to l55 hh=LDMath.Convert2Cartesian (bx,by,dds*n,aa) x1[n]=hh[1]+mma y1[n]=hh[2] ir=math.GetRadians (x1[n]) jr=math.GetRadians(y1[n]) If n> acc Then acc=acc+1 ldfastShapes.showShape(fss[n]) endif LDFastShapes.Move (fss[n],ldcall.Function3 ("kx",r1,jr,ir), ldcall.Function3 ("ky",r1,jr,ir)-3) EndFor For n=l55+1 to lmxx ldfastShapes.HideShape(fss[n]) acc=acc-1 EndFor LDFastShapes.Update () endwhile '----------------------------------------------------------------------- While 1=1 For mm=0 to 360 step 1 For n=1 to l55 ir=math.GetRadians (mm+x1[n]) jr=math.GetRadians(y1[n]) cpx=ldcall.Function3 ("kx",r1,jr,ir) LDFastShapes.Move (fss[n],cpx-3, ldcall.Function3 ("ky",r1,jr,ir)-3) endfor LDFastShapes.Update () qn=1 qp=1 arr=0 For nn=1 to l55 Arr[qn][1]=LDFastShapes.GetLeft (fss[nn]) Arr[qn][2]=LDFastShapes.Gettop (fss[nn]) ' N-am s-am Ant Nz Aus Gr Afr If nn=218 then Shapes.Remove(pp[qp]) GraphicsWindow.BrushColor =ecl pp[qp]=LDShapes.AddPolygon (arr) 'LDShapes.BrushColour (pp[qp], LDColours.HSLtoRGB (qp*30,0.9*pf,0.7*pf)) qp=qp+1 qn=1 arr=0 else qn=qn+1 endif EndFor Program.Delay (5) endfor endwhile Sub rmnn rr= LDDialogs.LastRightClickMenuItem If rr=1 Then hlf=T_ ElseIf rr=2 Then hlf=F_ ElseIf rr=3 Then th=180 gucktheta=math.GetRadians ( th) ElseIf rr=4 Then th=0 gucktheta=0 endif EndSub Sub mwwq ' GraphicsWindow.Title=GraphicsWindow.MouseX +" | "+GraphicsWindow.MouseY endsub sub kx'(r,theta,phi) qr=args[1] theta=args[2] phi=args[3] qx=qr*math.cos(theta)*math.cos(phi) qy=qr*math.cos(theta)*math.sin(phi) qz=qr*math.sin(theta) qx=math.sin(guckphi)*qx+math.cos(guckphi)*qy RETURN= bw/2+qx*bw/2+dd ENDsub sub ky'(r,theta,phi) qr=args[1] theta=args[2] phi=args[3] qx=qr*math.cos(theta)*math.cos(phi) qy=qr*math.cos(theta)*math.sin(phi) qz=qr*math.sin(theta) qy=math.cos(guckphi)*qx-math.sin(guckphi)*qy qz=math.cos(gucktheta)*qy-math.sin(gucktheta)*qz RETURN= bh/2-qz*bh/2+dd ENDsub Sub kdd lk= GraphicsWindow.LastKey If lk="F1" Then For ii=1 To l55 li[ii]=Shapes.AddLine (cx,cx,LDFastShapes.GetLeft (fss[ii]), LDFastShapes.GetTop (fss[ii])) LDShapes.PenColour (li[ii],LDColours.HSLtoRGB (ii*2,0.7,0.5)) LDShapes.ZIndex (li[ii],2000+ii) EndFor endif endsub Sub mww If FCKeyboard.IsControlPressed and FCKeyboard.IsShiftPressed then l55=l55+ LDEvents.LastMouseWheelDelta*5 GraphicsWindow.Title=l55 else if FCKeyboard.IsControlPressed then th=th+ LDEvents.LastMouseWheelDelta*3 gucktheta=math.GetRadians ( th) GraphicsWindow.Title=th+" > "+mm ElseIf FCKeyboard.IsShiftPressed then mma=mma+ LDEvents.LastMouseWheelDelta GraphicsWindow.Title=mma elseif FCKeyboard.IsAltPressed then r1=r1+ LDEvents.LastMouseWheelDelta/10 else aa=aa+ LDEvents.LastMouseWheelDelta GraphicsWindow.Title=aa EndIf EndIf EndSub End>TVV777.sb< Start>TWC123.sb< TextWindow.Show() TextWindow.WriteLine("") TextWindow.WriteLine("Loading entire C: drive directory listings.") TextWindow.WriteLine("PLEASE WAIT.") TextWindow.WriteLine("") TextWindow.WriteLine("") curdir = 0 'CURrent DIRectory doagain = 1 'used to keep While going until last directory is read and then will = 0 ' The following line could be harmful and has been automatically commented. ' File.GetDirectories("C:\","dir"+curdir) ' The following line could be harmful and has been automatically commented. ' File.GetFiles("C:\","files"+curdir) While doagain = 1 Array.SetValue("NumOfDir",curdir,Array.GetItemCount("dir"+curdir)) TextWindow.WriteLine("Current DIR = "+curdir) TextWindow.Write("X = ") For X = curdir + 1 To Array.GetValue("NumOfDir",curdir) ' The following line could be harmful and has been automatically commented. ' File.GetDirectories(Array.GetValue("dir"+curdir,X),"dir"+X) TextWindow.Write(X + ", ") ' The following line could be harmful and has been automatically commented. ' File.GetFiles(Array.GetValue("files"+curdir,X),"files"+curdir) Array.SetValue("NumOfDir",X,Array.GetItemCount("dir"+X)) EndFor If Array.GetValue("dir"+curdir,X) = "" Then doagain=0 EndIf curdir = curdir + 1 EndWhile TotalNumDirs = curdir - 1 End>TWC123.sb< Start>TWC709.sb< ' Found original code at http://www.wurb.com/if/game/306 ' Originally written in TRS-80 basic, guess would be around 1980 version = "1.0 6/26/09 ported to Microsoft SmallBasic by Daddyo" ' Added hints among other tiny things to improve playability." ' Normally set this to 1, this gives more moves to figure things out w/o starting over. ' Make it an integer only, 1 to 4 are typical values. easyMovesScale = 2 TextWindow.Left = Desktop.Width / 4 TextWindow.Top = Desktop.Height / 3 TextWindow.Show() TextWindow.BackgroundColor = "darkblue" TextWindow.ForegroundColor = "white" TextWindow.Title = "" MainLoop() Program.End() Sub MainLoop While quit = FALSE Initialize() Intro() ' While not dead or won While lifeState = 0 ' Handle commands GetInputAndParse() ' See how were doing Checks() EndWhile ' Finished, what happened? ShowEnding() Endwhile EndSub ' Accept 1 to 2 word commands only. First 3 characters of each word only used. Sub GetInputAndParse dontUnderstand = TRUE While dontUnderstand = TRUE ' Assume we understand user input unless something wrong ' comes up which we then ask them again dontUnderstand = FALSE theVerb = ""' Clear verb, is the 1st word in the response from the player. theVo = "" ' Clear verb object, is the 2nd word in the response, if any. TextWindow.CursorTop = 18 TextWindow.WriteLine("") TextWindow.WriteLine("") TextWindow.WriteLine(" What do you do next?") TextWindow.WriteLine("") TextWindow.Write(" ") TextWindow.ForegroundColor = "yellow" ' Get their input response = Text.ConvertToLowerCase(TextWindow.Read()) TextWindow.Clear() TextWindow.CursorTop = 8 TextWindow.ForegroundColor = "white" ' TBD might want to get rid of spaces before/after response ' Split out the two parts of their command length = Text.GetLength(response) For i = 1 to length If Text.GetSubText(response, i, 1) = " " Then ' Get 3 character verb If length < 3 then numCharsToGet = length Else numCharsToGet = 3 EndIf theVerb = Text.GetSubText(response, 1, numCharsToGet) ' Get 3 character verb object If length - 4 < 3 then numCharsToGet = length - 4 If numCharsToGet < 0 then numCharsToGet = 0 EndIf Else numCharsToGet = 3 EndIf theVo = Text.GetSubText(response, i+1, numCharsToGet) i = 99 ' Exit for loop EndIf Endfor ' If one word found, add verb or verb object to make complete If theVo = "" then If length < 3 then numCharsToGet = length If numCharsToGet < 0 then numCharsToGet = 0 EndIf Else numCharsToGet = 3 EndIf response = Text.GetSubText(response, 1, numCharsToGet) ' Make "east" movement into "go east" etc If response = "nor" or response = "sou" or response = "eas" or response = "wes" then theVerb = "go " theVo = response ' Make 'help' into 'help doo' for single word commands, ' done to pass verb object word test coming up ElseIf response = "hel" or response = "inv" or response = "loo" or response = "sle" then theVerb = response theVo = "doo" ' Dummy meaningless word Else dontUnderstand = TRUE endif endif If dontUnderstand = FALSE Then ' Determine what verb[] and verb object vo[] index the commands are, ' see if they are valid verbIndex = 0 voIndex = 0 For i = 1 To VERBS If theVerb = Text.GetSubText(verb[i], 1, 3) Then verbIndex = i i = 99 ' exit for EndIf EndFor For i = 1 To VERB_OBJECTS If theVo = Text.GetSubText(vo[i], 1, 3) Then voIndex = i i = 99 ' exit for EndIf EndFor ' Were either invalid? If verbIndex = 0 or voIndex = 0 then dontUnderstand = TRUE Else ' Do the requested command If verbIndex = 1 then Go() Elseif verbIndex = 2 then Get() Elseif verbIndex = 3 then Feed() Elseif verbIndex = 4 then Melt() Elseif verbIndex = 5 then Drink() Elseif verbIndex = 6 then Eat() Elseif verbIndex = 7 then Make() Elseif verbIndex = 8 then Light() Elseif verbIndex = 9 then Inventory() ' Don't penalize for this, original code did moves = moves - 1 Elseif verbIndex = 10 then Help() ' Don't penalize for this, original code did moves = moves - 1 Elseif verbIndex = 11 then Look() ' Don't penalize for this, original code did moves = moves - 1 Elseif verbIndex = 12 then Drain() Elseif verbIndex = 13 then Sleep() Endif endif EndIf If dontUnderstand = TRUE Then TextWindow.WriteLine(" I don't understand that.") EndIf endwhile EndSub ' Move around Sub Go If voIndex > 4 then TextWindow.WriteLine(" Go where?") Else ' See if desired direction is blocked If loc[currentLocation][voIndex] = BLOCKED then TextWindow.WriteLine(" No movement possible that way.") ' See if direction is a cliff ElseIf loc[currentLocation][voIndex] = CLIFF then lifeState = 2 ' You're toast Else ' Certain map locations drag you down, sit in location for a couple rounds no matter what ' way you want to go if (currentLocation = 10 or currentLocation = 14 or currentLocation = 15) and struggleDelay < 2 then struggleDelay = struggleDelay + 1 Look() Else struggleDelay = 0 If dark = TRUE Then lifeState = 8 Else ' Make sure map is complete, warn if not If loc[currentLocation][voIndex] > LOCATIONS or loc[currentLocation][voIndex] < 1 then TextWindow.WriteLine(" !!MAP INCOMPLETE FROM LOCATION " + currentLocation) else ' Set new location desired currentLocation = loc[currentLocation][voIndex] ' Show them where they are now Look() endif Endif Endif endif Endif Endsub ' Allow picking up of items Sub Get If voIndex < 7 then TextWindow.WriteLine(" Don't be silly!") elseif object[voIndex - OBJECT_TO_VERB_OBJECT_OFFSET][LOCATION] = ON_HAND then TextWindow.WriteLine(" You already got it!") else ' Let them take object if here If object[voIndex - OBJECT_TO_VERB_OBJECT_OFFSET][LOCATION] = currentLocation Then TextWindow.WriteLine(" O.K.") object[voIndex - OBJECT_TO_VERB_OBJECT_OFFSET][LOCATION] = ON_HAND itemsCarried = itemsCarried + 1 ' Show them candybar if they took coat and didn't eat it yet or carry yet If voIndex - OBJECT_TO_VERB_OBJECT_OFFSET = 1 then if object[9][LOCATION] <> EATEN and object[9][LOCATION] <> ON_HAND then object[9][LOCATION] = 3 Look() EndIf endif Else ' If they wanted to 'get gas' let them 'drain gas' from the plane If voIndex = 18 then Drain() else TextWindow.WriteLine(" It isn't here!") endif endif endif EndSub ' Feed the fire more sticks or timber Sub Feed If voIndex < 13 then TextWindow.WriteLine(" Don't be silly!") elseif object[3][LOCATION] <> ON_HAND and object[6][LOCATION] <> ON_HAND then TextWindow.WriteLine(" You don't have anything to use!") ElseIf currentLocation <> 4 and currentLocation <> 23 then TextWindow.WriteLine(" You can't here") ' annoying but original... Elseif fire1Lit = FALSE then TextWindow.WriteLine(" It isn't lit yet!") Elseif currentLocation = 23 and fire2Lit = FALSE Then TextWindow.WriteLine(" It isn't lit yet!") elseif currentLocation = 4 then object[3][LOCATION] = NOT_AVAILABLE TextWindow.WriteLine(" O.K.") elseif currentLocation = 23 then object[6][LOCATION] = NOT_AVAILABLE TextWindow.WriteLine(" O.K. A very large size bonfire is now burning!") ' Added the hint fireSize = fireSize + 1 ' Let helo swing by & find us since fire's big enough. Added feature to end game sooner. movesWhenDiscovered = moves + 3 Endif EndSub ' Melt snow into water for drinking Sub Melt If currentLocation <> 4 Then TextWindow.WriteLine(" You can't here!") ElseIf object[4][LOCATION] <> ON_HAND Then TextWindow.WriteLine(" You don't have anything to use.") ElseIf fire1Lit = FALSE Then TextWindow.WriteLine(" You can't... yet.") ElseIf voIndex <> 16 Then TextWindow.WriteLine(" Melt what?") Else TextWindow.WriteLine(" O.K. A pool of water appears on the ground.") ' Added a pool of water... melted = TRUE EndIf EndSub ' Drink water that we made Sub Drink If voIndex <> 17 Then TextWindow.WriteLine(" Drink what?") ElseIf melted = FALSE Then TextWindow.WriteLine(" You don't have any!") Else TextWindow.WriteLine(" That's refreshing") drank = TRUE EndIf EndSub ' Eat candy bar Sub Eat ' Let them eat candy bar if we have it If object[9][LOCATION] <> ON_HAND Then TextWindow.WriteLine(" You don't have anything") ElseIf voIndex <> 15 Then TextWindow.WriteLine(" Eat what?") Else TextWindow.WriteLine(" It's hard but tastes mighty good.") object[9][LOCATION] = EATEN EndIf EndSub ' Make a splint from the straight stick Sub Make If voIndex = 13 and currentLocation <> 4 Then TextWindow.WriteLine(" You can't here.") ElseIf voIndex = 14 and (currentLocation = 4 or currentLocation = 23) Then Light() ElseIf object[5][LOCATION] <> ON_HAND Then TextWindow.WriteLine(" You don't have one.") ElseIf voIndex = 13 and object[5][LOCATION] = ON_HAND Then TextWindow.WriteLine(" O.K. That feels better") ' Change to a splint object[5][DESCRIPTION] = "splint" Else TextWindow.WriteLine(" Make what?") EndIf EndSub ' Light one of two fires required Sub Light ' Do we have a lighter? If object[2][LOCATION] <> ON_HAND Then TextWindow.WriteLine(" You don't have anything to light it with!") ' used to say "any matches" which aren't in game ElseIf currentLocation = 4 and object[3][LOCATION] <> ON_HAND Then TextWindow.WriteLine(" You don't have any fuel") ElseIf currentLocation = 4 and gasInCan = FALSE Then TextWindow.WriteLine(" They won't burn... yet.") ElseIf currentLocation = 23 and object[6][LOCATION] <> ON_HAND Then TextWindow.WriteLine(" You don't have any fuel") ElseIf currentLocation <> 4 and currentLocation <> 23 Then TextWindow.WriteLine(" You can't here.") ' why not, annoying! Else TextWindow.WriteLine(" O.K.") fire1Lit = TRUE If currentLocation = 4 then ' Create new sticks and have fire here object[3][LOCATION] = 5 object[8][LOCATION] = 4 elseif currentLocation = 23 then ' Put some fallen timber /large pieces of wood nearby, keep feeding to allow helicopter to see us object[6][LOCATION] = 25 fire2Lit = TRUE fireSize = fireSize + 1 object[8][LOCATION] = 23 ' Put fire here when looked at, old 1st fire gone if were to look but ok, not needed TextWindow.WriteLine(" A moderately sized fire has begun.") ' Added this hint ' Let helo swing by & not find us since fire's not big enough. Added feature. movesWhenDiscovered = moves + 3 endif EndIf Endsub ' Show what we have on hand Sub Inventory TextWindow.WriteLine("") TextWindow.WriteLine(" You are carrying:") If itemsCarried < 1 then TextWindow.WriteLine(" Nothing!") else For i = 1 To OBJECTS if object[i][LOCATION] = ON_HAND then TextWindow.Write(" a " + object[i][DESCRIPTION] + ",") endif EndFor TextWindow.WriteLine("") endif EndSub Sub Help TextWindow.WriteLine("") TextWindow.WriteLine(" Use up to two words for actions, a verb & object.") ' Added TextWindow.WriteLine("") TextWindow.WriteLine(" These are the verbs you may use:") TextWindow.WriteLine("") For i = 1 to VERBS TextWindow.Write(verb[i] + ", ") if i = 5 then TextWindow.WriteLine("") EndIf Endfor TextWindow.WriteLine("") TextWindow.WriteLine("") TextWindow.WriteLine(" (You need only type the first three letters.)") EndSub ' Say what we see, including objects Sub Look TextWindow.WriteLine("") TextWindow.WriteLine(" " + loc[currentLocation][DESCRIPTION]) TextWindow.WriteLine("") If currentLocation = 22 or currentLocation = 11 then lifeState = 1 else For i = 1 To OBJECTS If object[i][LOCATION] = currentLocation Then TextWindow.WriteLine(" A " + object[i][DESCRIPTION] + " is here") EndIf EndFor TextWindow.WriteLine("") TextWindow.Write(" < Possible movement: ") If loc[currentLocation][NORTH] <> BLOCKED Then TextWindow.Write("north ") EndIf If loc[currentLocation][SOUTH] <> BLOCKED Then TextWindow.Write("south ") EndIf If loc[currentLocation][EAST] <> BLOCKED Then TextWindow.Write("east ") EndIf If loc[currentLocation][WEST] <> BLOCKED Then TextWindow.Write("west ") EndIf TextWindow.WriteLine(">") TextWindow.WriteLine("") endif Endsub ' You can drain plane gas into aluminum can Sub Drain If voIndex = 18 or voIndex = 6 Then If currentLocation <> 3 Then TextWindow.WriteLine(" There's none here...") ElseIf object[4][LOCATION] <> ON_HAND Then ' Can on hand? TextWindow.WriteLine(" Into what?") Else TextWindow.WriteLine(" O.K. The plane's gas is now in the can.") ' added planes gas in can object[4][DESCRIPTION] = "aluminum can with gas" ' added can full gasInCan = TRUE EndIf Else TextWindow.WriteLine(" Drain what?") EndIf EndSub ' Need sleep if it starts getting dark Sub Sleep If fire1Lit = FALSE or currentLocation <> 4 Then TextWindow.WriteLine(" It's too cold here!") ElseIf drank = FALSE Then TextWindow.WriteLine(" You're too thirsty to sleep") Else TextWindow.WriteLine(" You quickly doze off by the fire.") Program.Delay(5000) TextWindow.WriteLine("") TextWindow.WriteLine("") TextWindow.WriteLine(" AFTER FIRST LIGHT THE SOUND OF A NEARBY PLANE AWAKENS YOU!") Sound.PlayBellRing() Program.Delay(4000) TextWindow.WriteLine(" TOO BAD THE FOG'S SO THICK.") slept = TRUE EndIf EndSub Sub Checks moves = moves + 1 return = FALSE ' There's gotta be a better way to code this... ' Added easyMoves for a less annoying time ' If we havent made a splint If object[5][DESCRIPTION] <> "splint" Then TextWindow.WriteLine(" Your leg is very painful") If moves > 6 * easyMovesScale then lifeState = 3 return = TRUE endif Endif ' If we dont have coat If return = FALSE and object[1][LOCATION] <> ON_HAND Then TextWindow.WriteLine(" It's very cold.") If moves > 8 * easyMovesScale then lifeState = 4 return = TRUE endif endif ' If not moved much then dont do further tests If return = FALSE and moves < 10 * easyMovesScale Then ' do nothing return = TRUE Endif ' Thirsty? If return = FALSE and drank = FALSE and Math.Remainder(moves, 2) = 0 Then ' even moves TextWindow.WriteLine(" You're very thirsty") If moves > 24 * easyMovesScale then lifeState = 5 return = TRUE endif Endif ' Hungry? If return = FALSE and object[9][LOCATION] <> EATEN and Math.Remainder(moves, 2) <> 0 Then ' odd moves TextWindow.WriteLine(" You're very hungry") If moves > 20 * easyMovesScale then lifeState = 6 return = TRUE endif Endif ' Report dark, sleep is necessary then If return = FALSE and moves > 18 * easyMovesScale and slept = FALSE and Math.Remainder(moves, 2) <> 0 Then ' odd moves TextWindow.WriteLine(" It's getting dark.") If moves > 25 * easyMovesScale then dark = TRUE return = TRUE endif Endif ' Rescue helo coming? Bigger bonfire is only way out If (return = FALSE and moves = 45 * easyMovesScale) or (return = FALSE and moves = movesWhenDiscovered) Then TextWindow.WriteLine(" You hear a helicopter approaching...") Sound.PlayBellRing() Program.Delay(3000) If fireSize > 1 then TextWindow.WriteLine(" They seem to see your large fire...") Program.Delay(4000) lifeState = -1 ' you made it! return = TRUE Else TextWindow.WriteLine(" But they don't see you...") Program.Delay(2000) return = TRUE endif Endif ' Didn't survive If return = FALSE and moves > 49 * easyMovesScale Then lifeState = 7 return = TRUE Endif EndSub Sub Intro TextWindow.Clear() TextWindow.WriteLine("") TextWindow.WriteLine("") TextWindow.WriteLine("") TextWindow.WriteLine("") TextWindow.WriteLine("") TextWindow.WriteLine(" CAN YOU SURVIVE?") TextWindow.WriteLine("") TextWindow.WriteLine("") TextWindow.WriteLine("") TextWindow.WriteLine("") TextWindow.WriteLine("") Program.Delay(2000) TextWindow.WriteLine(" By Russ Hall") Program.Delay(5000) TextWindow.Clear() TextWindow.WriteLine("") TextWindow.WriteLine("") TextWindow.WriteLine("") TextWindow.WriteLine(" You were on a business trip in a single engine plane. Bad weather crossing") TextWindow.WriteLine(" high mountains suddenly came up, causing you to crash into a rough slope.") TextWindow.WriteLine("") TextWindow.WriteLine(" You much later awake to consciousness in a cold, quiet, and foggy world with") TextWindow.WriteLine(" a terrible pain inside your right leg.") TextWindow.WriteLine("") TextWindow.WriteLine(" (If you need game assistance, type 'help')") Program.Delay(6000) TextWindow.WriteLine("") TextWindow.WriteLine("") Look() EndSub Sub ShowEnding TextWindow.WriteLine("") If lifeState = -1 then TextWindow.WriteLine(" THE RESCUE COPTER LOWERS A LADDER AND MAN TO ASSIST YOU GRATEFULLY UP.") TextWindow.WriteLine("") TextWindow.WriteLine(" CONGRATULATIONS! YOU HAVE SURVIVED!") Elseif lifeState = 1 and currentLocation=22 Then TextWindow.WriteLine(" YOU SLIP ON THE SNOW AND SLIDE INTO THE ROCKS BELOW.") Elseif lifeState = 1 Then TextWindow.WriteLine(" YOU SLIP AND TUMBLE OVER THE ROCKS.") Elseif lifeState = 2 Then TextWindow.WriteLine(" YOU HAVE FALLEN OFF THE CLIFF!") Elseif lifeState = 3 Then TextWindow.WriteLine(" YOUR PAIN KEEPS YOU FROM MOVING FURTHER, AND YOU CANNOT KEEP WARM.") Elseif lifeState = 4 Then TextWindow.WriteLine(" HYPOTHERMIA SETS IN AND YOU SHIVVER UNCONTROLLABLY.") Elseif lifeState = 5 Then TextWindow.WriteLine(" ONE CAN'T LAST LONG WITHOUT WATER.") Elseif lifeState = 6 Then TextWindow.WriteLine(" WITHOUT THE ENERGY OF FOOD, HYPOTHERMIA SETS IN.") Elseif lifeState = 7 Then TextWindow.WriteLine(" YOU HAVE BEEN TOO LONG IN THE COLD.") Elseif lifeState = 8 Then TextWindow.WriteLine(" YOU CAN'T SEE TO MANEUVER SAFELY AND STUMBLE IN THE ROCKS,") TextWindow.WriteLine(" KNOCKING YOURSELF UNCONSCIOUS.") Elseif lifeState = 9 Then TextWindow.WriteLine(" YOU HAVE FAILED TO SURVIVE.") endif TextWindow.WriteLine("") TextWindow.WriteLine("") TextWindow.WriteLine("") Program.Delay(3000) TextWindow.WriteLine(" Do you wish to try again?") TextWindow.Write(" ") response = Text.ConvertToLowerCase(TextWindow.Read()) If Text.GetSubText(response, 1, 1) = "n" then quit = TRUE TextWindow.WriteLine(" BYE-BYE") Program.Delay(2000) endif EndSub Sub Initialize ' Uppercase variables in this listing are non-changing constant values for ease of readability TRUE = 1 FALSE = 0 ' Game states & variables moves = 0 ' How many moves we've made lifeState = 0 ' How we died, or won if -1 currentLocation = 3 ' What loc[] index we're at quit = FALSE ' Quit? dark = FALSE ' Dark? gasInCan = FALSE ' Gas is in can fire1Lit = FALSE ' Small fire started? fire2Lit = FALSE ' Bonfire started? melted = FALSE ' Melted snow? drank = FALSE ' Drank water? slept = FALSE ' Got sleep? itemsCarried = 0 ' Variable not really needed fireSize = 0 ' Size of large timber fire, must be big enough for helo to find us struggleDelay = 0 ' long time to get through certain locations movesWhenDiscovered = 9999 ' If we light the fire, what move # we have helo come by to help end game quicker. Added feature. ' Verbs (action words!) - lowercase only, 3 characters minimum, 1st 3 characters unique VERBS = 13 verb[1] = "go " verb[2] = "get" verb[3] = "feed" verb[4] = "melt" verb[5] = "drink" verb[6] = "eat" verb[7] = "make" verb[8] = "light" verb[9] = "inventory" verb[10] = "help" verb[11] = "look" verb[12] = "drain" verb[13] = "sleep" ' Verb objects (action directed upon) - lowercase only, 3 characters minimum, 1st 3 characters unique ' Indexes past OBJECT_TO_VERB_OBJECT_OFFSET must match object[1 to OBJECTS] ' Note: this really should be combined in the object[][] array VERB_OBJECTS = 18 vo[1] = "north" vo[2] = "south" vo[3] = "east" vo[4] = "west" vo[5] = "doo" 'dummy filler to make code work, looks like door... vo[6] = "plane" vo[7] = "coat" vo[8] = "light" vo[9] = "sticks" vo[10] = "can" vo[11] = "limb" vo[12] = "timber" vo[13] = "splint" vo[14] = "fire" vo[15] = "bar" vo[16] = "snow" vo[17] = "water" vo[18] = "gas" ' Objects usable in the game, must match vo[7 to 15] indexes DESCRIPTION = 0 ' Also used for loc[][] 2nd index LOCATION = 1 ' LOCATION possible entries ON_HAND = 99 EATEN = 100 NOT_AVAILABLE = 0 OBJECTS = 9 OBJECT_TO_VERB_OBJECT_OFFSET = 6 ' subtract this from verb object index (vo[]) to get this object object[1][DESCRIPTION] = "coat" object[1][LOCATION] = 3 ' What location (loc[x][]) is this object is currently at, or if on hand = ON_HAND object[2][DESCRIPTION] = "butane lighter" object[2][LOCATION] = 2 object[3][DESCRIPTION] = "bunch of sticks" object[3][LOCATION] = 5 object[4][DESCRIPTION] = "empty aluminum gas can" ' added empty and gas, will change when filled from plane object[4][LOCATION] = 1 object[5][DESCRIPTION] = "straight limb, possibly useful for making a splint" ' Original code had no hint here, only "straight limb" object[5][LOCATION] = 4 object[6][DESCRIPTION] = "mess of fallen timber" object[6][LOCATION] = 25 object[7][DESCRIPTION] = "splint" object[7][LOCATION] = NOT_AVAILABLE object[8][DESCRIPTION] = "fire" object[8][LOCATION] = NOT_AVAILABLE object[9][DESCRIPTION] = "bar of chocolate" object[9][LOCATION] = NOT_AVAILABLE ' Map locations description & movement possibilities / connections for each location LOCATIONS = 25 ' loc[][] location information index constants NORTH = 1 SOUTH = 2 EAST = 3 WEST = 4 ' Possible values BLOCKED = 0 CLIFF = 99 ' Location 1 loc[1][DESCRIPTION] = "THE MOUNTAIN SIDE SLOPES DOWN STEEPLY TO THE SOUTH. THE WAY WEST IS BLOCKED BY A ROCKSLIDE." loc[1][NORTH] = BLOCKED ' Can't go north from here loc[1][SOUTH] = 6 ' If we go south, move to location 6 loc[1][EAST] = 2 ' If we go east, move to location 2 loc[1][WEST] = BLOCKED ' Can't go west from here ' Location 2 and so on loc[2][DESCRIPTION] = "SOME CRASH DEBRIS SHOWS HERE THROUGH THE FOG AND SNOW COVERING." loc[2][NORTH] = BLOCKED loc[2][SOUTH] = BLOCKED loc[2][EAST] = 3 loc[2][WEST] = 1 loc[3][DESCRIPTION] = "YOU ARE AT THE CRASH SITE. PIECES OF THE PLANE SURROUND YOU. YOU NOTICE GAS STILL IN THE PLANE." ' added gas for hint, needed with wood & lighter to start fires loc[3][NORTH] = BLOCKED loc[3][SOUTH] = BLOCKED loc[3][EAST] = 4 loc[3][WEST] = 2 loc[4][DESCRIPTION] = "YOU ARE ON A GENTLE, SOUTHERN SLOPING, SNOWY MOUNTAIN SIDE. A PERFECT PLACE FOR A SMALL FIRE." ' added a perfect place for a fire loc[4][NORTH] = BLOCKED loc[4][SOUTH] = 9 loc[4][EAST] = 5 loc[4][WEST] = 3 loc[5][DESCRIPTION] = "YOU CAN SEE VERY DENSE FOREST TO THE SOUTH AND EAST." loc[5][NORTH] = BLOCKED loc[5][SOUTH] = 10 loc[5][EAST] = BLOCKED loc[5][WEST] = 4 loc[6][DESCRIPTION] = "THE MOUNTAIN SIDE HERE IS VERY STEEP, YOU HAVE TROUBLE MANEUVERING" loc[6][NORTH] = 1 loc[6][SOUTH] = 11 loc[6][EAST] = 7 loc[6][WEST] = BLOCKED loc[7][DESCRIPTION] = "HERE YOU SEE THE HILLSIDE SLOPE DOWN MORE STEEPLY ON THE WEST." loc[7][NORTH] = BLOCKED loc[7][SOUTH] = 12 loc[7][EAST] = 8 loc[7][WEST] = 6 loc[8][DESCRIPTION] = "THE FOG SEEMS TO BE THINNING DOWN THE MOUNTAIN, AND A ROCKY CLIFF EDGE RUNS ALONG THE SOUTH HERE." loc[8][NORTH] = BLOCKED loc[8][SOUTH] = CLIFF loc[8][EAST] = 9 loc[8][WEST] = 7 loc[9][DESCRIPTION] = "A CLIFF EDGE IS TO THE SOUTH AND DENSE FOREST ON THE EAST." loc[9][NORTH] = 4 loc[9][SOUTH] = CLIFF loc[9][EAST] = 10 loc[9][WEST] = 8 loc[10][DESCRIPTION] = "YOU ARE IN THE THICK FOREST. IT'S DIFFICULT TO KNOW YOUR WAY." loc[10][NORTH] = 5 loc[10][SOUTH] = 15 loc[10][EAST] = BLOCKED loc[10][WEST] = 9 loc[11][DESCRIPTION] = "THE MOUNTAIN SIDE HERE IS VERY STEEP, YOU HAVE TROUBLE MANEUVERING" loc[11][NORTH] = 6 loc[11][SOUTH] = 16 loc[11][EAST] = 12 loc[11][WEST] = BLOCKED loc[12][DESCRIPTION] = "THIS IS A BEAUTIFUL, WIDE MORAINE FIELD WITH STEEP SLOPES WEST." loc[12][NORTH] = 7 loc[12][SOUTH] = 17 loc[12][EAST] = 13 loc[12][WEST] = 11 loc[13][DESCRIPTION] = "YOU ARE AT THE BASE OF A ROCKY CLIFF TO THE NORTH, DENSE FOREST TO THE EAST." loc[13][NORTH] = BLOCKED loc[13][SOUTH] = 18 loc[13][EAST] = 14 loc[13][WEST] = 12 loc[14][DESCRIPTION] = "YOU ARE IN THE THICK FOREST. IT'S DIFFICULT TO KNOW YOUR WAY." loc[14][NORTH] = BLOCKED loc[14][SOUTH] = 19 loc[14][EAST] = 15 loc[14][WEST] = 13 loc[15][DESCRIPTION] = "YOU ARE IN THE THICK FOREST. IT'S DIFFICULT TO KNOW YOUR WAY." loc[15][NORTH] = 10 loc[15][SOUTH] = BLOCKED loc[15][EAST] = BLOCKED loc[15][WEST] = 14 loc[16][DESCRIPTION] = "YOU ARE ON A BEAUTIFUL FORESTED MOUNTAINSIDE." loc[16][NORTH] = 11 loc[16][SOUTH] = 21 loc[16][EAST] = 17 loc[16][WEST] = BLOCKED loc[17][DESCRIPTION] = "THERE IS A LARGE, STEEP SNOWFIELD TO THE SOUTH." loc[17][NORTH] = 12 loc[17][SOUTH] = 22 loc[17][EAST] = 18 loc[17][WEST] = 16 loc[18][DESCRIPTION] = "YOU ARE ON A ROCKY, SLOPING MOUNTAIN SIDE." loc[18][NORTH] = 13 loc[18][SOUTH] = 23 loc[18][EAST] = 19 loc[18][WEST] = 17 loc[19][DESCRIPTION] = "THE FOREST IS THINNER HERE BUT MUCH DENSER TO THE NORTH." loc[19][NORTH] = 14 loc[19][SOUTH] = 24 loc[19][EAST] = 20 loc[19][WEST] = 18 loc[20][DESCRIPTION] = "YOU ARE ON A BEAUTIFUL FORESTED MOUNTAINSIDE." loc[20][NORTH] = 15 loc[20][SOUTH] = BLOCKED loc[20][EAST] = BLOCKED loc[20][WEST] = 19 loc[21][DESCRIPTION] = "A STEEP, SLICK SNOWFIELD BLOCKS YOUR WAY EAST." loc[21][NORTH] = 16 loc[21][SOUTH] = BLOCKED loc[21][EAST] = 22 loc[21][WEST] = BLOCKED loc[22][DESCRIPTION] = "YOU ARE ON A STEEP, SLICK SNOWFIELD." loc[22][NORTH] = 17 loc[22][SOUTH] = BLOCKED loc[22][EAST] = 23 loc[22][WEST] = 21 loc[23][DESCRIPTION] = "YOU'RE IN A CLEARING HERE, WITH A STEEP SNOWFIELD WEST. AN IDEAL PLACE FOR A LARGE FIRE." ' added a perfect place for a fire loc[23][NORTH] = 18 loc[23][SOUTH] = BLOCKED loc[23][EAST] = 24 loc[23][WEST] = 22 loc[24][DESCRIPTION] = "YOU'RE ON A SLOPING MOUNTAIN SIDE WITH CLOUDS HIGH ABOVE YOU." loc[24][NORTH] = 19 loc[24][SOUTH] = BLOCKED loc[24][EAST] = 25 loc[24][WEST] = 23 loc[25][DESCRIPTION] = "YOU ARE ON A BEAUTIFUL FORESTED MOUNTAINSIDE." loc[25][NORTH] = 20 loc[25][SOUTH] = BLOCKED loc[25][EAST] = BLOCKED loc[25][WEST] = 24 EndSub End>TWC709.sb< Start>TWD491.sb< ' Flag of Korea ' Copyright © 2017 Nonki Takahashi. The MIT License. ' Last update 2017-10-20 GraphicsWindow.Title = "Flag of Korea" SB_Workaround() Init() ' initialize shapes (1) Shapes_Init_1() name = "Korea1" scale = gw / 360 Group_Add() ' initialize shapes (2) Shapes_Init_2() name = "Korea2" Group_Add() ' rotate shapes x = 72 y = 48 Math_CartesianToPolar() angle = a - 90 i = nGroup cx = 180 cy = 120 Group_Rotate() ' initialize shapes (3) Shapes_Init_3() name = "Korea3" Group_Add() ' rotate shapes x = 72 y = 48 Math_CartesianToPolar() angle = 90 - a i = nGroup cx = 180 cy = 120 Group_Rotate() Sub Init gw = 598 gh = gw / 1.5 GraphicsWindow.Width = gw GraphicsWindow.Height = gh angle = 0 EndSub Sub Group_Add ' Group | add shapes to a group ' param name - group name ' param shX, shY, origin of shape array ' param scale - scale of group ' param shape[] - shape array ' param nGroup - number of group ' return nGroup - updated number of group ' return group - group array Stack.PushValue("local", i) Stack.PushValue("local", x) Stack.PushValue("local", y) nGroup = nGroup + 1 grp = "" grp["name"] = name grp["x"] = shX grp["y"] = shY grp["angle"] = 0 grp["dir"] = 1 Shapes_CalcWidthAndHeight() grp["width"] = shWidth grp["cx"] = shWidth / 2 grp["height"] = shHeight s = scale grp["scale"] = s For i = 1 To Array.GetItemCount(shape) shp = shape[i] GraphicsWindow.PenWidth = shp["pw"] * s If shp["pw"] > 0 Then GraphicsWindow.PenColor = shp["pc"] EndIf If Text.IsSubText("rect|ell|tri|text|btn", shp["func"]) Then GraphicsWindow.BrushColor = shp["bc"] EndIf If Text.IsSubText("text|btn", shp["func"]) Then If silverlight Then fs = Math.Floor(shp["fs"] * 0.9) Else fs = shp["fs"] EndIf GraphicsWindow.FontSize = fs * s GraphicsWindow.FontName = shp["fn"] If shp["fb"] = "False" Then GraphicsWindow.FontBold = "False" Else GraphicsWindow.FontBold = "True" EndIf EndIf If shp["func"] = "rect" Then shp["obj"] = Shapes.AddRectangle(shp["width"] * s, shp["height"] * s) ElseIf shp["func"] = "ell" Then shp["obj"] = Shapes.AddEllipse(shp["width"] * s, shp["height"] * s) ElseIf shp["func"] = "tri" Then shp["obj"] = Shapes.AddTriangle(shp["x1"] * s, shp["y1"] * s, shp["x2"] * s, shp["y2"] * s, shp["x3"] * s, shp["y3"] * s) ElseIf shp["func"] = "line" Then shp["obj"] = Shapes.AddLine(shp["x1"] * s, shp["y1"] * s, shp["x2"] * s, shp["y2"] * s) ElseIf shp["func"] = "text" Then shp["obj"] = Shapes.AddText(shp["text"]) EndIf x = shp["x"] y = shp["y"] shp["rx"] = x shp["ry"] = y If silverlight And Text.IsSubText("tri|line", shp["func"]) Then alpha = Math.GetRadians(shp["angle"]) SB_RotateWorkaround() shp["wx"] = x shp["wy"] = y EndIf If shp["func"] = "btn" Then shp["obj"] = Controls.AddButton(shp["caption"], shX + x * s, shY + y * s) Else Shapes.Move(shp["obj"], shX + x * s, shY + y * s) EndIf If Text.IsSubText("rect|ell|tri|text", shp["func"]) And (shp["angle"] <> 0) And (shp["angle"] <> "") Then Shapes.Rotate(shp["obj"], shp["angle"]) EndIf shape[i] = shp EndFor grp["shape"] = shape group[nGroup] = grp y = Stack.PopValue("local") x = Stack.PopValue("local") i = Stack.PopValue("local") EndSub Sub Group_Rotate ' Group | Rotate a group ' param group[i] - group to move ' param cx, cy - rotation center (if given) ' param angle - to rotate Stack.PushValue("local", x) Stack.PushValue("local", y) Stack.PushValue("local", s) Stack.PushValue("local", n) param["angle"] = angle If cx <> "" Then param["cx"] = cx Else cx = "" ' to avoid syntax error param["cx"] = shWidth / 2 EndIf If cy <> "" Then param["cy"] = cy Else cy = "" ' to avoid syntax error param["cy"] = shHeight / 2 EndIf grp = group[i] s = grp["scale"] shape = grp["shape"] shX = grp["x"] shY = grp["y"] n = Array.GetItemCount(shape) Stack.PushValue("local", i) For i = 1 To n shp = shape[i] param["x"] = shp["x"] param["y"] = shp["y"] param["width"] = shp["width"] param["height"] = shp["height"] Shapes_CalcRotatePos() shp["rx"] = x shp["ry"] = y If silverlight And Text.IsSubText("tri|line", shp["func"]) Then alpha = Math.GetRadians(angle + shp["angle"]) SB_RotateWorkAround() shp["wx"] = x shp["wy"] = y EndIf Shapes.Move(shp["obj"], shX + x * s, shY + y * s) Shapes.Rotate(shp["obj"], angle + shp["angle"]) shape[i] = shp EndFor i = Stack.PopValue("local") grp["shape"] = shape group[i] = grp n = Stack.PopValue("local") s = Stack.PopValue("local") y = Stack.PopValue("local") x = Stack.PopValue("local") EndSub Sub Math_CartesianToPolar ' Math | convert cartesian coodinate to polar coordinate ' param x, y - cartesian coordinate ' return r, a - polar coordinate r = Math.SquareRoot(x * x + y * y) If x = 0 And y > 0 Then a = 90 ' [degree] ElseIf x = 0 And y < 0 Then a = -90 ElseIf x = 0 Then a = 0 Else a = Math.ArcTan(y / x) * 180 / Math.Pi EndIf If x < 0 Then a = a + 180 ElseIf x > 0 And y < 0 Then a = a + 360 EndIf EndSub Sub SB_RotateWorkaround ' Small Basic | Rotate workaround for Silverlight ' param shp - current shape ' param x, y - original coordinate ' param alpha - angle [radian] ' returns x, y - workaround coordinate If shp["func"] = "tri" Then x1 = -Math.Floor(shp["x3"] / 2) y1 = -Math.Floor(shp["y3"] / 2) ElseIf shp["func"] = "line" Then x1 = -Math.Floor(Math.Abs(shp["x1"] - shp["x2"]) / 2) y1 = -Math.Floor(Math.Abs(shp["y1"] - shp["y2"]) / 2) EndIf ox = x - x1 oy = y - y1 x = x1 * Math.Cos(alpha) - y1 * Math.Sin(alpha) + ox y = x1 * Math.Sin(alpha) + y1 * Math.Cos(alpha) + oy EndSub Sub SB_Workaround ' Small Basic | Workaround for Silverlight ' returns silverlight - "True" if in remote color = GraphicsWindow.GetPixel(0, 0) If Text.GetLength(color) > 7 Then silverlight = "True" msWait = 300 Else silverlight = "False" EndIf EndSub Sub Shapes_CalcRotatePos ' Shapes | Calculate position for rotated shape ' param["x"], param["y"] - position of a shape ' param["width"], param["height"] - size of a shape ' param ["cx"], param["cy"] - center of rotation ' param ["angle"] - rotate angle ' return x, y - rotated position of a shape _cx = param["x"] + param["width"] / 2 _cy = param["y"] + param["height"] / 2 x = _cx - param["cx"] y = _cy - param["cy"] Math_CartesianToPolar() a = a + param["angle"] x = r * Math.Cos(a * Math.Pi / 180) y = r * Math.Sin(a * Math.Pi / 180) _cx = x + param["cx"] _cy = y + param["cy"] x = _cx - param["width"] / 2 y = _cy - param["height"] / 2 EndSub Sub Shapes_CalcWidthAndHeight ' Shapes | Calculate total width and height of shapes ' param shape[] - shape array ' return shWidth, shHeight - total size of shapes For i = i To Array.GetItemCount(shape) shp = shape[i] If shp["func"] = "tri" Or shp["func"] = "line" Then xmin = shp["x1"] xmax = shp["x1"] ymin = shp["y1"] ymax = shp["y1"] If shp["x2"] < xmin Then xmin = shp["x2"] EndIf If xmax < shp["x2"] Then xmax = shp["x2"] EndIf If shp["y2"] < ymin Then ymin = shp["y2"] EndIf If ymax < shp["y2"] Then ymax = shp["y2"] EndIf If shp["func"] = "tri" Then If shp["x3"] < xmin Then xmin = shp["x3"] EndIf If xmax < shp["x3"] Then xmax = shp["x3"] EndIf If shp["y3"] < ymin Then ymin = shp["y3"] EndIf If ymax < shp["y3"] Then ymax = shp["y3"] EndIf EndIf shp["width"] = xmax - xmin shp["height"] = ymax - ymin EndIf If i = 1 Then shWidth = shp["x"] + shp["width"] shHeight = shp["y"] + shp["height"] Else If shWidth < shp["x"] + shp["width"] Then shWidth = shp["x"] + shp["width"] EndIf If shHeight < shp["y"] + shp["height"] Then shHeight = shp["y"] + shp["height"] EndIf EndIf shape[i] = shp EndFor EndSub Sub Shapes_Init_1 ' Shapes | Initialize shapes data ' return shX, shY - current position of shapes ' return shape - array of shapes shX = 0 ' x offset shY = 0 ' y offset shape = "" shape[1] = "pw=0;bc=#003478;func=rect;width=180;height=240;x=0;y=0;" shape[2] = "pw=0;bc=#C60C30;func=rect;width=180;height=240;x=180;y=0;" shape[3] = "pw=0;bc=#003478;func=tri;x1=180;y1=0;x2=0;y2=120;x3=360;y3=120;x=0;y=120;width=360;height=120;" shape[4] = "pw=0;bc=#C60C30;func=tri;x1=180;y1=0;x2=0;y2=120;x3=360;y3=120;x=0;y=0;angle=180;width=360;height=120;" shape[5] = "pw=0;bc=#FFF;func=rect;width=360;height=60;x=0;y=0;angle=180;" shape[6] = "pw=0;bc=#FFF;func=rect;width=360;height=60;x=0;y=180;angle=180;" shape[7] = "pw=0;bc=#FFF;func=rect;width=120;height=240;x=0;y=0;angle=180;" shape[8] = "pw=0;bc=#FFF;func=rect;width=120;height=240;x=240;y=0;angle=180;" shape[9] = "pw=30;pc=#FFF;bc=Transparent;func=ell;width=180;height=180;x=90;y=30;angle=180;" EndSub Sub Shapes_Init_2 ' Shapes | Initialize shapes data ' return shX, shY - current position of shapes ' return shape - array of shapes shX = 0 ' x offset shY = 0 ' y offset shape = "" shape[1] = "pw=0;bc=#C60C30;func=ell;width=60;height=60;x=150;y=60;angle=180;" shape[2] = "pw=0;bc=#003478;func=ell;width=60;height=60;x=150;y=120;angle=180;" shape[3] = "pw=0;bc=#000;func=rect;width=60;height=10;x=150;y=-10;angle=180;" shape[4] = "pw=0;bc=#000;func=rect;width=60;height=10;x=150;y=5;angle=180;" shape[5] = "pw=0;bc=#000;func=rect;width=60;height=10;x=150;y=20;angle=180;" shape[6] = "pw=0;bc=#000;func=rect;width=60;height=10;x=150;y=210;angle=180;" shape[7] = "pw=0;bc=#000;func=rect;width=60;height=10;x=150;y=225;angle=180;" shape[8] = "pw=0;bc=#000;func=rect;width=60;height=10;x=150;y=240;angle=180;" shape[9] = "pw=0;bc=#FFF;func=rect;width=5;height=45;x=177.5;y=207.5;angle=180;" EndSub Sub Shapes_Init_3 ' Shapes | Initialize shapes data ' return shX, shY - current position of shapes ' return shape - array of shapes shX = 0 ' x offset shY = 0 ' y offset shape = "" shape[1] = "pw=0;bc=#000;func=rect;width=60;height=10;x=150;y=-10;angle=180;" shape[2] = "pw=0;bc=#000;func=rect;width=60;height=10;x=150;y=5;angle=180;" shape[3] = "pw=0;bc=#000;func=rect;width=60;height=10;x=150;y=20;angle=180;" shape[4] = "pw=0;bc=#000;func=rect;width=60;height=10;x=150;y=210;angle=180;" shape[5] = "pw=0;bc=#000;func=rect;width=60;height=10;x=150;y=225;angle=180;" shape[6] = "pw=0;bc=#000;func=rect;width=60;height=10;x=150;y=240;angle=180;" shape[7] = "pw=0;bc=#FFF;func=rect;width=5;height=15;x=177.5;y=-12.5;angle=180;" shape[8] = "pw=0;bc=#FFF;func=rect;width=5;height=15;x=177.5;y=17.5;angle=180;" shape[9] = "pw=0;bc=#FFF;func=rect;width=5;height=15;x=177.5;y=222.5;angle=180;" EndSub End>TWD491.sb< Start>TWD975.sb< ss="800,376,800,298,820,289,835,289,853,296,853,376|990,610,992,544,1001,536,1001,514,994,506,996,296,1090,281,1100,262,1102,247,778,252,779,273,789,284,786,345,763,341,756,295,765,282,733,261,733,249,699,253,699,265,683,280,674,287,681,298,676,327,671,348,597,370,572,369,568,351,566,325,572,314,531,282,499,311,487,317,498,328,499,350,486,371,306,373,299,349,249,348,243,367,224,373,197,435,221,486,220,507,326,502,326,530,452,541,493,597,977,606|251,347,253,231,237,203,257,186,292,184,313,202,297,224,296,345|129,525,129,619,19,619,114,529|132,519,130,543,234,542,229,596,314,596,317,543,408,545,393,536,320,533,299,506,242,507,225,522,140,518|217,386,162,373,166,292,183,277,181,250,203,254,202,269,214,296,214,355,217,370,238,377 sh=LDText.Split (ss "|") vv="739,357,737,316,718,292,704,292,702,226,716,203,157,198,144,208,139,223,106,222,106,329,70,333,69,353,228,354,224,383,277,384,274,356,545,356,545,385,597,383,596,358|335,392,326,384,308,385,292,403,210,403,194,386,175,384,174,392,187,394,205,411,295,412,322,393, vg=LDText.Split (vv "|") GraphicsWindow.Title="Trains GraphicsWindow.Width=1400 GraphicsWindow.Height=900 GraphicsWindow.Left=5 GraphicsWindow.Top=5 GraphicsWindow.BackgroundColor ="teal GraphicsWindow.PenWidth=0 m[1]="1=0;2=0" m[2]="1=0;2=2" m[3]="1=5;2=0" s=LDShapes.AddPolygon (m) Shapes.Remove (s) GraphicsWindow.MouseMove =mww GraphicsWindow.BrushColor="black e=Shapes.AddEllipse (100 100) Shapes.Move (e 130 540) e=Shapes.AddEllipse (100 100) Shapes.Move (e 320 540) e=Shapes.AddEllipse (160 160) Shapes.Move (e 800 476) e=Shapes.AddEllipse (160 160) Shapes.Move (e 540 476) GraphicsWindow.BrushColor="gold For x=1 To 6 shh=LDText.Split (sh[x] ",") m=0 For r=1 To Array.GetItemCount (shh) Step 2 m[i][1]=shh[r] m[i][2]=shh[r+1] i=i+1 EndFor If x=1 Then oc=3 Else oc=1 EndIf For o=0 to oc-1 p= LDShapes.AddPolygon (m) LDShapes.ZIndex (p, 1-x) If x=1 Then LDShapes.BrushColour (p "blue") LDShapes.Move (p 800+o*64 290) elseif x>=3 then LDShapes.BrushColour (p "black") endif endfor EndFor GraphicsWindow.BrushColor="brown rr=Shapes.AddRectangle (290 15) Shapes.Move (rr 610 574) vf=670 For v=0 to 5 For x=1 To 2 shh=LDText.Split (vg[x] ",") m=0 For r=1 To Array.GetItemCount (shh) Step 2 m[i][1]=shh[r] m[i][2]=shh[r+1] i=i+1 EndFor p= LDShapes.AddPolygon (m) If x=2 Then LDShapes.BrushColour (p "brown") LDShapes.Move (p 1120+v*vf 580) p= LDShapes.AddPolygon (m) LDShapes.BrushColour (p "brown") LDShapes.Move (p 1430+v*vf 580) Else LDShapes.BrushColour (p "gold") LDShapes.Move (p 1010+v*vf 380) EndIf EndFor GraphicsWindow.BrushColor="black o400=320 For o=0 to 1 e=Shapes.AddEllipse (100 100) Shapes.Move (e 1065+o*o400+v*vf 540) LDShapes.ZIndex (e, -5) e=Shapes.AddEllipse (100 100) Shapes.Move (e 1225+o*o400+v*vf 540) LDShapes.ZIndex (e, -5) endfor endfor GraphicsWindow.PenWidth =15 GraphicsWindow.PenColor ="brown While "true For x=1600 to -5600 step -4 LDGraphicsWindow.Reposition (.6 .6 x, -50 0) Program.Delay (10) lx=610+LDMath.Cos(an)*50 ly=550+50*LDMath.Sin (an) Shapes.Move (rr lx ly) Shapes.Remove (l) l=Shapes.AddLine( lx+5 ly+8 385 541) an=an-5 endfor Program.Delay (2222) endwhile Sub mww ' GraphicsWindow.Title=math.Floor (GraphicsWindow.MouseX) +" : "+math.Floor (GraphicsWindow.MouseY) EndSub End>TWD975.sb< Start>TWF273.sb< 'Craig Hlady March 2010 'connect 4 'be the first to connect four disks in a row - horizontally, vertically or diagonally 'board size is 7 wide x 6 high SplashScreen() Initialize() GraphicsWindow.MouseMove = SelectorCheck Sub SelectorCheck OnSelector = 1 EndSub 'start with the human (player 1) GraphicsWindow.MouseDown = HumanCheck Sub HumanCheck OnHuman = 1 EndSub OnSelector = 0 OnHuman = 0 'Main play loop - acting on event flags While ("True") If (OnSelector = 1) Then SelectorMove() OnSelector = 0 EndIf If (OnHuman = 1) Then HumanMove() OnHuman = 0 EndIf Program.Delay(10) 'Small delay to keep it smooth EndWhile Sub SplashScreen 'set up graphics window parameters GraphicsWindow.Height = 800 GraphicsWindow.Width = 920 GraphicsWindow.BackgroundColor = "Green" GraphicsWindow.Title = "Connect 4" GraphicsWindow.FontSize = 20 GraphicsWindow.BrushColor = "Black" string = "Welcome to Connect 4. Beat the computer by being the first to connect 4 " string = string + "chips in a row, either vertically, horizontally or diagonally. " string = string + "Move by hovering your mouse over top the game board. The yellow" string = string + " triangle indicates in which column you will drop your chip. " string = string + "Click the mouse to make you move. Press the space bar when you " string = string + "are ready to begin! GraphicsWindow.DrawBoundText(200, 500, 520, string) gw = 300 gh = 200 fs = 50 ' font size For fs = 50 to 10 step -1 GraphicsWindow.FontSize = fs GraphicsWindow.BrushColor = "Yellow" GraphicsWindow.DrawText(420 - 2 * fs,300,"CONNECT") For i = 1 To 400 GraphicsWindow.SetPixel(Math.GetRandomNumber(gw)+320,Math.GetRandomNumber(gh)+300,"green") EndFor GraphicsWindow.BrushColor = "Green" GraphicsWindow.FillRectangle(320, 250, 250, 150) Endfor fs = 200 GraphicsWindow.FontSize = fs GraphicsWindow.BrushColor = "Yellow" GraphicsWindow.DrawText(380,200,"4") While GraphicsWindow.LastKey <> "Space" GraphicsWindow.SetPixel(Math.GetRandomNumber(gw)+280,Math.GetRandomNumber(gh)+200,"green") EndWhile Initialize() GraphicsWindow.BrushColor = "Green" EndSub Sub Initialize 'set up graphics window parameters GraphicsWindow.Height = 800 GraphicsWindow.Width = 920 GraphicsWindow.BackgroundColor = "Green" 'set up game board GraphicsWindow.BrushColor = "DeepSkyBlue" Board = Shapes.AddRectangle(720, 620) BoardX = 100 BoardY = 100 Shapes.Move(Board, BoardX, BoardY) GraphicsWindow.BrushColor = "Green" 'set up slot positions For i = 0 To 6 Posx[i] = 120 + i * 100 EndFor For j = 0 To 5 Posy[j] = 620 - j * 100 EndFor 'GraphicsWindow.PenWidth = 2 For i = 0 To 6 For j = 0 To 5 Slot[i][j] = Shapes.AddEllipse(80, 80) Shapes.Move(Slot[i][j], Posx[i], Posy[j]) EndFor EndFor 'initialize selection triangle GraphicsWindow.BrushColor = "Yellow" Shapes.Remove(Selector) 'Prevent hangover from previous game Selector = Shapes.AddTriangle(0, 0, 40, 0, 20, 28) Shapes.HideShape(Selector) GraphicsWindow.FontSize = 20 GraphicsWindow.DrawText(720, 740, "Quit") 'initialize game array: 0 = empty, 1 = Player 1, 2 = Player 2 'also intialize counter array for victory check 'each index corresponds to a direction 1 = up-right, 2 = right, 3 = down-right, etc For i = 0 To 6 For j = 0 To 5 GameState[i][j] = 0 EndFor EndFor WinMove = 0 'initialize player PlayerNo = 1 'initialize move counter MoveCount = 0 EndSub Sub SelectorMove Ym = GraphicsWindow.MouseY Xm = GraphicsWindow.MouseX If Ym < BoardY Then If Xm > BoardX And Xm < BoardX + 100 Then Xindex = 0 EndIf If Xm > BoardX + 100 And Xm < BoardX + 200 Then Xindex = 1 EndIf If Xm > BoardX +200 And Xm < BoardX + 300 Then Xindex = 2 EndIf If Xm > BoardX + 300 And Xm < BoardX + 400 Then Xindex = 3 EndIf If Xm > BoardX + 400 And Xm < BoardX + 500 Then Xindex = 4 EndIf If Xm > BoardX + 500 And Xm < BoardX + 600 Then Xindex = 5 EndIf If Xm > BoardX + 600 And Xm < BoardX + 700 Then Xindex = 6 EndIf SelPos = Posx[Xindex] Shapes.Move(Selector, SelPos + 20, 40) Shapes.ShowShape(Selector) Else Shapes.HideShape(Selector) EndIf EndSub Sub HumanMove Ym = GraphicsWindow.MouseY Xm = GraphicsWindow.MouseX If Ym < BoardY Then 'only make the move if mouse in right position 'check for lowest available open slot FindOpenSlot() If OpenSlot < 6 Then 'column is open, make the move and fill the slot GameState[Xindex][OpenSlot] = PlayerNo FillSlot() 'check for win WinCheck() MoveCount = MoveCount + 1 If MoveCount = 43 then EndGame() Endif EndIf 'computer moves next PlayerNo = 2 ComputerMove() MoveCount = MoveCount + 1 If MoveCount = 43 then EndGame() Endif EndIf 'if user clicks mouse in the 'quit' area end program If (Ym > 720 And Xm > 740) then Program.End() Endif EndSub Sub FindOpenSlot OpenSlot = 6 For j = 5 To 0 step -1 If GameState[Xindex][j] = 0 Then OpenSlot = j EndIf EndFor EndSub Sub FillSlot Shapes.Remove(Slot[Xindex][OpenSlot]) If PlayerNo = 1 Then GraphicsWindow.BrushColor = "Orange" Else GraphicsWindow.BrushColor = "Purple" EndIf Slot[Xindex][OpenSlot] = Shapes.AddEllipse(80, 80) Shapes.Move(Slot[Xindex][OpenSlot], Posx[Xindex], Posy[OpenSlot]) 'TextWindow.WriteLine(Posx[Xindex]+" :"+ Posy[OpenSlot]) Shapes.Move(Slot[Xindex][OpenSlot], Posx[Xindex], Posy[OpenSlot]) 'Program.Delay(1000) Sound.PlayClickAndWait() 'Program.Delay(1000) EndSub Sub WinCheck 'check the board to see if a player has won For i = 0 to 6 For j = 0 To 5 'check 7 directions (don't have to check vertical up) For k = 1 To 7 TempCheck = 0 If k = 2 Or k = 6 Then dy = 0 ElseIf k = 1 Or k = 7 Then dy = 1 Else dy = -1 EndIf If k < 4 Then dx = 1 ElseIf k = 4 then dx = 0 Else dx = -1 EndIf For check = 0 To 3 If GameState[i+check*dx][j+check*dy] = PlayerNo Then TempCheck = TempCheck + 1 If TempCheck = 4 Then Victory() EndIf EndIf Endfor EndFor 'end k loop EndFor 'end j loop EndFor 'end i loop EndSub Sub Victory GraphicsWindow.ShowMessage("Player " + PlayerNo + " wins!", "Victory!") Initialize() EndSub Sub ComputerMove 'priorities: '1. Check for a winning move '2. Block a winning move of the opponent '3. Make random move but check first that this isn't setting up the opponent 'for a cheap win 'decide where to go '1. see if there is a winning move WinMoveCheck() OpenSlot = WinSlot Xindex = WinIndex '2. no winning move found, check to see if need to block other player If WinMove = 0 then PlayerNo = 1 'switch to human to check board WinMoveCheck() If WinMove = 1 Then OpenSlot = WinSlot Xindex = WinIndex EndIf PlayerNo = 2 'reset player to computer Endif 'no winning move or blocking move found, make move at random 'special case: first computer move, place move in an open middle bottom slot to '(avoids a human cheap win scenario) RandomMove: If WinMove = 0 then OpenSlot = 6 While OpenSlot = 6 Xindex = Math.GetRandomNumber(7) - 1 FindOpenSlot() EndWhile If MoveCount < 2 then OpenSlot = 6 While OpenSlot > 0 Xindex = Math.GetRandomNumber(3) + 1 FindOpenSlot() Endwhile Endif EndIf GameState[Xindex][OpenSlot] = PlayerNo 'before committing, check now to see if this move has led to victory 'for the other player. If so then try again. If WinMove = 0 then PlayerNo = 1 Tempindex = Xindex TempSlot = OpenSlot WinMoveCheck() If WinMove = 1 then 'GraphicsWindow.ShowMessage("Can't fool me!", "Ha ha") WinMove = 0 Xindex = Tempindex OpenSlot = TempSlot GameState[Xindex][OpenSlot] = 0 PlayerNo = 2 Goto RandomMove Endif PlayerNo = 2 Xindex = Tempindex OpenSlot = TempSlot Endif FillSlot() WinCheck() 'back to human's turn PlayerNo = 1 SelectorMove() 'force this subroutine in case human does not move mouse EndSub Sub WinMoveCheck 'check to see if there is a winning move WinMove = 0 WinSlot = 0 For Xindex = 0 to 6 FindOpenSlot() If OpenSlot < 6 then 'make sure column isn't full 'check 7 directions (don't have to check vertical up) For k = 1 To 7 TempCheckA = 0 TempCheckB = 0 If k = 2 Or k = 6 Then dy = 0 ElseIf k = 1 Or k = 7 Then dy = 1 Else dy = -1 EndIf If k < 4 Then dx = 1 ElseIf k = 4 then dx = 0 Else dx = -1 EndIf 'case A - winning move is at head of chain For check = 1 To 3 If GameState[Xindex+check*dx][OpenSlot+check*dy] = PlayerNo Then TempCheckA = TempCheckA + 1 If TempCheckA = 3 Then WinMove = 1 WinSlot = OpenSlot WinIndex = Xindex EndIf EndIf Endfor ' end check loop 'case B - winning move is 2nd position of chain For check = -1 To 2 If GameState[Xindex+check*dx][OpenSlot+check*dy] = PlayerNo Then TempCheckB = TempCheckB + 1 If TempCheckB = 3 Then WinMove = 1 WinSlot = OpenSlot WinIndex = Xindex EndIf EndIf Endfor ' end check loop EndFor 'end k loop EndIf EndFor 'end i loop EndSub Sub EndGame GraphicsWindow.ShowMessage("No victor!", "Tie Game") Initialize() EndSub End>TWF273.sb< Start>TWF419.sb< ' Challenge of the month October 2013 12 steps by NaochanON ' graphic version CCC587 gui() calc() Sub Move_ball N=math.Floor(math.Log(NN))+1 For i=1 To 12 Shapes.SetText(mes,NN+" : "+text.GetSubText(t112,1,i)) Shapes.Animate(ball,BXY["X"]+40*i,Shapes.GetTop(ball),delay[N]) Program.Delay(delay[N]) dY= Text.GetSubText(t112,i,1) Shapes.animate(ball, BXY["X"]+40*i,Shapes.GetTop(ball)+40*dY,delay[N]) Program.Delay(delay[N]) EndFor Shapes.Animate(ball,50+5,50-25,500) BXY="X="+ Shapes.GetLeft(ball)+";Y="+ Shapes.Gettop(ball) Program.Delay(500) EndSub Sub calc For step1=0 To 1 'No=1 For step2=0 To 2 'No=2 If step1=0 Then step2=2 EndIf For step3=0 To 2 'No=3 If step2=0 Then step3=2 EndIf For step4=0 To 2 'No=4 If step3=0 Then step4=2 EndIf For step5=0 To 2 'No=5 If step4=0 Then step5=2 EndIf For step6=0 To 2 'No=6 If step5=0 Then step6=2 EndIf For step7=0 To 2 'No=7 If step6=0 Then step7=2 EndIf For step8=0 To 2 'No=8 If step7=0 Then step8=2 EndIf For step9=0 To 2 'No=9 If step8=0 Then step9=2 EndIf For step10=0 To 2 'No=10 If step9=0 Then step10=2 EndIf For step11=0 To 2 'No=11 If step10=0 Then step11=2 EndIf For step12=1 To 2 'No=12 If step11=0 Then step12=2 EndIf Total=step1+step2+step3+step4+step5+step6+ step7+step8+step9+ step10+step11+step12 If Total=12 Then NN=NN+1 t14=text.Append(text.Append(step1,step2),text.Append(step3,step4)) t58=text.Append(text.Append(step5,step6),text.Append(step7,step8)) t912=text.Append(text.Append(step9,step10),text.Append(step11,step12)) t112= text.Append(Text.Append(t14,t58),t912) ' TextWindow.WriteLine(NN+ " : "+ t112) Move_Ball() EndIf EndFor EndFor EndFor EndFor EndFor EndFor EndFor EndFor EndFor EndFor EndFor EndFor EndSub Sub gui GraphicsWindow.Width=800 GraphicsWindow.Height=600 GraphicsWindow.BackgroundColor="lightcyan" GraphicsWindow.BrushColor="Darkgreen" GraphicsWindow.PenColor="lightcyan" For j=1 To 12 For i=12 To j step -1 block[j][i]= Shapes.AddRectangle(40,40) Shapes.Move(block[j][i],(j-1)*40+50,(i-1)*40+50) EndFor base=Shapes.AddRectangle(40*15,50) Shapes.Move(base,50,50+40*12) EndFor GraphicsWindow.BrushColor="Red" GraphicsWindow.PenColor="Red" ball= Shapes.AddEllipse(25,25) Shapes.Move(ball,50+5,50-25) BXY="X="+ Shapes.GetLeft(ball)+";Y="+ Shapes.Gettop(ball) delay="1=200;2=80;3=10" GraphicsWindow.BrushColor="Yellow" GraphicsWindow.FontSize=20 mes= Shapes.AddText(" ") Shapes.Move(mes,50+20,50+20+40*12) EndSub End>TWF419.sb< Start>TWF500-0.sb< '=================================================' ' Drag Object Example (v1.01) ' by GoToLoop (2014/Feb) ' ' TWF500-0 ' ' http://social.msdn.microsoft.com/Forums/en-US ' /2d5ec679-25e5-4d98-986a-c662da26ad89 ' /drag-and-drop-performance-troubleshooting '=================================================' '__________________________________________________________' ' Init Graphics Window: GW = 640 GH = 480 GraphicsWindow.Title = "Drag Object Example" GraphicsWindow.CanResize = "False" GraphicsWindow.Width = GW GraphicsWindow.Height = GH GraphicsWindow.BackgroundColor = "White" GraphicsWindow.PenColor = "Black" ' Init Sprite Properties: DIAM = 150 RAD = DIAM/2 x = (GW - DIAM)/2 y = (GH - DIAM)/2 ' Create Sprite Shape: GraphicsWindow.BrushColor = GraphicsWindow.GetRandomColor() sprite = Shapes.AddEllipse(DIAM, DIAM) Shapes.Move(sprite x, y) ' Activate Mouse Events: GraphicsWindow.MouseDown = MouseClickedEvent GraphicsWindow.MouseUp = MouseReleasedEvent '__________________________________________________________' ' Main Loop: '__________________________________________________________' Loop: mx = GraphicsWindow.MouseX - RAD my = GraphicsWindow.MouseY - RAD If isDown And isHovering Then DragSpriteToPointerLocation() EndIf Program.Delay(10) Goto Loop '__________________________________________________________' ' Asynchronous Event Callbacks: '__________________________________________________________' Sub MouseClickedEvent CheckPointerOverSpriteLocation() isDown = "True" EndSub '__________________________________________________________' Sub MouseReleasedEvent isDown= "False" EndSub '__________________________________________________________' ' Sprite Subroutines: '__________________________________________________________' Sub CheckPointerOverSpriteLocation If Math.Abs(mx - x) < RAD And Math.Abs(my - y) < RAD Then isHovering = "True" Else isHovering = "False" EndIf EndSub '__________________________________________________________' Sub DragSpriteToPointerLocation x = mx y = my Shapes.Move(sprite x, y) EndSub '__________________________________________________________' End>TWF500-0.sb< Start>TWF500.sb< ' Drag Object Example (v1.0) ' by GoToLoop (2014/Feb) ' ' ' ' http://social.msdn.microsoft.com/Forums/en-US/2d5ec679-25e5-4d98-986a-c662da26ad89 ' /drag-and-drop-performance-troubleshooting ' Init Graphics Window: GW = 640 GH = 480 GraphicsWindow.Title = "Drag Object Example" GraphicsWindow.CanResize = "False" GraphicsWindow.Width = GW GraphicsWindow.Height = GH GraphicsWindow.BackgroundColor = "White" ' Init Sprite Properties: DIAM = 150 RAD = diam/2 x = (GW - DIAM)/2 y = (GH - DIAM)/2 ' Create Sprite Shape: GraphicsWindow.BrushColor = GraphicsWindow.GetRandomColor() sprite = Shapes.AddEllipse(DIAM, DIAM) Shapes.Move(sprite x, y) ' Activate Mouse Events: GraphicsWindow.MouseDown = MouseClickedEvent GraphicsWindow.MouseUp = MouseReleasedEvent ' Main Loop: '______________________________________________________' Loop: mx = GraphicsWindow.MouseX - RAD my = GraphicsWindow.MouseY - RAD If isDown And isHovering Then DragSpriteToPointerLocation() EndIf Program.Delay(10) Goto Loop '______________________________________________________' ' Asynchronous Event Callbacks: '______________________________________________________' Sub MouseClickedEvent CheckPointerOverSpriteLocation() isDown = "True" EndSub '______________________________________________________' Sub MouseReleasedEvent isDown= "False" EndSub '______________________________________________________' ' Sprite Subroutines: '______________________________________________________' Sub CheckPointerOverSpriteLocation If Math.Abs(mx - x) < RAD And Math.Abs(my - y) < RAD Then isHovering = "True" Else isHovering = "False" EndIf EndSub '______________________________________________________' Sub DragSpriteToPointerLocation x = mx y = my Shapes.Move(sprite x, y) EndSub '______________________________________________________' End>TWF500.sb< Start>TWG192.sb< GraphicsWindow.Title = "Flag of Brazil" Init() GraphicsWindow.BackgroundColor = "gold w = iw * 0.093 size = iw * 0.4 GraphicsWindow.PenWidth =0 GraphicsWindow.brushColor = "darkblue shapes.Move(shapes.addEllipse(size, size) xo - size / 2, yo - size / 2 ) ' ribon cx = iw * 0.404 cy = iw * 0.680 r = iw * 0.393 w = iw * 0.023 GraphicsWindow.PenWidth = w*1.1 GraphicsWindow.brushColor = "transparent GraphicsWindow.penColor = "white shapes.Move(shapes.addEllipse( 2 * r, 2 * r) cx - r, cy - r) ' text txt = "ORDEM_ _E PROGRESSO" tc = color["Green"] ' text color r = r * 0.985 a = -8 gap = 0.7 * scale fs = w * .9 GraphicsWindow.FontSize = fs DrawRoundText() ' circle GraphicsWindow.PenWidth = 0 width = iw * 0.3 GraphicsWindow.BrushColor = "gold Shapes.AddRectangle ( width, ih) Shapes.Move(Shapes.AddRectangle (width, ih) iw - width, 0 ) ' diamond width = iw * 0.63 height = iw * 0.406 GraphicsWindow.PenWidth = 0 GraphicsWindow.BrushColor = "green shapes.addTriangle(width, 0, 0, height, 0, 0) shapes.addTriangle(iw - width, 0, iw, height, iw, 0) shapes.addTriangle(width, ih, 0, ih - height, 0, ih) shapes.addTriangle(iw - width, ih, iw, ih - height, iw, ih) GraphicsWindow.BrushColor ="gold shapes.Move (Shapes.AddRectangle( iw height) 0 height*1.7) DrawStars() 'LDShapes.ZoomAll (.5 .5) sf=1 LDEvents.MouseWheel=mww hh=LDShapes.GetAllShapes() For x=0 to -1 step 2 For f=1 to Array.GetItemCount (hh) LDShapes.RotateAbout (hh[f] 300 300 x) endfor Program.Delay (10) endfor Sub mww If GraphicsWindow.LastKey="Space" Then an=an+LDEvents.LastMouseWheelDelta*3 else sf=sf+ LDEvents.LastMouseWheelDelta/20 EndIf LDGraphicsWindow.Reposition (sf sf 100 100 an) EndSub Sub Init scale = 1.5 iw = 598 * scale ih = iw * 0.7 GraphicsWindow.Width = iw GraphicsWindow.Height = ih xo = iw / 2 yo = ih / 2 color = "Green=#009B3A;Yellow=#FEDF00;Blue=#002776;White=#FFFFFF;" star[1] = "x=0.357;y=0.319;size=0.017;" ' 1 Canis Minor Procyon 1 star[2] = "x=0.39;y=0.381;size=0.01;" ' 2 Canis Major γ 4 star[3] = "x=0.373;y=0.391;size=0.017;" ' 2 Canis Major Sirius 1 star[4] = "x=0.351;y=0.408;size=0.013;" ' 2 Canis Major β 2 star[5] = "x=0.41;y=0.41;size=0.013;" ' 2 Canis Major ε 2 star[6] = "x=0.404;y=0.427;size=0.013;" ' 2 Canis Major δ 2 star[7] = "x=0.43;y=0.443;size=0.017;" ' 3 Carina Canopus 1 star[8] = "x=0.555;y=0.295;size=0.017;" ' 4 Vergo Spica 1 star[9] = "x=0.548;y=0.34;size=0.011;" ' 5 Hydra γ 2 star[10] = "x=0.434;y=0.356;size=0.013;" ' 5 Hydra Alphard 3 star[11] = "x=0.52;y=0.393;size=0.013;" ' 6 Crux β 1 star[12] = "x=0.482;y=0.393;size=0.013;" ' 6 Crux δ 3 star[13] = "x=0.5;y=0.378;size=0.013;" ' 6 Crux γ 2 star[14] = "x=0.491;y=0.406;size=0.010;" ' 6 Crux ε 4 star[15] = "x=0.5;y=0.428;size=0.017;" ' 6 Crux α 1 star[16] = "x=0.5;y=0.487;size=0.005;" ' 7 Octans σ 5 star[17] = "x=0.538;y=0.448;size=0.011;" ' 8 Triangulum Australe β 3 star[18] = "x=0.552;y=0.468;size=0.013;" ' 8 Triangulum Australe α 2 star[19] = "x=0.568;y=0.452;size=0.011" ' 8 Triangulum Australe γ 3 star[20] = "x=0.619;y=0.44;size=0.013;" ' 9 Scorpius λ 2 star[21] = "x=0.605;y=0.45;size=0.011" ' 9 Scorpius κ 3 star[22] = "x=0.588;y=0.48;size=0.011" ' 9 Scorpius ι 3 star[23] = "x=0.588;y=0.462;size=0.013" ' 9 Scorpius θ 2 star[24] = "x=0.587;y=0.447;size=0.011" ' 9 Scorpius μ 3 star[25] = "x=0.63;y=0.427;size=0.013;" ' 9 Scorpius ε 2 star[26] = "x=0.623;y=0.411;size=0.017;" ' 9 Scorpius Antares 1 star[27] = "x=0.647;y=0.412;size=0.011" ' 9 Scorpius β 3 ' width/height [%] of each character in Arial font GraphicsWindow.FontName = "Arial" ratio = "32=56;33=61;34=76;35=84;36=84;37=117;38=100;39=52;40=61;41=61;42=67;43=87;44=56;45=61;46=56;47=56;48=84;" ratio = ratio + "49=84;50=84;51=84;52=84;53=84;54=84;55=84;56=84;57=84;58=61;59=61;60=87;61=87;62=87;63=89;64=126;" ratio = ratio + "65=100;66=100;67=100;68=100;69=95;70=89;71=106;72=100;73=56;74=84;75=100;76=89;77=111;78=100;" ratio = ratio + "79=106;80=95;81=106;82=100;83=95;84=89;85=100;86=95;87=123;88=95;89=95;90=89;91=61;92=56;93=61;94=87;" ratio = ratio + "95=84;96=61;97=84;98=89;99=84;100=89;101=84;102=61;103=89;104=89;105=56;106=56;107=84;108=56;109=117;" ratio = ratio + "110=89;111=89;112=89;113=89;114=67;115=84;116=61;117=89;118=84;119=106;120=84;121=84;122=78;123=67;" ratio = ratio + "124=56;125=67;126=87;160=56;161=61;162=84;163=84;164=84;165=84;166=56;167=84;168=61;169=102;170=65;" ratio = ratio + "171=84;172=87;173=28;174=102;175=83;176=68;177=83;178=61;179=61;180=61;181=86;182=84;183=61;184=61;" ratio = ratio + "185=61;186=65;187=84;188=112;189=112;190=112;191=89;192=100;193=100;194=100;195=100;196=100;197=100;" ratio = ratio + "198=128;199=100;200=95;201=95;202=95;203=95;204=56;205=56;206=56;207=56;208=100;209=100;210=106;" ratio = ratio + "211=106;212=106;213=106;214=106;215=87;216=106;217=100;218=100;219=100;220=100;221=95;222=95;" ratio = ratio + "223=89;224=84;225=84;226=84;227=84;228=84;229=84;230=117;231=84;232=84;233=84;234=84;235=84;236=56;" ratio = ratio + "237=56;238=56;239=56;240=89;241=89;242=89;243=89;244=89;245=89;246=89;247=83;248=89;249=89;250=89;" ratio = ratio + "251=89;252=89;253=84;254=89;255=84;" EndSub Sub DrawStars n = Array.GetItemCount(star) GraphicsWindow.BrushColor = "gray For j = 1 To n size = iw * star[j]["size"] x = iw * star[j]["x"] y = iw * star[j]["y"] shapes.Move (LDShapes.AddStar (5 size/3.7 size/1.9) x y) EndFor EndSub Sub DrawRoundText tw = 2 * Math.Pi * r ' full text width [pixel] len = Text.GetLength(txt) GraphicsWindow.BrushColor = tc fs0 = fs For p = 1 To len ch[p] = Text.GetSubText(txt, p, 1) If ch[p] = "_" Then fs0 = fs * 0.9 Else fw[p] = fs0 * ratio[Text.GetCharacterCode(ch[p])] / 100 GraphicsWindow.FontSize = fs0 x = cx + (r + fs0 / 3) * ldMath.Sin(a) - fw[p] / 2 y = cy - (r + fs0 / 3) * ldMath.Cos(a) - fs0 / 2 shp = Shapes.AddText(ch[p]) Shapes.Move(shp, x, y+12) Shapes.Rotate(shp, a) fs0 = fs a = a + 360 * (fw[p] + gap) / tw EndIf EndFor EndSub End>TWG192.sb< Start>TWH330.sb< 'Name of pressed key InitWindow() 'Main Window InitProgram() 'Program While l = f lk = GraphicsWindow.LastKey GraphicsWindow.BrushColor = wbac GraphicsWindow.FillRectangle(0, 0, ww, wh) GraphicsWindow.BrushColor = wbru xt = 10 yt = 15 GraphicsWindow.DrawText(xt, yt, lk) Program.Delay(PD) EndWhile Sub InitProgram t = "True" f = "False" l = f PD = 50 EndSub 'InitProgram Sub InitWindow 'Variables wn = "Last Key pressed" 'Title of window wl = 0 'X-Position on screen wt = 0 'Y-Position on screen ww = 300 'Width of window wh = 50 'Height of window wbru = "SteelBlue" 'Brushcolor wbac = "White" 'Backgroundcolor 'define the window GraphicsWindow.Title = wn GraphicsWindow.Left = wl GraphicsWindow.Top = wt GraphicsWindow.Width = ww GraphicsWindow.Height = wh GraphicsWindow.BackgroundColor = wbac 'show the Main Window GraphicsWindow.Show() EndSub 'InitWindow End>TWH330.sb< Start>TWL321-0.sb< ' Newton's Cradle ' Copyright © 2015 Nonki Takahashi. The MIT License. ' Last update 2015-11-22 ' Program ID TWL321-0 ' GraphicsWindow.Title = "Newton's Cradle" r = 140 n = 5 d = 40 h = 300 gw = 598 gh = 428 g = 600 xc = (gw - (n - 1) * d) / 2 yc = gh - h GraphicsWindow.Width = gw GraphicsWindow.Height = gh GraphicsWindow.BrushColor = "#777777" GraphicsWindow.PenColor = "#999999" angle = 0 For i = 1 To n If i = n Then angle = -45 EndIf GraphicsWindow.PenWidth = 0 pd["weight"] = Shapes.AddEllipse(d, d) GraphicsWindow.PenWidth = 1 pd["rod"] = Shapes.AddLine(0, 0, 0, -(r - d / 2)) Shapes.Move(pd["rod"], xc, yc) pd["xc"] = xc pd["yc"] = yc pendulum[i] = pd MovePendulum() xc = xc + d EndFor GraphicsWindow.BrushColor = "#00FFFFFF" GraphicsWindow.PenColor = "#999999" GraphicsWindow.PenWidth = 10 frame = Shapes.AddRectangle(d * (n + 2), r + d * 1.5) Shapes.Move(frame, xc - d * 6.5 , yc) dt = 1 / 30 While "True" t = Clock.ElapsedMilliseconds / 1000 For i = 1 To n pi = pendulum[i] _a = Math.GetRadians(pi["angle"]) vaLast = pi["va"] pi["va"] = pi["va"] - g * Math.Sin(_a) / r * dt pi["va"] = pi["va"] * 0.996 _a = _a + (pi["va"] + vaLast) * dt / 2 pendulum[i] = pi angle = Math.GetDegrees(_a) MovePendulum() Collision() EndFor ms = dt * 1000 - (Clock.ElapsedMilliseconds - t * 1000) If 0 < ms Then Program.Delay(ms) EndIf EndWhile Sub MovePendulum ' param i - index of pendulum ' param angle pi = pendulum[i] _a = Math.GetRadians(angle) pi["angle"] = angle pi["x"] = pi["xc"] - r * Math.Sin(_a) pi["y"] = pi["yc"] + r * Math.Cos(_a) Shapes.Move(pi["weight"], pi["x"] - d / 2, pi["y"] - d / 2) Shapes.Rotate(pi["rod"], angle + 180) pendulum[i] = pi EndSub Sub Collision ' param i - index of pendulum pi = pendulum[i] For j = 1 To n If j <> i Then pj = pendulum[j] dx = pi["x"] - pj["x"] dy = pi["y"] - pj["y"] dij = Math.SquareRoot(dx * dx + dy * dy) If dij < d *0.99 Then dv = (pi["va"] - pj["va"]) * 0.998 pi["va"] = pi["va"] - dv pj["va"] = pj["va"] + dv pendulum[j] = pj pendulum[i] = pi While dij < d * 0.99 angle = pi["angle"] angle = angle - dx / Math.Abs(dx) * 0.01 pi = pendulum[i] MovePendulum() pi = pendulum[i] Stack.PushValue("local", i) Stack.PushValue("local", pi) angle = pj["angle"] angle = angle + dx / Math.Abs(dx) * 0.01 i = j MovePendulum() pi = Stack.PopValue("local") i = Stack.PopValue("local") pj = pendulum[j] dx = pi["x"] - pj["x"] dy = pi["y"] - pj["y"] dij = Math.SquareRoot(dx * dx + dy * dy) EndWhile pendulum[j] = pj pendulum[i] = pi EndIf EndIf EndFor EndSub End>TWL321-0.sb< Start>TWM801-0.sb< GraphicsWindow.Show() 'création du carrefour 'lignes horizontales GraphicsWindow.DrawLine(10, 150,200,150) GraphicsWindow.DrawLine(10, 200,200,200) GraphicsWindow.DrawLine(200, 10,200,150) GraphicsWindow.DrawLine(200, 200,200,350) 'lignes verticales GraphicsWindow.DrawLine(250, 150,450,150) GraphicsWindow.DrawLine(250, 200,450,200) GraphicsWindow.DrawLine(250, 10,250,150) GraphicsWindow.DrawLine(250, 200,250,350) 'détecteurs de présence GraphicsWindow.DrawLine(190, 180,190,200) GraphicsWindow.DrawLine(260, 150,260,170) GraphicsWindow.DrawLine(200, 140,220,140) GraphicsWindow.DrawLine(230, 210,250,210) 'création des 4 feux GraphicsWindow.DrawRectangle(165, 85, 25, 60) 'feux A1 GraphicsWindow.DrawRectangle(130, 205, 60, 25)'feux B1 GraphicsWindow.DrawRectangle(260, 205, 25, 60)'feux A2 GraphicsWindow.DrawRectangle(260, 120, 60, 25)'feux B2 drawred()'appel routine 4 feux cerclés rouge draworange()'appel routine 4 feux cerclés orange drawgreen()'appel routine 4 feux cerclés vert Sub drawred 'routine 4 feux cerclés rouge GraphicsWindow.PenColor = "Red" GraphicsWindow.DrawEllipse(172, 130, 10, 10)'A1 GraphicsWindow.DrawEllipse(175, 212, 10, 10)'B1 GraphicsWindow.DrawEllipse(267, 212, 10, 10)'A2 GraphicsWindow.DrawEllipse(267, 127, 10, 10)'B2 EndSub Sub draworange 'routine 4 feux cerclés orange GraphicsWindow.PenColor = "Orange" GraphicsWindow.DrawEllipse(172, 110, 10, 10)'A1 GraphicsWindow.DrawEllipse(155, 212, 10, 10)'B1 GraphicsWindow.DrawEllipse(267, 232, 10, 10)'A2 GraphicsWindow.DrawEllipse(287, 127, 10, 10)'B2 EndSub Sub drawgreen 'routine 4 feux cerclés vert GraphicsWindow.PenColor = "Green" GraphicsWindow.DrawEllipse(172, 90, 10, 10)'A1 GraphicsWindow.DrawEllipse(135, 212, 10, 10)'B1 GraphicsWindow.DrawEllipse(267, 252, 10, 10)'A2 GraphicsWindow.DrawEllipse(307, 127, 10, 10)'B2 EndSub 'fin création des 4 feux 'FONCTIONNEMENT DES FEUX begin: 'A1 et A2 sont verts alors B1 et B2 sont rouges GraphicsWindow . BrushColor = "green" GraphicsWindow . FillEllipse(172, 90, 10, 10)'A1 GraphicsWindow . FillEllipse(267, 252, 10, 10)'A2 GraphicsWindow . BrushColor = "red" GraphicsWindow. FillEllipse(175, 212, 10, 10)'B1 GraphicsWindow. FillEllipse(267, 127, 10, 10)'B2 'Après 10 secondes A1 et A2 sont oranges B1 et B2 sont rouges Program.Delay(10000) GraphicsWindow . BrushColor = "white" GraphicsWindow . FillEllipse(172, 90, 10, 10)'A1 GraphicsWindow . FillEllipse(267, 252, 10, 10)'A2 GraphicsWindow . BrushColor = "orange" GraphicsWindow. FillEllipse(172, 110, 10, 10)'A1 GraphicsWindow. FillEllipse(267, 232, 10, 10)'A2 GraphicsWindow . BrushColor = "red" GraphicsWindow. FillEllipse(175, 212, 10, 10)'B1 GraphicsWindow. FillEllipse(267, 127, 10, 10)'B2 'Après 3 secondes A1 et A2 sont oranges B1 et B2 sont rouges Program.Delay(3000) GraphicsWindow . BrushColor = "white" GraphicsWindow . FillEllipse(172, 90, 10, 10)'A1 GraphicsWindow . FillEllipse(267, 252, 10, 10)'A2 GraphicsWindow . BrushColor = "orange" GraphicsWindow. FillEllipse(172, 110, 10, 10)'A1 GraphicsWindow. FillEllipse(267, 232, 10, 10)'A2 GraphicsWindow . BrushColor = "red" GraphicsWindow. FillEllipse(175, 212, 10, 10)'B1 GraphicsWindow. FillEllipse(267, 127, 10, 10)'B2 Program.Delay(4000) 'Après 2 secondes A1 et A2 sont rouges B1 et B2 sont rouges Program.Delay(2000) GraphicsWindow . BrushColor = "white" GraphicsWindow. FillEllipse(172, 110, 10, 10)'A1o GraphicsWindow. FillEllipse(267, 232, 10, 10)'A2o GraphicsWindow . BrushColor = "red" GraphicsWindow. FillEllipse(172, 130, 10, 10)'A1 GraphicsWindow. FillEllipse(267, 212, 10, 10)'A2 GraphicsWindow. FillEllipse(175, 212, 10, 10)'B1 GraphicsWindow. FillEllipse(267, 127, 10, 10)'B2 Program.Delay(3000) 'Après 2 secondes A1 et A2 sont rouges B1 et B2 sont verts Program.Delay(2000) GraphicsWindow . BrushColor = "white" GraphicsWindow. FillEllipse(175, 212, 10, 10)'B1 GraphicsWindow. FillEllipse(267, 127, 10, 10)'B2 GraphicsWindow . BrushColor = "red" GraphicsWindow. FillEllipse(172, 130, 10, 10)'A1 GraphicsWindow. FillEllipse(267, 212, 10, 10)'A2 GraphicsWindow . BrushColor = "green" GraphicsWindow. FillEllipse(135, 212, 10, 10)'B1 GraphicsWindow. FillEllipse(307, 127, 10, 10)'B2 Program.Delay(3000) 'Après 10 secondes B1 et B2 sont oranges A1 et A2 sont rouges Program.Delay(10000) GraphicsWindow . BrushColor = "white" GraphicsWindow. FillEllipse(135, 212, 10, 10)'B1v GraphicsWindow. FillEllipse(307, 127, 10, 10)'B2v GraphicsWindow . BrushColor = "red" GraphicsWindow. FillEllipse(172, 130, 10, 10)'A1 GraphicsWindow. FillEllipse(267, 212, 10, 10)'A2 GraphicsWindow . BrushColor = "orange" GraphicsWindow. FillEllipse(155, 212, 10, 10)'B1 GraphicsWindow. FillEllipse(287, 127, 10, 10)'B2 Program.Delay(12000) 'Après 2 secondes B1 et B2 sont rouges A1 et A2 sont rouges Program.Delay(2000) GraphicsWindow . BrushColor = "white" GraphicsWindow. FillEllipse(155, 212, 10, 10)'B1o GraphicsWindow. FillEllipse(287, 127, 10, 10)'B2o GraphicsWindow . BrushColor = "red" GraphicsWindow. FillEllipse(172, 130, 10, 10)'A1 GraphicsWindow. FillEllipse(267, 212, 10, 10)'A2 GraphicsWindow. FillEllipse(175, 212, 10, 10)'B1 GraphicsWindow. FillEllipse(267, 127, 10, 10)'B2 Program.Delay(3000) 'Après 2 secondes B1 et B2 sont rouges A1 et A2 sont verts Program.Delay(2000) GraphicsWindow . BrushColor = "white" GraphicsWindow. FillEllipse(172, 130, 10, 10)'A1 GraphicsWindow. FillEllipse(267, 212, 10, 10)'A2 GraphicsWindow . BrushColor = "green" GraphicsWindow . FillEllipse(172, 90, 10, 10)'A1 GraphicsWindow . FillEllipse(267, 252, 10, 10)'A2 Program.Delay(3000) Goto begin End>TWM801-0.sb< Start>TWM801.sb< GraphicsWindow.Show() 'création du carrefour 'lignes horizontales GraphicsWindow.DrawLine(10, 150,200,150) GraphicsWindow.DrawLine(10, 200,200,200) GraphicsWindow.DrawLine(200, 10,200,150) GraphicsWindow.DrawLine(200, 200,200,350) 'lignes verticales GraphicsWindow.DrawLine(250, 150,450,150) GraphicsWindow.DrawLine(250, 200,450,200) GraphicsWindow.DrawLine(250, 10,250,150) GraphicsWindow.DrawLine(250, 200,250,350) 'détecteurs de présence GraphicsWindow.DrawLine(190, 180,190,200) GraphicsWindow.DrawLine(260, 150,260,170) GraphicsWindow.DrawLine(200, 140,220,140) GraphicsWindow.DrawLine(230, 210,250,210) 'création des 4 feux GraphicsWindow.DrawRectangle(165, 85, 25, 60) 'feux A1 GraphicsWindow.DrawRectangle(130, 205, 60, 25)'feux B1 GraphicsWindow.DrawRectangle(260, 205, 25, 60)'feux A2 GraphicsWindow.DrawRectangle(260, 120, 60, 25)'feux B2 drawred()'appel routine 4 feux cerclés rouge draworange()'appel routine 4 feux cerclés orange drawgreen()'appel routine 4 feux cerclés vert Sub drawred 'routine 4 feux cerclés rouge GraphicsWindow.PenColor = "Red" GraphicsWindow.DrawEllipse(172, 130, 10, 10)'A1 GraphicsWindow.DrawEllipse(175, 212, 10, 10)'B1 GraphicsWindow.DrawEllipse(267, 212, 10, 10)'A2 GraphicsWindow.DrawEllipse(267, 127, 10, 10)'B2 EndSub Sub draworange 'routine 4 feux cerclés orange GraphicsWindow.PenColor = "Orange" GraphicsWindow.DrawEllipse(172, 110, 10, 10)'A1 GraphicsWindow.DrawEllipse(155, 212, 10, 10)'B1 GraphicsWindow.DrawEllipse(267, 232, 10, 10)'A2 GraphicsWindow.DrawEllipse(287, 127, 10, 10)'B2 EndSub Sub drawgreen 'routine 4 feux cerclés vert GraphicsWindow.PenColor = "Green" GraphicsWindow.DrawEllipse(172, 90, 10, 10)'A1 GraphicsWindow.DrawEllipse(135, 212, 10, 10)'B1 GraphicsWindow.DrawEllipse(267, 252, 10, 10)'A2 GraphicsWindow.DrawEllipse(307, 127, 10, 10)'B2 EndSub 'fin création des 4 feux 'FONCTIONNEMENT DES FEUX begin: 'A1 et A2 sont verts alors B1 et B2 sont rouges GraphicsWindow . BrushColor = "green" GraphicsWindow . FillEllipse(172, 90, 10, 10)'A1 GraphicsWindow . FillEllipse(267, 252, 10, 10)'A2 GraphicsWindow . BrushColor = "red" GraphicsWindow. FillEllipse(175, 212, 10, 10)'B1 GraphicsWindow. FillEllipse(267, 127, 10, 10)'B2 'Après 10 secondes A1 et A2 sont oranges B1 et B2 sont rouges Timer . Interval = 10000 Timer . Tick = OnTick Sub OnTick GraphicsWindow . BrushColor = "white" GraphicsWindow . FillEllipse(172, 90, 10, 10)'A1 GraphicsWindow . FillEllipse(267, 252, 10, 10)'A2 GraphicsWindow . BrushColor = "orange" GraphicsWindow. FillEllipse(172, 110, 10, 10)'A1 GraphicsWindow. FillEllipse(267, 232, 10, 10)'A2 GraphicsWindow . BrushColor = "red" GraphicsWindow. FillEllipse(175, 212, 10, 10)'B1 GraphicsWindow. FillEllipse(267, 127, 10, 10)'B2 EndSub 'Après 3 secondes A1 et A2 sont oranges B1 et B2 sont rouges Timer . Interval = 3000 Timer . Tick = OnTick2 Sub OnTick2 GraphicsWindow . BrushColor = "white" GraphicsWindow . FillEllipse(172, 90, 10, 10)'A1 GraphicsWindow . FillEllipse(267, 252, 10, 10)'A2 GraphicsWindow . BrushColor = "orange" GraphicsWindow. FillEllipse(172, 110, 10, 10)'A1 GraphicsWindow. FillEllipse(267, 232, 10, 10)'A2 GraphicsWindow . BrushColor = "red" GraphicsWindow. FillEllipse(175, 212, 10, 10)'B1 GraphicsWindow. FillEllipse(267, 127, 10, 10)'B2 EndSub Program.Delay(4000) 'Après 2 secondes A1 et A2 sont rouges B1 et B2 sont rouges Timer . Interval = 2000 Timer . Tick = OnTick3 Sub OnTick3 GraphicsWindow . BrushColor = "white" GraphicsWindow. FillEllipse(172, 110, 10, 10)'A1o GraphicsWindow. FillEllipse(267, 232, 10, 10)'A2o GraphicsWindow . BrushColor = "red" GraphicsWindow. FillEllipse(172, 130, 10, 10)'A1 GraphicsWindow. FillEllipse(267, 212, 10, 10)'A2 GraphicsWindow. FillEllipse(175, 212, 10, 10)'B1 GraphicsWindow. FillEllipse(267, 127, 10, 10)'B2 EndSub Program.Delay(3000) 'Après 2 secondes A1 et A2 sont rouges B1 et B2 sont verts Timer . Interval = 2000 Timer . Tick = OnTick4 Sub OnTick4 GraphicsWindow . BrushColor = "white" GraphicsWindow. FillEllipse(175, 212, 10, 10)'B1 GraphicsWindow. FillEllipse(267, 127, 10, 10)'B2 GraphicsWindow . BrushColor = "red" GraphicsWindow. FillEllipse(172, 130, 10, 10)'A1 GraphicsWindow. FillEllipse(267, 212, 10, 10)'A2 GraphicsWindow . BrushColor = "green" GraphicsWindow. FillEllipse(135, 212, 10, 10)'B1 GraphicsWindow. FillEllipse(307, 127, 10, 10)'B2 EndSub Program.Delay(3000) 'Après 10 secondes B1 et B2 sont oranges A1 et A2 sont rouges Timer . Interval = 10000 Timer . Tick = OnTick5 Sub OnTick5 GraphicsWindow . BrushColor = "white" GraphicsWindow. FillEllipse(135, 212, 10, 10)'B1v GraphicsWindow. FillEllipse(307, 127, 10, 10)'B2v GraphicsWindow . BrushColor = "red" GraphicsWindow. FillEllipse(172, 130, 10, 10)'A1 GraphicsWindow. FillEllipse(267, 212, 10, 10)'A2 GraphicsWindow . BrushColor = "orange" GraphicsWindow. FillEllipse(155, 212, 10, 10)'B1 GraphicsWindow. FillEllipse(287, 127, 10, 10)'B2 EndSub Program.Delay(12000) 'Après 2 secondes B1 et B2 sont rouges A1 et A2 sont rouges Timer . Interval = 2000 Timer . Tick = OnTick6 Sub OnTick6 GraphicsWindow . BrushColor = "white" GraphicsWindow. FillEllipse(155, 212, 10, 10)'B1o GraphicsWindow. FillEllipse(287, 127, 10, 10)'B2o GraphicsWindow . BrushColor = "red" GraphicsWindow. FillEllipse(172, 130, 10, 10)'A1 GraphicsWindow. FillEllipse(267, 212, 10, 10)'A2 GraphicsWindow. FillEllipse(175, 212, 10, 10)'B1 GraphicsWindow. FillEllipse(267, 127, 10, 10)'B2 EndSub Program.Delay(3000) 'Après 2 secondes B1 et B2 sont rouges A1 et A2 sont verts Timer . Interval = 2000 Timer . Tick = OnTick7 Sub OnTick7 GraphicsWindow . BrushColor = "white" GraphicsWindow. FillEllipse(172, 130, 10, 10)'A1 GraphicsWindow. FillEllipse(267, 212, 10, 10)'A2 GraphicsWindow . BrushColor = "green" GraphicsWindow . FillEllipse(172, 90, 10, 10)'A1 GraphicsWindow . FillEllipse(267, 252, 10, 10)'A2 EndSub Program.Delay(3000) Goto begin End>TWM801.sb< Start>TWN285-0.sb< 'Challenge of the Month - April 2014 dodge obstcles by NaochanON TWN285 Init() GraphicsWindow.KeyDown=onkeydown While NN<1 ' Gmae ends when Hit NN=1 arrowX=arrowX+dx If arrowX<0 Then arrowX=10 dx=2 ElseIf arrowX>GraphicsWindow.Width-40 then arrowX=GraphicsWindow.Width-45 dx=-2 EndIf Shapes.move(Rect,arrowX,420) ' Rect move RectX=Shapes.GetLeft(Rect) RectY=Shapes.GetTop(Rect) For i =0 To Array.GetItemCount(CLR) Shapes.Move(CHR[i], shapes.GetLeft(CHR[i]), shapes.Gettop(CHR[i])+fall[i]) ' move Unicode Characters Half=Size[i]/2 CHRX=Shapes.GetLeft(CHR[i]) CHRY=Shapes.Gettop(CHR[i]) If Math.Abs(Rectx+20-(CHRX+Half))<20 And Math.abs(RectY+10-(CHRY+Half))<10 Then NN=NN+1 Sound.PlayClick() elseIf shapes.Gettop(CHR[i])>500 Then MM=MM+1 Shapes.Move(CHR[i], Math.GetRandomNumber(640),-100-Math.GetRandomNumber(200) ) EndIf EndFor Shapes.SetText(msg," Dodged count "+(MM)) Program.Delay(10) endWhile Sub onkeydown dx=(text.GetCharacterCode(GraphicsWindow.LastKey)-79) ' Right=82 Left=76 EndSub Sub Init GraphicsWindow.Show() GraphicsWindow.BackgroundColor="Lightcyan" CLR="0=Red;1=Green;2=Yellow;3=Navy;4=Black;5=Brown;6=Orange" For i = 0 To Array.GetItemCount(CLR) GraphicsWindow.BrushColor=CLR[i] Size[i]=Math.GetRandomNumber(20)*2+30 GraphicsWindow.FontSize=Size[i] CHR[i] =Shapes.Addtext(Text.GetCharacter(2*16*16*16+6*16*16+9*16+i)) ' 2653- 265C 2690 -2699 UNICODE character Shapes.Move(CHR[i],Math.GetRandomNumber(640),-100-Math.GetRandomNumber(200) ) fall[i]=(10+Math.GetRandomNumber(10))/5 ' falling speed EndFor GraphicsWindow.PenColor=CLR[1] GraphicsWindow.brushColor=CLR[1] Rect = Shapes.AddRectangle(40,20) arrowX=200 GraphicsWindow.FontSize=25 msg=Shapes.AddText(" ") endsub End>TWN285-0.sb< Start>TWP322.sb< GraphicsWindow.BackgroundColor="teal GraphicsWindow.BrushColor="#bbbbbb GraphicsWindow.FillRectangle (30 30 400 320) GraphicsWindow.Title ="Electronic Board Draw GraphicsWindow.PenWidth=0 GraphicsWindow.BrushColor="darkblue b1=Controls.AddButton ("Led" 450 10) b2=Controls.AddButton ("NPN" 450 40) b21=Controls.AddButton ("PNP" 550 40) b3=Controls.AddButton ("Resistor" 450 70) b4=Controls.AddButton ("Diode" 450 100) b5=Controls.AddButton ("UNDO" 550 100) tt= Controls.AddTextBox (500 10) Controls.SetTextBoxText (tt "1;3") Controls.ButtonClicked =bcc li=0 LDEvents.MouseWheel=mww Sub mww If Mouse.IsLeftButtonDown Then Shapes.Move(rr[ri] Shapes.GetLeft (rr[ri])+LDEvents.LastMouseWheelDelta*15 Shapes.GetTop (rr[ri])) else Shapes.Move(rr[ri] Shapes.GetLeft (rr[ri]) Shapes.GetTop (rr[ri])+LDEvents.LastMouseWheelDelta*3) EndIf EndSub Sub bcc lb= Controls.LastClickedButton If lb=b1 Then po=ldtext.Split(Controls.GetTextBoxText (tt) ";") xp=po[1] yp=po[2] cm[xp][yp]="#ff0000 cm[xp][yp+1]="#0000ff cm[xp+1][yp]="#ff0000 cm[xp+1][yp+1]="#0000ff GraphicsWindow.PenWidth =2 un=0 un[1]=Shapes.AddLine (xp*15+34 yp*15+34 (xp+1)*15+34 yp*15+34) un[2]=Shapes.AddLine (xp*15+34 (yp+1)*15+34 (xp+1)*15+34 (yp+1)*15+34) ldshapes.PenColour ( un[1] "red") ldshapes.PenColour ( un[2] "blue") GraphicsWindow.PenWidth =0 GraphicsWindow.BrushColor ="green li=li+1 cnx[li]=xp cny[li]=yp cp[li]="false cn[li]="false src[li]=1 ll[li]=Shapes.AddEllipse(20 20) Shapes.Move (ll[li] (xp+1)*15+27 yp*15+30) un[3]=ll[li] li=li+1 GraphicsWindow.BrushColor ="yellow ll[li]=Shapes.AddTriangle (0 0 10 0 5 10) Shapes.Move (ll[li] (xp+1)*15+33 yp*15+36) un[4]=ll[li] ElseIf lb=b5 then 'undo For f=1 to Array.GetItemCount (un) Shapes.Remove (un[f]) endfor ElseIf lb=b4 then po=ldtext.Split(Controls.GetTextBoxText (tt) ";") xp=po[1] yp=po[2] cm[xp][yp]="#ff0000 cm[xp][yp+1]="#0000ff cm[xp+1][yp]="#ff0000 cm[xp+1][yp+1]="#0000ff GraphicsWindow.PenWidth =2 un=0 un[1]=Shapes.AddLine (xp*15+34 yp*15+34 (xp+1)*15+34 yp*15+34) un[2]=Shapes.AddLine (xp*15+34 (yp+1)*15+34 (xp+1)*15+34 (yp+1)*15+34) ldshapes.PenColour ( un[1] "red") ldshapes.PenColour ( un[2] "blue") GraphicsWindow.PenWidth =0 GraphicsWindow.BrushColor ="darkcyan li=li+1 cnx[li]=xp cny[li]=yp cp[li]="false cn[li]="false src[li]=1 ll[li]=Shapes.AddTriangle (0 0 20 0 10 20) Shapes.Move (ll[li] (xp+1)*15+24 yp*15+30) un[3]=ll[li] ElseIf lb=b3 then po=ldtext.Split(Controls.GetTextBoxText (tt) ";") xp=po[1] yp=po[2] ri=ri+1 GraphicsWindow.PenWidth =0 GraphicsWindow.BrushColor ="darkcyan rr[ri]=Shapes.AddRectangle (12 20) un=0 un[1]=rr[ri] Shapes.Move(rr[ri] (xp)*15+29 yp*15+30) ElseIf lb=b21 then 'pnp po=ldtext.Split(Controls.GetTextBoxText (tt) ";") xp=po[1] yp=po[2] GraphicsWindow.PenWidth =2 un=0 un[1]=Shapes.AddLine (xp*15+34 yp*15+34 (xp+2)*15+34 yp*15+34) un[2]= Shapes.AddLine (xp*15+34 (yp+1)*15+34 (xp+2)*15+34 (yp+1)*15+34) un[3]= Shapes.AddLine ((xp+1)*15+34 (yp+2)*15+34 (xp+2)*15+34 (yp+2)*15+34) ldshapes.PenColour ( un[1] "black") ldshapes.PenColour ( un[2] "blue") ldshapes.PenColour ( un[3] "black") GraphicsWindow.PenWidth =0 ri=ri+1 GraphicsWindow.BrushColor ="teal rr[ri]=Shapes.AddRectangle (15 50) un[4]=rr[ri] GraphicsWindow.BrushColor ="cyan Shapes.Move(rr[ri] (xp+2)*15+29 yp*15+24) t[1]=Shapes.AddText ("E") t[2]=Shapes.AddText ("B") t[3]=Shapes.AddText ("C") For y=0 to 2 un[y+5]=t[y+1] Shapes.Move(t[y+1] (xp+2)*15+33 yp*15+26+y*15) endfor ElseIf lb=b2 then 'npn po=ldtext.Split(Controls.GetTextBoxText (tt) ";") xp=po[1] yp=po[2] GraphicsWindow.PenWidth =2 un=0 un[1]= Shapes.AddLine ((xp+1)*15+34 yp*15+34 (xp+2)*15+34 yp*15+34) un[2] =Shapes.AddLine (xp*15+34 (yp+1)*15+34 (xp+2)*15+34 (yp+1)*15+34) un[3]=Shapes.AddLine (xp*15+34 (yp+2)*15+34 (xp+2)*15+34 (yp+2)*15+34) ldshapes.PenColour ( un[1] "black") ldshapes.PenColour ( un[2] "blue") ldshapes.PenColour ( un[3] "black") GraphicsWindow.PenWidth =0 ri=ri+1 GraphicsWindow.BrushColor ="teal rr[ri]=Shapes.AddRectangle (15 50) un[4]=rr[ri] GraphicsWindow.BrushColor ="cyan Shapes.Move(rr[ri] (xp+2)*15+29 yp*15+24) t[1]=Shapes.AddText ("C") t[2]=Shapes.AddText ("B") t[3]=Shapes.AddText ("E") For y=0 to 2 un[y+5]=t[y+1] Shapes.Move(t[y+1] (xp+2)*15+33 yp*15+26+y*15) endfor EndIf EndSub For x=1 To 25 For y=1 To 20 If y=1 Then GraphicsWindow.BrushColor ="#ff0000 cm[x][y]="#ff0000 ElseIf y=20 then GraphicsWindow.BrushColor ="#0000ff cm[x][y]="#0000ff else GraphicsWindow.BrushColor ="lightgray cm[x][y]="#cccccc endif ss=Shapes.AddRectangle (9 9) Shapes.Move (ss x*15+30 y*15+30) LDShapes.SetShapeEvent (ss) EndFor EndFor ii=1 LDShapes.ShapeEvent=see Sub see ls= LDShapes.LastEventShape If LDShapes.LastEventType="MouseDown" Then px[ii]= (Shapes.GetLeft (ls)-30)/15 py[ii]= (Shapes.GetTop (ls)-30)/15 LDShapes.PenWidth (ls 2) LDShapes.PenColour (ls "cyan") If ii=1 Then ols=ls endif ii=ii+1 If ii>2 Then ' GraphicsWindow.PenColor="red GraphicsWindow.PenWidth =2 GraphicsWindow.PenColor =cm[px[ii-2]][py[ii-2]] If text.ConvertToLowerCase (GraphicsWindow.PenColor)="#cccccc" Then GraphicsWindow.ShowMessage ("Unspecifitied polarity!" "Error") else dx=px[ii-1]-px[ii-2] dy=py[ii-1]-py[ii-2] If dx+dy<>0 And dx*dy=0 then shapes.addLine (px[ii-1]*15+34 py[ii-1]*15+34 px[ii-2]*15+34 py[ii-2]*15+34 ) If dx=0 Then For r=math.min(py[ii-1] py[ii-2]) To Math.Max(py[ii-1] py[ii-2]) If cm[px[ii-1]][r]="#cccccc" or cm[px[ii-1]][r]=text.ConvertToLowerCase (GraphicsWindow.PenColor) then cm[px[ii-1]][r]=text.ConvertToLowerCase (GraphicsWindow.PenColor) Else ' GraphicsWindow.ShowMessage ("Unfused shortloop possible! " "Fatal error") EndIf endfor Else For r=math.min(px[ii-1] px[ii-2]) To Math.Max(px[ii-1] px[ii-2]) If cm[r][py[ii-1]]="#cccccc" or cm[r][py[ii-1]]=text.ConvertToLowerCase (GraphicsWindow.PenColor) then cm[r][py[ii-1]]=text.ConvertToLowerCase (GraphicsWindow.PenColor) Else ' GraphicsWindow.ShowMessage ("Unfused shortloop possible! " "Fatal error") EndIf endfor endif Else GraphicsWindow.ShowMessage ("Lines must be ortogonal, not diagonal!" "Error") endif endif LDShapes.PenWidth (ls 0) LDShapes.PenWidth (ols 0) ii=1 EndIf EndIf EndSub End>TWP322.sb< Start>TWP429.sb< TextWindow.Write("Sentence: ") ss=TextWindow.Read() TextWindow.WriteLine("") st=LDText.Split(ss " ") For f=1 To Array.GetItemCount(st) mm=Math.Max(mm Text.GetLength(st[f])) EndFor TextWindow.ForegroundColor="cyan" ln=Text.GetSubText("╔════════════════════════════════════════════════" 1 mm+3) TextWindow.Write(" ") TextWindow.BackgroundColor="blue" TextWindow.WriteLine(ln+"╗") For f=1 To Array.GetItemCount(st) TextWindow.BackgroundColor="black" TextWindow.Write(" ") TextWindow.BackgroundColor="blue" TextWindow.Write("║ ") TextWindow.Write(Text.GetSubText(st[f]+" " 1 mm)+" ║") TextWindow.BackgroundColor="black" TextWindow.WriteLine("▒") EndFor ln=Text.GetSubText("╚════════════════════════════════════════════════" 1 mm+3) TextWindow.BackgroundColor="black" TextWindow.Write(" ") TextWindow.BackgroundColor="blue" TextWindow.Write(ln+"╝") TextWindow.BackgroundColor="black" TextWindow.WriteLine("▒") ln=Text.GetSubText("▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒" 1 mm+4) TextWindow.WriteLine(" "+ln) End>TWP429.sb< Start>TWQ434-1.sb< GraphicsWindow.Width = 600 GraphicsWindow.Height = 600 GraphicsWindow.BrushColor="green GraphicsWindow.FillRectangle(0 0 90 10) GraphicsWindow.BrushColor="white GraphicsWindow.Title="Flag Animation GraphicsWindow.FillRectangle(90 0 90 10) GraphicsWindow.BrushColor="red GraphicsWindow.FillRectangle(180 0 90 10) cc=ldGraphicsWindow.Capture("" "false") GraphicsWindow.Clear() GraphicsWindow.BackgroundColor="darkblue LDImage.Crop(cc 0 0 270 7) cc1=LDImage.Copy(cc) LDImage.ReplaceColour(cc1 "green" "blue" 33) Ground = GraphicsWindow.Height Gravity =.7 Radius = 5 Segmx = 66 Elasticity =0.5 Pi = Math.Pi GraphicsWindow.PenWidth = 2 GraphicsWindow.KeyDown =kdwn 'GraphicsWindow.MouseMove =mmow neww="true gw= GraphicsWindow.Width GraphicsWindow.BrushColor="red pi2=pi/2 dx=200 dy=50 'Timer.tick=ttt 'Timer.Interval =40 tx=0 ty=0 ss=0 While "True" mmow() EndWhile Sub kdwn If GraphicsWindow.LastKey="Escape" Then Gravity =Gravity -0.5 Ground = GraphicsWindow.Height ElseIf GraphicsWindow.LastKey="Oem3" Then Gravity =Gravity +0.5 Ground = GraphicsWindow.Height ElseIf GraphicsWindow.LastKey="Left" Then dx=dx-10 ElseIf GraphicsWindow.LastKey="Right" Then dx=dx+10 ElseIf GraphicsWindow.LastKey="Up" Then dy=dy-10 ElseIf GraphicsWindow.LastKey="Down" Then dy=dy+10 EndIf GraphicsWindow.Title =Gravity EndSub Sub ttt tx=math.Sin(ss)*90 ty=0'math.Cos(ss)*10 ss=ss+0.1 EndSub Sub mmow Joint_X[0] = GraphicsWindow.MouseX+tx Joint_Y[0] = GraphicsWindow.MouseY+ty For i = 1 To Segmx u = Joint_X[i-1]-Joint_X[i] v = Joint_Y[i-1]-Joint_Y[i] uv = Math.SquareRoot(u*u+v*v) Segment_Lenght = Radius'-(Radius - uv)'*Elasticity'(Segment_Lenght[i]*0)-(Radius - uv)*Elasticity If u = 0 Then theta = Pi2 Else theta = Math.ArcTan(v/u) EndIf If (u < 0) Then theta = Pi+theta EndIf Joint_X[i] = Joint_X[i-1] - Segment_Lenght * Math.Cos(theta) Joint_Y[i] = Joint_Y[i-1] - Segment_Lenght * Math.Sin(theta) + Gravity If Joint_Y[i] > Ground Then Joint_Y[i] = Ground 'Gravity[i] = 0 EndIf Joint_Angle = Math.GetDegrees(theta)-90 GraphicsWindow.PenColor = "Purple" ' Shapes.Remove(Segment[i]) If neww Then Segment[i] = Shapes.AddImage(cc) Seg1[i] = Shapes.AddImage(cc1) EndIf shapes.move(Segment[i] Joint_X[i],Joint_Y[i]) shapes.move(Seg1[i] 600-Joint_X[i],Joint_Y[i]) EndFor neww="false EndSub End>TWQ434-1.sb< Start>TWQ434.sb< GraphicsWindow.Width = 600 GraphicsWindow.Height = 600 GraphicsWindow.BrushColor="green GraphicsWindow.FillRectangle(0 0 90 10) GraphicsWindow.BrushColor="white GraphicsWindow.Title="Flag Animation GraphicsWindow.FillRectangle(90 0 90 10) GraphicsWindow.BrushColor="red GraphicsWindow.FillRectangle(180 0 90 10) cc=ldGraphicsWindow.Capture("" "false") GraphicsWindow.Clear() GraphicsWindow.BackgroundColor="darkblue LDImage.Crop(cc 0 0 270 7) Ground = GraphicsWindow.Height Gravity =.7 Radius = 5 Segmx = 66 Elasticity =0.5 Pi = Math.Pi GraphicsWindow.PenWidth = 2 GraphicsWindow.KeyDown =kdwn 'GraphicsWindow.MouseMove =mmow neww="true gw= GraphicsWindow.Width GraphicsWindow.BrushColor="red pi2=pi/2 dx=200 dy=50 'Timer.tick=ttt 'Timer.Interval =40 tx=0 ty=0 ss=0 While "True" mmow() EndWhile Sub kdwn If GraphicsWindow.LastKey="Escape" Then Gravity =Gravity -0.5 Ground = GraphicsWindow.Height ElseIf GraphicsWindow.LastKey="Oem3" Then Gravity =Gravity +0.5 Ground = GraphicsWindow.Height ElseIf GraphicsWindow.LastKey="Left" Then dx=dx-10 ElseIf GraphicsWindow.LastKey="Right" Then dx=dx+10 ElseIf GraphicsWindow.LastKey="Up" Then dy=dy-10 ElseIf GraphicsWindow.LastKey="Down" Then dy=dy+10 EndIf GraphicsWindow.Title =Gravity EndSub Sub ttt tx=math.Sin(ss)*90 ty=0'math.Cos(ss)*10 ss=ss+0.1 EndSub Sub mmow Joint_X[0] = GraphicsWindow.MouseX+tx Joint_Y[0] = GraphicsWindow.MouseY+ty For i = 1 To Segmx u = Joint_X[i-1]-Joint_X[i] v = Joint_Y[i-1]-Joint_Y[i] uv = Math.SquareRoot(u*u+v*v) Segment_Lenght = Radius'-(Radius - uv)'*Elasticity'(Segment_Lenght[i]*0)-(Radius - uv)*Elasticity If u = 0 Then theta = Pi2 Else theta = Math.ArcTan(v/u) EndIf If (u < 0) Then theta = Pi+theta EndIf Joint_X[i] = Joint_X[i-1] - Segment_Lenght * Math.Cos(theta) Joint_Y[i] = Joint_Y[i-1] - Segment_Lenght * Math.Sin(theta) + Gravity If Joint_Y[i] > Ground Then Joint_Y[i] = Ground 'Gravity[i] = 0 EndIf Joint_Angle = Math.GetDegrees(theta)-90 GraphicsWindow.PenColor = "Purple" ' Shapes.Remove(Segment[i]) If neww Then Segment[i] = Shapes.AddImage(cc) EndIf shapes.move(Segment[i] Joint_X[i],Joint_Y[i]) EndFor neww="false EndSub End>TWQ434.sb< Start>TWQ550-0.sb< 'initialiseer de achthoekpunten 'Event handling GraphicsWindow.KeyDown=OnKeyDown keydown = 0 Sub OnKeyDown keydown = 1 EndSub GraphicsWindow.KeyUp=OnKeyUp Sub OnKeyUp keydown = 0 EndSub point[1]["x"]=1 point[1]["y"]=1 point[1]["z"]=1 point[2]["x"]=-1 point[2]["y"]=1 point[2]["z"]=1 point[3]["x"]=1 point[3]["y"]=-1 point[3]["z"]=1 point[4]["x"]=1 point[4]["y"]=1 point[4]["z"]=-1 point[5]["x"]=-1 point[5]["y"]=-1 point[5]["z"]=1 point[6]["x"]=-1 point[6]["y"]=1 point[6]["z"]=-1 point[7]["x"]=1 point[7]["y"]=-1 point[7]["z"]=-1 point[8]["x"]=-1 point[8]["y"]=-1 point[8]["z"]=-1 angleH=30*math.Pi/180 angleV=30*math.Pi/180 calcPoints() DrawPoints() DrawLines() While "true" If (keydown = 1) Then handleKey() EndIf Program.Delay(10) EndWhile Sub handleKey k=graphicsWindow.LastKey ' TextWindow.Writeline(k+angle) If k="A" then angleH=angleH-Math.GetRadians(10) ' Sound.PlayBellRing() ' Draw() endif If k="S" then angleH=angleH+Math.GetRadians(10) ' sound.PlayChime() ' Draw() EndIf If k="W" then angleV=angleV+Math.GetRadians(10) ' sound.PlayChime() ' Draw() EndIf If k="Z" then angleV=angleV-Math.GetRadians(10) ' sound.PlayChime() ' Draw() EndIf calcPoints() DrawPoints() DrawLines() EndSub Sub calcPoints For teller=1 To 8 ' draai in horizontale richting 'x' = x*cos q - y*sin q point[teller]["x1"]=point[teller]["x"]*math.cos(angleH)-point[teller]["y"]*math.sin(angleH) 'y' = x*sin q + y*cos q point[teller]["y1"]=point[teller]["x"]*math.sin(angleH)+point[teller]["y"]*math.cos(angleH) 'z' = z point[teller]["z1"]=point[teller]["z"] ' draai in verticale richting 'y' = x*cos q - y*sin q point[teller]["y2"]=point[teller]["y1"]*math.cos(angleV)-point[teller]["z1"]*math.sin(angleV) 'z' = x*sin q + y*cos q point[teller]["z2"]=point[teller]["y1"]*math.sin(angleV)+point[teller]["z1"]*math.cos(angleV) 'x' = x point[teller]["x2"]=point[teller]["x1"] endfor endsub Sub DrawPoints GraphicsWindow.Clear() For teller=1 To 8 GraphicsWindow.DrawEllipse(point[teller]["x2"]*30+100,point[teller]["y2"]*30+100,5,5) 'GraphicsWindow.SetPixel(point[teller]["x1"]*100+100,point[teller]["y1"]*100+100,"black") 'TextWindow.WriteLine(point[teller]["x1"]*100+100) 'textwindow.WriteLine(point[teller]["y1"]*100+100) endfor EndSub Sub DrawLines GraphicsWindow.DrawLine(point[1]["x2"]*30+100,point[1]["y2"]*30+100,point[2]["x2"]*30+100,point[2]["y2"]*30+100) GraphicsWindow.DrawLine(point[1]["x2"]*30+100,point[1]["y2"]*30+100,point[3]["x2"]*30+100,point[3]["y2"]*30+100) GraphicsWindow.DrawLine(point[1]["x2"]*30+100,point[1]["y2"]*30+100,point[4]["x2"]*30+100,point[4]["y2"]*30+100) ' GraphicsWindow.DrawLine(point[1]["x2"],point[1]["y2"],point[]["x2"],point[]["y2"]) EndSub End>TWQ550-0.sb< Start>TWQ550-2.sb< M = 1 R = Math.GetRadians(10) S = 1 CubeX = 400 CubeY = 300 CubeSize = 50 Info = "True" 'Event handling GraphicsWindow.KeyDown=OnKeyDown GraphicsWindow.KeyUp = OnKeyUp CreateProgram() While Run = "True" If MovingDown = "True" Then CubeY = CubeY + M NeedToDraw = "True" EndIf If MovingUp = "True" Then CubeY = CubeY - M NeedToDraw = "True" EndIf If MovingRight = "True" Then CubeX = CubeX + M NeedToDraw = "True" EndIf If MovingLeft = "True" Then CubeX = CubeX - M NeedToDraw = "True" EndIf If RotatingDown = "True" Then angleV=angleV-R NeedToDraw = "True" EndIf If RotatingUp = "True" Then angleV=angleV+R NeedToDraw = "True" EndIf If RotatingRight = "True" Then angleH=angleH-R NeedToDraw = "True" EndIf If RotatingLeft = "True" Then angleH=angleH+R NeedToDraw = "True" EndIf If ZoomingPlus = "True" Then CubeSize=CubeSize+S NeedToDraw = "True" EndIf If ZoomingMinus = "True" Then CubeSize=CubeSize-S NeedToDraw = "True" If CubeSize < 1 Then CubeSize = 1 EndIf EndIf If NeedToDraw = "True" Then Draw() EndIf EndWhile Sub CreateProgram point[1]["x"]=1 point[1]["y"]=1 point[1]["z"]=1 point[2]["x"]=-1 point[2]["y"]=1 point[2]["z"]=1 point[3]["x"]=1 point[3]["y"]=-1 point[3]["z"]=1 point[4]["x"]=1 point[4]["y"]=1 point[4]["z"]=-1 point[5]["x"]=-1 point[5]["y"]=-1 point[5]["z"]=1 point[6]["x"]=-1 point[6]["y"]=1 point[6]["z"]=-1 point[7]["x"]=1 point[7]["y"]=-1 point[7]["z"]=-1 point[8]["x"]=-1 point[8]["y"]=-1 point[8]["z"]=-1 angleH=30*math.Pi/180 angleV=30*math.Pi/180 NeedToDraw = "False" Run = "True" GraphicsWindow.Show() GraphicsWindow.Title = "3D Cube" GraphicsWindow.Width = 800 GraphicsWindow.Height = 600 GraphicsWindow.Left = Desktop.Width/2-GraphicsWindow.Width/2 GraphicsWindow.Top = Desktop.Height/2-GraphicsWindow.Height/2 If Info = "True" Then TextWindow.Show() TextWindow.Title = "3D info" TextWindow.Left = Desktop.Width/2-330 TextWindow.Top = Desktop.Height/2+330 EndIf RotatingLeft = "False" RotatingRight = "False" RotatingUp = "False" RotatingDown = "False" MovingLeft = "False" MovingRight = "False" MovingUp = "False" MovingDown = "False" ZoomingPlus = "False" ZoomingMinus = "False" Draw() EndSub Sub OnKeyDown K = GraphicsWindow.LastKey If K = "A" Then RotatingLeft = "True" EndIF If K = "S" Then RotatingRight = "True" EndIF If K = "W" Then RotatingUp = "True" EndIf If K = "Z" Then RotatingDown = "True" EndIf If K = "Up" Then MovingUp = "True" EndIf If K = "Down" Then MovingDown = "True" EndIf If K = "Right" Then MovingRight = "True" EndIf If K = "Left" Then MovingLeft = "True" EndIf If K = "X" Then ZoomingPlus = "True" EndIf If K = "C" Then ZoomingMinus = "True" EndIf EndSub Sub OnKeyUp K = GraphicsWindow.LastKey If K = "A" Then RotatingLeft = "False" EndIF If K = "S" Then RotatingRight = "False" EndIF If K = "W" Then RotatingUp = "False" EndIf If K = "Z" Then RotatingDown = "False" EndIf If K = "Up" Then MovingUp = "False" EndIf If K = "Down" Then MovingDown = "False" EndIf If K = "Right" Then MovingRight = "False" EndIf If K = "Left" Then MovingLeft = "False" EndIf If K = "X" Then ZoomingPlus = "False" EndIf If K = "C" Then ZoomingMinus = "False" EndIf EndSub Sub calcPoints For teller=1 To 8 ' draai in horizontale richting 'x' = x*cos q - y*sin q point[teller]["x1"]=point[teller]["x"]*math.cos(angleH)-point[teller]["y"]*math.sin(angleH) 'y' = x*sin q + y*cos q point[teller]["y1"]=point[teller]["x"]*math.sin(angleH)+point[teller]["y"]*math.cos(angleH) 'z' = z point[teller]["z1"]=point[teller]["z"] ' draai in verticale richting 'y' = x*cos q - y*sin q point[teller]["y2"]=point[teller]["y1"]*math.cos(angleV)-point[teller]["z1"]*math.sin(angleV) 'z' = x*sin q + y*cos q point[teller]["z2"]=point[teller]["y1"]*math.sin(angleV)+point[teller]["z1"]*math.cos(angleV) 'x' = x point[teller]["x2"]=point[teller]["x1"] 'Calculate X And Y point[teller]["x2"] = point[teller]["x2"]*CubeSize point[teller]["y2"] = point[teller]["y2"]*CubeSize point[teller]["x2"] = point[teller]["x2"]+CubeX point[teller]["y2"] = point[teller]["y2"]+CubeY endfor endsub Sub Draw 'Draw Info If Info = "True" Then ShowInfo() EndIf 'Calculate Points calcPoints() 'Delete Old Cube GraphicsWindow.Clear() ' Draw The Cube GraphicsWindow.DrawLine(point[1]["x2"],point[1]["y2"],point[2]["x2"],point[2]["y2"]) GraphicsWindow.DrawLine(point[1]["x2"],point[1]["y2"],point[3]["x2"],point[3]["y2"]) GraphicsWindow.DrawLine(point[1]["x2"],point[1]["y2"],point[4]["x2"],point[4]["y2"]) GraphicsWindow.DrawLine(point[2]["x2"],point[2]["y2"],point[5]["x2"],point[5]["y2"]) GraphicsWindow.DrawLine(point[2]["x2"],point[2]["y2"],point[6]["x2"],point[6]["y2"]) GraphicsWindow.DrawLine(point[3]["x2"],point[3]["y2"],point[5]["x2"],point[5]["y2"]) GraphicsWindow.DrawLine(point[3]["x2"],point[3]["y2"],point[7]["x2"],point[7]["y2"]) GraphicsWindow.DrawLine(point[4]["x2"],point[4]["y2"],point[6]["x2"],point[6]["y2"]) GraphicsWindow.DrawLine(point[4]["x2"],point[4]["y2"],point[7]["x2"],point[7]["y2"]) GraphicsWindow.DrawLine(point[5]["x2"],point[5]["y2"],point[8]["x2"],point[8]["y2"]) GraphicsWindow.DrawLine(point[6]["x2"],point[6]["y2"],point[8]["x2"],point[8]["y2"]) GraphicsWindow.DrawLine(point[7]["x2"],point[7]["y2"],point[8]["x2"],point[8]["y2"]) 'Set NeedToDrawFalse NeedToDraw = "False" EndSub Sub ShowInfo TextWindow.Clear() TextWindow.WriteLine("3D info") TextWindow.WriteLine("CubeX = "+CubeX) TextWindow.WriteLine("CubeY = "+CubeY) TextWindow.WriteLine("Cube Size = "+CubeSize) TextWindow.WriteLine("Cube Horizontal Angle = "+angleH) TextWindow.WriteLine("Cube Vertical Angle = "+angleV) EndSub End>TWQ550-2.sb< Start>TWQ550-3.sb< 'initialiseer de achthoekpunten GraphicsWindow.KeyDown=OnKeyDown point[1]["x"]=1 point[1]["y"]=1 point[1]["z"]=1 point[2]["x"]=-1 point[2]["y"]=1 point[2]["z"]=1 point[3]["x"]=1 point[3]["y"]=-1 point[3]["z"]=1 point[4]["x"]=1 point[4]["y"]=1 point[4]["z"]=-1 point[5]["x"]=-1 point[5]["y"]=-1 point[5]["z"]=1 point[6]["x"]=-1 point[6]["y"]=1 point[6]["z"]=-1 point[7]["x"]=1 point[7]["y"]=-1 point[7]["z"]=-1 point[8]["x"]=-1 point[8]["y"]=-1 point[8]["z"]=-1 angleH=30*math.Pi/180 angleV=30*math.Pi/180 calcPoints() DrawPoints() DrawLines() ' While "true" ' EndWhile Sub OnKeyDown k=graphicsWindow.LastKey ' TextWindow.Writeline(k+angle) If k="A" then angleH=angleH-Math.GetRadians(10) ' Sound.PlayBellRing() ' Draw() endif If k="S" then angleH=angleH+Math.GetRadians(10) ' sound.PlayChime() ' Draw() EndIf If k="W" then angleV=angleV+Math.GetRadians(10) ' sound.PlayChime() ' Draw() EndIf If k="Z" then angleV=angleV-Math.GetRadians(10) ' sound.PlayChime() ' Draw() EndIf calcPoints() DrawPoints() DrawLines() EndSub Sub calcPoints For teller=1 To 8 ' draai in horizontale richting 'x' = x*cos q - y*sin q point[teller]["x1"]=point[teller]["x"]*math.cos(angleH)-point[teller]["y"]*math.sin(angleH) 'y' = x*sin q + y*cos q point[teller]["y1"]=point[teller]["x"]*math.sin(angleH)+point[teller]["y"]*math.cos(angleH) 'z' = z point[teller]["z1"]=point[teller]["z"] ' draai in verticale richting 'y' = x*cos q - y*sin q point[teller]["y2"]=point[teller]["y1"]*math.cos(angleV)-point[teller]["z1"]*math.sin(angleV) 'z' = x*sin q + y*cos q point[teller]["z2"]=point[teller]["y1"]*math.sin(angleV)+point[teller]["z1"]*math.cos(angleV) 'x' = x point[teller]["x2"]=point[teller]["x1"] endfor endsub Sub DrawPoints GraphicsWindow.PenColor = "white" GraphicsWindow.Clear() For teller=1 To 8 GraphicsWindow.DrawEllipse(point[teller]["x2"]*30+100,point[teller]["y2"]*30+100,5,5) 'GraphicsWindow.SetPixel(point[teller]["x1"]*100+100,point[teller]["y1"]*100+100,"black") 'TextWindow.WriteLine(point[teller]["x1"]*100+100) 'textwindow.WriteLine(point[teller]["y1"]*100+100) endfor EndSub Sub DrawLines GraphicsWindow.PenColor = "Black" GraphicsWindow.DrawLine(point[1]["x2"]*30+100,point[1]["y2"]*30+100,point[2]["x2"]*30+100,point[2]["y2"]*30+100) GraphicsWindow.DrawLine(point[1]["x2"]*30+100,point[1]["y2"]*30+100,point[3]["x2"]*30+100,point[3]["y2"]*30+100) GraphicsWindow.DrawLine(point[1]["x2"]*30+100,point[1]["y2"]*30+100,point[4]["x2"]*30+100,point[4]["y2"]*30+100) GraphicsWindow.DrawLine(point[2]["x2"]*30+100,point[2]["y2"]*30+100,point[5]["x2"]*30+100,point[5]["y2"]*30+100) GraphicsWindow.DrawLine(point[2]["x2"]*30+100,point[2]["y2"]*30+100,point[6]["x2"]*30+100,point[6]["y2"]*30+100) GraphicsWindow.DrawLine(point[3]["x2"]*30+100,point[3]["y2"]*30+100,point[5]["x2"]*30+100,point[5]["y2"]*30+100) GraphicsWindow.DrawLine(point[3]["x2"]*30+100,point[3]["y2"]*30+100,point[7]["x2"]*30+100,point[7]["y2"]*30+100) GraphicsWindow.DrawLine(point[4]["x2"]*30+100,point[4]["y2"]*30+100,point[6]["x2"]*30+100,point[6]["y2"]*30+100) GraphicsWindow.DrawLine(point[4]["x2"]*30+100,point[4]["y2"]*30+100,point[7]["x2"]*30+100,point[7]["y2"]*30+100) GraphicsWindow.DrawLine(point[5]["x2"]*30+100,point[5]["y2"]*30+100,point[8]["x2"]*30+100,point[8]["y2"]*30+100) GraphicsWindow.DrawLine(point[6]["x2"]*30+100,point[6]["y2"]*30+100,point[8]["x2"]*30+100,point[8]["y2"]*30+100) GraphicsWindow.DrawLine(point[7]["x2"]*30+100,point[7]["y2"]*30+100,point[8]["x2"]*30+100,point[8]["y2"]*30+100) ' GraphicsWindow.DrawLine(point[1]["x2"],point[1]["y2"],point[]["x2"],point[]["y2"]) EndSub End>TWQ550-3.sb< Start>TWQ550.sb< 'initialiseer de achthoekpunten GraphicsWindow.KeyDown=OnKeyDown point[1]["x"]=1 point[1]["y"]=1 point[1]["z"]=1 point[2]["x"]=-1 point[2]["y"]=1 point[2]["z"]=1 point[3]["x"]=1 point[3]["y"]=-1 point[3]["z"]=1 point[4]["x"]=1 point[4]["y"]=1 point[4]["z"]=-1 point[5]["x"]=-1 point[5]["y"]=-1 point[5]["z"]=1 point[6]["x"]=-1 point[6]["y"]=1 point[6]["z"]=-1 point[7]["x"]=1 point[7]["y"]=-1 point[7]["z"]=-1 point[8]["x"]=-1 point[8]["y"]=-1 point[8]["z"]=-1 angleH=30*math.Pi/180 angleV=30*math.Pi/180 calcPoints() DrawPoints() DrawLines() ' While "true" ' EndWhile Sub OnKeyDown k=graphicsWindow.LastKey ' TextWindow.Writeline(k+angle) If k="A" then angleH=angleH-Math.GetRadians(10) ' Sound.PlayBellRing() ' Draw() endif If k="S" then angleH=angleH+Math.GetRadians(10) ' sound.PlayChime() ' Draw() EndIf If k="W" then angleV=angleV+Math.GetRadians(10) ' sound.PlayChime() ' Draw() EndIf If k="Z" then angleV=angleV-Math.GetRadians(10) ' sound.PlayChime() ' Draw() EndIf calcPoints() DrawPoints() DrawLines() EndSub Sub calcPoints For teller=1 To 8 ' draai in horizontale richting 'x' = x*cos q - y*sin q point[teller]["x1"]=point[teller]["x"]*math.cos(angleH)-point[teller]["y"]*math.sin(angleH) 'y' = x*sin q + y*cos q point[teller]["y1"]=point[teller]["x"]*math.sin(angleH)+point[teller]["y"]*math.cos(angleH) 'z' = z point[teller]["z1"]=point[teller]["z"] ' draai in verticale richting 'y' = x*cos q - y*sin q point[teller]["y2"]=point[teller]["y1"]*math.cos(angleV)-point[teller]["z1"]*math.sin(angleV) 'z' = x*sin q + y*cos q point[teller]["z2"]=point[teller]["y1"]*math.sin(angleV)+point[teller]["z1"]*math.cos(angleV) 'x' = x point[teller]["x2"]=point[teller]["x1"] endfor endsub Sub DrawPoints GraphicsWindow.Clear() For teller=1 To 8 GraphicsWindow.DrawEllipse(point[teller]["x2"]*30+100,point[teller]["y2"]*30+100,5,5) 'GraphicsWindow.SetPixel(point[teller]["x1"]*100+100,point[teller]["y1"]*100+100,"black") 'TextWindow.WriteLine(point[teller]["x1"]*100+100) 'textwindow.WriteLine(point[teller]["y1"]*100+100) endfor EndSub Sub DrawLines GraphicsWindow.DrawLine(point[1]["x2"]*30+100,point[1]["y2"]*30+100,point[2]["x2"]*30+100,point[2]["y2"]*30+100) GraphicsWindow.DrawLine(point[1]["x2"]*30+100,point[1]["y2"]*30+100,point[3]["x2"]*30+100,point[3]["y2"]*30+100) GraphicsWindow.DrawLine(point[1]["x2"]*30+100,point[1]["y2"]*30+100,point[4]["x2"]*30+100,point[4]["y2"]*30+100) ' GraphicsWindow.DrawLine(point[1]["x2"],point[1]["y2"],point[]["x2"],point[]["y2"]) EndSub End>TWQ550.sb< Start>TWR674.sb< TextWindow.WriteLine("How many sides?") sides = TextWindow.ReadNumber() TextWindow.Hide() length = 400 / sides angle = 360 / sides For i = 1 To sides Turtle.Move(length) Turtle.Turn(angle) EndFor Program.Delay(3000) Program.End() End>TWR674.sb< Start>TWT911.sb< GraphicsWindow.BackgroundColor="darkblue" GraphicsWindow.Width=900 GraphicsWindow.Height=900 GraphicsWindow.Title="3D Olympic Rings" view3D = LD3DView.AddView(900,900,"True") LD3DView.AddAmbientLight(view3D "#77777777") LD3DView.AddSpotLight (view3D,"white",1 1 1, -1,-1,1 30, 10) LD3DView.AddDirectionalLight (view3D,"#bbaaaaaa" ,30,-7,-1) LD3DView.AutoControl2 ( 1 1) args=0 p15=5 l15=.266 For y=0 To 1 For x=0 To 2-y For f=0 To 359 Step p15 pp=LD3DView.AddPipe(view3D l15 .09 .15 15 LDColours.HSLtoRGB(f 1 .6) "D") cx=LDMath.cos(f)*3 sy=LDMath.sin(f)*3 LD3DView.TranslateGeometry(view3D pp cx+x*5+y*2.5 sy+y*4.75 0) LD3DView.RotateGeometry(view3D pp 0 0 1 f) LD3DView.AnimateRotation(view3D pp 1 1 1 0 360 2 10) EndFor EndFor EndFor End>TWT911.sb< Start>TWW426-0.sb< ' S O L A R I S A T I O N ' program by parYvan Leduc ----April 10th 2016 ' program no: GraphicsWindow.Title = "Solarisation" GraphicsWindow.top= 0 GraphicsWindow.left= 0 GraphicsWindow.Height=768 GraphicsWindow.Width=1366 GraphicsWindow.BackgroundColor="BLACK" image=ImageList.LoadImage("https://rstorage.filemobile.com/storage/25555976/1551") 'image=ImageList.LoadImage("C:\Users\Yvan\Documents\Small Basic Programmes\Photographie\images\1462 Nkn D70-solar.jpg") IH=ImageList.GetHeightOfImage(image) IW=ImageList.GetWidthOfImage(image) width=300 height=200 GraphicsWindow.DraWImage(image,0,0) Pixels = LDImage.GetImagePixels(image) For y = 1 To IH For x= 1 To IW hex=Pixels[x][y] R=LDColours.GetRed(hex) G=LDColours.Getgreen(hex) B=LDColours.Getblue(hex) solarisation() GraphicsWindow.SetPixel(x,y,GraphicsWindow.GetColorFromRGB(R,G,B)) Endfor EndFor draw_normal() ' ************************** END OF PROGRAMME *************************************************** Sub solarisation R = R/255 R = 1 - 4*R + 4*R*R R = 255*R G = G/255 G = 1 - 4*G + 4*G*G G = 255*G B = B/255 B = 1 - 4*B + 4*B*B B = 255*B endsub Sub draw_normal GraphicsWindow.DrawresizedImage(image,900,0,500,333) endsub End>TWW426-0.sb< Start>TWW426.sb< ' S O L A R I S A T I O N ' program by parYvan Leduc ----April 10th 2016 ' program no: GraphicsWindow.Title = "Solarisation" GraphicsWindow.top= 0 GraphicsWindow.left= 0 GraphicsWindow.Height=768 GraphicsWindow.Width=1366 GraphicsWindow.BackgroundColor="BLACK" image=ImageList.LoadImage("https://rstorage.filemobile.com/storage/25555976/1551") 'image=ImageList.LoadImage("C:\Users\Yvan\Documents\Small Basic Programmes\Photographie\images\1462 Nkn D70-solar.jpg") IH=ImageList.GetHeightOfImage(image) IW=ImageList.GetWidthOfImage(image) width=300 height=200 GraphicsWindow.DraWImage(image,0,0) Pixels = LDImage.GetImagePixels(image) For y = 1 To IH For x= 1 To IW hex=Pixels[x][y] R=LDColours.GetRed(hex) G=LDColours.Getgreen(hex) B=LDColours.Getblue(hex) RGB=R+G+B solarisation() Endfor EndFor draw_normal() ' ************************** END OF PROGRAMME *************************************************** Sub solarisation ' ____________________________ high values SOLARISATION _______________________________________ ' zone VII to IX if RGB > 750 Then gray_value=GraphicsWindow.GetColorFromRGB (R/4,G/4,B/4) GraphicsWindow.SetPixel(x,y,gray_value) ELSEif RGB > 674 And RGB < 750 Then gray_value=GraphicsWindow.GetColorFromRGB (R/3,G/3,B/3) GraphicsWindow.SetPixel(x,y,gray_value) elseif RGB > 598 And RGB < 674 Then gray_value=GraphicsWindow.GetColorFromRGB (R/2,G/2,B/2) GraphicsWindow.SetPixel(x,y,gray_value) elseif RGB > 522 And RGB < 598 Then gray_value=GraphicsWindow.GetColorFromRGB (R/1.5,G/1.5,B/1.5) GraphicsWindow.SetPixel(x,y,gray_value) EndIf ' ________________ middle value Zone IV-V-VI untouched NO SOLARISATION _____________________ ' ______________________________ low value SOLARISATION _____________________________ ' zone III and less to Zone o if RGB > 218 And RGB < 294 Then gray_value=GraphicsWindow.GetColorFromRGB (R*1.5,G*1.5,B*1.5) GraphicsWindow.SetPixel(x,y,gray_value) elseif RGB > 142 And RGB < 218 Then gray_value=GraphicsWindow.GetColorFromRGB (R*2,G*2,B*2) GraphicsWindow.SetPixel(x,y,gray_value) elseif RGB > 15 And RGB < 142 Then gray_value=GraphicsWindow.GetColorFromRGB (R*3,G*3,B*3) GraphicsWindow.SetPixel(x,y,gray_value) elseif RGB < 15 Then gray_value=GraphicsWindow.GetColorFromRGB (R*4,G*4,B*4) GraphicsWindow.SetPixel(x,y,gray_value) EndIf endsub Sub draw_normal GraphicsWindow.DrawresizedImage(image,900,0,500,333) endsub End>TWW426.sb< Start>TWW791.sb< ' SuperCalc in Small Basic ' by Yled, May 14th 2016, ' special help from NaochanON ' program no: CDF928-1 path=program.Directory GraphicsWindow.Clear() GraphicsWindow.Title = "SuperCalc -Calculators" GraphicsWindow.top= 0 GraphicsWindow.left= 0 GraphicsWindow.Height = 768 GraphicsWindow.Width = 1366 design() GraphicsWindow.FontSize = 15 space=0 For x=1 to 11 For y = 1 To 18 GraphicsWindow.BrushColor = "black" cellule[x][y] = Controls.AddTextBox(60+spaceH, 25+spaceV) Controls.SetSize(cellule[x][y],60,25) spaceV=spaceV+26 endfor spaceV=0 spaceH=spaceH+62 EndFor compute_sum() GraphicsWindow.FontSize = 30 GraphicsWindow.BrushColor = "red" button = Controls.AddButton(" update Sum ", 1050, 450) GraphicsWindow.FontSize = 16 GraphicsWindow.BrushColor = "blue" Controls.ButtonClicked = Click Sub Click If Controls.LastClickedButton = button Then compute_sum() EndIf EndSub Sub compute_sum initialize() ' compute sum of 11 rows For x = 1 To 11 For y =1 To 18 row[y]= row[y]+Controls.GetTextBoxText(cellule[x][y]) EndFor EndFor ' display sum in textbox at right For y= 1 To 18 ' <--- Y ' if sum is negative display in red color If row[y]< 0 Then GraphicsWindow.brushColor = "Red" Else GraphicsWindow.brushColor = "Navy" EndIf Controls.Remove(Ybox[y]) Ybox[y]=Controls.AddTextBox(815,25+spaceV) Controls.SetSize(Ybox[y],60,25) Controls.SetTextBoxText(Ybox[y],row[y]) spaceV=spaceV+26 EndFor ' compute sum of colums For y = 1 To 18 For x = 1 To 11 col[x]= col[x]+Controls.GetTextBoxText(cellule[x][y]) EndFor EndFor ' display sum in textbox at the bottom For x= 1 To 11 ' <-- X ' if sum is negative display in red color If col[x]< 0 Then GraphicsWindow.brushColor = "red" Else GraphicsWindow.brushColor = "Navy" EndIf Controls.Remove(Xbox[x]) Xbox[x]=Controls.AddTextBox(60+spaceH,550) Controls.SetSize(Xbox[x],60,25) Controls.SetTextBoxText(Xbox[x],col[x]) GlobalSum=GlobalSum+col[x] spaceH=spaceH+62 EndFor Global_sum() EndSub Sub Global_sum GraphicsWindow.BrushColor = "green" GraphicsWindow.FontSize=30 Gsum=Controls.AddTextBox(815,525) Controls.SetSize(Gsum,100,50) Controls.SetTextBoxText(Gsum,Globalsum) Global_sum=0 EndSub Sub initialize For i=1 to 18 col[i]=0 row[i]=0 endfor spaceV=0 spaceH=0 Global_sum=0 GraphicsWindow.FontSize = 16 GraphicsWindow.BrushColor = "blue" EndSub Sub Design BGimage=ImageList.LoadImage("https://social.msdn.microsoft.com/Forums/getfile/863657") For a= 1 To 1366 Step 62 For b=1 To 768 Step 26 GraphicsWindow.DrawImage(BGimage,a,b) EndFor EndFor GraphicsWindow.FontSize = 55 GraphicsWindow.BrushColor = "lightgray" GraphicsWindow.DrawBoundText(975,150,300,"Super ADD Calculator") GraphicsWindow.FontSize = 12 GraphicsWindow.BrushColor = "white" GraphicsWindow.DrawBoundText(1075,550,300,"Program by Yled @ 2016") EndSub End>TWW791.sb< Start>TWX145.sb< '2014.10.1 开始制作 '更新步骤： GraphicsWindow.Width=700 GraphicsWindow.Height=530 GraphicsWindow.Left=(Desktop.Width-GraphicsWindow.Width)/2-50 GraphicsWindow.Top=(Desktop.Height-GraphicsWindow.Height)/2-50 GraphicsWindow.Title="Island Craft" Controls.ButtonClicked=buttonclicked GraphicsWindow.KeyDown=keydown GraphicsWindow.MouseDown=mousedown screen=1 check=1 gameload=0 path="E:\Island Craft1" '默认打开方式 标准：E:\Island Craft1 , E:\编程\LOCK\LOCK2\lock\文件\Island Craft1 baginformation() typerinformation() drawscreen() worldwidth=100 worldlength=worldwidth Sub drawscreen If screen=1 Then GraphicsWindow.Clear() GraphicsWindow.BrushColor="Black" GraphicsWindow.FontSize=36 GraphicsWindow.DrawText(50,50,"Island Craft岛屿生存") GraphicsWindow.FontSize=25 GraphicsWindow.DrawText(50,165,"输入存档路径：") enterkeypath=Controls.AddTextBox(50,200) Controls.SetSize(enterkeypath,500,40) Controls.SetTextBoxText(enterkeypath,path) startplaygame=Controls.AddButton("PLAY",580,200) Controls.SetSize(startplaygame,80,40) ElseIf screen=2 Then GraphicsWindow.Clear() firstgameload=0 GraphicsWindow.DrawText(200,150,"第一次进入此存档需要加载") GraphicsWindow.DrawText(280,190,"请耐心等候") showfirstgameload=Shapes.AddText("已加载"+firstgameload+"%") Shapes.Move(showfirstgameload,270,230) mex=Math.Floor(worldwidth/2)+1 mey=Math.Floor(worldlength/2)+1 For i=1 To worldlength For j=1 To worldwidth If i=mex And j=mey Then thing[i][j]=120 ElseIf i=mex-1 And j=mey Then thing[i][j]=120 ElseIf i=mex-2 And j=mey Then thing[i][j]=120 Else thing[i][j]=Math.GetRandomNumber(120) EndIf ' The following line could be harmful and has been automatically commented. ' File.WriteLine(path,(i-1)*worldwidth+j+1,thing[i][j]) firstgameload=Math.Round((i*100+j)/worldlength-1)/2 Shapes.SetText(showfirstgameload,"已加载"+firstgameload+"%") EndFor EndFor For i=1 To allcheck ' The following line could be harmful and has been automatically commented. ' File.WriteLine(path,worldlength*worldwidth+1+i,0) firstgameload=50+Math.Round(50/allcheck)*i-1 Shapes.SetText(showfirstgameload,"已加载"+firstgameload+"%") EndFor For i=1 To 6 ' The following line could be harmful and has been automatically commented. ' File.WriteLine(path,worldlength*worldwidth+1+allcheck+i,0) EndFor ' The following line could be harmful and has been automatically commented. ' File.WriteLine(path,worldlength*worldwidth+8+allcheck,1) ' The following line could be harmful and has been automatically commented. ' File.WriteLine(path,worldlength*worldwidth+9+allcheck,mex) ' The following line could be harmful and has been automatically commented. ' File.WriteLine(path,worldlength*worldwidth+10+allcheck,mey) For i=1 To 12 ' The following line could be harmful and has been automatically commented. ' File.WriteLine(path,worldlength*worldwidth+10+allcheck+i,0) EndFor ' The following line could be harmful and has been automatically commented. ' File.WriteLine(path,worldlength*worldwidth+23+allcheck,10) ' The following line could be harmful and has been automatically commented. ' File.WriteLine(path,worldlength*worldwidth+24+allcheck,10) firstgameload=100 Shapes.SetText(showfirstgameload,"已加载"+firstgameload+"%") screen=4 drawscreen() ElseIf screen=3 Then GraphicsWindow.Clear() willgetthing=0 gameload=0 GraphicsWindow.PenWidth=4 GraphicsWindow.DrawLine(0,451,700,451) GraphicsWindow.DrawLine(451,0,451,451) GraphicsWindow.PenWidth=4 GraphicsWindow.FontSize=14 GraphicsWindow.BrushColor="Black" For i=1 To 6 If holdeasybag=i Then GraphicsWindow.PenColor="Red" showholdeasybag1=Shapes.AddRectangle(2,40) showholdeasybag2=Shapes.AddRectangle(2,40) showholdeasybag3=Shapes.AddRectangle(60,2) showholdeasybag4=Shapes.AddRectangle(60,2) Shapes.Move(showholdeasybag1,19+(i-1)*70,486) Shapes.Move(showholdeasybag2,80+(i-1)*70,486) Shapes.Move(showholdeasybag3,20+(i-1)*70,485) Shapes.Move(showholdeasybag4,20+(i-1)*70,526) GraphicsWindow.PenColor="Black" EndIf GraphicsWindow.DrawRectangle(20+(i-1)*70,486,60,40) GraphicsWindow.DrawText(22+(i-1)*70,486,bagthing[easybag[i]]) GraphicsWindow.DrawText(22+(i-1)*70,506,"x"+bagnum[easybag[i]]) EndFor GraphicsWindow.PenWidth=2 GraphicsWindow.FontSize=22 GraphicsWindow.DrawText(10,456,"血量值:"+exchangerblood[blood]) GraphicsWindow.DrawText(300,456,"饥饿值:"+exchangerhung[hunger]) For i=mex-4 To mex+4 For j=mey-4 To mey+4 instead=thing[i][j] If instead<=18 Then '水 GraphicsWindow.BrushColor="CornFlowerBlue" GraphicsWindow.FillRectangle((i-mex+4)*50,(j-mey+4)*50,50,50) Else GraphicsWindow.BrushColor="ForestGreen" GraphicsWindow.FillRectangle((i-mex+4)*50,(j-mey+4)*50,50,50) EndIf If instead>18 And instead<=28 Then '树木 GraphicsWindow.BrushColor="DarkGreen" GraphicsWindow.FillRectangle((i-mex+4)*50+12.5,(j-mey+4)*50,25,50) GraphicsWindow.FillRectangle((i-mex+4)*50,(j-mey+4)*50+12.5,50,25) ElseIf instead>30 And instead<=35 Then '石头 GraphicsWindow.BrushColor="Gray" GraphicsWindow.FillRectangle((i-mex+4)*50+15,(j-mey+4)*50+15,20,20) ElseIf instead=30 Then '蘑菇 GraphicsWindow.BrushColor="Purple" GraphicsWindow.FillEllipse((i-mex+4)*50+19,(j-mey+4)*50+12,12,12) GraphicsWindow.FillRectangle((i-mex+4)*50+21.5,(j-mey+4)*50+22,7,10) ElseIf instead=29 Then '南瓜 GraphicsWindow.BrushColor="Gold" GraphicsWindow.FillRectangle((i-mex+4)*50+20,(j-mey+4)*50+15,10,8) GraphicsWindow.FillEllipse((i-mex+4)*50+15,(j-mey+4)*50+22,20,20) ElseIf instead=121 Then '标记 GraphicsWindow.PenColor="BurlyWood" GraphicsWindow.PenWidth=5 GraphicsWindow.DrawLine((i-mex+4)*50+5,(j-mey+4)*50+5,(i-mex+4)*50+45,(j-mey+4)*50+45) GraphicsWindow.DrawLine((i-mex+4)*50+45,(j-mey+4)*50+5,(i-mex+4)*50+5,(j-mey+4)*50+45) EndIf If i=mex And j=mey Then '我 GraphicsWindow.BrushColor="White" GraphicsWindow.FillRectangle((i-mex+4)*50+16,(j-mey+4)*50+8,17,21) EndIf EndFor EndFor ElseIf screen=4 Then GraphicsWindow.Clear() GraphicsWindow.FontSize=25 GraphicsWindow.DrawText(240,150,"正在载入游戏......") GraphicsWindow.DrawText(280,190,"请耐心等候") showfirstgameload=Shapes.AddText("已加载"+firstgameload+"%") Shapes.Move(showfirstgameload,270,230) ' The following line could be harmful and has been automatically commented. ' mex=File.ReadLine(path,worldlength*worldwidth+9+allcheck) ' The following line could be harmful and has been automatically commented. ' mey=File.ReadLine(path,worldlength*worldwidth+10+allcheck) For i=1 To worldlength For j=1 To worldwidth ' The following line could be harmful and has been automatically commented. ' thing[i][j]=File.ReadLine(path,(i-1)*worldwidth+j+1) firstgameload=Math.Round((i*100+j)/worldlength-1)/2 Shapes.SetText(showfirstgameload,"已加载"+firstgameload+"%") EndFor EndFor For i=1 To allcheck ' The following line could be harmful and has been automatically commented. ' bagnum[i]=File.ReadLine(path,worldlength*worldwidth+1+i) firstgameload=50+Math.Round(50/allcheck)*i-1 Shapes.SetText(showfirstgameload,"已加载"+firstgameload+"%") EndFor For i=1 To 12 ' The following line could be harmful and has been automatically commented. ' baglong[i+13]=File.ReadLine(path,worldlength*worldwidth+10+allcheck+i) EndFor For i=1 To 6 ' The following line could be harmful and has been automatically commented. ' easybag[i]=File.ReadLine(path,worldlength*worldwidth+1+allcheck+i) EndFor ' The following line could be harmful and has been automatically commented. ' holdeasybag=File.ReadLine(path,worldlength*worldwidth+8+allcheck) ' The following line could be harmful and has been automatically commented. ' blood=File.ReadLine(path,worldlength*worldwidth+23+allcheck) ' The following line could be harmful and has been automatically commented. ' hunger=File.ReadLine(path,worldlength*worldwidth+24+allcheck) firstgameload=100 Shapes.SetText(showfirstgameload,"已加载"+firstgameload+"%") screen=3 Timer.Tick=timecounter Timer.Interval=1000 drawscreen() ElseIf screen=5 Then GraphicsWindow.Clear() GraphicsWindow.BrushColor="Black" GraphicsWindow.FontSize=25 GraphicsWindow.DrawRectangle(20,20,660,490) GraphicsWindow.DrawText(30,30,"背包物品:"+bagthing[check]) GraphicsWindow.DrawText(30,60,"物品编号:"+check) GraphicsWindow.DrawText(30,90,"物品数量:"+bagnum[check]) GraphicsWindow.DrawText(30,130,"放入快捷包:") GraphicsWindow.FontSize=22 For i=1 To 6 putinto[i]=Controls.AddButton(i+"号",30+(i-1)*85,160) Controls.SetSize(putinto[i],80,35) EndFor GraphicsWindow.DrawText(30,220,"制作材料1:"+bagthing[bagmake1[check]]+" X"+bagmake1num[check]+" , 拥有"+bagnum[bagmake1[check]]) GraphicsWindow.DrawText(30,250,"制作材料2:"+bagthing[bagmake2[check]]+" X"+bagmake2num[check]+" , 拥有"+bagnum[bagmake2[check]]) GraphicsWindow.DrawText(30,280,"制作材料3:"+bagthing[bagmake3[check]]+" X"+bagmake3num[check]+" , 拥有"+bagnum[bagmake3[check]]) GraphicsWindow.DrawText(30,320,"制作后可得到:"+bagthing[check]+" X"+bagmakeget[check]) makething=Controls.AddButton("制作",30,350) If check>=14 And check<=25 Then GraphicsWindow.DrawText(30,400,"剩余耐久度:"+baglong[check]) EndIf findinbagwri=Controls.AddTextBox(380,28) Controls.SetSize(findinbagwri,180,40) findinbagbut=Controls.AddButton("查找",570,28) Controls.SetSize(findinbagbut,80,40) EndIf EndSub Sub buttonclicked If screen=1 And Controls.LastClickedButton=startplaygame Then path=Controls.GetTextBoxText(enterkeypath) ' The following line could be harmful and has been automatically commented. ' If File.ReadLine(path,1)="" Then ' The following line could be harmful and has been automatically commented. ' File.WriteLine(path,1,1) screen=2 drawscreen() Else screen=4 drawscreen() EndIf ElseIf screen=5 Then If bagnum[check]>0 Then For i=1 To 6 If Controls.LastClickedButton=putinto[i] Then For j=1 To 6 If i<>j And easybag[j]=check Then easybag[j]=0 ' The following line could be harmful and has been automatically commented. ' File.WriteLine(path,worldlength*worldwidth+1+allcheck+i,check) EndIf EndFor easybag[i]=check ' The following line could be harmful and has been automatically commented. ' File.WriteLine(path,worldlength*worldwidth+1+allcheck+i,check) EndIf EndFor EndIf If Controls.LastClickedButton=makething Then If bagnum[bagmake1[check]]>=bagmake1num[check] And bagnum[bagmake2[check]]>=bagmake2num[check] Then If bagnum[bagmake3[check]]>=bagmake3num[check] Then bagnum[bagmake1[check]]=bagnum[bagmake1[check]]-bagmake1num[check] bagnum[bagmake2[check]]=bagnum[bagmake2[check]]-bagmake2num[check] bagnum[bagmake3[check]]=bagnum[bagmake3[check]]-bagmake3num[check] bagnum[check]=bagnum[check]+bagmakeget[check] If bagnum[bagmake1[check]]=0 Then For i=1 To 6 If easybag[i]=bagmake1[check] Then easybag[i]=0 ' The following line could be harmful and has been automatically commented. ' File.WriteLine(path,worldlength*worldwidth+1+allcheck+i,0) EndIf EndFor EndIf If bagnum[bagmake2[check]]=0 Then For i=1 To 6 If easybag[i]=bagmake2[check] Then easybag[i]=0 ' The following line could be harmful and has been automatically commented. ' File.WriteLine(path,worldlength*worldwidth+1+allcheck+i,0) EndIf EndFor EndIf If bagnum[bagmake3[check]]=0 Then For i=1 To 6 If easybag[i]=bagmake3[check] Then easybag[i]=0 ' The following line could be harmful and has been automatically commented. ' File.WriteLine(path,worldlength*worldwidth+1+allcheck+i,0) EndIf EndFor EndIf ' The following line could be harmful and has been automatically commented. ' File.WriteLine(path,worldlength*worldwidth+1+bagmake1[check],bagnum[bagmake1[check]]) ' The following line could be harmful and has been automatically commented. ' File.WriteLine(path,worldlength*worldwidth+1+bagmake2[check],bagnum[bagmake2[check]]) ' The following line could be harmful and has been automatically commented. ' File.WriteLine(path,worldlength*worldwidth+1+bagmake3[check],bagnum[bagmake3[check]]) ' The following line could be harmful and has been automatically commented. ' File.WriteLine(path,worldlength*worldwidth+1+check,bagnum[check]) If check>=14 And check<=25 And bagnum[check]=1 Then baglong[check]=baghavelong[check] ' The following line could be harmful and has been automatically commented. ' File.WriteLine(path,worldlength*worldwidth+10+allcheck+easybag[holdeasybag],baglong[easybag[holdeasybag]]) EndIf EndIf EndIf drawscreen() ElseIf Controls.LastClickedButton=findinbagbut Then findinbagname=Controls.GetTextBoxText(findinbagwri) For i=1 To allcheck If findinbagname=bagthing[i] Or i=findinbagname Then check=i EndIf EndFor drawscreen() EndIf EndIf EndSub Sub keydown If screen=3 Then If GraphicsWindow.LastKey="W" Or GraphicsWindow.LastKey="Up" Then If mey>1 And thing[mex][mey-1]>29 Then mey=mey-1 drawscreen() EndIf ElseIf GraphicsWindow.LastKey="A" Or GraphicsWindow.LastKey="Left" Then If mex>1 And thing[mex-1][mey]>29 Then mex=mex-1 drawscreen() EndIf ElseIf GraphicsWindow.LastKey="S" Or GraphicsWindow.LastKey="Down" Then If mey29 Then mey=mey+1 drawscreen() EndIf ElseIf GraphicsWindow.LastKey="D" Or GraphicsWindow.LastKey="Right" Then If mex29 Then mex=mex+1 drawscreen() EndIf ElseIf GraphicsWindow.LastKey="E" Then screen=5 drawscreen() EndIf For i=1 To 6 If GraphicsWindow.LastKey="D"+i Then holdeasybag=i Shapes.Move(showholdeasybag1,19+(i-1)*70,486) Shapes.Move(showholdeasybag2,80+(i-1)*70,486) Shapes.Move(showholdeasybag3,20+(i-1)*70,485) Shapes.Move(showholdeasybag4,20+(i-1)*70,526) ' The following line could be harmful and has been automatically commented. ' File.WriteLine(path,worldlength*worldwidth+8+allcheck,holdeasybag) EndIf EndFor ElseIf screen=5 Then If GraphicsWindow.LastKey="W" Or GraphicsWindow.LastKey="Up" Then If check>1 Then check=check-1 Else check=allcheck EndIf drawscreen() ElseIf GraphicsWindow.LastKey="S" Or GraphicsWindow.LastKey="Down" Then If check=14 And easybag[holdeasybag]<=19 Then gameload=gameload-bagspeed[easybag[holdeasybag]] If gameload<=0 Then gameload=1 EndIf EndIf GraphicsWindow.BrushColor="Black" GraphicsWindow.FontSize=25 showpickcomplete=Shapes.AddText("采集剩余时间："+gameload+"秒") Shapes.Move(showpickcomplete,460,10) willgetthing=7 ElseIf thing[mx][my]>18 And thing[mx][my]<29 Then '树木 gameload=10 If easybag[holdeasybag]>=14 And easybag[holdeasybag]<=19 Then gameload=gameload-bagspeed[easybag[holdeasybag]] If gameload<=0 Then gameload=1 EndIf EndIf GraphicsWindow.BrushColor="Black" GraphicsWindow.FontSize=25 showpickcomplete=Shapes.AddText("采集剩余时间："+gameload+"秒") Shapes.Move(showpickcomplete,460,10) willgetthing=1 ElseIf thing[mx][my]>=31 And thing[mx][my]<=35 Then '石头 If easybag[holdeasybag]>=14 And easybag[holdeasybag]<=19 Then gameload=5 gameload=gameload-bagspeed[easybag[holdeasybag]] If gameload<=0 Then gameload=1 EndIf GraphicsWindow.BrushColor="Black" GraphicsWindow.FontSize=25 showpickcomplete=Shapes.AddText("采集剩余时间："+gameload+"秒") Shapes.Move(showpickcomplete,460,10) willgetthing=4 Else GraphicsWindow.BrushColor="Black" GraphicsWindow.FontSize=25 showmessage=Shapes.AddText("太硬了，挖不动") Shapes.Move(showmessage,460,70) EndIf ElseIf thing[mx][my]>=36 And thing[mx][my]<=38 Then '铁 If easybag[holdeasybag]>=15 And easybag[holdeasybag]<=19 Then gameload=6 gameload=gameload-bagspeed[easybag[holdeasybag]] If gameload<=0 Then gameload=1 EndIf GraphicsWindow.BrushColor="Black" GraphicsWindow.FontSize=25 showpickcomplete=Shapes.AddText("采集剩余时间："+gameload+"秒") Shapes.Move(showpickcomplete,460,10) willgetthing=10 Else GraphicsWindow.BrushColor="Black" GraphicsWindow.FontSize=25 showmessage=Shapes.AddText("太硬了，挖不动") Shapes.Move(showmessage,460,70) EndIf ElseIf thing[mx][my]>38 And thing[mx][my]<41 Then '黄金 If easybag[holdeasybag]>=16 And easybag[holdeasybag]<=19 Then gameload=6 gameload=gameload-bagspeed[easybag[holdeasybag]] If gameload<=0 Then gameload=1 EndIf GraphicsWindow.BrushColor="Black" GraphicsWindow.FontSize=25 showpickcomplete=Shapes.AddText("采集剩余时间："+gameload+"秒") Shapes.Move(showpickcomplete,460,10) willgetthing=11 Else GraphicsWindow.BrushColor="Black" GraphicsWindow.FontSize=25 showmessage=Shapes.AddText("太硬了，挖不动") Shapes.Move(showmessage,460,70) EndIf ElseIf thing[mx][my]=41 Then '钻石 If easybag[holdeasybag]>=17 And easybag[holdeasybag]<=19 Then gameload=8 gameload=gameload-bagspeed[easybag[holdeasybag]] If gameload<=0 Then gameload=1 EndIf GraphicsWindow.BrushColor="Black" GraphicsWindow.FontSize=25 showpickcomplete=Shapes.AddText("采集剩余时间："+gameload+"秒") Shapes.Move(showpickcomplete,460,10) willgetthing=12 Else GraphicsWindow.BrushColor="Black" GraphicsWindow.FontSize=25 showmessage=Shapes.AddText("太硬了，挖不动") Shapes.Move(showmessage,460,70) EndIf ElseIf thing[mx][my]=42 Then '黑曜石 If easybag[holdeasybag]>=18 And easybag[holdeasybag]<=19 Then gameload=9 gameload=gameload-bagspeed[easybag[holdeasybag]] If gameload<=0 Then gameload=1 EndIf GraphicsWindow.BrushColor="Black" GraphicsWindow.FontSize=25 showpickcomplete=Shapes.AddText("采集剩余时间："+gameload+"秒") Shapes.Move(showpickcomplete,460,10) willgetthing=13 Else GraphicsWindow.BrushColor="Black" GraphicsWindow.FontSize=25 showmessage=Shapes.AddText("太硬了，挖不动") Shapes.Move(showmessage,460,70) EndIf ElseIf thing[mx][my]>=43 And thing[mx][my]<=45 Then '煤 If easybag[holdeasybag]>=14 And easybag[holdeasybag]<=19 Then gameload=4 gameload=gameload-bagspeed[easybag[holdeasybag]] If gameload<=0 Then gameload=1 EndIf GraphicsWindow.BrushColor="Black" GraphicsWindow.FontSize=25 showpickcomplete=Shapes.AddText("采集剩余时间："+gameload+"秒") Shapes.Move(showpickcomplete,460,10) willgetthing=9 Else GraphicsWindow.BrushColor="Black" GraphicsWindow.FontSize=25 showmessage=Shapes.AddText("太硬了，挖不动") Shapes.Move(showmessage,460,70) EndIf ElseIf thing[mx][my]=29 Then '南瓜 If easybag[holdeasybag]>=14 And easybag[holdeasybag]<=19 Then gameload=6 gameload=gameload-bagspeed[easybag[holdeasybag]] If gameload<=0 Then gameload=1 EndIf GraphicsWindow.BrushColor="Black" GraphicsWindow.FontSize=25 showpickcomplete=Shapes.AddText("采集剩余时间："+gameload+"秒") Shapes.Move(showpickcomplete,460,10) willgetthing=8 Else GraphicsWindow.BrushColor="Black" GraphicsWindow.FontSize=25 showmessage=Shapes.AddText("太硬了，挖不动") Shapes.Move(showmessage,460,70) EndIf EndIf EndIf EndIf ElseIf Mouse.IsRightButtonDown="True" Then If mx<450 And my<450 Then mx=Math.Floor(mx/50)-4+mex my=Math.Floor(my/50)-4+mey If Math.Abs(mex-mx)<=1 And Math.Abs(mey-my)<=1 Then EndIf EndIf EndIf EndSub Sub timecounter digger() EndSub Sub digger If gameload>0 Then gameload=gameload-1 Shapes.SetText(showpickcomplete,"采集剩余时间："+gameload+"秒") EndIf If gameload=0 Then If willgetthing=7 Then Shapes.HideShape(showpickcomplete) bagnum[7]=bagnum[7]+1 ' The following line could be harmful and has been automatically commented. ' File.WriteLine(path,worldwidth*worldlength+8,bagnum[7]) If easybag[holdeasybag]>=14 And easybag[holdeasybag]<=19 Then baglong[easybag[holdeasybag]]=baglong[easybag[holdeasybag]]-1 If baglong[easybag[holdeasybag]]<=0 Then bagnum[easybag[holdeasybag]]=bagnum[easybag[holdeasybag]]-1 If bagnum[easybag[holdeasybag]]>0 Then baglong[easybag[holdeasybag]]=baghavelong[easybag[holdeasybag]] EndIf ' The following line could be harmful and has been automatically commented. ' File.WriteLine(path,worldlength*worldwidth+1+easybag[holdeasybag],bagnum[easybag[holdeasybag]]) broken=1 EndIf ' The following line could be harmful and has been automatically commented. ' File.WriteLine(path,worldlength*worldwidth-3+allcheck+easybag[holdeasybag],baglong[easybag[holdeasybag]]) EndIf drawscreen() GraphicsWindow.BrushColor="Black" GraphicsWindow.FontSize=25 showgetbagthing=Shapes.AddText("获得物品:蘑菇") Shapes.Move(showgetbagthing,460,40) ElseIf willgetthing=1 Then Shapes.HideShape(showpickcomplete) bagnum[1]=bagnum[1]+Math.GetRandomNumber(2)+2 ' The following line could be harmful and has been automatically commented. ' File.WriteLine(path,worldwidth*worldlength+2,bagnum[1]) bagnum[3]=bagnum[3]+Math.GetRandomNumber(3) ' The following line could be harmful and has been automatically commented. ' File.WriteLine(path,worldwidth*worldlength+4,bagnum[3]) If easybag[holdeasybag]>=14 And easybag[holdeasybag]<=19 Then baglong[easybag[holdeasybag]]=baglong[easybag[holdeasybag]]-10 If baglong[easybag[holdeasybag]]<=0 Then bagnum[easybag[holdeasybag]]=bagnum[easybag[holdeasybag]]-1 If bagnum[easybag[holdeasybag]]>0 Then baglong[easybag[holdeasybag]]=baghavelong[easybag[holdeasybag]] EndIf ' The following line could be harmful and has been automatically commented. ' File.WriteLine(path,worldlength*worldwidth+1+easybag[holdeasybag],bagnum[easybag[holdeasybag]]) broken=1 EndIf ' The following line could be harmful and has been automatically commented. ' File.WriteLine(path,worldlength*worldwidth-3+allcheck+easybag[holdeasybag],baglong[easybag[holdeasybag]]) EndIf drawscreen() GraphicsWindow.BrushColor="Black" GraphicsWindow.FontSize=25 showgetbagthing=Shapes.AddText("获得物品:树叶、木块") Shapes.Move(showgetbagthing,460,40) ElseIf willgetthing=4 Then Shapes.HideShape(showpickcomplete) bagnum[4]=bagnum[4]+Math.GetRandomNumber(2) ' The following line could be harmful and has been automatically commented. ' File.WriteLine(path,worldwidth*worldlength+5,bagnum[4]) baglong[easybag[holdeasybag]]=baglong[easybag[holdeasybag]]-3 If baglong[easybag[holdeasybag]]<=0 Then bagnum[easybag[holdeasybag]]=bagnum[easybag[holdeasybag]]-1 If bagnum[easybag[holdeasybag]]>0 Then baglong[easybag[holdeasybag]]=baghavelong[easybag[holdeasybag]] EndIf broken=1 ' The following line could be harmful and has been automatically commented. ' File.WriteLine(path,worldlength*worldwidth+1+easybag[holdeasybag],bagnum[easybag[holdeasybag]]) ' The following line could be harmful and has been automatically commented. ' File.WriteLine(path,worldlength*worldwidth-3+allcheck+easybag[holdeasybag],baglong[easybag[holdeasybag]]) EndIf drawscreen() GraphicsWindow.BrushColor="Black" GraphicsWindow.FontSize=25 showgetbagthing=Shapes.AddText("获得物品:石头") Shapes.Move(showgetbagthing,460,40) ElseIf willgetthing=10 Then Shapes.HideShape(showpickcomplete) bagnum[10]=bagnum[10]+1 ' The following line could be harmful and has been automatically commented. ' File.WriteLine(path,worldwidth*worldlength+11,bagnum[10]) baglong[easybag[holdeasybag]]=baglong[easybag[holdeasybag]]-5 If baglong[easybag[holdeasybag]]<=0 Then bagnum[easybag[holdeasybag]]=bagnum[easybag[holdeasybag]]-1 If bagnum[easybag[holdeasybag]]>0 Then baglong[easybag[holdeasybag]]=baghavelong[easybag[holdeasybag]] EndIf broken=1 ' The following line could be harmful and has been automatically commented. ' File.WriteLine(path,worldlength*worldwidth+1+easybag[holdeasybag],bagnum[easybag[holdeasybag]]) EndIf ' The following line could be harmful and has been automatically commented. ' File.WriteLine(path,worldlength*worldwidth-3+allcheck+easybag[holdeasybag],baglong[easybag[holdeasybag]]) drawscreen() GraphicsWindow.BrushColor="Black" GraphicsWindow.FontSize=25 showgetbagthing=Shapes.AddText("获得物品:铁") Shapes.Move(showgetbagthing,460,40) ElseIf willgetthing=11 Then Shapes.HideShape(showpickcomplete) bagnum[11]=bagnum[11]+1 ' The following line could be harmful and has been automatically commented. ' File.WriteLine(path,worldwidth*worldlength+12,bagnum[11]) baglong[easybag[holdeasybag]]=baglong[easybag[holdeasybag]]-5.5 If baglong[easybag[holdeasybag]]<=0 Then bagnum[easybag[holdeasybag]]=bagnum[easybag[holdeasybag]]-1 If bagnum[easybag[holdeasybag]]>0 Then baglong[easybag[holdeasybag]]=baghavelong[easybag[holdeasybag]] EndIf broken=1 ' The following line could be harmful and has been automatically commented. ' File.WriteLine(path,worldlength*worldwidth+1+easybag[holdeasybag],bagnum[easybag[holdeasybag]]) EndIf ' The following line could be harmful and has been automatically commented. ' File.WriteLine(path,worldlength*worldwidth-3+allcheck+easybag[holdeasybag],baglong[easybag[holdeasybag]]) drawscreen() GraphicsWindow.BrushColor="Black" GraphicsWindow.FontSize=25 showgetbagthing=Shapes.AddText("获得物品:黄金") Shapes.Move(showgetbagthing,460,40) ElseIf willgetthing=12 Then Shapes.HideShape(showpickcomplete) bagnum[12]=bagnum[12]+1 ' The following line could be harmful and has been automatically commented. ' File.WriteLine(path,worldwidth*worldlength+13,bagnum[12]) baglong[easybag[holdeasybag]]=baglong[easybag[holdeasybag]]-7 If baglong[easybag[holdeasybag]]<=0 Then bagnum[easybag[holdeasybag]]=bagnum[easybag[holdeasybag]]-1 If bagnum[easybag[holdeasybag]]>0 Then baglong[easybag[holdeasybag]]=baghavelong[easybag[holdeasybag]] EndIf broken=1 ' The following line could be harmful and has been automatically commented. ' File.WriteLine(path,worldlength*worldwidth+1+easybag[holdeasybag],bagnum[easybag[holdeasybag]]) EndIf ' The following line could be harmful and has been automatically commented. ' File.WriteLine(path,worldlength*worldwidth-3+allcheck+easybag[holdeasybag],baglong[easybag[holdeasybag]]) drawscreen() GraphicsWindow.BrushColor="Black" GraphicsWindow.FontSize=25 showgetbagthing=Shapes.AddText("获得物品:钻石") Shapes.Move(showgetbagthing,460,40) ElseIf willgetthing=11 Then Shapes.HideShape(showpickcomplete) bagnum[11]=bagnum[11]+1 ' The following line could be harmful and has been automatically commented. ' File.WriteLine(path,worldwidth*worldlength+12,bagnum[11]) baglong[easybag[holdeasybag]]=baglong[easybag[holdeasybag]]-5.5 If baglong[easybag[holdeasybag]]<=0 Then bagnum[easybag[holdeasybag]]=bagnum[easybag[holdeasybag]]-1 If bagnum[easybag[holdeasybag]]>0 Then baglong[easybag[holdeasybag]]=baghavelong[easybag[holdeasybag]] EndIf broken=1 ' The following line could be harmful and has been automatically commented. ' File.WriteLine(path,worldlength*worldwidth+1+easybag[holdeasybag],bagnum[easybag[holdeasybag]]) EndIf ' The following line could be harmful and has been automatically commented. ' File.WriteLine(path,worldlength*worldwidth-3+allcheck+easybag[holdeasybag],baglong[easybag[holdeasybag]]) drawscreen() GraphicsWindow.BrushColor="Black" GraphicsWindow.FontSize=25 showgetbagthing=Shapes.AddText("获得物品:黄金") Shapes.Move(showgetbagthing,460,40) ElseIf willgetthing=12 Then Shapes.HideShape(showpickcomplete) bagnum[12]=bagnum[12]+1 ' The following line could be harmful and has been automatically commented. ' File.WriteLine(path,worldwidth*worldlength+13,bagnum[12]) baglong[easybag[holdeasybag]]=baglong[easybag[holdeasybag]]-7 If baglong[easybag[holdeasybag]]<=0 Then bagnum[easybag[holdeasybag]]=bagnum[easybag[holdeasybag]]-1 If bagnum[easybag[holdeasybag]]>0 Then baglong[easybag[holdeasybag]]=baghavelong[easybag[holdeasybag]] EndIf broken=1 ' The following line could be harmful and has been automatically commented. ' File.WriteLine(path,worldlength*worldwidth+1+easybag[holdeasybag],bagnum[easybag[holdeasybag]]) EndIf ' The following line could be harmful and has been automatically commented. ' File.WriteLine(path,worldlength*worldwidth-3+allcheck+easybag[holdeasybag],baglong[easybag[holdeasybag]]) drawscreen() GraphicsWindow.BrushColor="Black" GraphicsWindow.FontSize=25 showgetbagthing=Shapes.AddText("获得物品:钻石") Shapes.Move(showgetbagthing,460,40) ElseIf willgetthing=13 Then Shapes.HideShape(showpickcomplete) bagnum[13]=bagnum[13]+1 ' The following line could be harmful and has been automatically commented. ' File.WriteLine(path,worldwidth*worldlength+14,bagnum[13]) baglong[easybag[holdeasybag]]=baglong[easybag[holdeasybag]]-8 If baglong[easybag[holdeasybag]]<=0 Then bagnum[easybag[holdeasybag]]=bagnum[easybag[holdeasybag]]-1 If bagnum[easybag[holdeasybag]]>0 Then baglong[easybag[holdeasybag]]=baghavelong[easybag[holdeasybag]] EndIf broken=1 ' The following line could be harmful and has been automatically commented. ' File.WriteLine(path,worldlength*worldwidth+1+easybag[holdeasybag],bagnum[easybag[holdeasybag]]) EndIf ' The following line could be harmful and has been automatically commented. ' File.WriteLine(path,worldlength*worldwidth-3+allcheck+easybag[holdeasybag],baglong[easybag[holdeasybag]]) drawscreen() GraphicsWindow.BrushColor="Black" GraphicsWindow.FontSize=25 showgetbagthing=Shapes.AddText("获得物品:黑曜石") Shapes.Move(showgetbagthing,460,40) ElseIf willgetthing=9 Then Shapes.HideShape(showpickcomplete) bagnum[9]=bagnum[9]+Math.GetRandomNumber(2) ' The following line could be harmful and has been automatically commented. ' File.WriteLine(path,worldwidth*worldlength+10,bagnum[9]) baglong[easybag[holdeasybag]]=baglong[easybag[holdeasybag]]-3 If baglong[easybag[holdeasybag]]<=0 Then bagnum[easybag[holdeasybag]]=bagnum[easybag[holdeasybag]]-1 If bagnum[easybag[holdeasybag]]>0 Then baglong[easybag[holdeasybag]]=baghavelong[easybag[holdeasybag]] EndIf broken=1 ' The following line could be harmful and has been automatically commented. ' File.WriteLine(path,worldlength*worldwidth+1+easybag[holdeasybag],bagnum[easybag[holdeasybag]]) EndIf ' The following line could be harmful and has been automatically commented. ' File.WriteLine(path,worldlength*worldwidth-3+allcheck+easybag[holdeasybag],baglong[easybag[holdeasybag]]) drawscreen() GraphicsWindow.BrushColor="Black" GraphicsWindow.FontSize=25 showgetbagthing=Shapes.AddText("获得物品:煤炭") Shapes.Move(showgetbagthing,460,40) ElseIf willgetthing=8 Then Shapes.HideShape(showpickcomplete) bagnum[8]=bagnum[8]+1 ' The following line could be harmful and has been automatically commented. ' File.WriteLine(path,worldwidth*worldlength+9,bagnum[8]) baglong[easybag[holdeasybag]]=baglong[easybag[holdeasybag]]-5 If baglong[easybag[holdeasybag]]<=0 Then bagnum[easybag[holdeasybag]]=bagnum[easybag[holdeasybag]]-1 If bagnum[easybag[holdeasybag]]>0 Then baglong[easybag[holdeasybag]]=baghavelong[easybag[holdeasybag]] EndIf broken=1 ' The following line could be harmful and has been automatically commented. ' File.WriteLine(path,worldlength*worldwidth+1+easybag[holdeasybag],bagnum[easybag[holdeasybag]]) EndIf ' The following line could be harmful and has been automatically commented. ' File.WriteLine(path,worldlength*worldwidth-3+allcheck+easybag[holdeasybag],baglong[easybag[holdeasybag]]) drawscreen() GraphicsWindow.BrushColor="Black" GraphicsWindow.FontSize=25 showgetbagthing=Shapes.AddText("获得物品:南瓜") Shapes.Move(showgetbagthing,460,40) EndIf willgetthing=0 broken=0 If broken=1 Then showmessage=Shapes.AddText("挖掘损坏了一把镐") Shapes.Move(showmessage,460,70) EndIf EndIf EndSub Sub baginformation allcheck=33 bagthing[1]="木块" bagthing[2]="木板" bagthing[3]="树叶" bagthing[4]="石头" bagthing[5]="石块" bagthing[6]="木棍" bagthing[7]="蘑菇" bagthing[8]="南瓜" bagthing[9]="煤炭" bagthing[10]="铁" bagthing[11]="黄金" bagthing[12]="钻石" bagthing[13]="黑曜石" bagthing[14]="木镐" bagthing[15]="石镐" bagthing[16]="铁镐" bagthing[17]="黄金镐" bagthing[18]="钻石镐" bagthing[19]="黑曜石镐" bagthing[20]="木剑" bagthing[21]="石剑" bagthing[22]="铁剑" bagthing[23]="黄金剑" bagthing[24]="钻石剑" bagthing[25]="黑曜��剑" bagthing[26]="生猪肉" bagthing[27]="熟猪肉" bagthing[28]="生牛肉" bagthing[29]="熟牛肉" bagthing[30]="鸡蛋" bagthing[31]="小麦" bagthing[32]="牛奶" bagthing[33]="蛋糕" bagmake1[2]=1 bagmake1num[2]=1 bagmakeget[2]=4 bagmake1[5]=4 bagmake1num[5]=2 bagmakeget[5]=1 bagmake1[6]=2 bagmake1num[6]=2 bagmakeget[6]=4 bagmake1[14]=2 bagmake1num[14]=3 bagmake2[14]=6 bagmake2num[14]=2 bagmakeget[14]=1 bagmake1[15]=5 bagmake1num[15]=3 bagmake2[15]=6 bagmake2num[15]=2 bagmakeget[15]=1 bagmake1[16]=10 bagmake1num[16]=3 bagmake2[16]=6 bagmake2num[16]=2 bagmakeget[16]=1 bagmake1[17]=11 bagmake1num[17]=3 bagmake2[17]=6 bagmake2num[17]=2 bagmakeget[17]=1 bagmake1[18]=12 bagmake1num[18]=3 bagmake2[18]=6 bagmake2num[18]=2 bagmakeget[18]=1 bagmake1[19]=13 bagmake1num[19]=3 bagmake2[19]=6 bagmake2num[19]=2 bagmakeget[19]=1 bagmake1[20]=2 bagmake1num[20]=3 bagmake2[20]=6 bagmake2num[20]=2 bagmakeget[20]=1 bagmake1[21]=5 bagmake1num[21]=3 bagmake2[21]=6 bagmake2num[21]=2 bagmakeget[21]=1 bagmake1[22]=10 bagmake1num[22]=3 bagmake2[22]=6 bagmake2num[22]=2 bagmakeget[22]=1 bagmake1[23]=11 bagmake1num[23]=3 bagmake2[23]=6 bagmake2num[23]=2 bagmakeget[23]=1 bagmake1[24]=12 bagmake1num[24]=3 bagmake2[24]=6 bagmake2num[24]=2 bagmakeget[24]=1 bagmake1[25]=13 bagmake1num[25]=3 bagmake2[25]=6 bagmake2num[25]=2 bagmakeget[25]=1 bagmake1[33]=30 bagmake1num[33]=3 bagmake2[33]=31 bagmake2num[33]=3 bagmake3[33]=32 bagmake3num[33]=3 bagmakeget[33]=1 baghavelong[14]=60 baghavelong[15]=80 baghavelong[16]=140 baghavelong[17]=100 baghavelong[18]=160 baghavelong[19]=180 baghavelong[20]=25 baghavelong[21]=35 baghavelong[22]=45 baghavelong[23]=40 baghavelong[24]=60 baghavelong[25]=70 bagspeed[14]=1 bagspeed[15]=2 bagspeed[16]=2 bagspeed[17]=3 bagspeed[18]=4 bagspeed[19]=4 EndSub Sub typerinformation exchangerblood[1]= "❤" exchangerblood[2]= "❤❤" exchangerblood[3]= "❤❤❤" exchangerblood[4]= "❤❤❤❤" exchangerblood[5]= "❤❤❤❤❤" exchangerblood[6]= "❤❤❤❤❤❤" exchangerblood[7]= "❤❤❤❤❤❤❤" exchangerblood[8]= "❤❤❤❤❤❤��❤" exchangerblood[9]= "❤❤❤❤❤❤❤❤❤" exchangerblood[10]="❤❤❤❤❤❤❤❤❤❤" exchangerhung[1]= "★" exchangerhung[2]= "★★" exchangerhung[3]= "★★★" exchangerhung[4]= "★★★★" exchangerhung[5]= "★★★★★" exchangerhung[6]= "★★★★★★" exchangerhung[7]= "★★★★★★★" exchangerhung[8]= "★★★★★★★★" exchangerhung[9]= "★★★★★★★★★" exchangerhung[10]="★★★★★★★★★★" EndSub '地图分配 '1-18 水 '19-28 树木 '29 南瓜 '30 蘑菇 '31-35 石头 '36-38 铁 '39-40 黄金 '41 钻石 '42 黑曜石 '43-45 煤 '46 猪 '47 牛 '48 羊 '49 狼 '50 虎 '51 熊 '52 鸡 End>TWX145.sb< Start>TXB444.sb< ' Production by Writing ' Version 0.1 ' Copyright © 2016 Nonki Takahashi. The MIT License. ' Last update 2016-03-27 ' Program ID ' GraphicsWindow.Title = "Production 0.1" num1 = 67890 num2 = 12345 interval = 1000 ' [ms] Form() While "True" If buttonClicked Then GraphicsWindow.BrushColor = "White" GraphicsWindow.FillRectangle(0, 0, gw, gh) GraphicsWindow.PenColor = "LightGray" DrawGrid() GraphicsWindow.PenColor = "Black" GraphicsWindow.BrushColor = "Black" ' Input numbers num1 = Controls.GetTextBoxText(tboxN1) num2 = Controls.GetTextBoxText(tboxN2) interval = Controls.GetTextBoxText(tboxInt) ' Calculate each length and positon (column) len1 = Text.GetLength(num1) len2 = Text.GetLength(num2) col1 = 1 + len2 col2 = 1 + len1 ' Write number1 param = "col=" + col1 + ";row=1;text=" + num1 + ";" DrawText() Program.Delay(interval) ' Write a sign × param = "col=" + Math.Min(len1, len2) + ";row=2;text=×;" DrawText() Program.Delay(interval) ' Write number2 param = "col=" + col2 + ";row=2;text=" + num2 + ";" DrawText() Program.Delay(interval) ' Draw a line param = "col=" + Math.Min(len1, len2) + ";row=2;" param = param + "len=" + (Math.Max(len1, len2) + 1) + ";" DrawUnderline() Program.Delay(interval) ' Multiply numbers from ones places len = len1 For j = 1 To len2 d2 = Text.GetSubText(num2, len2 - j + 1, 1) c = 0 ' carry num[j] = "" For i = 1 To len1 d1 = Text.GetSubText(num1, len1 - i + 1, 1) MulDigit() col = 2 + len1 + len2 - i - j param = "col=" + col + ";row=" + (2 + j) + ";text=" + d + ";" DrawText() num[j] = Text.Append(d, num[j]) If 0 < c Then param = "col=" + (col - 1) + ";row=" + (2 + j) + ";text=" + c + ";" If i = len1 Then DrawText() num[j] = Text.Append(c, num[j]) Else DrawCarry() EndIf EndIf Program.Delay(interval) EndFor EndFor ' Draw a line param = "col=1;row=" + (2 + len2) + ";" param = param + "len=" + (len1 + len2) + ";" DrawUnderline() Program.Delay(interval) c = 0 ' carry For i = 1 To len1 + len2 n = 0 For j = 1 To len2 l = Text.GetLength(num[j]) p = l - i + j _d = Text.GetSubText(num[j], p, 1) If 0 < _d Then n = n + 1 d[n] = _d EndIf EndFor SumDigits() col = 1 + len1 + len2 - i If 0 < s Or ((s = 0) And (i < len1 + len2)) Then param = "col=" + col + ";row=" + (3 + len2) + ";text=" + s + ";" DrawText() EndIf If 0 < c Then param = "col=" + (col - 1) + ";row=" + (3 + len2) + ";text=" + c + ";" If i = len1 + len2 Then DrawText() Else DrawCarry() EndIf EndIf Program.Delay(interval) EndFor buttonClicked = "False" Else Program.Delay(200) ' wait next button EndIf EndWhile Sub DrawGrid ' param gw, gh - width and height for the graphics window ' param fw, fs - font width and font size (height) For _x = 0 To gw Step fw GraphicsWindow.DrawLine(_x, 0, _x, gh) EndFor For _y = 0 To gh Step fs GraphicsWindow.DrawLine(0, _y, gw, _y) EndFor EndSub Sub DrawCarry ' param["col"] - column ' param["row"] - row ' param["text"] - text for carry ' return carry - shape _x = param["col"] * fw _y = param["row"] * fs GraphicsWindow.FontSize = fs * 0.25 GraphicsWindow.DrawText(_x + fw * 0.75, _y, param["text"]) GraphicsWindow.FontSize = fs EndSub Sub DrawText ' param["col"] - column ' param["row"] - row ' param["text"] - text _x = param["col"] * fw _y = param["row"] * fs GraphicsWindow.DrawText(_x, _y, param["text"]) EndSub Sub DrawUnderline ' param["col"] - column ' param["row"] - row ' param["len"] - length _x = param["col"] * fw _y = (param["row"] + 1) * fs _len = param["len"] * fw GraphicsWindow.DrawLine(_x, _y, _x + _len, _y) EndSub Sub Form gw = 598 gh = 428 GraphicsWindow.Width = gw GraphicsWindow.Height = gh GraphicsWindow.FontName = "Courier New" fs = 30 fw = fs * 0.6 GraphicsWindow.PenColor = "LightGray" DrawGrid() GraphicsWindow.BrushColor = "Gray" GraphicsWindow.PenWidth = 0 yc = _y - fs * 3 panel = Shapes.AddRectangle(gw, gh - yc) Shapes.SetOpacity(panel, 50) Shapes.Move(panel, 0, yc) GraphicsWindow.FontSize = fs / 3 GraphicsWindow.BrushColor = "Black" txtN1 = Shapes.AddText("Number1") Shapes.Move(txtN1, fw, yc + fs * 0.3) tboxN1 = Controls.AddTextBox(fw * 3.5, yc + fs * 0.26) Controls.SetSize(tboxN1, fw * 4, fs * 0.54) Controls.SetTextBoxText(tboxN1, num1) txtN2 = Shapes.AddText("Number2") Shapes.Move(txtN2, fw, yc + fs * 1.3) tboxN2 = Controls.AddTextBox(fw * 3.5, yc + fs * 1.26) Controls.SetSize(tboxN2, fw * 4, fs * 0.54) Controls.SetTextBoxText(tboxN2, num2) txtInt = Shapes.AddText("Interval") Shapes.Move(txtInt, fw * 8.5, yc + fs * 0.3) tboxInt = Controls.AddTextBox(fw * 11.5, yc + fs * 0.26) Controls.SetSize(tboxInt, fw * 4, fs * 0.54) Controls.SetTextBoxText(tboxInt, interval) Controls.AddButton("Calc", fw * 14, yc + fs * 1.22) Controls.ButtonClicked = OnButtonClicked GraphicsWindow.PenWidth = 2 GraphicsWindow.PenColor = "Black" GraphicsWindow.FontSize = fs EndSub Sub MulDigit ' param d1 - digit1 ' param d2 - digit2 ' param c - carry ' return d - digit ' return c - new carry d = d1 * d2 + c If 10 <= d Then c = Text.GetSubText(d, 1, 1) d = Text.GetSubText(d, 2, 1) Else c = 0 EndIf EndSub Sub SumDigits ' param d - array of digits ' param n - number of digits ' param c - carry ' return s - sum ' return c - new carry s = c For _i = 1 To n s = s + d[_i] EndFor If 10 <= s Then c = Text.GetSubText(s, 1, 1) s = Text.GetSubText(s, 2, 1) Else c = 0 EndIf EndSub Sub OnButtonClicked buttonClicked = "True" EndSub Sub RedrawText ' param["col"] - column ' param["row"] - row ' param["text"] - text to redraw ' return carry - shape _x = param["col"] * fw _y = param["row"] * fs GraphicsWindow.FontSize = fs * 0.25 GraphicsWindow.DrawLine(_x, _y, _x + fw, _y + fs) GraphicsWindow.DrawText(_x + fw * 0.75, _y, param["text"]) GraphicsWindow.FontSize = fs EndSub End>TXB444.sb< Start>TXB454.sb< 'Get main image imgURL = "http://litdev.co.uk/forum/parrot.png" 'Image is 100*100 pixels img = ImageList.LoadImage(imgURL) width = ImageList.GetWidthOfImage(img) height = ImageList.GetHeightOfImage(img) 'Setup GW rows = 6 gw = rows*width gh = rows*height GraphicsWindow.Title = "Image Colour Hue Conversion" GraphicsWindow.Width = gw GraphicsWindow.Height = gh 'For hex to decimal conversion For i = 0 To 9 dec[i] = i EndFor dec["A"] = 10 dec["B"] = 11 dec["C"] = 12 dec["D"] = 13 dec["E"] = 14 dec["F"] = 15 GraphicsWindow.DrawImage(img,0,0) For i = 0 To width-1 For j = 0 To height-1 pixel = GraphicsWindow.GetPixel(i,j) 'Pixel colour GetRGB() 'Convert to R,G,B components RGB2HSL() 'Convert to HSL For jj = 0 To rows-1 For ii = 0 To rows-1 If (ii+jj > 0) Then 'Don't overwrite original H = H+360/rows/rows 'Modify the Hue (colour shift) HSL2RGB() 'Convert to RGB col = GraphicsWindow.GetColorFromRGB(R,G,B) 'Set color GraphicsWindow.SetPixel(width*ii+i,height*jj+j,col) 'Display modified colour pixel EndIf EndFor EndFor EndFor EndFor Sub GetRGB 'Converts colour e.g. "#AB12FF" to R,G,B components R = 16*dec[Text.GetSubText(pixel,2,1)]+dec[Text.GetSubText(pixel,3,1)] G = 16*dec[Text.GetSubText(pixel,4,1)]+dec[Text.GetSubText(pixel,5,1)] B = 16*dec[Text.GetSubText(pixel,6,1)]+dec[Text.GetSubText(pixel,7,1)] EndSub Sub HSL2RGB 'Converts HSL to RGB While (H < 0) H = H+360 EndWhile While (H >= 360) H = H-360 EndWhile S = Math.Max(0,Math.Min(1,S)) L = Math.Max(0,Math.Min(1,L)) C = (1-Math.Abs(2*L-1))*S H2 = H/60 X = C*(1-Math.Abs(Math.Remainder(H2,2)-1)) If (H2 >= 0 And H2 < 1) Then R = C G = X B = 0 ElseIf (H2 >= 1 And H2 < 2) Then R = X G = C B = 0 ElseIf (H2 >= 2 And H2 < 3) Then R = 0 G = C B = X ElseIf (H2 >= 3 And H2 < 4) Then R = 0 G = X B = C ElseIf (H2 >= 4 And H2 < 5) Then R = X G = 0 B = C ElseIf (H2 >= 5 And H2 < 6) Then R = C G = 0 B = X Else R = 0 G = 0 B = 0 EndIf M = L-C/2 R = 255*(R+M) G = 255*(G+M) B = 255*(B+M) EndSub Sub RGB2HSL 'Converts RGB to HSL R = Math.Max(0,Math.Min(255,R)) G = Math.Max(0,Math.Min(255,G)) B = Math.Max(0,Math.Min(255,B)) Max = Math.Max(R,Math.Max(G,B)) Min = Math.Min(R,Math.Min(G,B)) C = Max-Min If (C = 0) Then H = 0 ElseIf (Max = R) Then H = Math.Remainder((G-B)/C,6) ElseIf (Max = G) Then H = (B-R)/C + 2 ElseIf (Max = B) Then H = (R-G)/C + 4 EndIf H = H*60 While (H < 0) H = H+360 EndWhile While (H >= 360) H = H-360 EndWhile H = Math.Remainder(H,360) L = (Max+Min)/2/255 If (Max+Min = 0 Or L = 1) Then S = 0 Else S = C/(1-Math.Abs(2*L-1))/255 EndIf EndSub End>TXB454.sb< Start>TXC095.sb< 'Written by Thaelmann-Pioniere GraphicsWindow.Title="Bangladesh" GraphicsWindow.Height=384 GraphicsWindow.Width=640 GraphicsWindow.BackgroundColor="#006a4d" GraphicsWindow.BrushColor="#f4263f" GraphicsWindow.FillEllipse(160,64,256,256) End>TXC095.sb< Start>TXD725.sb< gg="tH......|. ......| ...Ht... .| ....| . .....| ....| ......tH .|. ......| ...Ht...|; .tH.....|. ......| ..Ht.... .| ....| . .....| ....| .......t .|. H.....| ..Ht....|; ..tH....|. ......| .Ht..... .| ....| . .....| ....| ........ .|. tH....| .Ht....H|; ...tH...|. ......| Ht...... .| ....| . .....| ....| ........ .|. .tH...| Ht....Ht|; ....tH..|H ......| t....... .| ....| . .....| ....| ........ .|H ..tH..| t....Ht.|; H....tH.|t ......| ........ .| ....| . .....| ....| H....... .|t ...tH.| ....Ht..|; tH....tH|. ......| ........ .| ....| . .....| ....| tH...... .|. ....tH| ...Ht...|; .tH....t|. H.....| ........ .| ....| . .....| ....| .tH..... H|. .....t| ..Ht....|; ..tH....|. tH....| .......H .| ....| . .....| HHH.| ..tH.... t|. ......| .Ht.....|; ...tH...|. .tH...| ......Ht .| ....| H H....| tttH| ...tH... .|. ......| Ht......|; ....tH..|. ..tH..| .....Ht. .| HHHH| t tH...| ...t| ....tH.. .|H ......| t.......|; .....tH.|. ...tH.| ....Ht.. .| tttt| . .tH..| ....| H....tH. .|t ......| ........|; ......tH|. ....tH| ...Ht... .| ....| . ..tH.| ....| tH....tH .|. ......| ........ gg=LDText.Replace(gg "|" Text.GetCharacter(13)+Text.GetCharacter(10)) gg=LDText.Replace(gg "H" "O") gg=LDText.Replace(gg "t" "*") hh=LDText.Split(gg ";") While 1=1 For x=1 To 12 TextWindow.Clear() TextWindow.Write(hh[x]) Program.Delay(111) EndFor Program.Delay(777) EndWhile End>TXD725.sb< Start>TXG140.sb< start: TextWindow.WriteLine("") TextWindow.Write("Do you wish to (e)ncode, (d)ecode, or (q)uit? ") method = Text.ConvertToLowerCase(TextWindow.Read()) ' quit program If method = "q" Then Program.End() EndIf ' chcek for input error If method <> "e" And method <> "d" Then TextWindow.WriteLine("") TextWindow.WriteLine("ERROR -- please try again.") Goto start EndIf ' get message TextWindow.WriteLine("") TextWindow.WriteLine("Type your message:") message = TextWindow.Read() ' get offset value TextWindow.WriteLine("") TextWindow.Write("Please select a code offset value: ") offset = TextWindow.ReadNumber() ' perform encode or decode If method = "e" Then Encode() Else Decode() EndIf ' go again Goto start Sub Encode encodedMessage = "" For i = 1 To Text.GetLength(message) char = Text.GetSubText(message, i, 1) charCode = Text.GetCharacterCode(char) offsetCharCode = charCode + offset If charCode >= 97 And charCode <= 122 Then ' lower case letters If offsetCharCode > 122 Then ' wrap offsetCharCode = 97 + (offsetCharCode - 123) EndIf ElseIf charCode >= 65 and charCode <= 90 Then ' upper case letters If offsetCharCode > 90 Then ' wrap offsetCharCode = 65 + (offsetCharCode - 91) EndIf ElseIf charCode >= 48 and charCode <= 57 Then ' numbers If offsetCharCode > 57 Then ' wrap offsetCharCode = 48 + (offsetCharCode - 58) EndIf Else ' otherwise pass the original character into new message offsetCharCode = charCode EndIf encodedMessage = Text.Append(encodedMessage, Text.GetCharacter(offsetCharCode)) EndFor TextWindow.WriteLine("") TextWindow.WriteLine("Here is the encoded message:") TextWindow.WriteLine(encodedMessage) EndSub Sub Decode decodedMessage = "" For i = 1 To Text.GetLength(message) char = Text.GetSubText(message, i, 1) charCode = Text.GetCharacterCode(char) offsetCharCode = charCode - offset If charCode >= 97 And charCode <= 122 Then ' lower case letters If offsetCharCode < 97 Then ' wrap offsetCharCode = 122 - (96 - offsetCharCode) EndIf ElseIf charCode >= 65 and charCode <= 90 Then ' upper case letters If offsetCharCode < 65 Then ' wrap offsetCharCode = 90 + (64 - offsetCharCode) EndIf ElseIf charCode >= 48 and charCode <= 57 Then ' numbers If offsetCharCode < 48 Then ' wrap offsetCharCode = 57 + (47 - offsetCharCode) EndIf Else ' otherwise pass the original character into new message offsetCharCode = charCode EndIf decodedMessage = Text.Append(decodedMessage, Text.GetCharacter(offsetCharCode)) EndFor TextWindow.WriteLine("") TextWindow.WriteLine("Here is the decoded message:") TextWindow.WriteLine(decodedMessage) EndSub End>TXG140.sb< Start>TXG145-0.sb< ' mahreen miangul ' Alphabets MaY 2019 ' modified by Nonki Takahashi GraphicsWindow.Title = "mahreen miangul GraphicsWindow.Width = 1100 GraphicsWindow.Height = 550 GraphicsWindow.FontSize = 88 'haroon 1 'write Alphabets and Set brush color GraphicsWindow.Clear() GraphicsWindow.BrushColor = GraphicsWindow.GetRandomColor() shapeA = Shapes.AddText("A") Shapes.Move(shapeA,0,200) GraphicsWindow.BrushColor = GraphicsWindow.GetRandomColor() shapeB = Shapes.AddText("B") Shapes.Move(shapeB,60,170) GraphicsWindow.BrushColor = GraphicsWindow.GetRandomColor() shapeC = Shapes.AddText("C") Shapes.Move(shapeC,120,140) GraphicsWindow.BrushColor = GraphicsWindow.GetRandomColor() shapeD = Shapes.AddText("D") Shapes.Move(shapeD,180,110) GraphicsWindow.BrushColor = GraphicsWindow.GetRandomColor() shapeE = Shapes.AddText("E") Shapes.Move(shapeE,240,80) GraphicsWindow.BrushColor = GraphicsWindow.GetRandomColor() shapeF = Shapes.AddText("F") Shapes.Move(shapeF,300,50) alphabet = "GHIJKLMNOP" x = 60 y = 260 DrawAlphabet() alphabet = "QRSTUVWXYZ" x = 120 y = 320 DrawAlphabet() 'haroon rashid 2 'Drag&Drop Alphabets on GraphicsWindow GraphicsWindow.MouseDown = OnMouseDown GraphicsWindow.MouseUp = OnMouseUp mouseMoving = 0 SPRITE_init() ' <--------- all shape data is input here!! add_shapes() ' <--------- all shapes are added here!! 'GraphicsWindow.brushColor = GraphicsWindow.GetColorFromRGB(100, 200, 150) 'GraphicsWindow.FontSize = 55 'miangul = Shapes.Addtext("M O U S E") 'Shapes.Move(miangul, 0, 0) 'Shapes.Animate(miangul, 600, 10, 2000) 'GraphicsWindow.brushColor = GraphicsWindow.GetColorFromRGB(500, 100, 150) 'miangul = Shapes.Addtext("D R A G and D R O P") 'Shapes.Move(miangul, 0, 0) 'Shapes.Animate(miangul, 450, 70, 2000) While ("True") If (shapeAMoving = 1) Then Shapes.Move(shapeA,GraphicsWindow.MouseX-shapeA_X,GraphicsWindow.MouseY-shapeA_Y) EndIf If (shapeBMoving = 1) Then Shapes.Move(ShapeB,GraphicsWindow.MouseX-ShapeB_X,GraphicsWindow.MouseY-ShapeB_Y) EndIF If (shapeCMoving = 1) Then Shapes.Move(shapeC,GraphicsWindow.MouseX-shapeC_X,GraphicsWindow.MouseY-shapeC_Y) EndIf If (shapeDMoving = 1) Then Shapes.Move(ShapeD,GraphicsWindow.MouseX-ShapeD_X,GraphicsWindow.MouseY-ShapeD_Y) EndIf If (shapeEMoving = 1) Then Shapes.Move(shapeE,GraphicsWindow.MouseX-shapeE_X,GraphicsWindow.MouseY-shapeE_Y) EndIf If (shapeFMoving = 1) Then Shapes.Move(ShapeF,GraphicsWindow.MouseX-ShapeF_X,GraphicsWindow.MouseY-ShapeF_Y) EndIf Program.Delay(20) 'Don't mash cpu in game loop EndWhile Sub DrawAlphabet For i = 1 To Text.GetLength(alphabet) GraphicsWindow.BrushColor = GraphicsWindow.GetRandomColor() shapeAlphabet = Shapes.AddText(Text.GetSubText(alphabet, i, 1)) Shapes.Move(shapeAlphabet, x, y) x = x + 60 y = y - 30 EndFor EndSub Sub OnMouseDown mx = GraphicsWindow.MouseX my = GraphicsWindow.MouseY 'Relative coordinates of mouse to shape - we use these in the drag movement so the shape doesn't recenter, but just drag from current mouse position shapeA_X = mx-Shapes.GetLeft(shapeA) shapeA_Y = my-Shapes.GetTop(shapeA) If (shapeA_X >= 0 And shapeA_X <= 40 And shapeA_Y >= 0 And shapeA_Y <= 100) Then shapeAMoving = 1 EndIf ShapeB_X = mx-Shapes.GetLeft(ShapeB) ShapeB_Y = my-Shapes.GetTop(ShapeB) If (ShapeB_X >= 0 And ShapeB_X <= 40 And ShapeB_Y >= 0 And ShapeB_Y <= 100) Then shapeBMoving = 1 EndIf shapeC_X = mx-Shapes.GetLeft(shapeC) shapeC_Y = my-Shapes.GetTop(shapeC) If (shapeC_X >= 0 And shapeC_X <= 40 And shapeC_Y >= 0 And shapeC_Y <= 100) Then shapeCMoving = 1 EndIf ShapeD_X = mx-Shapes.GetLeft(ShapeD) ShapeD_Y = my-Shapes.GetTop(ShapeD) If (ShapeD_X >= 0 And ShapeD_X <= 40 And ShapeD_Y >= 0 And ShapeD_Y <= 100) Then shapeDMoving = 1 EndIf shapeE_X = mx-Shapes.GetLeft(shapeE) shapeE_Y = my-Shapes.GetTop(shapeE) If (shapeE_X >= 0 And shapeE_X <= 40 And shapeE_Y >= 0 And shapeE_Y <= 100) Then shapeEMoving = 1 EndIf ShapeF_X = mx-Shapes.GetLeft(ShapeF) ShapeF_Y = my-Shapes.GetTop(ShapeF) If (ShapeF_X >= 0 And ShapeF_X <= 40 And ShapeF_Y >= 0 And ShapeF_Y <= 100) Then shapeFMoving = 1 EndIf endsub Sub OnMouseUp shapeAMoving = 0 shapeBMoving = 0 shapeCMoving = 0 shapeDMoving = 0 shapeEMoving = 0 shapeFMoving = 0 EndSub Sub add_shapes For M=1 to Array.GetItemCount(s) ' 7 types shapes //Human , House, Tree, duck , cycle, Apple , Bee For N=1 to Array.GetItemCount(s[M]) ' repeat number //Human=1 ,House=1 ,Tree=12, duck=7 , cycle=1, Apple=16 , Bee=1 ss=s[M][N] ' scale _shx=shx[M][N] ' base point _X _shY=shY[M][N] ' base point _Y _shape=shape[M] ' temporary shape data NMB=M+":"+N ' shape index for i=1 To Array.GetItemCount(_shape) GraphicsWindow.PenWidth = _shape[i]["pw"] GraphicsWindow.BrushColor = _shape[i]["bc"] GraphicsWindow.penColor = _shape[i]["pc"] If _shape[i]["func"]="ell" Then shp[NMB][i] = Shapes.AddEllipse(_shape[i]["width"]*ss, _shape[i]["height"]*ss) ElseIf _shape[i]["func"]="rect" Then shp[NMB][i] = Shapes.AddRectangle(_shape[i]["width"]*ss, _shape[i]["height"]*ss) ElseIf _shape[i]["func"]="tri" Then shp[NMB][i] = Shapes.Addtriangle(_shape[i]["x1"]*ss, _shape[i]["y1"]*ss,_shape[i]["x2"]*ss, _shape[i]["y2"]*ss, _shape[i]["x3"]*ss, _shape[i]["y3"]*ss) ElseIf _shape[i]["func"]="line" Then '<---- shp[NMB][i] = Shapes.Addline(_shape[i]["x1"]*ss, _shape[i]["y1"]*ss,_shape[i]["x2"]*ss, _shape[i]["y2"]*ss) EndIf Shapes.Animate(shp[NMB][i], _shape[i]["x"]*ss+_shX, _shape[i]["y"]*ss+_shY, 500) Shapes.Rotate(shp[NMB][i], _Shape[i]["angle"]) EndFor endfor endfor EndSub Sub SPRITE_init' 14 Trees s[1]="1=0.5;2=0.5;3=0.5;4=0.5;5=0.5;6=0.5;7=0.5;8=0.5;9=0.5;10=0.5;11=0.5;12=0.5;13=0.5;14=0.5" shX[1]="1=0;2=30;3=60;4=90;5=120;6=150;7=180;8=210;9=240;10=270;11=300;12=330;13=360;14=390" shY[1]="1=340;2=340;3=340;4=340;5=340;6=340;7=340;8=340;9=340;10=340;11=340;12=340;13=340;14=340" shape[1][1]="func=ell;X=0;Y=188;width=200;height=140;bc=Green;pc=Green;pw=2" shape[1][2]="func=ell;X=10;Y=277;width=80;height=60;bc=Green;pc=Green;pw=2" shape[1][3]="func=ell;X=4;Y=255;width=80;height=70;bc=Green;pc=Green;pw=2;" shape[1][4]="func=ell;X=0;Y=191;width=80;height=80;bc=Green;pc=Green;pw=2;" shape[1][5]="func=ell;X=40;Y=177;width=80;height=80;bc=Green;pc=Green;pw=2" shape[1][6]="func=ell;X=100;Y=177;width=120;height=80;bc=Green;pc=Green;pw=2" shape[1][7]="func=ell;X=130;Y=240;width=100;height=80;bc=Green;pc=Green;pw=2;" shape[1][8]="func=ell;X=130;Y=260;width=100;height=80;bc=Green;pc=Green;pw=2;" shape[1][9]="func=rect;X=80;Y=322;width=60;height=100;bc=saddlebrown;pc=darkslatgray;pw=2" shape[1][10]="func=tri;X1=140;Y1=262;X2=110;Y2=322;X3=140;Y3=322;bc=saddlebrown;pc=darkslatgray;pw=0 shape[1][11]="func=tri;X1=140;Y1=262;X2=170;Y2=262;X3=140;Y3=322;bc=saddlebrown;pc=darkslatgray;pw=0" shape[1][12]="func=tri;X1=50;Y1=262;X2=96;Y2=262;X3=80;Y3=322;bc=saddlebrown;pc=darkslatgray;pw=0 shape[1][13]="func=tri;X1=96;Y1=262;X2=80;Y2=322;X3=126;Y3=322;bc=saddlebrown;pc=darkslatgray;pw=0" ' 18 Apples s[2] ="1=0.2;2=0.2;3=0.2;4=0.2;5=0.2;6=0.2;7=0.2;8=0.2;9=0.2;10=0.2;11=0.2;12=0.2;13=0.2;14=0.2;15=0.2;16=0.2;17=.2;18=.2;18=.2" shX[2] ="1=-40;2=-20;3=0;4=20;5=40;6=60;7=80;8=100;9=120;10=140;11=160;12=180;13=200;14=220;15=240;16=260;17=280;18=300" shY[2] ="1=420;2=420;3=420;4=420;5=420;6=420;7=420;8=420;9=420;10=460;11=460;12=460;13=460;14=460;15=460;16=460;17=460;18=460" shape[2][1] = "func=rect;x=626;y=110;width=20;height=60;angle=30;bc=yellowgreen;pw=0;" shape[2][2] = "func=ell;x=511;y=148;width=150;height=150;bc=crimson;pw=0;" shape[2][3] = "func=ell;x=603;y=148;width=150;height=150;bc=crimson;pw=0;" shape[2][4] = "func=ell;x=594;y=188;width=40;height=40;bc=snow;pw=0;" shape[2][5] = "func=ell;x=633;y=188;width=40;height=40;bc=snow;pw=0;" shape[2][6] = "func=ell;x=614;y=196;width=15;height=15;bc=darkslategray;pw=0;" shape[2][7] = "func=ell;x=635;y=196;width=15;height=15;angle=7;bc=darkslategray;pw=0;" shape[2][8] = "func=rect;x=600;y=250;width=80;height=20;angle=-5;bc=purple;pw=0;" ' Lion//1 s[3] ="1=.7" shX[3] ="1=350" shY[3] ="1=280" shape[3][1] = "func=rect;x=266;y=288;width=166;height=80;bc=gold;pw=0;" shape[3][2] = "func=ell;x=210;y=40;width=280;height=280;bc=coral;" shape[3][3] = "func=rect;x=260;y=110;width=66;height=80;angle=80;bc=gold;pw=0;" shape[3][4] = "func=rect;x=363;y=110;width=66;height=80;angle=-80;bc=gold;pw=0;" shape[3][5] = "func=tri;x=240;y=40;x1=120;y1=85;x2=147;y2=30;x3=200;y3=85;bc=gold;pw=0;"' 1 shape[3][6] = "func=tri;x=200;y=40;x1=50;y1=85;x2=110;y2=30;x3=140;y3=85;bc=gold;pw=0;"' 2 shape[3][7] = "func=tri;x=230;y=140;x1=120;y1=30;x2=120;y2=-40;x3=80;y3=20;bc=sandybrown;pw=0;"' 3 shape[3][8] = "func=tri;x=250;y=140;x1=140;y1=20;x2=100;y2=-40;x3=100;y3=30;bc=sandybrown;pw=0;"' 4 shape[3][9] = "func=tri;x=155;y=150;x1=100;y1=30;x2=140;y2=60;x3=180;y3=30;bc=snow;pw=0;" shape[3][10] = "func=tri;x=150;y=150;x1=140;y1=60;x2=160;y2=120;x3=180;y3=60;bc=snow;pw=0;" shape[3][11] = "func=rect;x=295;y=188;width=100;height=44;bc=snow;pw=0;" shape[3][12] = "func=tri;x=153;y=154;x1=200;y1=30;x2=240;y2=60;x3=280;y3=30;bc=snow;pw=0;" shape[3][13] = "func=tri;x=120;y=150;x1=240;y1=60;x2=260;y2=120;x3=280;y3=60;bc=snow;pw=0;" shape[3][14] = "func=rect;x=310;y=200;width=70;height=70;bc=snow;pw=0;" shape[3][15] = "func=tri;x=230;y=140;x1=120;y1=30;x2=120;y2=80;x3=80;y3=20;bc=orangered;pw=0;" shape[3][16] = "func=tri;x=250;y=140;x1=140;y1=20;x2=100;y2=80;x3=100;y3=30;bc=orangered;pw=0;" shape[3][17] = "func=tri;x=230;y=50;x1=120;y1=30;x2=120;y2=110;x3=80;y3=20;bc=sandybrown;pw=0;" shape[3][18] = "func=tri;x=250;y=50;x1=140;y1=20;x2=100;y2=110;x3=100;y3=30;bc=sandybrown;pw=0;" shape[3][19] = "func=tri;x=230;y=140;x1=120;y1=30;x2=120;y2=-40;x3=80;y3=20;bc=sandybrown;pw=0;" shape[3][20] = "func=tri;x=250;y=140;x1=140;y1=20;x2=100;y2=-40;x3=100;y3=30;bc=sandybrown;pw=0;" shape[3][21] = "func=tri;x=181;y=272;x1=120;y1=-35;x2=168;y2=-45;x3=171;y3=-55;bc=saddlebrown;pw=0;" shape[3][22] = "func=tri;x=171;y=272;x1=220;y1=-40;x2=180;y2=-44;x3=177;y3=-55;bc=saddlebrown;pw=0;" shape[3][23] = "func=tri;x=215;y=90;x1=120;y1=30;x2=80;y2=28;x3=120;y3=40;bc=saddlebrown;pw=0;" shape[3][24] = "func=tri;x=245;y=90;x1=120;y1=30;x2=160;y2=28;x3=120;y3=40;bc=saddlebrown;pw=0;" shape[3][25] = "func=line;x=348;y=188;x1=22;y1=0;x2=100;y2=4;pc=gold;pw=2;" shape[3][26] = "func=line;x=347;y=189;x1=22;y1=2;x2=100;y2=10;pc=gold;pw=2;" shape[3][27] = "func=line;x=347;y=191;x1=22;y1=3;x2=100;y2=22;pc=gold;pw=2;" shape[3][28] = "func=line;x=343;y=194;x1=22;y1=4;x2=100;y2=33;pc=gold;pw=2;" shape[3][30] = "func=line;x=222;y=187;x1=22;y1=6;x2=100;y2=0;pc=gold;pw=2;" shape[3][31] = "func=line;x=230;y=188;x1=18;y1=11;x2=100;y2=3;pc=gold;pw=2;" shape[3][32] = "func=line;x=230;y=191;x1=18;y1=18;x2=105;y2=3;pc=gold;pw=2;" shape[3][33] = "func=line;x=230;y=192;x1=19;y1=28;x2=108;y2=5;pc=gold;pw=2;" ' House//1 s[4] ="1=.7" shX[4] ="1=250" shY[4] ="1=-100" shape[4][1] = "func=rect;x=800;y=280;width=210;height=30;bc=gray;pc=darkslategray;pw=2"'Rec A4 shape[4][2] = "func=rect;x=777;y=310;width=258;height=30;bc=silver;pc=darkslategray;pw=2"'Rec A3 shape[4][3] = "func=rect;x=755;y=340;width=277;height=30;bc=gray;pc=darkslategray;pw=2"'Rec A2 shape[4][4] = "func=rect;x=766;y=370;width=272;height=30;bc=silver;pc=darkslategray;pw=2"'Rec A1 shape[4][5] = "func=tri;x=480;y=340;x1=222;y1=60;x2=262;y2=8;x3=320;y3=60;bc=silver;pc=darkslategray;pw=2"'Tri A1 shape[4][6] = "func=tri;x=480;y=320;x1=244;y1=50;x2=280;y2=6;x3=320;y3=50;bc=gray;pc=darkslategray;pw=2"'Tri A2 shape[4][7] = "func=tri;x=480;y=300;x1=267;y1=40;x2=298;y2=4;x3=320;y3=40;bc=silver;pc=darkslategray;pw=2"'Tri A3 shape[4][8] = "func=tri;x=480;y=280;x1=292;y1=30;x2=320;y2=2;x3=320;y3=30;bc=gray;pc=darkslategray;pw=2"'Tri A4 shape[4][9] = "func=tri;x=480;y=340;x1=530;y1=60;x2=585;y2=8;x3=636;y3=60;bc=silver;pc=darkslategray;pw=2"'Tri A1 shape[4][10] = "func=tri;x=480;y=320;x1=530;y1=50;x2=566;y2=6;x3=608;y3=50;bc=gray;pc=darkslategray;pw=2"'Tri A2 shape[4][11] = "func=tri;x=480;y=300;x1=530;y1=40;x2=548;y2=4;x3=580;y3=40;bc=silver;pc=darkslategray;pw=2"'Tri A3 shape[4][12] = "func=tri;x=480;y=280;x1=530;y1=30;x2=530;y2=2;x3=555;y3=30;bc=gray;pc=darkslategray;pw=2"'Tri A4 shape[4][13] = "func=rect;x=743;y=397;width=333;height=333;bc=snow;pc=darkslategray;pw=2"'Body Structpw=2ure shape[4][14] = "func=rect;x=766;y=608;width=100;height=122;bc=saddlebrown;pc=darkslategray;pw=2"'DoorA shape[4][15] = "func=ell;x=766;y=573;width=100;height=80;bc=saddlebrown;pw=2"'pc=saddlebrown;"'DoorB shape[4][16] ="func=ell;x=788;y=684;width=10;height=10;bc=yellow;pc=darcksategray;pw=2"'DoorC shape[4][17] ="func=rect;x=944;y=480;width=100;height=122;bc=saddlebrown;darkslategray;pw=2"'WindowA shape[4][18] ="func=ell;x=944;y=428;width=100;height=122;bc=saddlebrown;darkslategray;pw=2"'WindowB shape[4][19] = "func=rect;x=955;y=473;width=80;height=111;bc=skyblue;pc=darkslategray;pw=2"'windowC shape[4][20] = "func=ell;x=955;y=442;width=80;height=88;bc=skyblue;pc=darkslategray;pw=2"'windowD shape[4][21] ="func=line;x=877;y=451;x1=80;y1=30;x2=155;y2=30;bc=dodgerblue;pc=darkslategray;pw=2"'Widow Grill 1 shape[4][22] ="func=line;x=8977;y=451;x1=80;y1=60;x2=155;y2=60;bc=dodgerblue;pc=darkslategray;pw=2"'Widow Grill 2 shape[4][23] ="func=line;x=877;y=451;x1=80;y1=90;x2=155;y2=90;bc=dodgerblue;pc=darkslategray;pw=2"'Widow Grill 3 shape[4][24] ="func=line;x=900;y=395;x1=95;y1=44;x2=95;y2=188;bc=dodgerblue;pc=darkslategray;pw=2"'Window Grill 4 shape[4][25] ="func=rect;x=922;y=242;width=80;height=100;bc=crimson;pc=darkslategray;pw=2"'Chimny 1 shape[4][26] ="func=rect;x=911;y=241;width=100;height=20;bc=firebrick;pe;fi=False;x=340;y=72;width=200;height=113;pw=0;bc=#80FFFFFF;name=TextBox 2;" ' Tree s[5]="1=0.5;2=0.5;3=0.5;4=0.5;" shX[5]="1=900;2=930;3=960;4=990" shY[5]="1=340;2=340;3=340;4=340" ' 5,6,13,14 shape[5]=shape[1] 'Apple s[6] ="1=0.2;2=0.2;3=0.2;4=0.2;5=0.2;6=0.2;7=.2;8=.2;" shX[6] ="1=800;2=840;3=880;4=920;5=820;6=860;7=900;8=940" shY[6] ="1=400;2=400;3=400;4=400;5=440;6=440;7=440;8=440" shape[6]=shape[2] endsub End>TXG145-0.sb< Start>TXG145.sb< ' mahreen miangul ' Donkey MaY 2019 GraphicsWindow.Title = "mahreen miangul GraphicsWindow.Width = 1100 GraphicsWindow.Height = 550 GraphicsWindow.FontSize = 88 'haroon 1 'write Alphabets and Set brush color GraphicsWindow.Clear() GraphicsWindow.BrushColor = GraphicsWindow.GetRandomColor() shapeA = Shapes.AddText("A") Shapes.Move(shapeA,0,200) GraphicsWindow.BrushColor = GraphicsWindow.GetRandomColor() shapeB = Shapes.AddText("B") Shapes.Move(shapeB,60,170) GraphicsWindow.BrushColor = GraphicsWindow.GetRandomColor() shapeC = Shapes.AddText("C") Shapes.Move(shapeC,120,140) GraphicsWindow.BrushColor = GraphicsWindow.GetRandomColor() shapeD = Shapes.AddText("D") Shapes.Move(shapeD,180,110) GraphicsWindow.BrushColor = GraphicsWindow.GetRandomColor() shapeE = Shapes.AddText("E") Shapes.Move(shapeE,240,80) GraphicsWindow.BrushColor = GraphicsWindow.GetRandomColor() shapeF = Shapes.AddText("F") Shapes.Move(shapeF,300,50) 'haroon rashid 2 'Drag&Drop Alphabets on GraphicsWindow GraphicsWindow.MouseDown = OnMouseDown GraphicsWindow.MouseUp = OnMouseUp mouseMoving = 0 SPRITE_init() ' <--------- all shape data is input here!! add_shapes() ' <--------- all shapes are added here!! 'GraphicsWindow.brushColor = GraphicsWindow.GetColorFromRGB(100, 200, 150) 'GraphicsWindow.FontSize = 55 'miangul = Shapes.Addtext("M O U S E") 'Shapes.Move(miangul, 0, 0) 'Shapes.Animate(miangul, 600, 10, 2000) 'GraphicsWindow.brushColor = GraphicsWindow.GetColorFromRGB(500, 100, 150) 'miangul = Shapes.Addtext("D R A G and D R O P") 'Shapes.Move(miangul, 0, 0) 'Shapes.Animate(miangul, 450, 70, 2000) While ("True") If (shapeAMoving = 1) Then Shapes.Move(shapeA,GraphicsWindow.MouseX-shapeA_X,GraphicsWindow.MouseY-shapeA_Y) EndIf If (shapeBMoving = 1) Then Shapes.Move(ShapeB,GraphicsWindow.MouseX-ShapeB_X,GraphicsWindow.MouseY-ShapeB_Y) EndIF If (shapeCMoving = 1) Then Shapes.Move(shapeC,GraphicsWindow.MouseX-shapeC_X,GraphicsWindow.MouseY-shapeC_Y) EndIf If (shapeDMoving = 1) Then Shapes.Move(ShapeD,GraphicsWindow.MouseX-ShapeD_X,GraphicsWindow.MouseY-ShapeD_Y) EndIf If (shapeEMoving = 1) Then Shapes.Move(shapeE,GraphicsWindow.MouseX-shapeE_X,GraphicsWindow.MouseY-shapeE_Y) EndIf If (shapeFMoving = 1) Then Shapes.Move(ShapeF,GraphicsWindow.MouseX-ShapeF_X,GraphicsWindow.MouseY-ShapeF_Y) EndIf Program.Delay(20) 'Don't mash cpu in game loop EndWhile Sub OnMouseDown mx = GraphicsWindow.MouseX my = GraphicsWindow.MouseY 'Relative coordinates of mouse to shape - we use these in the drag movement so the shape doesn't recenter, but just drag from current mouse position shapeA_X = mx-Shapes.GetLeft(shapeA) shapeA_Y = my-Shapes.GetTop(shapeA) If (shapeA_X >= 0 And shapeA_X <= 40 And shapeA_Y >= 0 And shapeA_Y <= 100) Then shapeAMoving = 1 EndIf ShapeB_X = mx-Shapes.GetLeft(ShapeB) ShapeB_Y = my-Shapes.GetTop(ShapeB) If (ShapeB_X >= 0 And ShapeB_X <= 40 And ShapeB_Y >= 0 And ShapeB_Y <= 100) Then shapeBMoving = 1 EndIf shapeC_X = mx-Shapes.GetLeft(shapeC) shapeC_Y = my-Shapes.GetTop(shapeC) If (shapeC_X >= 0 And shapeC_X <= 40 And shapeC_Y >= 0 And shapeC_Y <= 100) Then shapeCMoving = 1 EndIf ShapeD_X = mx-Shapes.GetLeft(ShapeD) ShapeD_Y = my-Shapes.GetTop(ShapeD) If (ShapeD_X >= 0 And ShapeD_X <= 40 And ShapeD_Y >= 0 And ShapeD_Y <= 100) Then shapeDMoving = 1 EndIf shapeE_X = mx-Shapes.GetLeft(shapeE) shapeE_Y = my-Shapes.GetTop(shapeE) If (shapeE_X >= 0 And shapeE_X <= 40 And shapeE_Y >= 0 And shapeE_Y <= 100) Then shapeEMoving = 1 EndIf ShapeF_X = mx-Shapes.GetLeft(ShapeF) ShapeF_Y = my-Shapes.GetTop(ShapeF) If (ShapeF_X >= 0 And ShapeF_X <= 40 And ShapeF_Y >= 0 And ShapeF_Y <= 100) Then shapeFMoving = 1 EndIf endsub Sub OnMouseUp shapeAMoving = 0 shapeBMoving = 0 shapeCMoving = 0 shapeDMoving = 0 shapeEMoving = 0 shapeFMoving = 0 EndSub Sub add_shapes For M=1 to Array.GetItemCount(s) ' 7 types shapes //Human , House, Tree, duck , cycle, Apple , Bee For N=1 to Array.GetItemCount(s[M]) ' repeat number //Human=1 ,House=1 ,Tree=12, duck=7 , cycle=1, Apple=16 , Bee=1 ss=s[M][N] ' scale _shx=shx[M][N] ' base point _X _shY=shY[M][N] ' base point _Y _shape=shape[M] ' temporary shape data NMB=M+":"+N ' shape index for i=1 To Array.GetItemCount(_shape) GraphicsWindow.PenWidth = _shape[i]["pw"] GraphicsWindow.BrushColor = _shape[i]["bc"] GraphicsWindow.penColor = _shape[i]["pc"] If _shape[i]["func"]="ell" Then shp[NMB][i] = Shapes.AddEllipse(_shape[i]["width"]*ss, _shape[i]["height"]*ss) ElseIf _shape[i]["func"]="rect" Then shp[NMB][i] = Shapes.AddRectangle(_shape[i]["width"]*ss, _shape[i]["height"]*ss) ElseIf _shape[i]["func"]="tri" Then shp[NMB][i] = Shapes.Addtriangle(_shape[i]["x1"]*ss, _shape[i]["y1"]*ss,_shape[i]["x2"]*ss, _shape[i]["y2"]*ss, _shape[i]["x3"]*ss, _shape[i]["y3"]*ss) ElseIf _shape[i]["func"]="line" Then '<---- shp[NMB][i] = Shapes.Addline(_shape[i]["x1"]*ss, _shape[i]["y1"]*ss,_shape[i]["x2"]*ss, _shape[i]["y2"]*ss) EndIf Shapes.Animate(shp[NMB][i], _shape[i]["x"]*ss+_shX, _shape[i]["y"]*ss+_shY, 500) Shapes.Rotate(shp[NMB][i], _Shape[i]["angle"]) EndFor endfor endfor EndSub Sub SPRITE_init' 14 Trees s[1]="1=0.5;2=0.5;3=0.5;4=0.5;5=0.5;6=0.5;7=0.5;8=0.5;9=0.5;10=0.5;11=0.5;12=0.5;13=0.5;14=0.5" shX[1]="1=0;2=30;3=60;4=90;5=120;6=150;7=180;8=210;9=240;10=270;11=300;12=330;13=360;14=390" shY[1]="1=340;2=340;3=340;4=340;5=340;6=340;7=340;8=340;9=340;10=340;11=340;12=340;13=340;14=340" shape[1][1]="func=ell;X=0;Y=188;width=200;height=140;bc=Green;pc=Green;pw=2" shape[1][2]="func=ell;X=10;Y=277;width=80;height=60;bc=Green;pc=Green;pw=2" shape[1][3]="func=ell;X=4;Y=255;width=80;height=70;bc=Green;pc=Green;pw=2;" shape[1][4]="func=ell;X=0;Y=191;width=80;height=80;bc=Green;pc=Green;pw=2;" shape[1][5]="func=ell;X=40;Y=177;width=80;height=80;bc=Green;pc=Green;pw=2" shape[1][6]="func=ell;X=100;Y=177;width=120;height=80;bc=Green;pc=Green;pw=2" shape[1][7]="func=ell;X=130;Y=240;width=100;height=80;bc=Green;pc=Green;pw=2;" shape[1][8]="func=ell;X=130;Y=260;width=100;height=80;bc=Green;pc=Green;pw=2;" shape[1][9]="func=rect;X=80;Y=322;width=60;height=100;bc=saddlebrown;pc=darkslatgray;pw=2" shape[1][10]="func=tri;X1=140;Y1=262;X2=110;Y2=322;X3=140;Y3=322;bc=saddlebrown;pc=darkslatgray;pw=0 shape[1][11]="func=tri;X1=140;Y1=262;X2=170;Y2=262;X3=140;Y3=322;bc=saddlebrown;pc=darkslatgray;pw=0" shape[1][12]="func=tri;X1=50;Y1=262;X2=96;Y2=262;X3=80;Y3=322;bc=saddlebrown;pc=darkslatgray;pw=0 shape[1][13]="func=tri;X1=96;Y1=262;X2=80;Y2=322;X3=126;Y3=322;bc=saddlebrown;pc=darkslatgray;pw=0" ' 18 Apples s[2] ="1=0.2;2=0.2;3=0.2;4=0.2;5=0.2;6=0.2;7=0.2;8=0.2;9=0.2;10=0.2;11=0.2;12=0.2;13=0.2;14=0.2;15=0.2;16=0.2;17=.2;18=.2;18=.2" shX[2] ="1=-40;2=-20;3=0;4=20;5=40;6=60;7=80;8=100;9=120;10=140;11=160;12=180;13=200;14=220;15=240;16=260;17=280;18=300" shY[2] ="1=420;2=420;3=420;4=420;5=420;6=420;7=420;8=420;9=420;10=460;11=460;12=460;13=460;14=460;15=460;16=460;17=460;18=460" shape[2][1] = "func=rect;x=626;y=110;width=20;height=60;angle=30;bc=yellowgreen;pw=0;" shape[2][2] = "func=ell;x=511;y=148;width=150;height=150;bc=crimson;pw=0;" shape[2][3] = "func=ell;x=603;y=148;width=150;height=150;bc=crimson;pw=0;" shape[2][4] = "func=ell;x=594;y=188;width=40;height=40;bc=snow;pw=0;" shape[2][5] = "func=ell;x=633;y=188;width=40;height=40;bc=snow;pw=0;" shape[2][6] = "func=ell;x=614;y=196;width=15;height=15;bc=darkslategray;pw=0;" shape[2][7] = "func=ell;x=635;y=196;width=15;height=15;angle=7;bc=darkslategray;pw=0;" shape[2][8] = "func=rect;x=600;y=250;width=80;height=20;angle=-5;bc=purple;pw=0;" ' Lion//1 s[3] ="1=.7" shX[3] ="1=350" shY[3] ="1=280" shape[3][1] = "func=rect;x=266;y=288;width=166;height=80;bc=gold;pw=0;" shape[3][2] = "func=ell;x=210;y=40;width=280;height=280;bc=coral;" shape[3][3] = "func=rect;x=260;y=110;width=66;height=80;angle=80;bc=gold;pw=0;" shape[3][4] = "func=rect;x=363;y=110;width=66;height=80;angle=-80;bc=gold;pw=0;" shape[3][5] = "func=tri;x=240;y=40;x1=120;y1=85;x2=147;y2=30;x3=200;y3=85;bc=gold;pw=0;"' 1 shape[3][6] = "func=tri;x=200;y=40;x1=50;y1=85;x2=110;y2=30;x3=140;y3=85;bc=gold;pw=0;"' 2 shape[3][7] = "func=tri;x=230;y=140;x1=120;y1=30;x2=120;y2=-40;x3=80;y3=20;bc=sandybrown;pw=0;"' 3 shape[3][8] = "func=tri;x=250;y=140;x1=140;y1=20;x2=100;y2=-40;x3=100;y3=30;bc=sandybrown;pw=0;"' 4 shape[3][9] = "func=tri;x=155;y=150;x1=100;y1=30;x2=140;y2=60;x3=180;y3=30;bc=snow;pw=0;" shape[3][10] = "func=tri;x=150;y=150;x1=140;y1=60;x2=160;y2=120;x3=180;y3=60;bc=snow;pw=0;" shape[3][11] = "func=rect;x=295;y=188;width=100;height=44;bc=snow;pw=0;" shape[3][12] = "func=tri;x=153;y=154;x1=200;y1=30;x2=240;y2=60;x3=280;y3=30;bc=snow;pw=0;" shape[3][13] = "func=tri;x=120;y=150;x1=240;y1=60;x2=260;y2=120;x3=280;y3=60;bc=snow;pw=0;" shape[3][14] = "func=rect;x=310;y=200;width=70;height=70;bc=snow;pw=0;" shape[3][15] = "func=tri;x=230;y=140;x1=120;y1=30;x2=120;y2=80;x3=80;y3=20;bc=orangered;pw=0;" shape[3][16] = "func=tri;x=250;y=140;x1=140;y1=20;x2=100;y2=80;x3=100;y3=30;bc=orangered;pw=0;" shape[3][17] = "func=tri;x=230;y=50;x1=120;y1=30;x2=120;y2=110;x3=80;y3=20;bc=sandybrown;pw=0;" shape[3][18] = "func=tri;x=250;y=50;x1=140;y1=20;x2=100;y2=110;x3=100;y3=30;bc=sandybrown;pw=0;" shape[3][19] = "func=tri;x=230;y=140;x1=120;y1=30;x2=120;y2=-40;x3=80;y3=20;bc=sandybrown;pw=0;" shape[3][20] = "func=tri;x=250;y=140;x1=140;y1=20;x2=100;y2=-40;x3=100;y3=30;bc=sandybrown;pw=0;" shape[3][21] = "func=tri;x=181;y=272;x1=120;y1=-35;x2=168;y2=-45;x3=171;y3=-55;bc=saddlebrown;pw=0;" shape[3][22] = "func=tri;x=171;y=272;x1=220;y1=-40;x2=180;y2=-44;x3=177;y3=-55;bc=saddlebrown;pw=0;" shape[3][23] = "func=tri;x=215;y=90;x1=120;y1=30;x2=80;y2=28;x3=120;y3=40;bc=saddlebrown;pw=0;" shape[3][24] = "func=tri;x=245;y=90;x1=120;y1=30;x2=160;y2=28;x3=120;y3=40;bc=saddlebrown;pw=0;" shape[3][25] = "func=line;x=348;y=188;x1=22;y1=0;x2=100;y2=4;pc=gold;pw=2;" shape[3][26] = "func=line;x=347;y=189;x1=22;y1=2;x2=100;y2=10;pc=gold;pw=2;" shape[3][27] = "func=line;x=347;y=191;x1=22;y1=3;x2=100;y2=22;pc=gold;pw=2;" shape[3][28] = "func=line;x=343;y=194;x1=22;y1=4;x2=100;y2=33;pc=gold;pw=2;" shape[3][30] = "func=line;x=222;y=187;x1=22;y1=6;x2=100;y2=0;pc=gold;pw=2;" shape[3][31] = "func=line;x=230;y=188;x1=18;y1=11;x2=100;y2=3;pc=gold;pw=2;" shape[3][32] = "func=line;x=230;y=191;x1=18;y1=18;x2=105;y2=3;pc=gold;pw=2;" shape[3][33] = "func=line;x=230;y=192;x1=19;y1=28;x2=108;y2=5;pc=gold;pw=2;" ' House//1 s[4] ="1=.7" shX[4] ="1=250" shY[4] ="1=-100" shape[4][1] = "func=rect;x=800;y=280;width=210;height=30;bc=gray;pc=darkslategray;pw=2"'Rec A4 shape[4][2] = "func=rect;x=777;y=310;width=258;height=30;bc=silver;pc=darkslategray;pw=2"'Rec A3 shape[4][3] = "func=rect;x=755;y=340;width=277;height=30;bc=gray;pc=darkslategray;pw=2"'Rec A2 shape[4][4] = "func=rect;x=766;y=370;width=272;height=30;bc=silver;pc=darkslategray;pw=2"'Rec A1 shape[4][5] = "func=tri;x=480;y=340;x1=222;y1=60;x2=262;y2=8;x3=320;y3=60;bc=silver;pc=darkslategray;pw=2"'Tri A1 shape[4][6] = "func=tri;x=480;y=320;x1=244;y1=50;x2=280;y2=6;x3=320;y3=50;bc=gray;pc=darkslategray;pw=2"'Tri A2 shape[4][7] = "func=tri;x=480;y=300;x1=267;y1=40;x2=298;y2=4;x3=320;y3=40;bc=silver;pc=darkslategray;pw=2"'Tri A3 shape[4][8] = "func=tri;x=480;y=280;x1=292;y1=30;x2=320;y2=2;x3=320;y3=30;bc=gray;pc=darkslategray;pw=2"'Tri A4 shape[4][9] = "func=tri;x=480;y=340;x1=530;y1=60;x2=585;y2=8;x3=636;y3=60;bc=silver;pc=darkslategray;pw=2"'Tri A1 shape[4][10] = "func=tri;x=480;y=320;x1=530;y1=50;x2=566;y2=6;x3=608;y3=50;bc=gray;pc=darkslategray;pw=2"'Tri A2 shape[4][11] = "func=tri;x=480;y=300;x1=530;y1=40;x2=548;y2=4;x3=580;y3=40;bc=silver;pc=darkslategray;pw=2"'Tri A3 shape[4][12] = "func=tri;x=480;y=280;x1=530;y1=30;x2=530;y2=2;x3=555;y3=30;bc=gray;pc=darkslategray;pw=2"'Tri A4 shape[4][13] = "func=rect;x=743;y=397;width=333;height=333;bc=snow;pc=darkslategray;pw=2"'Body Structpw=2ure shape[4][14] = "func=rect;x=766;y=608;width=100;height=122;bc=saddlebrown;pc=darkslategray;pw=2"'DoorA shape[4][15] = "func=ell;x=766;y=573;width=100;height=80;bc=saddlebrown;pw=2"'pc=saddlebrown;"'DoorB shape[4][16] ="func=ell;x=788;y=684;width=10;height=10;bc=yellow;pc=darcksategray;pw=2"'DoorC shape[4][17] ="func=rect;x=944;y=480;width=100;height=122;bc=saddlebrown;darkslategray;pw=2"'WindowA shape[4][18] ="func=ell;x=944;y=428;width=100;height=122;bc=saddlebrown;darkslategray;pw=2"'WindowB shape[4][19] = "func=rect;x=955;y=473;width=80;height=111;bc=skyblue;pc=darkslategray;pw=2"'windowC shape[4][20] = "func=ell;x=955;y=442;width=80;height=88;bc=skyblue;pc=darkslategray;pw=2"'windowD shape[4][21] ="func=line;x=877;y=451;x1=80;y1=30;x2=155;y2=30;bc=dodgerblue;pc=darkslategray;pw=2"'Widow Grill 1 shape[4][22] ="func=line;x=8977;y=451;x1=80;y1=60;x2=155;y2=60;bc=dodgerblue;pc=darkslategray;pw=2"'Widow Grill 2 shape[4][23] ="func=line;x=877;y=451;x1=80;y1=90;x2=155;y2=90;bc=dodgerblue;pc=darkslategray;pw=2"'Widow Grill 3 shape[4][24] ="func=line;x=900;y=395;x1=95;y1=44;x2=95;y2=188;bc=dodgerblue;pc=darkslategray;pw=2"'Window Grill 4 shape[4][25] ="func=rect;x=922;y=242;width=80;height=100;bc=crimson;pc=darkslategray;pw=2"'Chimny 1 shape[4][26] ="func=rect;x=911;y=241;width=100;height=20;bc=firebrick;pe;fi=False;x=340;y=72;width=200;height=113;pw=0;bc=#80FFFFFF;name=TextBox 2;" ' Tree s[5]="1=0.5;2=0.5;3=0.5;4=0.5;" shX[5]="1=900;2=930;3=960;4=990" shY[5]="1=340;2=340;3=340;4=340" ' 5,6,13,14 shape[5]=shape[1] 'Apple s[6] ="1=0.2;2=0.2;3=0.2;4=0.2;5=0.2;6=0.2;7=.2;8=.2;" shX[6] ="1=800;2=840;3=880;4=920;5=820;6=860;7=900;8=940" shY[6] ="1=400;2=400;3=400;4=400;5=440;6=440;7=440;8=440" shape[6]=shape[2] endsub End>TXG145.sb< Start>TXG673.sb< GraphicsWindow.BackgroundColor ="LightGray GraphicsWindow.Left =10 GraphicsWindow.top=10 GraphicsWindow.Width=900 LDUtilities.ShowErrors ="false GraphicsWindow.Height=800 GraphicsWindow.Title ="Spliner GraphicsWindow.MouseDown=mddw LDDialogs.AddRightClickMenu ("1=DrawSpline;2=NewSpline;3=Clean;4=Gradient","") LDDialogs.RightClickMenu=rmmn mfact() args=0 nct=0 grad=0 cpts=400 bb="" brr=LDShapes.BrushGradient("1=gray;2=black" "H") nww=1 nsl=0 GraphicsWindow.KeyDown=kddw pp[1][1]=100 pp[1][2]=100 pp[2][1]=130 pp[2][2]=85 pp[3][1]=130 pp[3][2]=95 pp[4][1]=100 pp[4][2]=110 Sub kddw lky= GraphicsWindow.LastKey If lky="Tab" Then If nsl>0 then Shapes.Remove (sn) nsl=nsl+2 Else nsl=1 endif If nsl>nct*2 Then nsl=1 endif sn=Shapes.AddEllipse (6,6) LDShapes.PenWidth (sn 0) LDShapes.BrushColour (sn "red") shapes.Move(sn b[nsl]-3,b[nsl+1]-3) ox=b[nsl] oy=b[nsl+1] elseIf lky="Escape" Then Shapes.Remove (sn) nsl=0 endif EndSub sub mfact fact[0] = 1 fact[1] = 1 fact[2] = 2 fact[3] = 6 fact[4] = 24 fact[5] = 120 fact[6] = 720 fact[7] = 5040 fact[8] = 40320 fact[9] = 362880 fact[10] = 3628800 fact[11] = 39916800 fact[12] = 479001600 fact[13] = 6227020800 fact[14] = 87178291200 fact[15] = 1307674368000 fact[16] = 20922789888000 fact[17] = 355687428096000 fact[18] = 6402373705728000 fact[19] = 121645100408832000 fact[20] = 2432902008176640000 lxx=20 endsub Sub dospln npts = Array.GetItemCount (b) / 2 icount = 1 t = 0 stepp = 1.0 / (cpts - 1) for i1 = 0 to cpts-2 if ((1 - t) < 5/1000000) Then t = 1.0 endif jcount = 1 p[icount][1] = 0.0 p[icount][2] = 0.0 for i = 0 to npts basis = ldcall.Function3 ("stein",npts - 1, i, t) p[icount][1] =p[icount][1]+ basis * b[jcount] p[icount][2] =p[icount][2]+ basis * b[jcount + 1] jcount = jcount +2 endfor icount =icount+ 1 t =t+ stepp endfor If drwnod=1 then GraphicsWindow.PenWidth=1 GraphicsWindow.PenColor="green GraphicsWindow.BrushColor="Green For x=3 to npts*2 Step 2 GraphicsWindow.BrushColor="Green If x=nsl*2 Then GraphicsWindow.BrushColor="red endif 'GraphicsWindow.fillEllipse (b[x]-3,b[x+1]-3,6,6) Shapes.AddLine (b[x],b[x+1],b[x-2],b[x-1]) endfor drwnod=0 EndIf For rr=1 To Array.GetItemCount (p) For qx=1 to 4 dd[qx][1]=p[rr][1]+pp[qx][1]-115 dd[qx][2]=p[rr][2]+pp[qx][2]-105 EndFor LDShapes.BrushPolygon (brr dd) endfor If grad=1 Then brr= LDShapes.BrushGradient("1=red;2=Orange;3=yellow","") LDShapes.BrushGradientPolygon (brr,p) else GraphicsWindow.PenWidth=2 GraphicsWindow.PenColor="Green ' pp=LDShapes.AddPolygon (p) endif EndSub sub Ni'(int n, int i) ln=args[1] li=args[2] If ln>lxx Or li>lxx Then TextWindow.WriteLine ("High!"+ln+"|"+li) EndIf a1 = fact[ln] a2 = fact[li] a3 = fact[ln - li] return= a1/ (a2 * a3) endsub sub stein'(int n, int i, t) '// Calculate Bernstein basis qn=args[1] qi=args[2] qt=args[3] if (qt = 0.0) and (qi = 0) Then ti = 1.0 else ti = Math.Power(qt, qi) EndIf if (qn = qi) and (qt = 1.0) then tni = 1.0 else tni = Math.Power((1 - qt), (qn - qi)) EndIf bas = ldcall.Function2 ("Ni",qn, qi) * ti * tni return= bas endsub Sub rmmn grad=0 ld= LDDialogs.LastRightClickMenuItem If ld=2 Then bb="" nww=1 nsl=0 ss= LDShapes.GetAllShapes () For r=1 To Array.GetItemCount (ss) Shapes.Remove (ss[r]) endfor 'Shapes.Remove (pp) 'GraphicsWindow.Clear () GraphicsWindow.BrushColor="Green nct=0 elseIf ld=1 Then Shapes.Remove (pp) If nww=1 then b=ldtext.Split (bb," ") nww=0 endif If nsl>0 then ' GraphicsWindow.Clear () drwnod=1 endif dospln () elseIf ld=3 Then GraphicsWindow.Clear () elseIf ld=4 Then grad=1 Shapes.Remove (pp) dospln () endif EndSub Sub mddw If Mouse.IsLeftButtonDown And nct0 Then b[nsl]=xx b[nsl+1]=yy GraphicsWindow.BrushColor="White shapes.Move(Shapes.AddEllipse (6,6) xx-3,yy-3) else shapes.Move(Shapes.AddEllipse (6,6) xx-3,yy-3) If nct>0 Then GraphicsWindow.PenWidth=1 Shapes.AddLine (xx,yy,ox,oy) EndIf nct=nct+1 bb=text.Append (bb,xx+" ") bb=text.Append (bb,yy+" ") endif ox=xx oy=yy endif endsub End>TXG673.sb< Start>TXJ416.sb< GraphicsWindow.BackgroundColor="darkblue dw=math.Round(desktop.Width) LDUtilities.ShowErrors="false dh=math.Round(desktop.Height) GraphicsWindow.Title ="3Dpicmap GraphicsWindow.Width = dw GraphicsWindow.Height = dh GraphicsWindow.Top=0 GraphicsWindow.Left=0 view3D = LD3DView.AddView(dw,dh,"True") GraphicsWindow.KeyDown =kkk 'Some different light types spot = LD3DView.AddSpotLight(view3D,"Green",0.75,0.75,2,0,0,-1,360,100) LD3DView.AddDirectionalLight(view3D,"Pink",-1,-1,-1) LD3DView.AddDirectionalLight(view3D,"DarkBlue",1,1,1) LD3DView.AddAmbientLight(view3D,"#50111111") 'Initial camera position and direction and view angle LD3DView.ResetCamera(view3D,0,0,50,0,0,-1,"","","") s="" LD3DView.AutoControl2 (0 1) ii=1 ii1=1 img=ImageList.LoadImage ("e:\rbb.png") ih= ImageList.GetHeightOfImage (img) iw= ImageList.GetWidthOfImage (img) pp=5 dolevl () Sub kkk If GraphicsWindow.LastKey ="Space" then doky="true EndIf EndSub Sub dolevl LDImage.OpenWorkingImage (img) For x=1 To iw Step pp ff="true For y=1 To ih Step pp lt=ldcolours.GetLightness (LDImage.GetWorkingImagePixel(img x y)) If lt>0.4 then 'eliminates 0-level blocks cc=LD3DView.AddCube (view3D .5 LDColours.HSLtoRGB(x/2 1 lt) "D") LD3DView.TranslateGeometry (view3D cc x/10 y/10 lt*10-4) cc=LD3DView.AddCube (view3D .5 LDColours.HSLtoRGB(x/2 1 lt) "D") LD3DView.TranslateGeometry (view3D cc x/10 y/10, -lt*10+4) If ff then ff="false For r=-lt*10+4.5 to lt*10-4.5 step .5 cc=LD3DView.AddCube (view3D .5 LDColours.HSLtoRGB(x/2 1 lt) "D") LD3DView.TranslateGeometry (view3D cc x/10 y/10, r) endfor endif endif EndFor EndFor LDImage.CloseWorkingImage (img) EndSub End>TXJ416.sb< Start>TXJ937.sb< GraphicsWindow.Title = "LetterDraw" GraphicsWindow.BackgroundColor = "SteelBlue" GraphicsWindow.BrushColor = "White" GraphicsWindow.FontSize = "25" GraphicsWindow.DrawText(100,20,"LetterDraw Basic 13") GraphicsWindow.FontSize = "15" GraphicsWindow.DrawText(100,50,"Loading Application. Please Wait.") GraphicsWindow.Width = "650" GraphicsWindow.Height = "300" GraphicsWindow.PenColor = "Yellow" GraphicsWindow.DrawLine(0,60,650,300) GraphicsWindow.PenColor = "Red" GraphicsWindow.DrawLine(0,70,650,300) GraphicsWindow.PenColor = "Black" GraphicsWindow.DrawLine(0,80,650,300) Turtle.X = "0" Turtle.Y = "900" Turtle.PenDown() Turtle.Speed = 4 Turtle.Move(100) GraphicsWindow.Hide() GraphicsWindow.Clear() Application() Sub Application GraphicsWindow.Title = "LetterDraw" GraphicsWindow.Show() GraphicsWindow.Height = 500 GraphicsWindow.Width = 1000 buttonclicked = 0 inputdone = 0 m = 200 n = 0 doingreset = 0 firstinput = 1 'Start Page' GraphicsWindow.BrushColor = "black" textbox2 = Controls.AddTextBox(265, 50) GraphicsWindow.DrawBoundText(300, 20, 100, "Pen Colour:") textbox = Controls.AddTextBox(465, 50) GraphicsWindow.DrawBoundText(500, 20, 100, "Enter Text:") textbox3 = Controls.AddTextBox(665, 50) GraphicsWindow.DrawBoundText(680, 20, 150, "Background Colour:") button = Controls.AddButton("Go", 510, 75) GraphicsWindow.BrushColor = "black" GraphicsWindow.DrawRectangle(10, 10, 35, 21) GraphicsWindow.DrawRectangle(940, 10, 60, 21) GraphicsWindow.DrawBoundText(12, 12, 46, "Help") GraphicsWindow.DrawBoundText(942, 12, 60, "Colours") GraphicsWindow.KeyDown = Key GraphicsWindow.MouseDown = Help Controls.ButtonClicked = Click EndSub Sub Click If Controls.LastClickedButton = button Then If firstinput = 1 then colour = Controls.GetTextBoxText(textbox2) Text.ConvertToLowerCase(colour) bgcolour = Controls.GetTextBoxText(textbox3) Text.ConvertToLowerCase(bgcolour) EndIf input = Controls.GetTextBoxText(textbox) buttonclicked = 1 EndIf EndSub buttonloop: If buttonclicked = 0 Then If firstinput = 0 then GraphicsWindow.BrushColor = bgcolour GraphicsWindow.PenColor = bgcolour GraphicsWindow.FillRectangle(290, 10, 120, 30) GraphicsWindow.FillRectangle(670, 10, 130, 30) Endif Goto buttonloop Else buttonclicked = 0 EndIf 'End Start Page' 'Drawing' Turtle.Speed = 10 Default() If colour = "random" then GraphicsWindow.PenColor = GraphicsWindow.GetRandomColor() Else GraphicsWindow.PenColor = colour Endif If bgcolour = "random" then GraphicsWindow.BackgroundColor = GraphicsWindow.GetRandomColor() Elseif bgcolour = "" then GraphicsWindow.BackgroundColor = "white" bgcolour = "white" Else GraphicsWindow.BackgroundColor = bgcolour Endif For k = 1 To Text.GetLength(input) letter[k] = Text.GetSubText(input, k, 1) letter[k] = Text.ConvertToUpperCase(letter[k]) 'Letters' n = n + 1 If letter[k] = "A" Then Turtle.Turn(20) Turtle.Move(43) Turtle.Turn(140) Turtle.Move(43) Turtle.Turn(180) Turtle.Move(20) Turtle.Turn(-70) Turtle.Move(15) Default() ElseIf letter[k] = "B" Then Turtle.Move(40) Turtle.Turn(90) Turtle.Move(10) Turtle.Turn(45) Turtle.Move(10) Turtle.Turn(45) Turtle.Move(5) Turtle.Turn(45) Turtle.Move(10) Turtle.Turn(45) Turtle.Move(10) Turtle.Turn(180) Turtle.Move(10) Turtle.Turn(45) Turtle.Move(10) Turtle.Turn(45) Turtle.Move(5) Turtle.Turn(45) Turtle.Move(10) Turtle.Turn(45) Turtle.Move(10) Default() ElseIf letter[k] = "C" Then Turtle.PenUp() Turtle.Turn(90) Turtle.Move(20) Turtle.Turn(180) Turtle.PenDown() Turtle.Move(15) Turtle.Turn(45) Turtle.Move(15) Turtle.Turn(45) Turtle.Move(20) Turtle.Turn(45) Turtle.Move(15) Turtle.Turn(45) Turtle.Move(15) Default() ElseIf letter[k] = "D" Then Turtle.Move(40) Turtle.Turn(90) Turtle.Move(10) Turtle.Turn(45) Turtle.Move(15) Turtle.Turn(45) Turtle.Move(20) Turtle.Turn(45) Turtle.Move(15) Turtle.Turn(45) Turtle.Move(10) Default() ElseIf letter[k] = "E" Then Turtle.Move(40) Turtle.Turn(90) Turtle.Move(25) Turtle.Turn(180) Turtle.Move(25) Turtle.Turn(-90) Turtle.Move(20) Turtle.Turn(-90) Turtle.Move(20) Turtle.Turn(180) Turtle.Move(20) Turtle.Turn(-90) Turtle.Move(20) Turtle.Turn(-90) Turtle.Move(25) Default() ElseIf letter[k] = "F" Then Turtle.Move(40) Turtle.Turn(90) Turtle.Move(25) Turtle.Turn(180) Turtle.Move(25) Turtle.Turn(-90) Turtle.Move(20) Turtle.Turn(-90) Turtle.Move(20) Turtle.Turn(180) Turtle.Move(20) Turtle.Turn(-90) Turtle.Move(20) Default() ElseIf letter[k] = "G" Then Turtle.Move(40) Turtle.Turn(90) Turtle.Move(25) Turtle.Turn(180) Turtle.Move(25) Turtle.Turn(-90) Turtle.Move(40) Turtle.Turn(-90) Turtle.Move(25) Turtle.Turn(-90) Turtle.Move(20) Turtle.Turn(-90) Turtle.Move(10) Default() ElseIf letter[k] = "H" Then Turtle.Move(40) Turtle.Turn(180) Turtle.Move(20) Turtle.Turn(-90) Turtle.Move(20) Turtle.Turn(90) Turtle.Move(20) Turtle.Turn(180) Turtle.Move(40) Default() ElseIf letter[k] = "I" Then Turtle.Turn(90) Turtle.Move(26) Turtle.Turn(180) Turtle.Move(13) Turtle.Turn(90) Turtle.Move(40) Turtle.Turn(90) Turtle.Move(13) Turtle.Turn(180) Turtle.Move(26) Default() ElseIf letter[k] = "J" Then Turtle.Move(10) Turtle.Turn(180) Turtle.Move(10) Turtle.Turn(-90) Turtle.Move(20) Turtle.Turn(-90) Turtle.Move(40) Default() ElseIf letter[k] = "K" Then Turtle.Move(40) Turtle.Turn(180) Turtle.Move(20) Turtle.Turn(-140) Turtle.Move(23) Turtle.Turn(180) Turtle.Move(23) Turtle.Angle = 140 Turtle.Move(25) Default() ElseIf letter[k] = "L" Then Turtle.Move(40) Turtle.Turn(180) Turtle.Move(40) Turtle.Turn(-90) Turtle.Move(25) Default() ElseIf letter[k] = "M" Then Turtle.Move(40) Turtle.Turn(150) Turtle.Move(20) Turtle.Turn(-120) Turtle.Move(20) Turtle.Angle = 180 Turtle.Move(40) Default() ElseIf letter[k] = "N" Then Turtle.Move(40) Turtle.Turn(150) Turtle.Move(46) Turtle.Angle = 0 Turtle.Move(40) Default() ElseIf letter[k] = "O" Then Turtle.PenUp() Turtle.Turn(90) Turtle.Move(20) Turtle.Turn(180) Turtle.PenDown() Turtle.Move(10) Turtle.Turn(45) Turtle.Move(15) Turtle.Turn(45) Turtle.Move(20) Turtle.Turn(45) Turtle.Move(15) Turtle.Turn(45) Turtle.Move(10) Turtle.Turn(45) Turtle.Move(15) Turtle.Turn(45) Turtle.Move(20) Turtle.Turn(45) Turtle.Move(15) Default() ElseIf letter[k] = "P" Then Turtle.Move(40) Turtle.Turn(90) Turtle.Move(25) Turtle.Turn(90) Turtle.Move(20) Turtle.Turn(90) Turtle.Move(25) Default() ElseIf letter[k] = "Q" Then Turtle.PenUp() Turtle.Turn(90) Turtle.Move(20) Turtle.Turn(180) Turtle.PenDown() Turtle.Move(10) Turtle.Turn(45) Turtle.Move(15) Turtle.Turn(45) Turtle.Move(20) Turtle.Turn(45) Turtle.Move(15) Turtle.Turn(45) Turtle.Move(10) Turtle.Turn(45) Turtle.Move(15) Turtle.Turn(45) Turtle.Move(20) Turtle.Turn(45) Turtle.Move(15) Turtle.Turn(180) Turtle.Move(7.5) Turtle.Turn(90) Turtle.Move(5) Turtle.Turn(180) Turtle.Move(10) Default() ElseIf letter[k] = "R" Then Turtle.Move(40) Turtle.Turn(90) Turtle.Move(10) Turtle.Turn(45) Turtle.Move(10) Turtle.Turn(45) Turtle.Move(5) Turtle.Turn(45) Turtle.Move(10) Turtle.Turn(45) Turtle.Move(10) Turtle.Turn(225) Turtle.Move(28) Default() ElseIf letter[k] = "S" Then Turtle.PenUp() Turtle.Move(10) Turtle.PenDown() Turtle.Turn(135) Turtle.Move(10) Turtle.Turn(-45) Turtle.Move(10) Turtle.Turn(-45) Turtle.Move(10) Turtle.Turn(-45) Turtle.Move(5) Turtle.Turn(-45) Turtle.Move(10) Turtle.Turn(-45) Turtle.Move(10) Turtle.Turn(45) Turtle.Move(10) Turtle.Turn(45) Turtle.Move(5) Turtle.Turn(45) Turtle.Move(10) Turtle.Turn(45) Turtle.Move(10) Turtle.Turn(45) Turtle.Move(10) Default() ElseIf letter[k] = "T" Then Turtle.PenUp() Turtle.Turn(90) Turtle.Move(10) Turtle.Turn(-90) Turtle.PenDown() Turtle.Move(40) Turtle.Turn(-90) Turtle.Move(10) Turtle.Turn(180) Turtle.Move(20) Default() ElseIf letter[k] = "U" Then Turtle.PenUp() Turtle.Move(40) Turtle.Turn(180) Turtle.PenDown() Turtle.Move(30) Turtle.Turn(-45) Turtle.Move(10) Turtle.Turn(-45) Turtle.Move(10) Turtle.Turn(-45) Turtle.Move(10) Turtle.Turn(-45) Turtle.Move(30) Default() ElseIf letter[k] = "V" Then Turtle.PenUp() Turtle.Turn(90) Turtle.Move(15) Turtle.Angle = -20 Turtle.PenDown() Turtle.Move(43) Turtle.Turn(180) Turtle.Move(43) Turtle.Angle = 20 Turtle.Move(43) Default() ElseIf letter[k] = "W" Then Turtle.PenUp() Turtle.Move(40) Turtle.PenDown() Turtle.Angle = 170 Turtle.Move(43) Turtle.Angle = 10 Turtle.Move(43) Turtle.Angle = 170 Turtle.Move(43) Turtle.Angle = 10 Turtle.Move(43) Default() ElseIf letter[k] = "X" Then Turtle.Angle = 30 Turtle.Move(44) Turtle.Turn(180) Turtle.Move(22) Turtle.Angle = -30 Turtle.Move(22) Turtle.Turn(180) Turtle.Move(44) Default() ElseIf letter[k] = "Y" Then Turtle.PenUp() Turtle.Move(40) Turtle.PenDown() Turtle.Angle = 150 Turtle.Move(22) Turtle.Angle = 30 Turtle.Move(22) Turtle.Turn(180) Turtle.Move(22) Turtle.Angle = 180 Turtle.Move(20) Default() ElseIf letter[k] = "Z" Then Turtle.PenUp() Turtle.Move(40) Turtle.Turn(90) Turtle.PenDown() Turtle.Move(20) Turtle.Angle = 210 Turtle.Move(45) Turtle.Angle = 90 Turtle.Move(20) Default() ElseIf letter[k] = " " Then Default() ElseIf letter[k] = "1" Then Turtle.Turn(90) Turtle.PenUp() Turtle.Move(5) Turtle.PenDown() Turtle.Move(20) Turtle.Turn(180) Turtle.Move(10) Turtle.Turn(90) Turtle.Move(40) Turtle.Turn(225) Turtle.Move(10) Default() ElseIf letter[k] = "2" Then Turtle.PenUp() Turtle.Move(35) Turtle.PenDown() Turtle.Turn(45) Turtle.Move(10) Turtle.Turn(45) Turtle.Move(10) Turtle.Turn(45) Turtle.Move(10) Turtle.Turn(45) Turtle.Move(10) Turtle.Turn(45) Turtle.Move(35) Turtle.Turn(-135) Turtle.Move(25) Default() ElseIf letter[k] = "3" Then Turtle.PenUp() Turtle.Move(35) Turtle.PenDown() Turtle.Turn(45) Turtle.Move(10) Turtle.Turn(45) Turtle.Move(10) Turtle.Turn(45) Turtle.Move(10) Turtle.Turn(45) Turtle.Move(7.5) Turtle.Turn(45) Turtle.Move(10) Turtle.Turn(45) Turtle.Move(10) Turtle.Turn(180) Turtle.Move(10) Turtle.Turn(45) Turtle.Move(10) Turtle.Turn(45) Turtle.Move(7.5) Turtle.Turn(45) Turtle.Move(10) Turtle.Turn(45) Turtle.Move(10) Turtle.Turn(45) Turtle.Move(10) Default() Elseif letter[k] = "4" Then Turtle.Turn(90) Turtle.PenUp() Turtle.Move(15) Turtle.Turn(-90) Turtle.PenDown() Turtle.Move(45) Turtle.Angle = 210 Turtle.Move(30) Turtle.Angle = 90 Turtle.Move(25) Default() Elseif letter[k] = "5" Then Turtle.Turn(90) Turtle.Move(15) Turtle.Turn(-45) Turtle.Move(10) Turtle.Turn(-45) Turtle.Move(10) Turtle.Turn(-45) Turtle.Move(10) Turtle.Turn(-45) Turtle.Move(15) Turtle.Turn(90) Turtle.Move(20) Turtle.Turn(90) Turtle.Move(20) Default() Elseif letter[k] = "6" Then Turtle.PenUp() Turtle.Turn(90) Turtle.Move(15) Turtle.Turn(-90) Turtle.Move(45) Turtle.Turn(90) Turtle.PenDown() Turtle.Move(5) Turtle.Turn(180) Turtle.Move(15) Turtle.Turn(-45) Turtle.Move(10) Turtle.Turn(-45) Turtle.Move(30) Turtle.Turn(-45) Turtle.Move(10) Turtle.Turn(-45) Turtle.Move(10) Turtle.Turn(-45) Turtle.Move(10) Turtle.Turn(-45) Turtle.Move(10) Turtle.Turn(-45) Turtle.Move(10) Turtle.Turn(-45) Turtle.Move(10) Turtle.Turn(-45) Turtle.Move(10) Turtle.Turn(-45) Turtle.Move(10) Default() Elseif letter[k] = 7 then Turtle.Turn(90) Turtle.PenUp() Turtle.Move(5) Turtle.PenDown() Turtle.Angle = 30 Turtle.Move(50) Turtle.Angle = 270 Turtle.Move(25) Default() Elseif letter[k] = 8 Then Turtle.PenUp() Turtle.Turn(90) Turtle.Move(7.5) Turtle.PenDown() Turtle.Move(9) Turtle.Turn(-45) Turtle.Move(9) Turtle.Turn(-45) Turtle.Move(9) Turtle.Turn(-45) Turtle.Move(9) Turtle.Turn(-45) Turtle.Move(9) Turtle.Turn(45) Turtle.Move(9) Turtle.Turn(45) Turtle.Move(9) Turtle.Turn(45) Turtle.Move(9) Turtle.Turn(45) Turtle.Move(9) Turtle.Turn(45) Turtle.Move(9) Turtle.Turn(45) Turtle.Move(9) Turtle.Turn(45) Turtle.Move(9) Turtle.Turn(45) Turtle.Move(9) Turtle.Turn(-45) Turtle.Move(9) Turtle.Turn(-45) Turtle.Move(9) Turtle.Turn(-45) Turtle.Move(9) Default() Elseif letter[k] = 9 Then Turtle.PenUp() Turtle.Move(27.5) Turtle.PenDown() Turtle.Move(10) Turtle.Turn(45) Turtle.Move(10) Turtle.Turn(45) Turtle.Move(10) Turtle.Turn(45) Turtle.Move(10) Turtle.Turn(45) Turtle.Move(10) Turtle.Turn(45) Turtle.Move(10) Turtle.Turn(45) Turtle.Move(10) Turtle.Turn(45) Turtle.Move(10) Turtle.Turn(180) Turtle.Move(10) Turtle.Turn(-45) Turtle.Move(10) Turtle.Turn(-45) Turtle.Move(10) Turtle.Angle = 180 Turtle.Move(20) Turtle.Turn(45) Turtle.Move(10) Turtle.Turn(45) Turtle.Move(10) Turtle.Turn(45) Turtle.Move(10) Default() ElseIf letter[k] = "0" Then Turtle.PenUp() Turtle.Turn(90) Turtle.Move(20) Turtle.Turn(180) Turtle.PenDown() Turtle.Move(10) Turtle.Turn(45) Turtle.Move(15) turtlex1 = Turtle.x turtley1 = Turtle.y Turtle.Turn(45) Turtle.Move(25) Turtle.Turn(45) Turtle.Move(15) Turtle.Turn(45) Turtle.Move(10) Turtle.Turn(45) Turtle.Move(15) turtlex2 = Turtle.x turtley2 = Turtle.y Turtle.Turn(45) Turtle.Move(25) Turtle.Turn(45) Turtle.Move(15) Turtle.PenUp() Turtle.MoveTo(turtlex1, turtley1) Turtle.PenDown() Turtle.MoveTo(turtlex2, turtley2) Default() Elseif letter[k] = "." Then Turtle.Move(2) Turtle.Turn(90) Turtle.Move(2) Turtle.Turn(90) Turtle.Move(2) Turtle.Turn(90) Turtle.Move(2) Turtle.Turn(90) Default() Elseif letter[k] = "," Then Turtle.Angle = 195 Turtle.Move(10) Default() Elseif letter[k] = "?" Then Turtle.PenUp() Turtle.Turn(90) Turtle.Move(10) Turtle.Angle = 0 Turtle.PenDown() Turtle.Move(2) Turtle.Turn(90) Turtle.Move(2) Turtle.Turn(90) Turtle.Move(2) Turtle.Turn(90) Turtle.Move(2) Turtle.Turn(90) Turtle.PenUp() Turtle.Move(10) Turtle.PenDown() Turtle.Move(10) Turtle.Turn(90) Turtle.Move(5) Turtle.Turn(-45) Turtle.Move(10) Turtle.Turn(-45) Turtle.Move(10) Turtle.Turn(-45) Turtle.Move(10) Turtle.Turn(-45) Turtle.Move(7.5) Turtle.Turn(-45) Turtle.Move(5) Default() Elseif letter[k] = "*" Then Turtle.PenUp() Turtle.Move(30) Turtle.Turn(90) Turtle.PenDown() Turtle.Move(20) Turtle.Turn(180) Turtle.Move(10) Turtle.Turn(90) Turtle.Move(10) Turtle.Turn(180) Turtle.Move(20) Turtle.Turn(180) Turtle.Move(10) Turtle.Turn(45) Turtle.Move(10) Turtle.Turn(180) Turtle.Move(20) Turtle.Turn(180) Turtle.Move(10) Turtle.Turn(90) Turtle.Move(10) Turtle.Turn(180) Turtle.Move(20) Default() Elseif letter[k] = "!" Then Turtle.PenUp() Turtle.Turn(90) Turtle.Move(10) Turtle.Angle = 0 Turtle.PenDown() Turtle.Move(2) Turtle.Turn(90) Turtle.Move(2) Turtle.Turn(90) Turtle.Move(2) Turtle.Turn(90) Turtle.Move(2) Turtle.Turn(90) Turtle.PenUp() Turtle.Move(10) Turtle.PenDown() Turtle.Move(30) Default() Elseif letter[k] = "(" Then Turtle.PenUp() Turtle.Turn(90) Turtle.Move(30) Turtle.PenDown() Turtle.Angle = 320 Turtle.Turn(180) Turtle.Move(5) Turtle.Turn(180) Turtle.Move(15) Turtle.Angle = 0 Turtle.Move(30) Turtle.Angle = 40 Turtle.Move(15) Default() Elseif letter[k] = ")" Then Turtle.PenUp() Turtle.Turn(-90) Turtle.Move(5) Turtle.PenDown() Turtle.Angle = 40 Turtle.Turn(180) Turtle.Move(5) Turtle.Turn(180) Turtle.Move(15) Turtle.Angle = 0 Turtle.Move(30) Turtle.Angle = 320 Turtle.Move(15) Default() Elseif letter[k] = "&" Then Turtle.PenUp() Turtle.Turn(90) Turtle.Move(7.5) Turtle.PenDown() Turtle.Move(9) Turtle.Turn(-45) Turtle.Move(15) Turtle.Turn(180) Turtle.Move(6) Turtle.Turn(180) Turtle.Turn(-45) Turtle.PenUp() Turtle.Move(9) Turtle.Turn(-45) Turtle.Move(9) Turtle.Turn(-45) Turtle.Move(9) Turtle.PenDown() Turtle.Turn(45) Turtle.Turn(180) Turtle.Move(30) Turtle.Turn(180) Turtle.Move(30) turtlex3 = Turtle.x turtley3 = Turtle.y Turtle.Move(9) Turtle.Turn(45) Turtle.Move(9) Turtle.Turn(45) Turtle.Move(9) Turtle.Turn(45) Turtle.Move(9) Turtle.Turn(45) Turtle.Move(9) Turtle.Turn(45) Turtle.Move(9) turtlex4 = Turtle.X turtley4 = Turtle.y Turtle.PenUp() Turtle.Turn(45) Turtle.Move(9) Turtle.Turn(45) Turtle.Move(9) Turtle.Turn(-45) Turtle.PenDown() Turtle.Move(9) Turtle.Turn(-45) Turtle.Move(9) Turtle.Turn(-45) Turtle.Move(9) Turtle.PenUp() Turtle.MoveTo(turtlex3, turtley3) Turtle.PenDown() Turtle.MoveTo(turtlex4, turtley4) Default() Elseif letter[k] = "%" then turtlex5 = Turtle.x turtley5 = Turtle.y Turtle.Turn(90) Turtle.PenUp() Turtle.Move(15) Turtle.PenDown() Turtle.Move(5) Turtle.Turn(-45) Turtle.Move(5) Turtle.Turn(-45) Turtle.Move(5) Turtle.Turn(-45) Turtle.Move(5) Turtle.Turn(-45) Turtle.Move(5) Turtle.Turn(-45) Turtle.Move(5) Turtle.Turn(-45) Turtle.Move(5) Turtle.Turn(-45) Turtle.Move(5) Turtle.PenUp() Turtle.MoveTo(turtlex5, turtley5) Turtle.PenDown() Turtle.Angle = 30 Turtle.Move(45) Turtle.Angle = 270 Turtle.PenUp() Turtle.Move(15) Turtle.PenDown() Turtle.Move(5) Turtle.Turn(-45) Turtle.Move(5) Turtle.Turn(-45) Turtle.Move(5) Turtle.Turn(-45) Turtle.Move(5) Turtle.Turn(-45) Turtle.Move(5) Turtle.Turn(-45) Turtle.Move(5) Turtle.Turn(-45) Turtle.Move(5) Turtle.Turn(-45) Turtle.Move(5) Default() Elseif letter[k] = "/" then Turtle.Angle = 30 Turtle.Move(45) Default() Elseif letter[k] = "\" then Turtle.Turn(90) Turtle.PenUp() Turtle.Move(20) Turtle.PenDown() Turtle.Angle = 330 Turtle.Move(45) Default() Elseif letter[k] = "$" Then turtlex6 = Turtle.X turtley6 = Turtle.y Turtle.PenUp() Turtle.Turn(90) Turtle.Move(12.5) Turtle.PenDown() Turtle.Turn(90) Turtle.Move(5) Turtle.Turn(180) Turtle.Move(55) turtle.PenUp() Turtle.MoveTo(turtlex6, turtley6-10) Turtle.Angle = 0 Turtle.PenDown() Turtle.Turn(135) Turtle.Move(10) Turtle.Turn(-45) Turtle.Move(10) Turtle.Turn(-45) Turtle.Move(10) Turtle.Turn(-45) Turtle.Move(5) Turtle.Turn(-45) Turtle.Move(10) Turtle.Turn(-45) Turtle.Move(10) Turtle.Turn(45) Turtle.Move(10) Turtle.Turn(45) Turtle.Move(5) Turtle.Turn(45) Turtle.Move(10) Turtle.Turn(45) Turtle.Move(10) Turtle.Turn(45) Turtle.Move(10) Default() Elseif letter[k] = "^" then Turtle.PenUp() Turtle.Move(35) Turtle.Turn(90) Turtle.Move(5) Turtle.PenDown() Turtle.Angle = 60 Turtle.Move(10) Turtle.Angle = 120 Turtle.Move(10) Default() Elseif letter[k] = "#" Then Turtle.PenUp() Turtle.Move(15) Turtle.PenDown() Turtle.Turn(90) Turtle.Move(30) Turtle.Turn(180) Turtle.Move(30) Turtle.Turn(90) Turtle.PenUp() Turtle.Move(10) Turtle.Turn(90) Turtle.Move(5) Turtle.PenDown() Turtle.Move(30) Turtle.Turn(180) Turtle.PenUp() Turtle.Move(35) Turtle.Angle = 180 Turtle.Move(25) Turtle.Turn(-90) Turtle.Move(5) Turtle.PenDown() Turtle.Angle = 15 Turtle.Move(40) Turtle.PenUp() Turtle.Angle = 90 Turtle.Move(15) Turtle.PenDown() Turtle.Angle = 195 Turtle.Move(40) Default() Elseif letter[k] = "@" Then Turtle.PenUp() Turtle.Turn(90) Turtle.Move(20) Turtle.Turn(180) Turtle.PenDown() Turtle.Move(15) Turtle.Turn(45) Turtle.Move(15) Turtle.Turn(45) Turtle.Move(20) Turtle.Turn(45) Turtle.Move(15) Turtle.Turn(45) Turtle.Move(15) Turtle.Turn(45) Turtle.Move(15) Turtle.Turn(45) Turtle.Move(20) Turtle.Turn(45) Turtle.Move(5) Turtle.Turn(45) Turtle.Move(2.5) Turtle.Turn(45) Turtle.Move(5) Turtle.Turn(45) Turtle.Move(15) Turtle.Turn(-45) Turtle.Move(7) Turtle.Turn(-45) Turtle.Move(7) Turtle.Turn(-45) Turtle.Move(7) Turtle.Turn(-45) Turtle.Move(7) Turtle.Turn(-45) Turtle.Move(7) Turtle.Turn(-45) Turtle.Move(7) Turtle.Turn(-45) Turtle.Move(7) Default() Elseif letter[k] = "-" Then Turtle.PenUp() Turtle.Move(20) Turtle.PenDown() Turtle.Turn(90) Turtle.Move(20) Default() Elseif letter[k] = "_" Then Turtle.Turn(90) Turtle.Move(20) Default() Elseif letter[k] = "+" Then Turtle.PenUp() Turtle.Move(20) Turtle.PenDown() Turtle.Turn(90) Turtle.Move(20) Turtle.Turn(180) Turtle.Move(10) Turtle.Turn(90) Turtle.Move(10) Turtle.Turn(180) Turtle.Move(20) Default() Elseif letter[k] = "=" Then Turtle.PenUp() Turtle.Move(15) Turtle.PenDown() Turtle.Turn(90) Turtle.Move(20) Turtle.PenUp() Turtle.Turn(-90) Turtle.Move(10) Turtle.Turn(-90) Turtle.PenDown() Turtle.Move(20) Default() Elseif letter[k] = "|" Then Turtle.PenUp() Turtle.Turn(90) Turtle.Move(15) Turtle.Turn(-90) Turtle.PenDown() Turtle.Move(20) Turtle.PenUp() Turtle.Move(5) Turtle.PenDown() Turtle.Move(20) Default() Elseif letter[k] = "[" Then Turtle.PenUp() Turtle.Turn(90) Turtle.Move(30) Turtle.PenDown() Turtle.Angle = -90 Turtle.Move(10) Turtle.Turn(90) Turtle.Move(45) Turtle.Turn(90) Turtle.Move(10) Default() Elseif letter[k] = "]" Then Turtle.Turn(90) Turtle.Move(10) Turtle.Turn(-90) Turtle.Move(45) Turtle.Turn(-90) Turtle.Move(10) Default() Elseif letter[k] = "{" Then Turtle.PenUp() Turtle.Turn(90) Turtle.Move(30) Turtle.PenDown() Turtle.Angle = -90 Turtle.Move(5) Turtle.Turn(45) Turtle.Move(5) Turtle.Turn(45) Turtle.Move(5) Turtle.Turn(5) Turtle.Move(10) Turtle.Angle = 315 Turtle.Move(5) Turtle.Angle = 45 Turtle.Move(5) Turtle.Angle = 355 Turtle.Move(10) Turtle.Angle = 0 Turtle.Move(5) Turtle.Turn(45) Turtle.Move(5) Turtle.Turn(45) Turtle.Move(5) Default() Elseif letter[k] = "}" Then Turtle.Angle = 90 Turtle.Move(5) Turtle.Turn(-45) Turtle.Move(5) Turtle.Turn(-45) Turtle.Move(5) Turtle.Turn(-5) Turtle.Move(10) Turtle.Angle = 45 Turtle.Move(5) Turtle.Angle = 315 Turtle.Move(5) Turtle.Angle = 5 Turtle.Move(10) Turtle.Angle = 5 Turtle.Move(5) Turtle.Turn(-45) Turtle.Move(5) Turtle.Turn(-45) Turtle.Move(5) Default() Elseif letter[k] = ":" Then Turtle.Move(2) Turtle.Turn(90) Turtle.Move(2) Turtle.Turn(90) Turtle.Move(2) Turtle.Turn(90) Turtle.Move(2) Turtle.Turn(90) Turtle.PenUp() Turtle.Move(25) Turtle.PenDown() Turtle.Move(2) Turtle.Turn(90) Turtle.Move(2) Turtle.Turn(90) Turtle.Move(2) Turtle.Turn(90) Turtle.Move(2) Default() Elseif letter[k] = ";" Then Turtle.Angle = 195 Turtle.Move(10) Turtle.Turn(180) Turtle.Move(10) Turtle.Angle = 0 Turtle.PenUp() Turtle.Move(25) Turtle.PenDown() Turtle.Move(2) Turtle.Turn(90) Turtle.Move(2) Turtle.Turn(90) Turtle.Move(2) Turtle.Turn(90) Turtle.Move(2) Default() Elseif letter[k] = "'" Then Turtle.PenUp() Turtle.Turn(90) Turtle.Move(15) Turtle.Turn(-90) Turtle.Move(35) Turtle.PenDown() Turtle.Move(10) Default() Elseif letter[k] = "<" Then Turtle.PenUp() Turtle.Move(15) Turtle.Turn(90) Turtle.Move(30) Turtle.PenDown() Turtle.Angle = 315 Turtle.Move(10) Turtle.Angle = 45 Turtle.Move(10) Default() Elseif letter[k] = ">" Then Turtle.PenUp() Turtle.Move(15) Turtle.PenDown() Turtle.Angle = 45 Turtle.Move(10) Turtle.Angle = 315 Turtle.Move(10) Default() Elseif letter[k] = "~" Then Turtle.PenUp() Turtle.Move(15) Turtle.PenDown() Turtle.Move(5) Turtle.Turn(45) Turtle.Move(5) Turtle.Turn(45) Turtle.Move(5) Turtle.Turn(35) Turtle.Move(10) Turtle.Turn(-15) Turtle.Move(5) Turtle.Turn(-45) Turtle.Move(5) Turtle.Turn(-45) Turtle.Move(5) Default() Elseif letter[k] = "`" Then Turtle.PenUp() Turtle.Turn(90) Turtle.Move(15) Turtle.Turn(-90) Turtle.Move(35) Turtle.PenDown() Turtle.Angle = 320 Turtle.Move(10) Default() Elseif letter[k] = Text.GetCharacter(34) Then Turtle.PenUp() Turtle.Turn(90) Turtle.Move(15) Turtle.Turn(-90) Turtle.Move(35) Turtle.PenDown() Turtle.Move(10) Turtle.Turn(90) Turtle.PenUp() Turtle.Move(10) Turtle.Turn(90) Turtle.PenDown() Turtle.Move(10) Default() Else Turtle.PenUp() Turtle.Move(30) Turtle.Turn(90) Turtle.PenDown() Turtle.Move(20) Turtle.Turn(180) Turtle.Move(10) Turtle.Turn(90) Turtle.Move(10) Turtle.Turn(180) Turtle.Move(20) Turtle.Turn(180) Turtle.Move(10) Turtle.Turn(45) Turtle.Move(10) Turtle.Turn(180) Turtle.Move(20) Turtle.Turn(180) Turtle.Move(10) Turtle.Turn(90) Turtle.Move(10) Turtle.Turn(180) Turtle.Move(20) Default() EndIf EndFor Turtle.PenUp() Turtle.MoveTo(901, 1) doingreset = 1 Default() Controls.Remove(textbox2) Controls.Remove(textbox3) firstinput = 0 Goto buttonloop Sub Default If Turtle.X > 900 Then Turtle.PenUp() Turtle.MoveTo(40*n + 25, m) Turtle.Angle = 0 Turtle.Move(20) If doingreset = 0 then Turtle.PenDown() ElseIf doingreset = 1 then doingreset = 0 EndIf Turtle.Turn(90) Turtle.Move(20) m = m + 50 n = 0 EndIf Turtle.PenUp() Turtle.MoveTo(40*n + 25, m) Turtle.Angle = 0 Turtle.PenDown() EndSub Sub Help If GraphicsWindow.MouseX > 10 And GraphicsWindow.MouseX < 45 And GraphicsWindow.MouseY > 10 And GraphicsWindow.MouseY < 31 Then GraphicsWindow.ShowMessage("Enter a pen colour, background colour, and some words. Click 'Go' and watch the turtle write it. unknown characters will bedrawn as an asterisk", "Help") ElseIf GraphicsWindow.MouseX > 940 And GraphicsWindow.MouseX < 990 And GraphicsWindow.MouseY > 10 and GraphicsWindow.MouseY < 31 Then GraphicsWindow.ShowMessage("Colours: LightCoral, Salmon, DarkSalmon, LightSalmon, Crimson, Red, FireBrick, DarkRed, Pink, LightPink, HotPink, DeepPink, MediumVioletRed, PaleVioletRed, LightSalmon, Coral, Tomato, OrangeRed, DarkOrange, Orange, Gold, Yellow, LightYellow, LemonChiffon, LightGoldenrodYellow, PapayaWhip, Moccasin, PeachPuff, PaleGoldenrod, Khaki, DarkKhaki, Lavender, Thistle, Plum, Violet, Orchid, Fuchsia, Magenta, MediumOrchid, MeduimPurple, BlueViolet, DarkViolet, DarkOrchid, DarkMagenta, Purple, Indigo, SlateBlue, DarkSlateBlue, MediumSlateBlue, SpringGreen, MediumSpringGreen, SeaGreen, MediumSeaGreen, Green, ForestGreen, DarkGreen, YellowGreen, OliveDrab, Olive, DarkOliveGreen, MediumAquaMarine, DarkSeaGreen, LightSeaGreen, DarkCyan, Teal, Aqua, Cyan, LightCyan, PaleTurquoise, Aquamarine, Turquoise, MediumTurquoise, DarkTurquoise, CadetBlue, SteelBlue, LightSteelBlue, PowderBlue, LightBlue, SkyBlue, LightSkyBlue, DeepSkyBlue, DodgerBlue, CornflowerBlue, MediumSlateBlue, RoyalBlue, Blue, MediumBlue, DarkBlue, Navy, MidnightBlue, White, Snow, Honeydew, MintCream, Azure, AliceBlue, GhostWhite, WhiteSmoke, Seashell, Beige, OldLace, FloralWhite, Ivory, AntiqueWhite, Linen, LavenderBlush, MistyRose, CornSilk, BlanchedAlmond, Bisque, NavjoWhite, Wheat, BurlyWood, Tan, RosyBrown, SandyBrown, Goldenrod, DarkGoldenrod, Peru, Chocolate, SaddleBrown, Sienna, Brown, Maroon, Gainsboro, LightGray, Silver, Darkgray, Gray, DimGray, LightSlateGray, SlateGray, DarkSlateGray, Black", "Colour List") EndIf EndSub Sub Key If GraphicsWindow.LastKey = "Return" Then If firstinput = 1 then colour = Controls.GetTextBoxText(textbox2) Text.ConvertToLowerCase(colour) bgcolour = Controls.GetTextBoxText(textbox3) Text.ConvertToLowerCase(bgcolour) EndIf input = Controls.GetTextBoxText(textbox) buttonclicked = 1 EndIf EndSub End>TXJ937.sb< Start>TXN882.sb< 'TODO 'Fix enemy game over 'Difficulty select 'Seeds? 'Level changer 'Boss at top / boss level? 'Enemy types: Normal, Reverse, Ghost, Fire 'To do: Boss beginning: GraphicsWindow.Clear() ready = "False" fpath = "D:\dk\" GraphicsWindow.Title = "Tower Trouble" GraphicsWindow.Height = 650 GraphicsWindow.Width = 800 GraphicsWindow.Left = 0 GraphicsWindow.Top = 0 GraphicsWindow.BackgroundColor = "Black" GraphicsWindow.PenColor = "White" GraphicsWindow.BrushColor = "White" GraphicsWindow.FontSize = 25 logo = Shapes.AddImage(fpath + "logo1.png") Shapes.Rotate(logo,30) logoR = 30 Shapes.Move(logo, 250, 200) GraphicsWindow.FontSize = 14 GraphicsWindow.DrawText(200,500,"Level:") GraphicsWindow.BrushColor = "Black" begin = Controls.AddButton("Click to begin",500,500) FAQ = Controls.AddButton("Help",700,500) Controls.ButtonClicked = BtnClickEventDK GraphicsWindow.BrushColor = "Black" choice = Controls.AddTextBox(250,500) While ready = "False" Shapes.Remove(logo) If Controls.LastClickedButton = begin Then ready = "True" EndIf logo = Shapes.AddImage(fpath + "logo1.png") Shapes.Rotate(logo,30) Shapes.Move(logo, 250, 200) For i = 1 To 60 If Controls.LastClickedButton <> begin Then Program.Delay(10) logoR = logoR - 1 Shapes.Rotate(logo,logoR) EndIf EndFor Shapes.Remove(logo) logo = Shapes.AddImage(fpath + "logo2.png") Shapes.Rotate(logo,-30) Shapes.Move(logo, 250, 200) For i = 1 To 60 If Controls.LastClickedButton <> begin Then Program.Delay(10) logoR = logoR + 1 Shapes.Rotate(logo,logoR) EndIf EndFor EndWhile Sub BtnClickEventDK If Controls.LastClickedButton = FAQ Then GraphicsWindow.BrushColor = "White" GraphicsWindow.FontSize = 12 GraphicsWindow.DrawImage(fpath + "char.png",100,50) GraphicsWindow.DrawText(10,100,"Use arrow keys to move and climb ladders.") GraphicsWindow.DrawText(10,120,"Climb up the top ladder on each level to win.") GraphicsWindow.DrawText(10,140,"Use the spacebar to jump over enemies!!!") GraphicsWindow.DrawText(10,160,"Avoid these:") GraphicsWindow.DrawText(10,180,"Reddies fall down") GraphicsWindow.DrawImage(fpath + "enemy.png",200,170) GraphicsWindow.DrawText(10,200,"Blooies climb up") GraphicsWindow.DrawImage(fpath + "reverse.png",200,190) GraphicsWindow.DrawText(10,220,"Charges fall and spawn foes") GraphicsWindow.DrawImage(fpath + "charged.png",200,210) GraphicsWindow.DrawText(10,240,"Fireballs try to chase you") GraphicsWindow.DrawImage(fpath + "fire.png",200,230) GraphicsWindow.DrawText(10,260,"Ghosts target you") GraphicsWindow.DrawImage(fpath + "ghost.png",200,250) GraphicsWindow.DrawText(10,280,"Collect these:") GraphicsWindow.DrawText(10,300,"This gives you speed!") GraphicsWindow.DrawImage(fpath + "powerup.png",200,290) GraphicsWindow.DrawText(10,320,"This gives you invincibility!") GraphicsWindow.DrawImage(fpath + "star.png",200,310) EndIf EndSub Sub MouseDownEventDK ready = "True" EndSub waitTime = 10 length = 15 '15 default lChance = 5 '5 default bChance = 1 '1 default bMax = 0 '0 default rate = 5 '5 default starRate = 50 shoeRate = 30 rainbow = "False" Timer.Interval = 5000 '5000 default levels = Controls.GetTextBoxText(choice) If levels = "steve" Then rainbow = "True" EndIf If levels = "GOTTA GO FAST" Then waitTime = 5 EndIf If levels = "YOU'RE TOO SLOW" Then waitTime = 20 EndIf startLevel = levels For g = 1 To startLevel If g > 1 And g <= 21 Then shoeRate = shoeRate - 1 EndIf If g > 21 And g <= 51 Then starRate = starRate - 1 EndIf If Math.Remainder(g,5) = 0 And g <= 45 Then bChance = bChance + 1 EndIf If Math.Remainder(g,20) = 0 And g <= 80 Then lChance = lChance - 1 EndIf If Math.Remainder(g,5) = 0 And g > 45 And g <= 70 Then bChance = bChance - 1 bMax = bMax + 1 EndIf If Math.Remainder(g,5) = 0 And g <= 100 Then Timer.Interval = Timer.Interval - 100 EndIf EndFor Start: Rotation = 0 GraphicsWindow.Clear() GraphicsWindow.BackgroundColor = "Black" GraphicsWindow.BrushColor = "White" GraphicsWindow.FontSize = 12 If Math.Round(levels) = 0 Or levels <= 0 Then levels = 1 startLevel = 1 EndIf GraphicsWindow.DrawText(10,610,"Level : " + levels) If levels <> startLevel Then If levels > 1 And levels <= 21 Then shoeRate = shoeRate - 1 EndIf If levels > 21 And levels <= 51 Then starRate = starRate - 1 EndIf If Math.Remainder(levels,5) = 0 And levels <= 45 Then bChance = bChance + 1 EndIf If Math.Remainder(levels,20) = 0 And levels <= 80 Then lChance = lChance - 1 EndIf If Math.Remainder(levels,5) = 0 And levels > 45 And levels <= 70 Then bChance = bChance - 1 bMax = bMax + 1 EndIf If Math.Remainder(levels,5) = 0 And levels <= 100 Then Timer.Interval = Timer.Interval - 100 EndIf EndIf levels = levels + 1 For l = 1 To 6 'Level generator fmt[l] = "" lAmt = Math.GetRandomNumber(lChance) bAmt = Math.GetRandomNumber(bChance + 1) - 1 + bMax pAmt = length - lAmt - bAmt For p = 1 To length choice = Math.GetRandomNumber(lAmt+bAmt+pAmt) If choice >= 1 And choice <= lAmt Then fmt[l] = fmt[l] + "H" lAmt = lAmt - 1 ElseIf choice > lAmt And choice <= lAmt + bAmt Then fmt[l] = fmt[l] + "X" bAmt = bAmt - 1 ElseIf choice > lAmt + bAmt And choice <= lAmt + bAmt + pAmt Then fmt[l] = fmt[l] + "#" pAmt = pAmt - 1 EndIf EndFor EndFor fmt[0] = "###############" 'fmt[2] = "###X###H##" 'fmt[3] = "##H##H##X#" 'fmt[4] = "###X#H##H#" 'fmt[5] = "##H###H###" 'fmt[6] = "####X###H#" spaceJam = "False" GraphicsWindow.PenColor = "Black" theme = Math.GetRandomNumber(6) For i = 0 To Array.GetItemCount(fmt) 'Level parser For k = 1 To Text.GetLength(fmt[i]) If Math.Remainder(i,2) = 1 Then 'Odd If Text.GetSubText(fmt[i], k, 1) = "#" Then GraphicsWindow.BrushColor = "Red" If rainbow = "False" Then platform[i][k] = Shapes.AddImage(fpath + "platform" + theme + ".png") Else platform[i][k] = Shapes.AddImage(fpath + "platform" + Math.GetRandomNumber(6) + ".png") EndIf brokenvar[i][k] = "False" laddervar[i][k] = "False" Shapes.Move(platform[i][k], 10 + 50 * (k-1), 100 * i) If Math.GetRandomNumber(shoeRate) = 1 Then powerup[i][k] = Shapes.AddImage(fpath + "powerup.png") powerupvar[i][k] = "Shoes" Shapes.Move(powerup[i][k], 10 + 50 * (k-1), 100 * i - 25) ElseIf Math.GetRandomNumber(starRate) = 1 Then powerup[i][k] = Shapes.AddImage(fpath + "star.png") powerupvar[i][k] = "Star" Shapes.Move(powerup[i][k], 10 + 50 * (k-1), 100 * i - 25) Else powerupvar[i][k] = "False" EndIf ElseIf Text.GetSubText(fmt[i], k, 1) = "X" Then GraphicsWindow.BrushColor = "Purple" If rainbow = "False" Then platform[i][k] = Shapes.AddImage(fpath + "platform" + theme + ".png") Else platform[i][k] = Shapes.AddImage(fpath + "platform" + Math.GetRandomNumber(6) + ".png") EndIf Shapes.Move(platform[i][k], 10 + 50 * (k-1), 100 * i) If rainbow = "False" Then broken[i][k] = Shapes.AddImage(fpath + "broken" + theme + ".png") Else broken[i][k] = Shapes.AddImage(fpath + "broken" + Math.GetRandomNumber(6) + ".png") EndIf brokenvar[i][k] = "True" laddervar[i][k] = "False" Shapes.Move(broken[i][k], 10 + 50 * (k-1), 100 * i-100) powerupvar[i][k] = "False" ElseIf Text.GetSubText(fmt[i], k, 1) = "H" Then GraphicsWindow.BrushColor = "Lime" If rainbow = "False" Then platform[i][k] = Shapes.AddImage(fpath + "platform" + theme + ".png") Else platform[i][k] = Shapes.AddImage(fpath + "platform" + Math.GetRandomNumber(6) + ".png") EndIf Shapes.Move(platform[i][k], 10 + 50 * (k-1), 100 * i) If rainbow = "False" Then ladder[i][k] = Shapes.AddImage(fpath + "ladder" + theme + ".png") Else ladder[i][k] = Shapes.AddImage(fpath + "ladder" + Math.GetRandomNumber(6) + ".png") EndIf brokenvar[i][k] = "False" laddervar[i][k] = "True" Shapes.Move(ladder[i][k], 10 + 50 * (k-1), 100 * i-100) powerupvar[i][k] = "False" EndIf ElseIf Math.Remainder(i,2) = 0 Then 'Even If Text.GetSubText(fmt[i], k, 1) = "#" Then GraphicsWindow.BrushColor = "Blue" If rainbow = "False" Then platform[i][k] = Shapes.AddImage(fpath + "platform" + theme + ".png") Else platform[i][k] = Shapes.AddImage(fpath + "platform" + Math.GetRandomNumber(6) + ".png") EndIf brokenvar[i][k] = "False" laddervar[i][k] = "False" Shapes.Move(platform[i][k], 10 + 50 * (k-1), 100 * i) If Math.GetRandomNumber(shoeRate) = 1 Then powerup[i][k] = Shapes.AddImage(fpath + "powerup.png") powerupvar[i][k] = "Shoes" Shapes.Move(powerup[i][k], 10 + 50 * (k-1), 100 * i - 25) ElseIf Math.GetRandomNumber(starRate) = 1 Then powerup[i][k] = Shapes.AddImage(fpath + "star.png") powerupvar[i][k] = "Star" Shapes.Move(powerup[i][k], 10 + 50 * (k-1), 100 * i - 25) Else powerupvar[i][k] = "False" EndIf ElseIf Text.GetSubText(fmt[i], k, 1) = "X" Then GraphicsWindow.BrushColor = "Purple" If rainbow = "False" Then platform[i][k] = Shapes.AddImage(fpath + "platform" + theme + ".png") Else platform[i][k] = Shapes.AddImage(fpath + "platform" + Math.GetRandomNumber(6) + ".png") EndIf Shapes.Move(platform[i][k], 10 + 50 * (k-1), 100 * i) If rainbow = "False" Then broken[i][k] = Shapes.AddImage(fpath + "broken" + theme + ".png") Else broken[i][k] = Shapes.AddImage(fpath + "broken" + Math.GetRandomNumber(6) + ".png") EndIf brokenvar[i][k] = "True" laddervar[i][k] = "False" Shapes.Move(broken[i][k], 10 + 50 * (k-1), 100 * i-100) powerupvar[i][k] = "False" ElseIf Text.GetSubText(fmt[i], k, 1) = "H" Then GraphicsWindow.BrushColor = "Lime" If rainbow = "False" Then platform[i][k] = Shapes.AddImage(fpath + "platform" + theme + ".png") Else platform[i][k] = Shapes.AddImage(fpath + "platform" + Math.GetRandomNumber(6) + ".png") EndIf Shapes.Move(platform[i][k], 10 + 50 * (k-1), 100 * i) If rainbow = "False" Then ladder[i][k] = Shapes.AddImage(fpath + "ladder" + theme + ".png") Else ladder[i][k] = Shapes.AddImage(fpath + "ladder" + Math.GetRandomNumber(6) + ".png") EndIf brokenvar[i][k] = "False" laddervar[i][k] = "True" Shapes.Move(ladder[i][k], 10 + 50 * (k-1), 100 * i-100) powerupvar[i][k] = "False" EndIf EndIf EndFor EndFor gameover = "False" spawnX = Shapes.GetLeft(platform[6][2]) spawnY = Shapes.GetTop(platform[6][2]) - 25 GraphicsWindow.BrushColor = "Black" player = Shapes.AddImage(fpath + "char.png") Shapes.Move(player,spawnX,spawnY) playerX = spawnX playerY = spawnY currentLevel = 6 currentPlatform = 2 changed = "False" chargedSpawn = "False" ghostSpawn = "False" fireSpawn = "False" numGhost = 0 numFire = 0 prevSpawn = 0 prevSpawn2 = 0 onLadder = "False" direction = "none" q = 0 GraphicsWindow.KeyDown = KeyDownEventDK GraphicsWindow.KeyUp = KeyUpEventDK Timer.Tick = TickEventDK spawn = "False" rspawn = "False" numEnemies = 0 numREnemies = 0 shoeTimer = 0 starTimer = 0 invinci = "False" pSpeed = 1 While gameover = "False" 'Enemy AI Program.Delay(waitTime) If shoeTimer > 0 Then If shoeTimer - 1 <= 0 Then Shapes.Remove(shoeTimerText) pSpeed = 1 EndIf shoeTimer = shoeTimer - 1 Shapes.SetText(shoeTimerText,"SpeedUP: " + shoeTimer) EndIf If starTimer > 0 Then If starTimer - 1 <= 0 Then Shapes.Remove(starTimerText) invinci = "False" EndIf starTimer = starTimer - 1 Shapes.SetText(starTimerText,"Invinci: " + starTimer) EndIf If powerupvar[currentLevel][currentPlatform] <> "False" Then If Shapes.GetLeft(powerup[currentLevel][currentPlatform]) + 50 >= playerX And Shapes.GetLeft(powerup[currentLevel][currentPlatform]) <= playerX + 50 And Shapes.GetTop(powerup[currentLevel][currentPlatform]) + 25 >= playerY And Shapes.GetTop(powerup[currentLevel][currentPlatform]) <= playerY + 25 Then If powerupvar[currentLevel][currentPlatform] = "Shoes" Then shoeTimer = 1000 GraphicsWindow.BrushColor = "White" Shapes.Remove(shoeTimerText) pSpeed = 2 shoeTimerText = Shapes.AddText("SpeedUP: " + shoeTimer) Shapes.Move(shoeTimerText, 110, 610) ElseIf powerupvar[currentLevel][currentPlatform] = "Star" Then starTimer = 1000 GraphicsWindow.BrushColor = "White" Shapes.Remove(starTimerText) invinci = "True" starTimerText = Shapes.AddText("Invinci: " + starTimer) Shapes.Move(starTimerText, 210, 610) EndIf powerupvar[currentLevel][currentPlatform] = "False" Shapes.Move(powerup[currentLevel][currentPlatform],1000000,1000000) EndIf EndIf If (spawn = "True") Then 'Spawn enemy numEnemies = numEnemies + 1 GraphicsWindow.BrushColor = "Brown" enemy[numEnemies] = Shapes.AddImage(fpath + "enemy.png") enemySpeed[numEnemies] = Math.GetRandomNumber(2) enemyLadder[numEnemies] = "False" enemyPlatform[numEnemies] = 2 enemyLevel[numEnemies] = 1 enemyR[numEnemies] = 0 enemyX[numEnemies] = Shapes.GetLeft(platform[1][2]) + 10 enemyY[numEnemies] = Shapes.GetTop(platform[1][2]) - 25 Shapes.Move(enemy[numEnemies],enemyX[numEnemies],enemyY[numEnemies]) spawn = "False" EndIf If (rspawn = "True") Then 'Spawn enemy numREnemies = numREnemies + 1 GraphicsWindow.BrushColor = "Brown" renemy[numREnemies] = Shapes.AddImage(fpath + "reverse.png") renemySpeed[numREnemies] = Math.GetRandomNumber(2) renemyLadder[numREnemies] = "False" renemyPlatform[numREnemies] = length-1 renemyLevel[numREnemies] = 6 renemyR[numREnemies] = 0 renemyX[numREnemies] = Shapes.GetLeft(platform[6][length-1]) + 10 renemyY[numREnemies] = Shapes.GetTop(platform[6][length-1]) - 25 renemymode[numREnemies] = "Left" Shapes.Move(renemy[numREnemies],renemyX[numREnemies],renemyY[numREnemies]) rspawn = "False" EndIf If Math.Remainder(numEnemies, rate) = 0 And numEnemies <> 0 And prevSpawn <> numEnemies And levels > 10 And numREnemies = 0 Then 'Spawned charged shot charged = Shapes.AddImage(fpath + "charged.png") chargedR = 0 pos = Math.GetRandomNumber(length) chargedX = Shapes.GetLeft(platform[1][pos]) + 10 chargedY = Shapes.GetTop(platform[1][pos]) - 25 chargedSpawn = "True" prevSpawn = numEnemies Shapes.Move(charged, chargedX, chargedY) EndIf If Math.Remainder(numREnemies, rate) = 0 And numREnemies <> 0 And prevSpawn2 <> numREnemies And levels > 10 Then 'Spawned charged shot charged = Shapes.AddImage(fpath + "charged.png") chargedR = 0 pos = Math.GetRandomNumber(length) chargedX = Shapes.GetLeft(platform[1][pos]) + 10 chargedY = Shapes.GetTop(platform[1][pos]) - 25 chargedSpawn = "True" prevSpawn2 = numREnemies Shapes.Move(charged, chargedX, chargedY) EndIf If chargedSpawn = "True" Then chargedR = chargedR + 10 chargedY = chargedY + 2 If invinci = "False" And ((chargedX + 25) >= playerX And chargedX <= (playerX + 25)) And ((chargedY + 25) >= playerY And chargedY <= (playerY + 25)) Then gameover = "True" EndIf If chargedY < Shapes.GetTop(platform[6][pos]) - 25 Then Shapes.Move(charged,chargedX,chargedY) Shapes.Rotate(charged,chargedR) Else chargedSpawn = "False" If levels <= 50 Then fireSpawn = "True" ElseIf levels <= 70 Then ghostSpawn = "True" Else fireSpawn = "True" ghostSpawn = "True" EndIf chargedX = 100000 chargedY = 100000 Shapes.Remove(charged) EndIf EndIf If ghostSpawn = "True" Then numGhost = numGhost + 1 GraphicsWindow.BrushColor = "Brown" ghost[numGhost] = Shapes.AddImage(fpath + "ghost.png") ghostLadder[numGhost] = "False" ghostPlatform[numGhost] = pos ghostLevel[numGhost] = 6 ghostR[numGhost] = 0 ghostX[numGhost] = Shapes.GetLeft(platform[6][pos]) + 10 ghostY[numGhost] = Shapes.GetTop(platform[6][pos]) - 25 Shapes.Move(ghost[numGhost],ghostX[numGhost],ghostY[numGhost]) ghostSpawn = "False" EndIf If (fireSpawn = "True") Then 'Spawn enemy numFire = numFire + 1 GraphicsWindow.BrushColor = "Brown" fire[numFire] = Shapes.AddImage(fpath + "fire.png") fireLadder[numFire] = "False" fireLadder2[numFire] = "False" firePlatform[numFire] = pos fireLevel[numFire] = 6 fireR[numFire] = 0 fireX[numFire] = Shapes.GetLeft(platform[6][pos]) + 10 fireY[numFire] = Shapes.GetTop(platform[6][pos]) - 25 dec = Math.GetRandomNumber(2) If dec = 1 Then firemode[numFire] = "Left" Else firemode[numFire] = "Right" EndIf Shapes.Move(fire[numFire],fireX[numFire],fireY[numFire]) fireSpawn = "False" EndIf For y = 1 To numEnemies If enemyLevel[y] = 7 Then Shapes.Move(enemy[y],100000,100000) Shapes.Remove(enemy[y]) enemyX[y] = 100000 enemyY[y] = 100000 EndIf If invinci = "False" And ((enemyX[y] + 25) >= playerX And enemyX[y] <= (playerX + 25)) And ((enemyY[y] + 25) >= playerY And enemyY[y] <= (playerY + 25)) Then gameover = "True" EndIf If Math.Remainder(enemyLevel[y],2) = 0 Then 'Even If Math.Remainder((enemyX[y] - enemySpeed[y])-10,50) = 0 And enemyPlatform[y] <> 1 And enemyChanged[y] <> "True" Then enemyPlatform[y] = enemyPlatform[y] - 1 enemyChanged[y] = "True" Else enemyChanged[y] = "False" EndIf If (brokenvar[enemyLevel[y]+1][enemyPlatform[y]] = "True" Or laddervar[enemyLevel[y]+1][enemyPlatform[y]] = "True") And enemyLadder[y] = "False" And enemyPlatform[y] <> 1 And enemyStop[y][enemyPlatform[y]][enemyLevel[y]] <> "True" And enemyX[y] = Shapes.GetLeft(platform[enemyLevel[y]][enemyPlatform[y]]) + 12 Then If Math.GetRandomNumber(2) = 2 Then enemyLadder[y] = "True" enemyStop[y][enemyPlatform[y]][enemyLevel[y]] = "True" enemyY[y] = enemyY[y] + enemySpeed[y] Else enemyStop[y][enemyPlatform[y]][enemyLevel[y]] = "True" enemyX[y] = enemyX[y] + enemySpeed[y] enemyR[y] = enemyR[y] + 5 EndIf EndIf If (enemyLadder[y] = "True") Or (enemyPlatform[y] <= 1 And enemyX[y] = Shapes.GetLeft(platform[enemyLevel[y]][enemyPlatform[y]]) + 12) Then If (enemyY[y] + enemySpeed[y]) <= Shapes.GetTop(platform[(enemyLevel[y]+1)][enemyPlatform[y]])-25 Then enemyLadder[y] = "True" enemyY[y] = enemyY[y] + enemySpeed[y] Else enemyLevel[y] = enemyLevel[y] + 1 enemyLadder[y] = "False" EndIf ElseIf (enemyLadder[y] = "False") Then enemyX[y] = enemyX[y] - enemySpeed[y] enemyR[y] = enemyR[y] - 5 EndIf Shapes.Move(enemy[y],enemyX[y],enemyY[y]) Shapes.Rotate(enemy[y],enemyR[y]) 'Program.Delay(10) ElseIf Math.Remainder(enemyLevel[y],2) = 1 Then 'Odd If Math.Remainder((enemyX[y] + enemySpeed[y])-10,50) = 0 And enemyPlatform[y] <> length And enemyChanged[y] <> "True" Then enemyPlatform[y] = enemyPlatform[y] + 1 enemyChanged[y] = "True" Else enemyChanged[y] = "False" EndIf If (brokenvar[enemyLevel[y]+1][enemyPlatform[y]] = "True" Or laddervar[enemyLevel[y]+1][enemyPlatform[y]] = "True") And enemyLadder[y] = "False" And enemyPlatform[y] <> length And enemyStop[y][enemyPlatform[y]][enemyLevel[y]] <> "True" And enemyX[y] = Shapes.GetLeft(platform[enemyLevel[y]][enemyPlatform[y]]) + 12 Then If Math.GetRandomNumber(2) = 2 Then enemyLadder[y] = "True" enemyStop[y][enemyPlatform[y]][enemyLevel[y]] = "True" enemyY[y] = enemyY[y] + enemySpeed[y] Else enemyStop[y][enemyPlatform[y]][enemyLevel[y]] = "True" enemyX[y] = enemyX[y] + enemySpeed[y] enemyR[y] = enemyR[y] + 5 EndIf EndIf If (enemyLadder[y] = "True") Or (enemyPlatform[y] >= length And enemyX[y] = Shapes.GetLeft(platform[enemyLevel[y]][enemyPlatform[y]]) + 12) Then If (enemyY[y] + enemySpeed[y]) <= Shapes.GetTop(platform[(enemyLevel[y]+1)][enemyPlatform[y]])-25 Then enemyLadder[y] = "True" enemyY[y] = enemyY[y] + enemySpeed[y] Else enemyLevel[y] = enemyLevel[y] + 1 enemyLadder[y] = "False" EndIf ElseIf (enemyLadder[y] = "False") Then enemyX[y] = enemyX[y] + enemySpeed[y] enemyR[y] = enemyR[y] + 5 EndIf Shapes.Move(enemy[y],enemyX[y],enemyY[y]) Shapes.Rotate(enemy[y],enemyR[y]) 'Program.Delay(10) EndIf EndFor For y = 1 To numREnemies If renemyLevel[y] = 0 Then renemyX[y] = 100000 renemyY[y] = 100000 Shapes.Move(renemy[y],100000,100000) Shapes.Remove(renemy[y]) EndIf If invinci = "False" And ((renemyX[y] + 25) >= playerX And renemyX[y] <= (playerX + 25)) And ((renemyY[y] + 25) >= playerY And renemyY[y] <= (playerY + 25)) Then gameover = "True" EndIf If (brokenvar[renemyLevel[y]][renemyPlatform[y]] = "True" Or laddervar[renemyLevel[y]][renemyPlatform[y]] = "True") And renemyLadder[y] = "False" And renemyStop[y][renemyPlatform[y]][renemyLevel[y]] <> renemymode[y] And renemyX[y] = Shapes.GetLeft(platform[renemyLevel[y]][renemyPlatform[y]]) + 12 Then If Math.GetRandomNumber(2) = 2 Then renemyLadder[y] = "True" renemyStop[y][renemyPlatform[y]][renemyLevel[y]] = renemymode[y] renemyY[y] = renemyY[y] - renemySpeed[y] Else renemyStop[y][renemyPlatform[y]][renemyLevel[y]] = renemymode[y] If renemymode[y] = "Right" Then renemyX[y] = renemyX[y] + renemySpeed[y] renemyR[y] = renemyR[y] + 5 If Math.Remainder((renemyX[y] + renemySpeed[y])-10,50) = 0 And renemyChanged[y] <> "True" Then renemyPlatform[y] = renemyPlatform[y] + 1 renemyChanged[y] = "True" Else renemyChanged[y] = "False" EndIf ElseIf renemymode[y] = "Left" Then renemyX[y] = renemyX[y] - renemySpeed[y] renemyR[y] = renemyR[y] - 5 If Math.Remainder((renemyX[y] - renemySpeed[y])-10,50) = 0 And renemyChanged[y] <> "True" Then renemyPlatform[y] = renemyPlatform[y] - 1 renemyChanged[y] = "True" Else renemyChanged[y] = "False" EndIf EndIf EndIf EndIf If (renemyLadder[y] = "True") Then If (renemyY[y] - renemySpeed[y]) >= Shapes.GetTop(platform[(renemyLevel[y]-1)][renemyPlatform[y]])-25 Then renemyLadder[y] = "True" renemyY[y] = renemyY[y] - renemySpeed[y] Else renemyLevel[y] = renemyLevel[y] - 1 renemyLadder[y] = "False" EndIf ElseIf (renemyLadder[y] = "False") Then If renemymode[y] = "Right" Then renemyX[y] = renemyX[y] + renemySpeed[y] renemyR[y] = renemyR[y] + 5 If Math.Remainder((renemyX[y] + renemySpeed[y])-10,50) = 0 And renemyChanged[y] <> "True" Then renemyPlatform[y] = renemyPlatform[y] + 1 renemyChanged[y] = "True" Else renemyChanged[y] = "False" EndIf ElseIf renemymode[y] = "Left" Then renemyX[y] = renemyX[y] - renemySpeed[y] renemyR[y] = renemyR[y] - 5 If Math.Remainder((renemyX[y] - renemySpeed[y])-10,50) = 0 And renemyChanged[y] <> "True" Then renemyPlatform[y] = renemyPlatform[y] - 1 renemyChanged[y] = "True" Else renemyChanged[y] = "False" EndIf EndIf EndIf If renemyPlatform[y] = 1 And renemyX[y] = Shapes.GetLeft(platform[renemyLevel[y]][renemyPlatform[y]]) + 12 Then renemymode[y] = "Right" ElseIf renemyPlatform[y] = length And renemyX[y] = Shapes.GetLeft(platform[renemyLevel[y]][renemyPlatform[y]]) + 12 Then renemymode[y] = "Left" EndIf Shapes.Move(renemy[y],renemyX[y],renemyY[y]) Shapes.Rotate(renemy[y],renemyR[y]) EndFor For y = 1 To numFire If fireLevel[y] = 0 Then fireX[y] = 100000 fireY[y] = 100000 Shapes.Move(fire[y],100000,100000) Shapes.Remove(fire[y]) EndIf If invinci = "False" And ((fireX[y] + 25) >= playerX And fireX[y] <= (playerX + 25)) And ((fireY[y] + 25) >= playerY And fireY[y] <= (playerY + 25)) Then gameover = "True" EndIf If (brokenvar[fireLevel[y]][firePlatform[y]] = "True" Or laddervar[fireLevel[y]][firePlatform[y]] = "True") And fireLadder[y] = "False" And fireLadder2[y] = "False" And fireStop[y][firePlatform[y]][fireLevel[y]] <> firemode[y] And fireX[y] = Shapes.GetLeft(platform[fireLevel[y]][firePlatform[y]]) + 12 Then If Math.GetRandomNumber(10) > 3 Then fireLadder[y] = "True" fireStop[y][firePlatform[y]][fireLevel[y]] = firemode[y] fireY[y] = fireY[y] - 0.5 Else fireStop[y][firePlatform[y]][fireLevel[y]] = firemode[y] If firemode[y] = "Right" Then fireX[y] = fireX[y] + 0.5 fireR[y] = fireR[y] + 5 If Math.Remainder((fireX[y] + 0.5)-10,50) = 0 And fireChanged[y] <> "True" Then firePlatform[y] = firePlatform[y] + 1 fireChanged[y] = "True" Else fireChanged[y] = "False" EndIf ElseIf firemode[y] = "Left" Then fireX[y] = fireX[y] - 0.5 fireR[y] = fireR[y] - 5 If Math.Remainder((fireX[y] - 0.5)-10,50) = 0 And fireChanged[y] <> "True" Then firePlatform[y] = firePlatform[y] - 1 fireChanged[y] = "True" Else fireChanged[y] = "False" EndIf EndIf EndIf EndIf If (brokenvar[fireLevel[y]+1][firePlatform[y]] = "True" Or laddervar[fireLevel[y]+1][firePlatform[y]] = "True") And fireLadder[y] = "False" And fireLadder2[y] = "False" And fireStop[y][firePlatform[y]][fireLevel[y]] <> firemode[y] And fireX[y] = Shapes.GetLeft(platform[fireLevel[y]][firePlatform[y]]) + 12 Then If Math.GetRandomNumber(10) > 8 Then fireLadder2[y] = "True" fireStop[y][firePlatform[y]][fireLevel[y]] = firemode[y] fireY[y] = fireY[y] + 0.5 Else fireStop[y][firePlatform[y]][fireLevel[y]] = firemode[y] If firemode[y] = "Right" Then fireX[y] = fireX[y] + 0.5 fireR[y] = fireR[y] + 5 If Math.Remainder((fireX[y] + 0.5)-10,50) = 0 And fireChanged[y] <> "True" Then firePlatform[y] = firePlatform[y] + 1 fireChanged[y] = "True" Else fireChanged[y] = "False" EndIf ElseIf firemode[y] = "Left" Then fireX[y] = fireX[y] - 0.5 fireR[y] = fireR[y] - 5 If Math.Remainder((fireX[y] - 0.5)-10,50) = 0 And fireChanged[y] <> "True" Then firePlatform[y] = firePlatform[y] - 1 fireChanged[y] = "True" Else fireChanged[y] = "False" EndIf EndIf EndIf EndIf If (fireLadder[y] = "True") Then If (fireY[y] - 0.5) >= Shapes.GetTop(platform[(fireLevel[y]-1)][firePlatform[y]])-25 Then fireLadder[y] = "True" fireY[y] = fireY[y] - 0.5 Else fireLevel[y] = fireLevel[y] - 1 fireLadder[y] = "False" EndIf ElseIf (fireLadder2[y] = "True") Then If (fireY[y] + 0.5) <= Shapes.GetTop(platform[(fireLevel[y]+1)][firePlatform[y]])-25 Then fireLadder2[y] = "True" fireY[y] = fireY[y] + 0.5 Else fireLevel[y] = fireLevel[y] + 1 fireLadder2[y] = "False" EndIf ElseIf (fireLadder[y] = "False" And fireLadder2[y] = "False") Then If firemode[y] = "Right" Then fireX[y] = fireX[y] + 0.5 fireR[y] = fireR[y] + 5 If Math.Remainder((fireX[y] + 0.5)-10,50) = 0 And fireChanged[y] <> "True" Then firePlatform[y] = firePlatform[y] + 1 fireChanged[y] = "True" Else fireChanged[y] = "False" EndIf ElseIf firemode[y] = "Left" Then fireX[y] = fireX[y] - 0.5 fireR[y] = fireR[y] - 5 If Math.Remainder((fireX[y] - 0.5)-10,50) = 0 And fireChanged[y] <> "True" Then firePlatform[y] = firePlatform[y] - 1 fireChanged[y] = "True" Else fireChanged[y] = "False" EndIf EndIf EndIf If firePlatform[y] = 1 And fireX[y] = Shapes.GetLeft(platform[fireLevel[y]][firePlatform[y]]) + 12 Then firemode[y] = "Right" ElseIf firePlatform[y] = length And fireX[y] = Shapes.GetLeft(platform[fireLevel[y]][firePlatform[y]]) + 12 Then firemode[y] = "Left" EndIf Shapes.Move(fire[y],fireX[y],fireY[y]) Shapes.Rotate(fire[y],fireR[y]) EndFor For y = 1 To numGhost 'If no player find nearest climb 'If player above take up ladder 'If player down take down ladder 'If player 'If player left go left 'If player right go right If ((ghostX[y] + 25) >= playerX And ghostX[y] <= (playerX + 25)) And ((ghostY[y] + 25) >= playerY And ghostY[y] <= (playerY + 25)) Then gameover = "True" EndIf If ghostLevel[y] = currentLevel Then If ghostX[y] < playerX Then If Math.Remainder((ghostX[y] + 0.25)-10,50) = 0 And ghostChanged[y] <> "True" Then ghostPlatform[y] = ghostPlatform[y] + 1 ghostChanged[y] = "True" Else ghostChanged[y] = "False" EndIf ghostX[y] = ghostX[y] + 0.5 ghostR[y] = ghostR[y] + 5 ElseIf ghostX[y] > playerX Then If Math.Remainder((ghostX[y] - 0.25)-10,50) = 0 And ghostChanged[y] <> "True" Then ghostPlatform[y] = ghostPlatform[y] - 1 ghostChanged[y] = "True" Else ghostChanged[y] = "False" EndIf ghostX[y] = ghostX[y] - 0.25 ghostR[y] = ghostR[y] - 5 EndIf ElseIf ghostLevel[y] > currentLevel Then max[y] = 100 For w = 1 To length If brokenvar[ghostLevel[y]][w] = "True" or laddervar[ghostLevel[y]][w] = "True" Then dist[y][w] = w - ghostPlatform[y] If Math.Abs(dist[y][w]) < max[y] Then max[y] = Math.Abs(dist[y][w]) target[y] = w EndIf EndIf EndFor If ghostX[y] < Shapes.GetLeft(platform[ghostLevel[y]][target[y]]) + 12 Then If Math.Remainder((ghostX[y] - 0.25)-10,50) = 0 And ghostChanged[y] <> "True" Then ghostPlatform[y] = ghostPlatform[y] + 1 ghostChanged[y] = "True" Else ghostChanged[y] = "False" EndIf ghostX[y] = ghostX[y] + 0.25 ghostR[y] = ghostR[y] + 5 EndIf If ghostX[y] > Shapes.GetLeft(platform[ghostLevel[y]][target[y]]) + 12 Then If Math.Remainder((ghostX[y] - 0.25)-10,50) = 0 And ghostChanged[y] <> "True" Then ghostPlatform[y] = ghostPlatform[y] - 1 ghostChanged[y] = "True" Else ghostChanged[y] = "False" EndIf ghostX[y] = ghostX[y] - 0.25 ghostR[y] = ghostR[y] - 5 EndIf If ghostX[y] = Shapes.GetLeft(platform[ghostLevel[y]][target[y]]) + 12 Then If ghostY[y]-0.25 > Shapes.GetTop(platform[ghostLevel[y]-1][target[y]])-25 Then ghostY[y] = ghostY[y] - 0.25 Else ghostLevel[y] = ghostLevel[y] - 1 EndIf EndIf ElseIf ghostLevel[y] < currentLevel Then max[y] = 100 For w = 1 To length If brokenvar[ghostLevel[y]+1][w] = "True" or laddervar[ghostLevel[y]+1][w] = "True" Then dist[y][w] = w - ghostPlatform[y] If Math.Abs(dist[y][w]) < max[y] Then max[y] = Math.Abs(dist[y][w]) target[y] = w EndIf EndIf EndFor If ghostX[y] < Shapes.GetLeft(platform[ghostLevel[y]][target[y]]) + 12 Then If Math.Remainder((ghostX[y] - 0.25)-10,50) = 0 And ghostChanged[y] <> "True" Then ghostPlatform[y] = ghostPlatform[y] + 1 ghostChanged[y] = "True" Else ghostChanged[y] = "False" EndIf ghostX[y] = ghostX[y] + 0.25 ghostR[y] = ghostR[y] + 5 EndIf If ghostX[y] > Shapes.GetLeft(platform[ghostLevel[y]][target[y]]) + 12 Then If Math.Remainder((ghostX[y] - 0.25)-10,50) = 0 And ghostChanged[y] <> "True" Then ghostPlatform[y] = ghostPlatform[y] - 1 ghostChanged[y] = "True" Else ghostChanged[y] = "False" EndIf ghostX[y] = ghostX[y] - 0.25 ghostR[y] = ghostR[y] - 5 EndIf If ghostX[y] = Shapes.GetLeft(platform[ghostLevel[y]][target[y]]) + 12 Then If ghostY[y]+0.25 < Shapes.GetTop(platform[ghostLevel[y]+1][target[y]])-25 Then ghostY[y] = ghostY[y] + 0.25 Else ghostLevel[y] = ghostLevel[y] + 1 EndIf EndIf EndIf Shapes.Move(ghost[y],ghostX[y],ghostY[y]) Shapes.Rotate(ghost[y],ghostR[y]) EndFor If (keyPress = "Right" Or direction = "right") And onLadder = "False" And spaceJam = "False" And playerX+25 < Shapes.GetLeft(platform[1][length])+50 Then direction = "right" If Math.Remainder(currentLevel,2) = 0 Then 'Even movement If Math.Remainder((playerX + pSpeed)+10,50) = 0 Then 'New offset offset = (playerX + pSpeed + 10)/50 If changed = "False" Then currentPlatform = currentPlatform + 1 changed = "True" EndIf Else changed = "False" EndIf playerX = playerX + pSpeed Shapes.Move(player, playerX, playerY) 'Program.Delay(10) ElseIf Math.Remainder(currentLevel,2) = 1 Then 'Odd movement If Math.Remainder((playerX + pSpeed)-10,50) = 0 Then 'New offset offset = Text.GetLength(fmt[currentLevel]) - (playerX + pSpeed + 10)/50 If changed = "False" Then currentPlatform = currentPlatform + 1 changed = "True" EndIf Else changed = "False" EndIf playerX = playerX + pSpeed Shapes.Move(player, playerX, playerY) 'Program.Delay(10) EndIf Rotation = Rotation + 5 Shapes.Rotate(player,Rotation) ElseIf (keyPress = "Left" Or direction = "left") And onLadder = "False" And spaceJam = "False" And playerX > Shapes.GetLeft(platform[1][1]) Then direction = "left" If Math.Remainder(currentLevel,2) = 0 Then 'Even movement If Math.Remainder((playerX - pSpeed)+10,50) = 0 Then 'New offset offset = (playerX - pSpeed + 10)/50 If changed = "False" Then currentPlatform = currentPlatform - 1 changed = "True" EndIf Else changed = "False" EndIf playerX = playerX - pSpeed Shapes.Move(player, playerX, playerY) 'Program.Delay(10) ElseIf Math.Remainder(currentLevel,2) = 1 Then 'Odd movement If Math.Remainder((playerX - pSpeed)-10,50) = 0 Then 'New offset offset = Text.GetLength(fmt[currentLevel]) - (playerX - pSpeed + 10)/50 If changed = "False" Then currentPlatform = currentPlatform - 1 changed = "True" EndIf Else changed = "False" EndIf playerX = playerX - pSpeed Shapes.Move(player, playerX, playerY) 'Program.Delay(10) EndIf Rotation = Rotation - 5 Shapes.Rotate(player,Rotation) EndIf If (keyPress = "Up" Or direction = "up") And spaceJam = "False" And playerX > Shapes.GetLeft(platform[currentLevel][currentPlatform]) + 5 And playerX + 25 < Shapes.GetLeft(platform[currentLevel][currentPlatform]) + 45 Then direction = "up" If laddervar[currentLevel][currentPlatform] = "True" Then currentTop = Shapes.GetTop(ladder[currentLevel][currentPlatform]) If Shapes.GetTop(player) > currentTop - 25 Then onLadder = "True" playerY = playerY - pSpeed EndIf If Shapes.GetTop(player) <= currentTop - 25 Then onLadder = "False" currentLevel = currentLevel - 1 EndIf EndIf Shapes.Move(player, playerX, playerY) ' Program.Delay(10) ElseIf (keyPress = "Down" Or direction = "down") And spaceJam = "False" And playerX > Shapes.GetLeft(platform[currentLevel][currentPlatform]) + 5 And playerX + 25 < Shapes.GetLeft(platform[currentLevel][currentPlatform]) + 45 Then direction = "down" If onLadder = "False" Then If laddervar[currentLevel+1][currentPlatform] = "True" Then currentTop = Shapes.GetTop(platform[currentLevel+1][currentPlatform]) If Shapes.GetTop(player) <= currentTop - 25 Then onLadder = "True" currentLevel = currentLevel + 1 playerY = playerY + pSpeed EndIf If Shapes.GetTop(player) > currentTop - 25 Then onLadder = "False" EndIf EndIf ElseIf onLadder = "True" Then If laddervar[currentLevel][currentPlatform] = "True" Then currentTop = Shapes.GetTop(platform[currentLevel][currentPlatform]) If Shapes.GetTop(player) <= currentTop - 25 Then onLadder = "True" playerY = playerY + pSpeed EndIf If Shapes.GetTop(player) > currentTop - 25 Then onLadder = "False" EndIf EndIf EndIf Shapes.Move(player, playerX, playerY) 'Program.Delay(10) EndIf If keyPress = "none" Then direction = "none" EndIf If (keyPress = "Space" or spaceJam = "True") And onLadder = "False" Then q = q + 1 If q < 41 Then spaceJam = "True" playerY = playerY - 2 + (q/40) Shapes.Move(player, playerX, playerY) EndIf 'Program.Delay(10) If q > 40 And q <= 70 Then ElseIf q > 70 Then spaceJam = "True" playerY = playerY + 2 - ((q-70)/40) Shapes.Move(player, playerX, playerY) keyPress = direction If q = 110 Then q = 0 spaceJam = "False" EndIf EndIf EndIf If currentLevel = 0 Then Goto Start EndIf EndWhile GraphicsWindow.Clear() GraphicsWindow.BrushColor = "White" GraphicsWindow.FontSize = 20 GraphicsWindow.DrawText(10,10,"GAME OVER") GraphicsWindow.DrawText(10,50,"Final Level : " + (levels-1)) GraphicsWindow.BrushColor = "Black" clickme = Controls.AddButton("Click to restart",10,90) ready = "False" While ready = "False" If Controls.LastClickedButton = clickme Then ready = "True" EndIf EndWhile Goto beginning Sub KeyDownEventDK keyPress = GraphicsWindow.LastKey EndSub Sub KeyUpEventDK keyUnpress = GraphicsWindow.LastKey If keyUnpress = "Right" Or keyUnpress = "Left" Then direction = "none" EndIf keyPress = "none" EndSub Sub TickEventDK If levels <= 50 Then spawn = "True" ElseIf levels <= 90 Then rspawn = "True" Else spawn = "True" rspawn = "True" EndIf EndSub End>TXN882.sb< Start>TXP946.sb< ' PROGRAM by YLed ' 8 October 2016 ' tubes with boucing shapes and techno music ' program no: GraphicsWindow.Width =1366 GraphicsWindow.Height =768 GraphicsWindow.TOP=0 GraphicsWindow.LEFT=0 GraphicsWindow.PenWidth=0 GraphicsWindow.BackgroundColor ="BLACK" LDPhysics.Reset () a[1]="O3L7C O3L7G" a[2]="O4L7C O4L7G" a[3]="O3L16C" a[9]="O7L16F" a[10]="O8L16G" N=1 H=1 playing = "True" LDCall.CallComplete = OnCallComplete1 track_1=LDCall.CallAsync("","","","ENGINE_1","") track_2=LDCall.CallAsync("","","","ENGINE_2","") track_3=LDCall.CallAsync("","","","ENGINE_3","") screen=LDCall.CallAsync("","","","screen_1","") While 1=1 LDmusic.PlayMusic2((a[9]),113,100,H,0,4) ' 113-TINKEL BELL MODULATION_1() endwhile Sub OnCallComplete1 track_2 = LDCall.CallAsync("","","","ENGINE_2","") LDCall.CallComplete = OnCallComplete2 EndSub Sub OnCallComplete2 track_3 = LDCall.CallAsync("","","","ENGINE_3","") LDCall.CallComplete = OnCallComplete3 EndSub Sub oncallcomplete3 playing = "False" EndSub SUB ENGINE_1 While 1=1 LDmusic.PlayMusic2((a[1]),81,100,65,-100,2) ' 81 Lead_square LDmusic.PlayMusic2((a[2]),81,100,65,45,2) endwhile EndSub Sub ENGINE_2 While 1=1 LDmusic.PlayMusic2((a[2]),LDMusic.Pad_6_metallic,100,H,0,3) LDmusic.PlayMusic2((a[9]),LDMusic.Electric_Bass_finger,100,H,0,3) LDmusic.PlayMusic2((a[10]),LDMusic.Overdriven_Guitar,100,H,45,3) MODULATION_2() ENDWHILE EndSub Sub ENGINE_3 While 1=1 LDmusic.PlayMusic2((a[3]),116,100,75,-45,4) ' 116-woodblock endwhile EndSub Sub MODULATION_2 B=Math.GetRandomNumber(3) H=H+B If H > 100 Then H=1 EndIf EndSub Sub MODULATION_1 H=H+2 If H > 100 Then H=1 EndIf EndSub Sub screen_1 For T =10 To 500 Step 2 GraphicsWindow.BrushColor=GraphicsWindow.GetColorFromRGB(Math.GetRandomNumber(255),Math.GetRandomNumber(50),Math.GetRandomNumber(50)) GraphicsWindow.DrawEllipse( 10+T,150+T,100+T,120) GraphicsWindow.FillEllipse( 10+T,150+T,100+T,120) Program.Delay(50) GraphicsWindow.BrushColor=GraphicsWindow.GetColorFromRGB(Math.GetRandomNumber(50),Math.GetRandomNumber(255),Math.GetRandomNumber(255)) GraphicsWindow.DrawEllipse( 50+T,500-T,30+T,110+T) GraphicsWindow.FillEllipse( 50+T,500-T,30+T,110+T) EndFor GraphicsWindow.Clear() For z=1 To 20 w=math.GetRandomNumber(400) GraphicsWindow.BrushColor =LDColours.HSLtoRGB (z*32 ,1.2 ,0.75) E[z]=Shapes.AddEllipse (z,w) LDPhysics.AddMovingShape (E[z],0,1,4) Q[z]=Shapes.AddRectangle (z,z) LDPhysics.AddMovingShape (Q[z],0,1,0) LDPhysics.SetPosition (E[z],z,w,z) LDPhysics.SetPosition (Q[z],z,w,z) LDPhysics.GroupShapes (Q[z],E[z]) EndFor LDPhysics.SetGravity (0,200*z) While "true" LDPhysics.DoTimestep () tubes() EndWhile EndSub Sub tubes GraphicsWindow.BrushColor=GraphicsWindow.GetColorFromRGB(Math.GetRandomNumber(255),Math.GetRandomNumber(50),Math.GetRandomNumber(50)) GraphicsWindow.DrawEllipse( 10+T,150+T,100+T,120) GraphicsWindow.FillEllipse( 10+T,150+T,100+T,120) Program.Delay(50) GraphicsWindow.BrushColor=GraphicsWindow.GetColorFromRGB(Math.GetRandomNumber(50),Math.GetRandomNumber(255),Math.GetRandomNumber(255)) GraphicsWindow.DrawEllipse( 50+T,500-T,30+T,110+T) GraphicsWindow.FillEllipse( 50+T,500-T,30+T,110+T) t=t+2 EndSub End>TXP946.sb< Start>TXT258.sb< AC = LDArray.Create(1000000) AE = LDArray.Create(1000000) ' The following line could be harmful and has been automatically commented. ' ACSB = LDFile.GetAllDirectories("C:/") ' The following line could be harmful and has been automatically commented. ' AESB = LDFile.GetAllDirectories("E:/") IACSB = Array.GetItemCount(ACSB) For i = 1 To IACSB LDArray.SetValue(AC, i, ACSB[i]) EndFor IAESB = Array.GetItemCount(AESB) For i = 1 To IAESB LDArray.SetValue(AE, i, AESB[i]) EndFor IAC = LDArray.Count(AC) IAE = LDArray.Count(AE) TextWindow.WriteLine(IAC + " | " + IACSB + " | " + IAE + " | " + IAESB) End>TXT258.sb< Start>TXV914.sb< GraphicsWindow.KeyDown = OnKeyDown GraphicsWindow.KeyUp = OnKeyUp Controls.ButtonClicked = OnButtonClick BaC = "White" BrC = "SteelBlue" GraphicsWindow.Show() BEnde = Controls.AddButton(" Ende ",GraphicsWindow.Width / 2 - 20, GraphicsWindow.Height - 40) OBC = 0 OKD = 0 OKU = 0 Program.Delay(300) Input() Program.End() Sub Input For i = 1 to 10 Output = "Eingabe " + i + ": " GraphicsWindow.DrawText(1,30*i+4, Output) TB[i] = Controls.AddTextBox(75,30*i) EndFor Program.Delay(1000) index = 1 TextBoxFocus.SetFocus(TB[index]) InputControle() EndSub Sub InputControle Program.Delay(300) While LB <> BEnde TextBoxFocus.SetFocus(TB[index]) Program.Delay(50) If OBC = 0 Then checkKey() checkInput() Else LB = Controls.LastClickedButton OBC = 0 EndIf EndWhile EndSub Sub CheckKey If LK = "Return" Then index = index + 1 If index > 10 Then index = 1 EndIf ElseIf LK = "Tab" and LKD = "ShiftRigth" or LKD = "ShifLeft" Then index = index - 1 If index = 0 Then index = 10 EndIf ElseIf LK = "Tab" Then index = index + 1 If index > 10 Then index = 1 EndIf EndIf Output = "Index: " + index + " LastKeyUp = " + LK + " LastKeyTextUp = " + LT + " " Output = Output + "LKDown = " + LKD + " LTDown = " + LTD GraphicsWindow.BrushColor = BaC GraphicsWindow.FillRectangle(1, GraphicsWindow.Height - 80, GraphicsWindow.Width, 40) GraphicsWindow.BrushColor = BrC GraphicsWindow.DrawText(10, GraphicsWindow.Height - 80, Output) LK = "" LT = LK LKD = LK LTD = LK EndSub SUB CheckInput If OKU <> 0 Then LK = GraphicsWindow.LastKey LT = GraphicsWindow.LastText For i = 1 To 10 IP[i] = Controls.GetTextBoxText(TB[i]) GraphicsWindow.DrawText(300, 30*i+4, IP[i]) EndFor OKU = 0 EndIf If OKD <> 0 Then LKD = GraphicsWindow.LastKey LTD = GraphicsWindow.LastText OKD = 0 EndIf EndSub Sub OnKeyDown OKD = 1 EndSub Sub OnKeyUp OKU = 1 EndSub Sub OnButtonClick OBC = 1 EndSub End>TXV914.sb< Start>TXW159-0.sb< Debug="True" 'to set to false args = "" ' The following line could be harmful and has been automatically commented. ' DebugFile="debugFile.txt" ' The following line could be harmful and has been automatically commented. ' File.DeleteFile(DebugFile) ' The following line could be harmful and has been automatically commented. ' File.AppendContents(DebugFile,"DebugFile : "+Clock.date+" = "+Clock.time) ' The following line could be harmful and has been automatically commented. ' File.AppendContents(DebugFile,"=================================") LDCall.Function("DebugFunc","Hello Small basic I have a problem") LDCall.Function("DebugFunc","We will test the version !!!") for x=1 to 15 if x=13 then LDCall.Function("DebugFunc","You are in trouble with version ="+x+"=!") LDCall.Function("DebugFunc"," ") endif endfor ' The following line could be harmful and has been automatically commented. ' textwindow.writeline(file.ReadContents("debugFile.txt")) 'END PROGRAM 'Function subroutine Sub DebugFunc if debug then TextWindow.WriteLine(args[1]) endif ' The following line could be harmful and has been automatically commented. ' File.AppendContents(DebugFile,args[1]) EndSub End>TXW159-0.sb< Start>TZG070.sb< 'rotating emeraud ' program no: HSV355-0 ' PROGRAM no: BJC282 'program: ZSK476 ' program: RWM423 'program: PXW827 'PROGRAM no: GraphicsWindow.Width=800 GraphicsWindow.Height =700 GraphicsWindow.top=0 GraphicsWindow.left=0 GraphicsWindow.Title ="precious stones" D = LD3DView.AddView(1000,700,"false") E = LD3DView.AddView(800,300,"false") R = LD3DView.AddView(400,400,"false") GraphicsWindow.BackgroundColor ="black" rubis=GraphicsWindow.GetColorFromRGB(255,100,255) emeraud=GraphicsWindow.GetColorFromRGB(230,200,249) diamond=GraphicsWindow.GetColorFromRGB(235,235,235) fill_light_1=GraphicsWindow.GetColorFromRGB(0,0,30) fill_light_2=GraphicsWindow.GetColorFromRGB(0,0,100) LD3DView.AddDirectionalLight(D,diamond,-45,45,-185) LD3DView.AddAmbientLight (D, fill_light_1) LD3DView.AddDirectionalLight(E,emeraud,-45,75,-105) LD3DView.AddDirectionalLight(R,rubis,75,-45,-185) LD3DView.AddAmbientLight (R, fill_light_2) diamond=ld3dview.AddIcosahedron(D, 1 , "#99d9d9d9", "E") emeraud=ld3dview.AddIcosahedron(E, 1 , "#99b1f6e9", "E") rubis=ld3dview.AddIcosahedron(R, 1 , "#99f1f6e9", "E") While "true i=i+1 LD3DView.RotateGeometry2 (D,diamond, 2, 4, 8 ,i) LD3DView.RotateGeometry2 (E,emeraud, -2, -4, -8 ,i*2) LD3DView.RotateGeometry2 (R,rubis, 2, 8, -2 ,i) Program.Delay(20) endwhile End>TZG070.sb< Start>TZG896.sb< GraphicsWindow.Title="Night Cityscapes While "true GraphicsWindow.Clear () GraphicsWindow.BackgroundColor="darkblue" GraphicsWindow.PenWidth=0 GraphicsWindow.BrushColor ="#000066 GraphicsWindow.FillRectangle (0 300 700 300) GraphicsWindow.BrushColor=LDColours.HSLtoRGB (70 .6 .8) GraphicsWindow.FillEllipse (30 30 80 80) GraphicsWindow.Height=600 For x=1 To 10 hh= Math.GetRandomNumber (150)+80 GraphicsWindow.BrushColor=LDColours.HSLtoRGB (200 .6 Math.GetRandomNumber (5)/20+.25) r=Shapes.AddRectangle (50 hh) Shapes.Move (r x*55 300-hh) r=Shapes.AddRectangle (50 hh) Shapes.Move (r x*55+15 300) LDShapes.Skew (r 9 0) LDShapes.BrushColour (r LDColours.HSLtoRGB (240 .4 .3)) EndFor Program.Delay (7777) EndWhile End>TZG896.sb< Start>TZH768.sb< GraphicsWindow.MouseDown = Md GraphicsWindow.MouseUp = Mu While 1 = 1 Program.Delay(5) If Mouse = "down" Then GraphicsWindow.BrushColor = "Black" GraphicsWindow.fillEllipse(GraphicsWindow.MouseX,GraphicsWindow.MouseY,5,5) GraphicsWindow.BrushColor = "Green" GraphicsWindow.fillEllipse(GraphicsWindow.MouseX,GraphicsWindow.Height - GraphicsWindow.MouseY,5,5) EndIf EndWhile Sub Md Mouse = "down" EndSub Sub Mu Mouse = "up" EndSub End>TZH768.sb< Start>TZJ639.sb< _nln=Text.GetCharacter(13)+Text.GetCharacter(10) dbg="False" _hexx="123456789ABCDEF LDDialogs.Wait("Turtle commander V1.1"+_nln +"(p)2015 by SB community","Green") Program.Delay(1500) LDDialogs.EndWait () dmt="0=Add/Chng...;1=Diamond;2=MultiDiamnds;3=Lace;4=Spyrall;5=Star5;6=HyperLoop;7=HypFlwrGrid;8=Flwr5;9=Flwr4;10=Clock dmm=11 vcnt=0 scnt=0 smd=0 rec=0 deff[1]="{10!S 0!R 108!{5 !R 72!F 80!}!## deff[2]="{5!S 0!{10!R 108!{5 !R 72!F 80!}!}!//!R 144!U!F 210!D!## deff[3]="{25!S 0!F 30!{3 !R 95!F 140!}!## deff[4]="{95!S 1.025!R 91.5!F 40!## deff[5]="{5!R 144!F 140!## deff[6]="{1!L 40!{55 !S 1.025!R 91.5!F 40!}!//!$!R 90!{55 !R 91.5!F 40!S/1.025!}!//!&!L 90!{55 !R 91.5!F 40!S/1.025!}!//!&!R 90!{55 !L 91.5!F 40!S/1.025!}!## deff[7]="{1!L 40!{55 !S 1.025!R 91.5!F 40!}!//!$!R 90!{55 !R 91.5!F 40!S/1.025!}!//!&!L 90!{55 !R 91.5!F 40!S/1.025!}!//!&!R 90!{55 !L 91.5!F 40!S/1.025!}!//!&!{55 !L 91.5!F 40!S/1.025!}!//!&!{55 !R 91.5!F 40!S/1.025!}!//!&!R 180!{55 !R 91.5!F 40!S/1.025!}!//!&!R 180!{55 !L 91.5!F 40!S/1.025!}!## deff[8]="{5!|X1=5!|C2=15!{15 !F %2!R |X1!|X1+1.93!}!## deff[9]="{4!|X1=5!|C2=15!{15 !F %2!R |X1!|X1+1.76!}!## deff[10]="{1!~H!|v2=1!|v1=0!|v3=0!|v4=0!D!R 130!{72 !F 11!R 5!}!//!U!R 140!F 33!L 136!{12 !WRT %1!F 55!R 30!|V2+1!}!//!R 45!F 120!R 180!D!~D -50;-20;0!$!{60!~T!|_H:12!|_H*30!|_S~%2!|_S/2!|_H+%3!|_M*6!&!`C Blue!D!R %1!F 60!&!R %2!F 90!R 90!U!{60!R 6!F 10!~1000!}!//!&!D!R %1!P 60!&!R %2!P 90!}!## _TFL="0=False;1=True;2=True" stpp=0 Init() LDDialogs.AddRightClickMenu(dmt,"") LDDialogs.RightClickMenu=rmm return=0 args=0 GraphicsWindow.MouseDown=mdd 'GraphicsWindow.MouseMove=mww GraphicsWindow.MouseUp=muu Main() Sub domsg mtxx="Turtle commander V1.1"+_nln +"(p)2015 by SB community" If Text.StartsWith(args[1],"$") Then mtxx=text.GetSubTextToEnd(args[1],2) Endif LDDialogs.Wait(mtxx,"Green") Program.Delay(2500) LDDialogs.EndWait () EndSub Sub muu nxt=1 endsub Sub cang ox= Turtle.X oy= Turtle.Y nx= GraphicsWindow. Mousex ny= GraphicsWindow. Mousey ta= Turtle.Angle aag= 0'mathplus.GetDegrees ( MathPlus.ATan2(nx-ox,ny-oy)+Math.Pi/2) -ta If aag>180 Then aag=aag-360 elseIf aag<-180 Then aag=aag+360 endif aag=math.Round(aag) endsub Sub mww If rec=1 Then cang() GraphicsWindow.Title = aag+" | old:"+Turtle.angle endif EndSub Sub mdd If mov=1 Then Turtle.x= GraphicsWindow.MouseX Turtle.y=GraphicsWindow.MouseY mov=0 elseif rec=1 and nxt=1 Then nxt=0 'cang() ota=turtle.angle Turtle.Angle=Turtle.Angle+aag If Turtle.Angle>180 then Turtle.Angle=Turtle.Angle-360 elseif Turtle.Angle<-180 then Turtle.Angle=Turtle.Angle+360 endif nta=turtle.angle dta=nta-ota dst=0' Math.SquareRoot ( ESLMaths.Square (GraphicsWindow.MouseX - Turtle.x)+ESLMaths.Square (GraphicsWindow.Mousey - Turtle.y)) dst=math.Round (dst) Turtle.Move (dst) dd="R " If dta<0 then dd="L " endif 'TextWindow.WriteLine (aag) 'Clipboard.SetText(cr+dd+Math.Abs(dta)+cr+"F "+dst) LDFocus.SetFocus(pgm) ' aw = SPExtra.SendKeys("+{INS}") EndIf EndSub Sub findvar ar=Text.ConvertToUpperCase(args[1]) For ax=1 To vcnt If Text.ConvertToUpperCase(mem[ax][0])=ar Then return=ax Goto xxx endif EndFor TextWindow.WriteLine (ar+" VAR-notfnd!") return="!VARnotfnd!" xxx: endsub Sub rmm dd= LDDialogs.LastRightClickMenuItem if dd>0 Then LDControls .RichTextBoxSetText(pgm, LDText.Replace ( deff[dd],"!",_nln ),"False") Else rr=LDDialogs.Confirm("YES-save NO-load CANC=add","Menu Action:" ) If rr="Yes" Then ' The following line could be harmful and has been automatically commented. ' File.WriteContents ("d:\defs.txt",deff) ' The following line could be harmful and has been automatically commented. ' File.WriteContents ("d:\defm.txt",dmt) LDCall.Function ("DoMsg","$Saved ok.") elseIf rr="No" Then ' The following line could be harmful and has been automatically commented. ' deff=File.ReadContents ("d:\defs.txt") ' The following line could be harmful and has been automatically commented. ' dmt=File.ReadContents ("d:\defm.txt") LDCall.Function ("DoMsg","$Load ok.") LDDialogs.AddRightClickMenu(dmt,"") else li= LDText.Split (src,CR) att="" For t=1 To Array.GetItemCount (li) att=att+li[t]+"!" endfor tree=LDControls.TreeViewGetData(trr) deff[dmm]= att dmt[dmm]=tree[12][11] dmm=dmm+1 LDDialogs.AddRightClickMenu(dmt,"") endif EndIf EndSub Sub hshow txx= LDText.Split("FWD!BCK!<<>>!LOOP!VAR!CNST!SUB!FOR!GRID!Rec!MvTo!IF!EDIT!OPEN!SAVE!NEW","!") For x=1 To 17 bb[x]= Controls.AddButton(txx[x], 2, 5+(x-1)*40) EndFor EndSub Sub Main nwwp: nww=0 tree="" tree[1][0]="Main" tree[2][1]="Defs tree[3][2]="Heading tree[4][3]="0 tree[5][2]="Bgrnd tree[6][5]="#bbccdd tree[7][2]="ForeClr tree[8][7]="AUTO tree[9][2]="Width tree[10][9]="4 tree[11][1]="Con/Vars tree[12][11]="0 tree[13][1]="Subs/Lps mem=0 sbb=0 Goto rr2 rrr: GraphicsWindow.BackgroundColor =bcll rr2: nxt=1 _inn=0 Turtle.Hide() GraphicsWindow.Clear() Turtle.Show() GraphicsWindow.PenWidth=4 Turtle.PenUp () Turtle.MoveTo (600,400) Turtle.PenDown () GraphicsWindow.FontName="Calibri" GraphicsWindow.FontSize=14 hshow() ch=0 _l=1 sc=1 _sbc=0 GraphicsWindow.BrushColor = "DimGray" LDControls.RichTextBoxFontFamily="Lucida Console" LDControls .RichTextBoxFontSize = 18 trr=LDControls.AddTreeView(tree,180,350) nset() Controls.Move (trr,50,gh-355) pgm = ldControls.AddRichTextBox (10, 10) Controls.SetSize(pgm, 180, gh - 360) Controls.Move (pgm,50,1) ldControls.RichTextBoxSetText (pgm, src,"False") LDControls.RichTextBoxDefault(pgm) GraphicsWindow.BrushColor = "Black" g=gh-36 c1= Controls.AddButton("RUN", 2, g) g=g-35 c2=Controls.AddButton("CLR", 2, g) g=g-35 c3=Controls.AddButton("XPlain", 2, g) g=g-35 c4=Controls.AddButton("Paste", 2, g) g=g-35 c5=Controls.AddButton("? hlp", 2, g) g=g-35 c6=Controls.AddButton("DrwCh", 2, g) clicked = "False" Controls.ButtonClicked = OnButtonClicked GraphicsWindow.PenColor = "DimGray" Turtle.Show() Turtle.PenUp() Turtle.MoveTo (700,400) Turtle.PenDown() Turtle.Angle=0 GraphicsWindow.FontName = "Lucida Console" GraphicsWindow.FontSize =12 While "True" If rst=1 Then src = LDControls .RichTextBoxGetText (pgm) tree=LDControls.TreeViewGetData(trr) bcll =tree[6][5] rst=0 If nww=1 then Goto nwwp else Goto rrr endif elseIf clicked Then Controls.SetButtonCaption(c1,"STOP") clicked = "False" src = LDControls .RichTextBoxGetText(pgm) If Text.GetSubText(src,1,1)="{" or Text.GetSubText(src,1,1)="#" then If Text.GetSubText(src,1,1)="#" then dbg="True" Else dbg="False" endif line= LDText.Split (src,_nln ) rrw= ( text.GetSubTextToEnd(line[1],2))'tonum! nLines =Array.GetItemCount (line) If dbg then TextWindow.WriteLine (">>>>>>>>>>>>>>>>>>>>>runn>>>>>>>>>>>>>>>>>>") endif GraphicsWindow.Title="Run mode..." tree=LDControls.TreeViewGetData(trr) 'TextWindow.WriteLine(tree) GraphicsWindow.PenWidth=tree[10][9] 'GraphicsWindow.Title=rrw tree=LDControls.TreeViewGetData(trr) Turtle.Angle =tree[4][3] sbscan() For tt=1 To rrw vcnt=0 scnt=0 'TextWindow.WriteLine (line) For i = 2 To rwx linee=line[i] If Text.StartsWith(linee,"##") then Goto finn elseif Text.StartsWith(linee,"<") then smd=1 elseif Text.StartsWith(linee,">") then smd=0 ElseIf smd=0 and stpp=0 then DoLine() endif If stpp=1 then Controls.SetButtonCaption(c1,"RUN") stpp=0 GraphicsWindow.Title="Stopped." clicked="False Goto wwh endif EndFor finn: EndFor tree[4][3]=math.Round (math.Remainder (Turtle.Angle,360)) LDControls.TreeViewContent(trr,tree) nset() Controls.SetButtonCaption(c1,"RUN") GraphicsWindow.Title="Done." EndIf Else EndIf wwh: EndWhile EndSub Sub sbscan c=1 rwx=nLines While Text.StartsWith (line[c],"##")<>"True c=c+1 If c>nLines then TextWindow.WriteLine("No ##") goto tt endif EndWhile rwx=c-1 For i=c To nLines If Text.StartsWith(line[i], "<") Then _sbc=_sbc+1 smd=1 sbb[_sbc]["Stt"] = i + 1 For k = i+1 To nLines If Text.StartsWith(line[k], ">") Then sbb[_sbc]["End"] = k-1 smd=0 endif endfor tree=LDControls.TreeViewGetData(trr) tnd=Array.GetAllIndices(tree) nc=array.GetItemCount (tnd)+1 If dbg then typ="Sb" sbb[_sbc][0]=Text.GetSubTextToEnd (linee, 2) tree[nc][13]=typ+":"+_sbc+">"+sbb[_sbc]["Stt"]+" to "+sbb[_sbc]["End"] LDControls.TreeViewContent(trr,tree) nset() endif endif endfor tt: Endsub Sub nset LDControls.TreeViewExpand(trr,0,"True","True") nn= LDText.Split("4,6,8,10,12",",") For x=1 To Array.GetItemCount(nn) LDControls.TreeViewEdit(trr,nn[x],"True") endfor EndSub Sub drwgrd GraphicsWindow.PenWidth=1 GraphicsWindow.PenColor="#aaaaaa For x=1 To 70 GraphicsWindow.DrawLine(220+x*20,0,220+x*20,800) EndFor For x=1 To 40 GraphicsWindow.DrawLine(220,x*20,1400,x*20) EndFor EndSub Sub xplain TextWindow.Show () TextWindow.Clear() idd=" " src = LDControls .RichTextBoxGetText (pgm) TextWindow.WriteLine("Explain program dump list"+_nln ) line= LDText.Split (Text.ConvertToUpperCase(src),_nln ) rrw= ( text.GetSubTextToEnd(line[1],2))'ToNumber nLines =Array.GetItemCount (line) TextWindow.WriteLine ("{Main loop, repeating times:"+rrw) For i=2 To nLines linee=line[i] If Text.StartsWith(linee,"##") then TextWindow.WriteLine ("} Main loop end.*******************") else xpline() endif EndFor endsub Sub OnButtonClicked '"FWD!BCK!<<>>!LOOP!VAR!CNST!sub!FOR!SUB!SAVE!LOAD!IF!HLP!NEW" clb=Controls.LastClickedButton If clb=c2 then rst=1 elseIf clb=c3 then xplain () elseIf clb=c4 then LDControls.RichTextBoxSetText(pgm,Src,"False") rst=1 elseif clb=bb[1] then LDControls.RichTextBoxSetText(pgm,"F ","True") elseif clb=bb[2] then LDControls.RichTextBoxSetText(pgm,"R 180"+cr+"F "+cr+"R 180","True") elseif clb=bb[3] then LDControls.RichTextBoxSetText(pgm,"L ","True") elseif clb=bb[4] then LDControls.RichTextBoxSetText(pgm,"R ","True") elseif clb=bb[5] then LDControls.RichTextBoxSetText(pgm,"{1 "+cr+"}","True") elseif clb=bb[6] then LDControls.RichTextBoxSetText(pgm,"|v1=1","True") elseif clb=bb[7] then LDControls.RichTextBoxSetText(pgm,"%1","True") elseif clb=bb[8] then ctx=(cr+""+cr) LDControls.RichTextBoxSetText(pgm,ctx,"True") elseif clb=bb[9] then ctx=(cr+"|f1~1"+cr+"FOR %1;10;+1 ["+cr+"]"+cr) LDControls.RichTextBoxSetText(pgm,ctx,"True") elseif clb=bb[10] then DrwGrd() elseif clb=bb[11] then elseif clb=bb[12] then mov=1 elseif clb=bb[13] then ctx=(cr+"{IF =%1;n;2 "+cr+"//True"+cr+":$2 "+cr+"//False"+cr) LDControls.RichTextBoxSetText(pgm,ctx,"True") elseif clb=bb[14] then Controls.SetSize(pgm,800, gh - 360) elseif clb=bb[16] then fnm=LDDialogs.SaveFile("txt","i:\txt") li= LDText.Split (src,CR) att="" For t=1 To Array.GetItemCount (li) att=att+li[t]+"!" endfor ' The following line could be harmful and has been automatically commented. ' ss=File.WriteContents(fnm,att) LDCall.Function ("DoMsg","$Save "+ss) elseif clb=bb[15] then fnm=LDDialogs.OpenFile("txt","i:\txt") ' The following line could be harmful and has been automatically commented. ' If ldFile.Exists(fnm) then ' The following line could be harmful and has been automatically commented. ' fcc=File.ReadContents(fnm) LDControls.RichTextBoxSetText(pgm,fcc,"False") endif elseif clb=c5 then Helpp() elseif clb=c6 then tree=LDControls.TreeViewGetData(trr) cch=tree[12][11] If text.GetCharacterCode (cch)>32 then GraphicsWindow.FontName="Times New Roman" GraphicsWindow.FontSize=540 GraphicsWindow.FontBold="True GraphicsWindow.FontItalic="True GraphicsWindow.BrushColor="#bbbbbb GraphicsWindow.DrawText(300,150,cch) endif elseif clb=bb[17] then rst=1 nww=1 src="{1"+cr LDControls .RichTextBoxSetText (pgm, src,"False") else clicked = "True" endif EndSub Sub DoLine '----------------------------------------------LINEPROC----------------------------- linee= LDText.Trim (linee) If linee="" Or Text.StartsWith(linee,"//") Then Goto exx endif If tree[8][7]="AUTO" Then GraphicsWindow.PenColor=LDColours.HSLtoRGB(math.Remainder (ch,360) ,0.9,0.4) Else GraphicsWindow.PenColor=tree[8][7] endif ch=ch+1 While Text.IsSubText(linee,"%") dorepl() endwhile ree: If Text.StartsWith(linee, Text.GetCharacter (34)) Then 'virtual mode If _inn>0 Then linee=text.GetSubTextToEnd (linee,2) Goto ree Endif elseIf Text.StartsWith(linee, "|") Then vn=text.GetSubText(linee,2,2) vv=text.GetSubTextToEnd (linee,5) dfc=text.GetSubText(linee,4,1) If dfc="=" then vcnt=vcnt+1 mem[vcnt][1]=vv mem[vcnt][0]=vn elseif dfc="'" then rr=ldcall.Function("findvar",vn) mem[rr][1]=text.GetCharacter (vv) elseif dfc="." then pp= (text.GetSubText(linee,5,2))'mathplus.ToNumber scnt=scnt+1 Matr[scnt]=Text.GetSubTextToEnd ( vv,4) elseif dfc=";" then For scnt=1 to Text.GetLength (vv) Matr[scnt]=Text.GetSubText(vv,scnt,1) endfor elseif dfc="+" then rr=ldcall.Function("findvar",vn) mem[rr][1]=mem[rr][1]+vv elseif dfc="~" then rr=ldcall.Function("findvar",vn) mem[rr][1]=vv elseif dfc="*" then rr=ldcall.Function("findvar",vn) mem[rr][1]=mem[rr][1]*vv elseif dfc="/" then rr=ldcall.Function("findvar",vn) mem[rr][1]=mem[rr][1]/vv elseif dfc=":" then rr=ldcall.Function("findvar",vn) mem[rr][1]=math.Remainder(mem[rr][1],vv) endif ElseIf Text.StartsWith(linee, "~B#") Then 'block wdth tww= Text.GetSubTextToEnd (linee,4) ElseIf Text.StartsWith(linee, "WB#") Then 'block txt ttx= Text.GetSubTextToEnd (linee,4) GraphicsWindow.DrawBoundText(Turtle.x, Turtle.y,tww,ttx) ElseIf Text.StartsWith(linee, "#I:") Then 'flickr image get n draw ttx= Text.GetSubTextToEnd (linee,4) ppt= LDText.Split(ttx,";") pim= (Flickr.GetRandomPicture(ppt[1])) GraphicsWindow.DrawResizedImage(pim,ppt[2],ppt[3],ppt[4],ppt[5]) ElseIf Text.StartsWith(linee, "#P>") Then 'polymode objm=1 oo=1 Program.Delay(5) obj[oo][1]=Turtle.X obj[oo][2]=Turtle.Y oo=oo+1 ElseIf Text.StartsWith(linee, "#P#") Then 'polymode end ttx= Text.GetSubTextToEnd (linee,4) GraphicsWindow.BrushColor=ttx objm =0 GraphicsWindow .FillTriangle (obj[1][1],obj[1][2],obj[2][1],obj[2][2],obj[3][1],obj[3][2]) ElseIf Text.StartsWith(linee, "#O>") Then 'obj mode objm=1 oo=1 Program.Delay(5) obj[oo][1]=Turtle.X obj[oo][2]=Turtle.Y oo=oo+1 ElseIf Text.StartsWith(linee, "#O#") Then 'obj mode ttx= Text.GetSubTextToEnd (linee,4) objm=0 opp[ttx]=LDShapes.AddPolygon (obj) LDShapes.BrushColour(opp[ttx],GraphicsWindow.PenColor) ElseIf Text.StartsWith(linee, "#OM") Then 'obj mode ttx= Text.GetSubTextToEnd (linee,5) ttt= LDText.Split (ttx,";") Shapes.Move (opp[ttt[3]],ttt[1]-obj[1][1],ttt[2]-obj[1][2]) ElseIf Text.StartsWith(linee, "#OA") Then 'obj mode ttx= Text.GetSubTextToEnd (linee,5) ttt= LDText.Split (ttx,";") Shapes.Animate (opp[ttt[3]],ttt[1]-obj[1][1],ttt[2]-obj[1][2],ttt[4]) ElseIf Text.StartsWith(linee, "W#") Then 'console debug writting ttx= Text.GetSubTextToEnd (linee,3) If Text.StartsWith (ttx,"|") then vn=text.GetSubText(ttx,2,2) ttx=ldcall.Function("findvar",vn) Endif TextWindow.WriteLine(">:"+ttx) ElseIf Text.StartsWith(linee, "WRT") Then ttx= Text.GetSubTextToEnd (linee,5) If Text.StartsWith (ttx,"|") then vn=text.GetSubText(ttx,2,2) ttx=ldcall.Function("findvar",vn) Endif GraphicsWindow.DrawText(Turtle.x, Turtle.y, ttx) elseif Text.StartsWith(linee, "F") Then distance = Text.GetSubTextToEnd(linee, 3) If Text.StartsWith(distance,"|") Then rr=ldcall.Function("findvar",vn) dist=mem[rr][1] Else dist=distance endif Turtle.Move(math.Floor (dist*sc)) if objm=1 then obj[oo][1]=Turtle.X obj[oo][2]=Turtle.Y oo=oo+1 endif 'GraphicsWindow.Title="Dst:"+math.Round ( dist*sc) if dbg then TextWindow.WriteLine(math.Floor (dist*sc)) endif Elseif Text.StartsWith(linee, "S") Then If Text.GetSubText(linee,2,1)="/" then sc=sc/ Text.GetSubTextToEnd(linee, 3) else sc=sc* Text.GetSubTextToEnd(linee, 3) endif If sc=0 then sc=1 EndIf ElseIf Text.StartsWith(linee, "$") Then tx=Turtle.x ty=Turtle.Y ta= Turtle.Angle ts=sc ElseIf Text.StartsWith(linee, "@") Then ' subbs scc=Text.GetSubTextToEnd (linee,2) Sst= sbb[scc]["Stt"] sen=sbb[scc]["End"] Stack.PushValue("locali", i) Stack.PushValue("localj", j) For i = sSt To sEn linee=line[i] _inn=_inn+1 DoLine() _inn=_inn-1 Endfor i = Stack.PopValue("locali")+1 j=Stack.PopValue("localj") ElseIf Text.StartsWith(linee, "&") Then Turtle.x=tx Turtle.Y=ty Turtle.Angle=ta sc=ts ElseIf Text.StartsWith(linee, "#X") Then 'FCExtensions.Eval(Text.GetSubTextToEnd(linee, 4)) ElseIf Text.StartsWith(linee, "#E") Then ' mem[1][1]=FCExtensions.MathEval(Text.GetSubTextToEnd(linee, 4)) ElseIf Text.StartsWith(linee, "#F") Then ff=Text.GetSubTextToEnd(linee, 4) fn=LDText.Split(ff,";") GraphicsWindow.FontName=fn[1] GraphicsWindow.FontBold=_tfl[fn[2]] GraphicsWindow.FontItalic=_tfl[fn[3]] GraphicsWindow.FontSize=fn[4] ElseIf Text.StartsWith(linee, "#P") Then GraphicsWindow.BrushColor=GraphicsWindow.PenColor ElseIf Text.StartsWith(linee, "~S") Then LDQueue.Enqueue("q1",Turtle.x+":"+Turtle.y) ElseIf Text.StartsWith(linee, "~G") Then tp=LDQueue.Dequeue ("q1") tt=LDText.Split(tp,":") Turtle.x=tt[1] Turtle.y=tt[2] ElseIf Text.StartsWith(linee, "#C") Then ww = ( Text.GetSubTextToEnd(linee, 4))'tonum GraphicsWindow.BrushColor=GraphicsWindow.PenColor If ww=0 then ww=5 endif GraphicsWindow.FillEllipse(Turtle.x-ww, Turtle.y-ww,ww*2,ww*2) ElseIf Text.StartsWith(linee, "XC") Then ww = ( Text.GetSubTextToEnd(linee, 4))'tonum GraphicsWindow.BrushColor=GraphicsWindow.BackgroundColor If ww=0 then ww=5 endif GraphicsWindow.FillEllipse(Turtle.x-ww, Turtle.y-ww,ww*2,ww*2) ElseIf Text.StartsWith(linee, "`C") Then wwc = Text.GetSubTextToEnd(linee, 4) GraphicsWindow.BrushColor=wwc GraphicsWindow.penColor=wwc ElseIf Text.StartsWith(linee, "~D") Then txy=Text.GetSubTextToEnd(linee, 4) txm=ldtext.Split(txy,";") Turtle.x=Turtle.x+txm[1] Turtle.Y=Turtle.Y+txm[2] Turtle.Angle=txm[3] ElseIf Text.StartsWith(linee, "~H") Then Turtle.x=600 Turtle.Y=400 Turtle.Angle=0 ElseIf Text.StartsWith(linee, "P") Then GraphicsWindow.PenColor=GraphicsWindow.BackgroundColor GraphicsWindow.PenWidth=GraphicsWindow.PenWidth+2 distance = Text.GetSubTextToEnd(linee, 3) If Text.StartsWith(distance,"|") Then rr=ldcall.Function("findvar",vn) dist=mem[rr][1] Else dist=distance endif Turtle.Move(math.Floor (dist*sc)) GraphicsWindow.PenWidth=GraphicsWindow.PenWidth-2 ElseIf Text.StartsWith(linee, "~FN") Then GraphicsWindow.FontName=Text.GetSubTextToEnd(Linee,5) ElseIf Text.StartsWith(linee, "~FS") Then GraphicsWindow.FontSize=Text.GetSubTextToEnd(Linee,5) ElseIf Text.StartsWith(linee, "~C") Then ccl=GraphicsWindow.BrushColor GraphicsWindow.BrushColor =GraphicsWindow.BackgroundColor GraphicsWindow.FillRectangle (220,200,800,400) GraphicsWindow.BrushColor=ccl ElseIf Text.StartsWith(linee, "~T") Then mem[1][1]=Clock.Hour mem[1][0]="_H" mem[2][1]=Clock.Minute mem[2][0]="_M mem[3][1]=Clock.Second mem[3][0]="_S mem[4][1]=Clock.Date mem[4][0]="_D" ElseIf Text.StartsWith(linee, "~") Then Program.Delay (Text.GetSubTextToEnd(linee, 2)) ElseIf Text.StartsWith(linee, "U") Then Turtle.PenUp() ElseIf Text.StartsWith(linee, "D") Then Turtle.PenDown() ElseIf Text.StartsWith(linee, "R") Then distance = Text.GetSubTextToEnd(linee, 3) If Text.StartsWith(distance,"|") Then rr=ldcall.Function("findvar",vn) dist=mem[rr][1] Else dist=distance endif Turtle.Turn(dist) ElseIf Text.StartsWith(linee, "L") Then distance = Text.GetSubTextToEnd(linee, 3) If Text.StartsWith(distance,"|") Then rr=ldcall.Function("findvar",vn) dist=mem[rr][1] Else dist=distance endif Turtle.Turn(-dist) ElseIf Text.StartsWith(linee, "A") Then distance = -Text.GetSubTextToEnd(linee, 3) If Text.StartsWith(distance,"|") Then rr=ldcall.Function("findvar",vn) dist=mem[rr][1] Else dist=distance endif Turtle.Angle=dist ElseIf Text.StartsWith(linee, ":$") Then icc=Text.GetSubTextToEnd (linee, 3) i=i+icc ElseIf Text.StartsWith(linee, "IF") Then icc=Text.GetSubTextToEnd (linee, 4) iif= LDText.Split(icc,";") v1=iif[1] v2=iif[2] If iif[3]=0 then skp=2 Else skp=iif[3] endif cond=0 TextWindow.WriteLine ("Sk:"+Skp) If Text.StartsWith(icc,"=") then If v1=v2 then cond=1 Else cond=2 endif elseIf Text.StartsWith(icc,">") then If v1v2 then cond=1 Else cond=2 endif elseIf Text.StartsWith(icc,"!") then If v1<>v2 then cond=1 Else cond=2 endif endif If cond=0 then TextWindow.WriteLine ("IF invalid cond error!") else if cond=1 then 'true part TextWindow.WriteLine ("TRue") Else 'false part TextWindow.WriteLine ("Flss") i=i+skp endif endif ElseIf Text.StartsWith(linee, "{") Then count[_l] = ( Text.GetSubTextToEnd (linee, 2))'tonum iStart[_l] = i + 1 iEnd[_l] = nLines nest = 0 tree=LDControls.TreeViewGetData(trr) tnd=Array.GetAllIndices(tree) nc=array.GetItemCount (tnd)+1 For k = iStart[_l] To nLines 'TextWindow.WriteLine(">>"+k) If Text.StartsWith(line[k], "{") Then nest = nest + 1 ElseIf Text.StartsWith(line[k], "]") or Text.StartsWith(line[k], "}") Then If nest = 0 Then iEnd[_l] = k - 1 k= nLines Else nest = nest - 1 EndIf EndIf EndFor If dbg then typ="Lp" tree[nc][13]=typ+":"+nest+">"+iStart[_l]+" to "+iEnd[_l] LDControls.TreeViewContent(trr,tree) nset() endif j = count[_l] _l = _l + 1 While j>0 Stack.PushValue("local", j) _inn=_inn+1 For i = iStart[_l - 1] To iEnd[_l - 1] linee=line[i] If Text.IsSubText (linee,"%$$") Then linee=LDText.Replace (linee,"%$$",j) elseIf Text.IsSubText (linee,"%$A") Then linee=LDText.Replace (linee,"%$A",Turtle.Angle ) elseIf Text.IsSubText (linee,"%$C") Then linee=LDText.Replace (linee,"%$C",GraphicsWindow.PenColor ) elseIf Text.IsSubText (linee,"%$") Then linee=LDText.Replace (linee,"%$","%"+ text.GetSubText (_hexx,j,1) ) endif If dbg then TextWindow.WriteLine (i+">>"+linee) endif DoLine() EndFor _inn=_inn-1 j = Stack.PopValue("local")-1 Endwhile _l = _l - 1 i = iEnd[_l] + 2 EndIf exx: EndSub Sub dorepl If Text.IsSubText (linee,"%") Then aq="!! If Text.IsSubText(linee,aq) Then m2=Text.Append("0", mem[2][1]) m2=Text.GetSubTextToEnd (m2,text.GetLength( mem[2][1])) m3=Text.Append("0", mem[3][1]) m3=Text.GetSubTextToEnd (m3,text.GetLength( mem[3][1])) endif If Text.IsSubText (linee,"%1") Then linee=LDText.Replace (linee,"%1",mem[1][1]) elseIf Text.IsSubText (linee,"%2"+aq) Then linee=LDText.Replace (linee,"%2"+aq,m2) elseIf Text.IsSubText (linee,"%3"+aq) Then linee=LDText.Replace (linee,"%3"+aq,m3) elseIf Text.IsSubText (linee,"%2") Then linee=LDText.Replace (linee,"%2",mem[2][1]) elseIf Text.IsSubText (linee,"%3") Then linee=LDText.Replace (linee,"%3",mem[3][1]) elseIf Text.IsSubText (linee,"%4") Then linee=LDText.Replace (linee,"%4",mem[4][1]) elseIf Text.IsSubText (linee,"%5") Then linee=LDText.Replace (linee,"%5",mem[5][1]) elseIf Text.IsSubText (linee,"%6") Then linee=LDText.Replace (linee,"%6",mem[6][1]) elseIf Text.IsSubText (linee,"%7") Then linee=LDText.Replace (linee,"%7",mem[7][1]) elseIf Text.IsSubText (linee,"%8") Then linee=LDText.Replace (linee,"%8",mem[8][1]) elseIf Text.IsSubText (linee,"%9") Then linee=LDText.Replace (linee,"%9",mem[9][1]) elseIf Text.IsSubText (linee,"%A") Then linee=LDText.Replace (linee,"%A",mem[10][1]) elseIf Text.IsSubText (linee,"%B") Then linee=LDText.Replace (linee,"%B",mem[11][1]) elseIf Text.IsSubText (linee,"%C") Then linee=LDText.Replace (linee,"%C",mem[12][1]) elseIf Text.IsSubText (linee,"%D") Then linee=LDText.Replace (linee,"%D",mem[13][1]) elseIf Text.IsSubText (linee,"%E") Then linee=LDText.Replace (linee,"%E",mem[14][1]) elseIf Text.IsSubText (linee,"%F") Then linee=LDText.Replace (linee,"%F",mem[15][1]) elseIf Text.IsSubText (linee,"%M") Then mm=text.GetSubTextToEnd(linee,text.GetIndexOf(linee,".")+1) linee=LDText.Replace (linee,"%M."+mm,matr[(mm)]) elseIf Text.IsSubText (linee,"%X") Then linee=LDText.Replace (linee,"%X",math.Round (Turtle.x)) elseIf Text.IsSubText (linee,"%Y") Then linee=LDText.Replace (linee,"%Y",math.Round (Turtle.y)) elseIf Text.IsSubText (linee,"%W") Then linee=LDText.Replace (linee,"%W",math.Remainder (Turtle.Angle,360) ) endif endif endsub Sub fWriteLn TextWindow.WriteLine(idd+args[1]) EndSub Sub xpline '**************************************xplains prg....********************* If Text.StartsWith(linee, "|") Then vn=text.GetSubText(linee,2,2) vv=text.GetSubTextToEnd (linee,5) dfc=text.GetSubText(linee,4,1) If dfc="=" then LDCall.Function("fWriteLn","Define New VAR "+vn+" and assign value:"+vv) vcnt=vcnt+1 mem[vcnt][0]=vn elseif dfc="+" then LDCall.Function("fWriteLn","Increase VAR "+vn+" by:"+vv) elseif dfc="~" then LDCall.Function("fWriteLn","Find VAR "+vn+" and assign value:"+vv) elseif dfc="*" then LDCall.Function("fWriteLn","Multiply VAR "+vn+" by:"+vv) elseif dfc="/" then LDCall.Function("fWriteLn","Divide VAR "+vn+" by:"+vv) endif endif If Text.StartsWith(linee, "W#") Then 'console debug writting ttx= Text.GetSubTextToEnd (linee,3) LDCall.Function("fWriteLn","Write to console:"+ttx) ElseIf Text.StartsWith(linee, "%") then LDCall.Function("fWriteLn","Perform "+Text.GetSubTextToEnd (linee,4)) ElseIf Text.StartsWith(linee, "WRT") Then 'turtle writting ttx= Text.GetSubTextToEnd (linee,5) LDCall.Function("fWriteLn","Write to screen:"+ttx) ElseIf Text.StartsWith(linee, "Ht") Then LDCall.Function("fWriteLn","Reset to Home pos.") elseif Text.StartsWith(linee, "F") Then dist = Text.GetSubTextToEnd(linee, 3) If Text.StartsWith(dist,"%") then dist = "var value:"+mem[Text.GetIndexOf (_hexx, Text.GetSubTextToEnd(dist, 2))][0] endif LDCall.Function("fWriteLn","Forward by:"+ dist) Elseif Text.StartsWith(linee, "<") Then ttx= Text.GetSubTextToEnd (linee,2) LDCall.Function("fWriteLn","") Then idd=text.GetSubTextToEnd(idd,3) LDCall.Function("fWriteLn",">END SUB.") Elseif Text.StartsWith(linee, "]") Then idd=text.GetSubTextToEnd(idd,4) LDCall.Function("fWriteLn","] END Repeat block") Elseif Text.StartsWith(linee, "}") Then idd=text.GetSubTextToEnd(idd,4) LDCall.Function("fWriteLn","} END block") Elseif Text.StartsWith(linee, "S") Then If sc=0 then sc=1 LDCall.Function("fWriteLn","Set scale to 1") else If Text.GetSubText(linee,2,1)="%" then LDCall.Function("fWriteLn","Alter scale <(kind +/*) selected by VAR:"+mem[Text.GetIndexOf (_hexx, Text.GetSubText(linee, 3,1))][0]+"> by factor:"+Text.GetSubTextToEnd(linee, 5)) elseIf Text.GetSubText(linee,2,1)="/" then LDCall.Function("fWriteLn","Divide scale by:"+Text.GetSubTextToEnd(linee, 3)) else LDCall.Function("fWriteLn","Multiply scale by:"+Text.GetSubTextToEnd(linee, 3)) endif EndIf ElseIf Text.StartsWith(linee, "$") Then LDCall.Function("fWriteLn","Save turtle pos.") ElseIf Text.StartsWith(linee, "@") Then ' subbs scc=Text.GetSubTextToEnd (linee,2) LDCall.Function("fWriteLn","Call sub:"+sbb[scc][0]) ElseIf Text.StartsWith(linee, "&") Then LDCall.Function("fWriteLn","Restore turtle pos.") ElseIf Text.StartsWith(linee, "U") Then LDCall.Function("fWriteLn","Pen UP - moving") ElseIf Text.StartsWith(linee, "D") Then LDCall.Function("fWriteLn","Pen DN - drawing") ElseIf Text.StartsWith(linee, "R") Then dist = Text.GetSubTextToEnd(linee, 3) LDCall.Function("fWriteLn","Turn RIGHT by:"+dist) ElseIf Text.StartsWith(linee, "L") Then dist = Text.GetSubTextToEnd(linee, 3) LDCall.Function("fWriteLn","Turn LEFT by:"+dist) ElseIf Text.StartsWith(linee, "{") Then LDCall.Function("fWriteLn","{Repeat block times:"+Text.GetSubTextToEnd(linee,2)) idd=idd+" " EndIf EndSub'---------------------------------xplain********************** Sub Init gw = 1000 gh = 900 GraphicsWindow.Width = gw GraphicsWindow.Height = gh GraphicsWindow.Title = "Turtle Graphics GraphicsWindow.BackgroundColor="#bbccdd GraphicsWindow.Top=0 GraphicsWindow.Left=0 Turtle.Speed=10 CR = _nln src=LDText.Replace ( deff[8],"!",_nln ) EndSub Sub Helpp txx="Spec.vars :"+_nln txx=txx+">only shows :"+_nln txx=txx+"%$$ = loop counter backward"+_nln txx=txx+"%$A = Turtle.Angle"+_nln txx=txx+"%$C = Pen color"+_nln txx=txx+"%$n = n=[ 1..F(hex)] ref. in loop to vars 1..15"+_nln txx=txx+_nln+"Spec.cmds:"+_nln txx=txx+"%M.nn= matrix row nn _1..99"+_nln txx=txx+"|vv;txt <= stores txt as chars in matrix %M"+_nln txx=txx+"|vv~nnn <= stores data in existing var vv"+_nln txx=txx+"|vv=nnn <= stores data in new var vv"+_nln txx=txx+"|vv+nnn <= adds value to var vv"+_nln txx=txx+"|vv*nnn <= multipl. value to var vv"+_nln txx=txx+"|vv/nnn <= divides var vv by val."+_nln txx=txx+"|vv'cccc <= stores chr unicode cccc to var vv"+_nln txx=txx+"~n = delay n msecs"+_nln txx=txx+"#C ww = fill circle rad.ww px"+_nln txx=txx+"XC ww = del. circle rad.ww px"+_nln txx=txx+"~C = del. watch zone"+_nln txx=txx+"$ = save turtle loc."+_nln txx=txx+"& = restore turtle loc."+_nln txx=txx+"#F fnam;bld;itl;siz = set font name, bold 0 or 1, italic 0/1, size"+_nln txx=txx+"#P = set pen clr from treedef."+_nln txx=txx+"~H = Home turtle"+_nln txx=txx+"#E xpr = matheval xpr expression"+_nln txx=txx+"#X cmd = exec. sb cmd"+_nln GraphicsWindow.BrushColor = "Black" GraphicsWindow.FontName = "Tahoma" GraphicsWindow.FontSize = 15 GraphicsWindow.PenColor="Black GraphicsWindow.DrawText(310, 20, "S ff | S/ff = scale") GraphicsWindow.DrawText(310, 40, "F dist=move forward") GraphicsWindow.DrawText(310, 60, "L|R angle = turn angle") GraphicsWindow.DrawText(310, 80, "D)wn | U)p = pen mode") GraphicsWindow.DrawText(310, 105, " sub end") GraphicsWindow.DrawText(310, 165, "@n = sub call n=1..maxnsub by def. order ") GraphicsWindow.DrawText(310, 190, "{count ") GraphicsWindow.DrawText(310, 210, "loop cmds ") GraphicsWindow.DrawText(310, 230, "] or } loop end") GraphicsWindow.DrawBoundText(310,250,350,txx) EndSub End>TZJ639.sb< Start>TZK617.sb< ' Cargo Crates ' Copyright (c) 2012 Nonki Takahashi ' ' Calculate the level that a boat will sit in the water as you add cargo to it. ' Assume the boat has a length of 50 [m] and width of 5 [m] and has vertical sides, ' and its unloaded mass is 100 [t]. ' If cargo crates are 2 x 2 x 5 [m] and weigh 5 [ton] each, how many crates can ' it hold to not exceed a total draft of 4 [m]. ' Do a graphical display of the boat and crates to scale as it is loaded. GraphicsWindow.Width = 600 GraphicsWindow.Height = 400 GraphicsWindow.BackgroundColor = "LightBlue" SetCargoColor() DrawPort() AddBoat() area = 5 * 50 ' area of boat base [m^2] weight = 100 ' total weight of boat [t] = [m^3 of water] draft = weight / area ' [m] xBoat = 50 yBoat = 300 + (draft * 10) MoveBoat() AddWater() AddData() While draft < 4 AddCargo() weight = 100 + nCargo * 5 ' [t] draft = weight / area ' [m] yBoat = 300 + (draft * 10) MoveBoat() Shapes.SetText(oNumCargo, nCargo) Shapes.SetText(oWeight, weight + " [t]") Shapes.SetText(oDraft, draft + " [m]") If nCargo <= 20 Or 160 < nCargo Then Program.Delay(200) EndIf EndWhile Sub SetCargoColor nColor = 5 colorCargo[1] = "Silver" colorCargo[2] = "FireBrick" colorCargo[3] = "SteelBlue" colorCargo[4] = "DarkGreen" colorCargo[5] = "GoldenRod" EndSub Sub DrawPort GraphicsWindow.BrushColor = "DimGray" GraphicsWindow.FillRectangle(0, 280, 600, 120) GraphicsWindow.PenColor = "Black" GraphicsWindow.DrawLine(0, 280, 600, 280) EndSub Sub AddBoat GraphicsWindow.BrushColor = "Black" oUpper = Shapes.AddRectangle(500,20) GraphicsWindow.BrushColor = "DarkRed" oLower = Shapes.AddRectangle(500,40) GraphicsWindow.PenColor = "White" GraphicsWindow.BrushColor = "White" oScale40 = Shapes.AddRectangle(10,2) oNum40 = Shapes.AddText("40") oScale20 = Shapes.AddRectangle(10,2) oNum20 = Shapes.AddText("20") EndSub Sub MoveBoat ' param xBoat ' param yBoat Stack.PushValue("local", i) Shapes.Move(oUpper, xBoat, yBoat - 60) Shapes.Move(oLower, xBoat, yBoat - 40) Shapes.Move(oScale40, xBoat + 2, yBoat - 40) Shapes.Move(oNum40, xBoat + 15, yBoat - 40 - 10) Shapes.Move(oScale20, xBoat + 2, yBoat - 20) Shapes.Move(oNum20, xBoat + 15, yBoat - 20 - 10) For i = 1 To nCargo col = Math.Remainder(Math.Ceiling(i / 2) - 1, 10) row = Math.Floor((i - 1) / 20) Shapes.Move(oCargo[i], xBoat + 50 * col, yBoat - 80 - 20 * row) EndFor i = Stack.PopValue("local") EndSub Sub AddWater GraphicsWindow.BrushColor = "DarkBlue" GraphicsWindow.PenColor = "Blue" oWater = Shapes.AddRectangle(600,100) Shapes.SetOpacity(oWater, 70) Shapes.Move(oWater, 0, 300) EndSub Sub AddCargo nCargo = nCargo + 1 GraphicsWindow.BrushColor = colorCargo[Math.GetRandomNumber(nColor)] GraphicsWindow.PenColor = "Black" oCargo[nCargo] = Shapes.AddRectangle(50, 20) EndSub Sub AddData GraphicsWindow.BrushColor = "Black" GraphicsWindow.DrawText(300, 15, "Number of cargo crates =") oNumCargo = Shapes.AddText("0") Shapes.Move(oNumCargo, 460, 15) GraphicsWindow.DrawText(300, 30, "Total weight =") oWeight = Shapes.AddText(weight + " [t]") Shapes.Move(oWeight, 460, 30) GraphicsWindow.DrawText(300, 45, "Total draft =") oDraft = Shapes.AddText(draft + " [m]") Shapes.Move(oDraft, 460, 45) EndSub End>TZK617.sb< Start>TZM722.sb< Turtle.Speed = 10 For i = 10 To 10000 Turtle.Move(i/10) Turtle.Turn(10) EndFor End>TZM722.sb< Start>TZN003-0.sb< GraphicsWindow.Height = 250 GraphicsWindow.Width = 100 GraphicsWindow.Top = 50 TextWindow.Top = 25 TextWindow.Left = GraphicsWindow.Left + 130 LDPhysics.SetBoundaries(0,99,0,250) Ball = Shapes.AddEllipse(10,10) Shapes.Move(Ball,45,5) LDPhysics.AddMovingShape(Ball,0.5,1,0.5) LDPhysics.SetTorque(Ball,10000) Width = 10 Height = 20 x = 2 y = 2 TextWindow.ForegroundColor = "white" For i = 1 To Height For j = 1 To Width TextWindow.Write("=") EndFor TextWindow.WriteLine("") EndFor While 1 = 1 Program.Delay(50) LDPhysics.DoTimestep() OldY = y y = Math.Round(LDShapes.GetTop(Ball)/12.5) Oldx = x x = Math.Round(LDShapes.GetLeft(Ball)/10) If OldX <> X Or OldY <> y Then UpdateTextWindow() EndIf EndWhile Sub UpdateTextWindow TextWindow.CursorLeft = Oldx TextWindow.CursorTop = Oldy TextWindow.ForegroundColor = "white" TextWindow.Write("=") TextWindow.CursorLeft = x TextWindow.CursorTop = y TextWindow.ForegroundColor = "Red" TextWindow.Write("x") EndSub End>TZN003-0.sb< Start>TZN003.sb< GraphicsWindow.Height = 250 GraphicsWindow.Width = 100 GraphicsWindow.Top = 50 TextWindow.Top = 25 TextWindow.Left = GraphicsWindow.Left + 130 LDPhysics.SetBoundaries(0,99,0,250) Ball = Shapes.AddEllipse(10,10) Shapes.Move(Ball,45,5) LDPhysics.AddMovingShape(Ball,0.5,1,0.5) LDPhysics.SetTorque(Ball,10000) Width = 10 Height = 20 x = 2 y = 2 '=========== While 1 = 1 Program.Delay(50) LDPhysics.DoTimestep() OldY = Y y = Math.Round(LDShapes.GetTop(Ball)/12.5) Oldx = x x = Math.Round(LDShapes.GetLeft(Ball)/10) If OldX <> X Or OldY <> y Then UpdateTextWindow() EndIf EndWhile Sub UpdateTextWindow For u = 1 To Height If u = y Then For i = 1 To x-1 TextWindow.Write("=") EndFor TextWindow.ForegroundColor = "Red" TextWindow.Write("x") TextWindow.ForegroundColor = "white" For i = x To Width TextWindow.Write("=") EndFor Else For t = 1 to Width+1 TextWindow.Write("=") EndFor EndIf TextWindow.WriteLine("") EndFor TextWindow.WriteLine("") EndSub End>TZN003.sb< Start>TZQ371-1.sb< SKY=GraphicsWindow.GetColorFromRGB(100,180,225) GraphicsWindow.BackgroundColor=SKY GraphicsWindow.Width=800 args=0 Sub pdrw GraphicsWindow.PenColor ="gold p300=args[2] p0=args[1] p230=args[3] p147=args[4] GraphicsWindow.BrushColor =sand_2 GraphicsWindow.FillTriangle (p0+p230/2 p300-p147 p0 p300 p0+p230 p300 ) ll=p300-p147*.34 GraphicsWindow.BrushColor =LDColours.HSLtoRGB (52 .5 b55) GraphicsWindow.FillTriangle (p0+p230 p300 , p0+p230/2 p300-p147, p0+p230*1.13 ll) GraphicsWindow.PenColor =LDColours.HSLtoRGB (50 .5 .55) GraphicsWindow.DrawLine (p0 p300 p0+p230*1.5 p300+p147/2) GraphicsWindow.DrawLine (p0+p230*1.5 p300+p147/2 p0+p230*1.13 ll) LDGraphicsWindow.FloodFill (p0+60 p300+10 GraphicsWindow.PenColor) EndSub sand_1=LDColours.HSLtoRGB (52 .5 .65) sand_2=LDColours.HSLtoRGB (52 .5 .45) GraphicsWindow.BrushColor = sand_1 GraphicsWindow.FillRectangle (0 153 800 500) b55=.55 LDCall.Function4 ("pdrw" 10 200 216 143) b55=.40 LDCall.Function4 ("pdrw" 280 350 390 277) b55=.3 LDCall.Function4 ("pdrw" 610 170 109 66) GraphicsWindow.Title ="The Pyramids of Egypt End>TZQ371-1.sb< Start>TZQ371.sb< GraphicsWindow.BackgroundColor="teal GraphicsWindow.Width=800 args=0 Sub pdrw GraphicsWindow.PenColor ="gold p300=args[2] p0=args[1] p230=args[3] p147=args[4] GraphicsWindow.DrawLine (p0 p300 p0+p230 p300) GraphicsWindow.DrawLine (p0 p300 p0+p230/2 p300-p147) GraphicsWindow.DrawLine (p0+p230 p300 p0+p230/2 p300-p147) ll=p300-p147*.34 GraphicsWindow.DrawLine (p0+p230 p300 p0+p230*1.13 ll) GraphicsWindow.DrawLine (p0+p230/2 p300-p147 p0+p230*1.13 ll) LDGraphicsWindow.FloodFill (p0+40 p300-20 "gold") LDGraphicsWindow.FloodFill (p0+p230 p300-p147/3 LDColours.HSLtoRGB (30 .9 b55)) GraphicsWindow.PenColor =LDColours.HSLtoRGB (50 .8 .35) GraphicsWindow.DrawLine (p0 p300 p0+p230*1.5 p300+p147/2) GraphicsWindow.DrawLine (p0+p230*1.5 p300+p147/2 p0+p230*1.13 ll) LDGraphicsWindow.FloodFill (p0+60 p300+10 GraphicsWindow.PenColor) EndSub GraphicsWindow.BrushColor =LDColours.HSLtoRGB (50 .8 .45) GraphicsWindow.FillRectangle (0 103 800 500) b55=.55 LDCall.Function4 ("pdrw" 10 300 216 143) b55=.45 LDCall.Function4 ("pdrw" 280 250 230 147) b55=.3 LDCall.Function4 ("pdrw" 610 180 109 66) GraphicsWindow.Title ="The Pyramids of Egypt End>TZQ371.sb< Start>TZQ388.sb< GraphicsWindow.Width = 980 GraphicsWindow.Height = 280 GraphicsWindow.Title = "Motion Detection" movement = Controls.AddTextBox(360,260) sensitivity = 10 img1 = "" img2 = "" working = 0 graph = LDGraph.AddGraph(700,0,280,280,"Histogram","Value","Frequency") webcam = LDWebCam.Start(320,240) Shapes.Move(webcam,20,20) Timer.Interval = 1000 Timer.Tick = OnTick Sub OnTick If (working = 0) Then working = 1 img1 = LDWebCam.SnapshotToImageList() hist = LDImage.Histogram(img1) LDUtilities.PauseUpdates() LDGraph.DeleteSeries(graph,"Red") LDGraph.AddSeriesLine(graph,"Red",hist[1],"Red") LDGraph.DeleteSeries(graph,"Green") LDGraph.AddSeriesLine(graph,"Green",hist[2],"Green") LDGraph.DeleteSeries(graph,"Blue") LDGraph.AddSeriesLine(graph,"Blue",hist[3],"Blue") LDUtilities.ResumeUpdates() If (img2 <> "") Then img = LDImage.DifferenceImages(img1,img2) stats = LDImage.Statistics(img) 'TextWindow.WriteLine(stats["STD"][1]+" , "+stats["STD"][2]+" , "+stats["STD"][3]) LDImage.Multiply(img,10,10,10) GraphicsWindow.DrawResizedImage(img,360,20,320,240) total = Math.Floor(stats["Mean"][1]+stats["Mean"][2]+stats["Mean"][3]) Controls.SetTextBoxText(movement,total) If (total > sensitivity) Then LDImage.Save(img1,Program.Directory+"\movement.jpg") Sound.PlayClickAndWait() EndIf EndIf LDImage.Remove(img2) img2 = img1 LDImage.Remove(img) working = 0 EndIf EndSub End>TZQ388.sb< Start>TZQ815-0.sb< ' mml to mid file exchange sample by NaochanON TZQ815 ' Sample ... MoonLightSonata(Beethoven) MML Code is made by Yvan Leduc ' This uses Free compiler mml2mid.exe. ' mml2mid compiles MML(Music Macro Language) file into SMF(Standard MIDI File format 0 and 1). ' mml2mid.exe is made by Akito Monden, Hideki Fujii, Hisayasu Kuroda and Naoyuki Nide ' See http://hpc.jp/~mml2mid/index-e.html ' you can dowload it from here. http://hpc.jp/~mml2mid/download.html ' select mml530.zip -> download -> unzip ' mml2mid.exe is in the "bin_w32" folder. copy this in your mml file folder. Title="MoonLightSonata_1" Dir= Program.Directory+"\" path= Dir+Title+".mml" dq=text.GetCharacter(34) ' double quotaition" crlf=text.GetCharacter(13)+Text.GetCharacter(10) ' Head="#title"+dq+Title+dq+crlf ' title // unnecessary head=head+"#copyright"+dq+"Original Beethoven /Yvan Leduc / mml2mid by NaochanON"+dq+crlf '// unnecessary head=head+"#timebase 48"+crlf ' timebase // unnecessary head=head+"A t160"+crlf ' tempo unnecessary codes=head ' Codes="" For M=1 To 69 Read_Measure() sum="A " For t=1 To 12 temp=a[t]+n[t] temp=text.ConvertToLowerCase(LDText.Replace(temp,"L64","L0")) 'L64 --> L0 temp=LDText.Replace(temp,"#","+") ' # --> + sum=sum+temp+" " a[t]="" n[t]="" EndFor codes=codes+sum+crlf EndFor ' The following line could be harmful and has been automatically commented. ' File.DeleteFile(path) ' The following line could be harmful and has been automatically commented. ' File.WriteContents(path,codes) Program.Delay(500) LDProcess.Start(Dir+"mml2mid.exe",Title) Program.Delay(500) LDProcess.Start(Dir+Title+".mid","") SUB Read_Measure If (M=1) then ' measure 1 a[1]="O2L64 C#" +"O3L64 C#" +"O4L64 G#" n[1]="O4L4 G#" n[2]="O5L4 C#" n[3]="O5L4 E" n[4]="O4L4 G#" n[5]="O5L4 C#" n[6]="O5L4 E" n[7]="O4L4 G#" n[8]="O5L4 C#" n[9]="O5L4 E" n[10]="O4L4 G#" n[11]="O5L4 C#" n[12]="O5L4 E" ElseIf (M=2) then ' measure 2 a[1]="O2L64 B" +"O3L64 B" +"O4L64 B" n[1]="O4L4 G#" n[2]="O5L4 C#" n[3]="O5L4 E" n[4]="O4L4 G#" n[5]="O5L4 C#" n[6]="O5L4 E" n[7]="O4L4 G#" n[8]="O5L4 C#" n[9]="O5L4 E" n[10]="O4L4 G#" n[11]="O5L4 C#" n[12]="O5L4 E" ElseIf (M=3) then ' measure 3 a[1]="O2L64 A" +"O3L64 A" +"O4L64 A" n[1]="O4L4 A" n[2]="O5L4 C#" n[3]="O5L4 E" n[4]="O4L4 A" n[5]="O5L4 C#" n[6]="O5L4 E" a[7]="O2L64 F#" +"O3L64 F#" +"O4L64 A" n[7]="O4L4 A" n[8]="O5L4 D" n[9]="O5L4 F#" n[10]="O4L4 A" n[11]="O5L4 D" n[12]="O5L4 F#" ElseIf (M=4) then ' measure 4 a[1]="O2L64 G#" +"O3L64 G#" +"O4L64 G#" n[1]="O4L4 G#" n[2]="O5L4 C" n[3]="O5L4 F#" n[4]="O4L4 G#" n[5]="O5L4 C#" n[6]="O5L4 E" a[7]="O2L64 G#" +"O3L64 G#" +"O4L64 G#" n[7]="O4L4 G#" n[8]="O5L4 C#" n[9]="O5L4 E" n[10]="O4L4 G#" n[11]="O5L4 C" n[12]="O5L4 D#" ElseIf (M=5) then ' measure 5 a[1]="O2L64 C#" +"O3L64 C#" +"O4L64 G#" n[1]="O4L4 E" n[2]="O4L4 G#" n[3]="O4L4 C#" n[4]="O4L4 G#" n[5]="O5L4 C#" n[6]="O5L4 E" n[7]="O4L4 G#" n[8]="O5L4 C#" n[9]="O5L4 E" a[10]="O4L64 G#" +"O6L64 G#" n[10]="O6L4 G#" n[11]="O5L4 C#" a[12]="O5L64 E" +"O6L64 G#" n[12]="O5L4 E" ElseIf (M=6) then ' measure 6 a[1]="O2L64 F#" +"O3L64 F#" +"O4L64 C" n[1]="O6L4 G#" n[2]="O5L4 D#" n[3]="O5L4 F#" n[4]="O4L4 G#" n[5]="O5L4 D#" n[6]="O5L4 F#" n[7]="O4L4 G#" n[8]="O5L4 D#" n[9]="O5L4 F#" a[10]="O4L64 G#" +"O6L64 G#" n[10]="O6L4 G#" n[11]="O4L4 D#" a[12]="O5L64 F#" +"O6L64 G#" n[12]="O5L4 F#" ElseIf (M=7) then ' measure 7 a[1]="O3L64 C#" +"O4L64 G#" n[1]="O6L4 G#" n[2]="O5L4 C#" n[3]="O5L4 E" n[4]="O4L4 G#" n[5]="O5L4 C#" n[6]="O5L4 E" a[7]="O3L64 F#" +"O4L64 A" n[7]="O6L4 A" n[8]="O4L4 C#" n[9]="O5L4 F#" n[10]="O4L4 A" n[11]="O5L4 C#" n[12]="O5L4 F#" ElseIf (M=8) then ' measure 8 a[1]="O3L64 B" +"O4L64 G#" n[1]="O6L4 G#" n[2]="O4L4 B" n[3]="O5L4 E" n[4]="O4L4 G#" n[5]="O4L4 B" n[6]="O5L4 E" a[7]="O3L64 B" +"O4L64 G#" n[7]="O6L4 F#" n[8]="O4L4 B" n[9]="O4L4 D#" a[10]="O4L64 A"+"O6L64 B" n[10]="O6L4 B" n[11]="O4L4 B" n[12]="O5L4 D#" ElseIf (M=9) then ' measure 9 a[1]="O3L64 E" +"O4L64 G#" n[1]="O6L4 E" n[2]="O4L4 B" n[3]="O5L4 E" n[4]="O4L4 G#" n[5]="O4L4 B" n[6]="O5L4 E" n[7]="O4L4 G#" n[8]="O4L4 B" n[9]="O5L4 E" n[10]="O4L4 G#" n[11]="O4L4 B" n[12]="O5L4 E" ElseIf (M=10) then ' measure 10 a[1]="O3L64 E" +"O4L64 E" n[1]="O4L4 G" n[2]="O4L4 B" n[3]="O5L4 E" n[4]="O4L4 G" n[5]="O4L4 B" n[6]="O5L4 E n[7]="O4L4 G" n[8]="O4L4 B" n[9]="O5L4 E" a[10]="O3L64 G" +"O6L64 G" n[10]="O6L4 G" n[11]="O4L4 B" a[12]="O5L64 E" +"O6L64 G" n[12]="O5L4 E" ElseIf (M=11) then ' measure 11 a[1]="O3L64 D" +"O6L64 G" n[1]="O6L4 G" n[2]="O4L4 B" n[3]="O5L4 F" n[4]="O4L4 G" n[5]="O4L4 B" n[6]="O5L4 F" n[7]="O4L4 G" n[8]="O4L4 B" n[9]="O5L4 F" a[10]="O3L64 G" +"O6L64 G" n[10]="O6L4 G" n[11]="O4L4 F" a[12]="O5L64 E" +"O6L64 G" n[12]="O6L4 G" ElseIf (M=12) then ' measure 12 a[1]="O3L64 G" +"O5L64 G" n[1]="O6L4 G" n[2]="O4L4 C" n[3]="O5L4 E" a[4]="O3L64 B" +"O4L64 B" n[4]="O5L4 G" n[5]="O4L4 C" n[6]="O5L4 E" a[7]="O2L64 A#" +"O3L64 A#" n[7]="O5L4 G" n[8]="O5L4 C#" n[9]="O5L4 E" a[10]="O4L64 F#"+"O6L64 F#" n[10]="O6L4 F#" n[11]="O4L4 A#" n[12]="O5L4 C#" ElseIf (M=13) then ' measure 13 a[1]="O3L64 B" +"O5L64 F#" n[1]="O6L4 F#" n[2]="O4L4 B" n[3]="O5L4 D" n[4]="O4L4 F#" n[5]="O4L4 B" n[6]="O5L4 D" a[7]="O3L64 E" +"O6L64 G" n[7]="O6L4 G" n[8]="O4L4 B" n[9]="O5L4 C#" a[10]="O3L64 G" +"O6L64 E" n[10]="O6L4 E" n[11]="O4L4 B" n[12]="O5L4 C#" ElseIf (M=14) then ' measure 14 a[1]="O3L64 F#" +"O6L64 F#" n[1]="O6L4 F#" n[2]="O4L4 B" n[3]="O5L4 D" n[4]="O4L4 F#" n[5]="O4L4 B" n[6]="O5L4 D" a[7]="O3L64 F#" +"O4L64 F#" n[7]="O6L4 F#" n[8]="O4L4 A#" n[9]="O5L4 C#" n[10]="O4L4 F#" n[11]="O4L4 A#" n[12]="O5L4 C#" ElseIf (M=15) then ' measure 15 a[1]="O3L64 B" +"O5L64 B" n[1]="O5L4 B" n[2]="O5L4 D" n[3]="O5L4 F#" n[4]="O4L4 B" n[5]="O5L4 D" n[6]="O5L4 F#" n[7]="O4L4 D" n[8]="O5L4 D#" n[9]="O5L4 F#" a[10]="O4L64 B" +"O6L64 B" n[10]="O6L4 B" n[11]="O5L4 D#" n[12]="O5L4 F#" ElseIf (M=16) then ' measure 16 a[1]="O3L64 B" +"O7L64 C" n[1]="O7L4 C" n[2]="O5L4 E" n[3]="O5L4 G" a[4]="O3L64 E" +"O4L64 B" n[4]="O4L4 B" n[5]="O5L4 E" n[6]="O5L4 G" a[7]="O3L64 G" +"O4L64 B" n[7]="O4L4 B" n[8]="O5L4 E" n[9]="O5L4 G" a[10]="O3L64 C" +"O6L64 A#" n[10]="O6L4 A#" n[11]="O5L4 E" n[12]="O5L4 G" ElseIf (M=17) then ' measure 17 a[1]="O3L64 B" +"O6L64 B" n[1]="O6L4 B" n[2]="O5L4 D#" n[3]="O5L4 F#" n[4]="O4L4 B" n[5]="O5L4 D#" n[6]="O5L4 F#" n[7]="O4L4 B" n[8]="O5L4 D#" n[9]="O5L4 F#" a[10]="O3L64 B" +"O6L64 B" n[10]="O6L4 B" n[11]="O5L4 D#" n[12]="O5L4 F#" ElseIf (M=18) then ' measure 18 a[1]="O3L64 B" +"O7L64 C" n[1]="O7L4 C" n[2]="O5L4 E" n[3]="O5L4 G" a[4]="O3L64 E" +"O3L64 B" n[4]="O4L4 B" n[5]="O5L4 E" n[6]="O5L4 G" a[7]="O3L64 G" +"O3L64 B" n[7]="O4L4 B" n[8]="O5L4 E" n[9]="O5L4 G" '♮ a[10]="O3L64 C" +"O6L64 A#" n[10]="O6L4 A#" n[11]="O5L4 E" n[12]="O5L4 G" ElseIf (M=19) then ' measure 19 a[1]="O2L64 B" +"O4L64 B" +"O6L64 B" n[1]="O6L4 B" n[2]="O5L4 D#" n[3]="O5L4 F#" n[4]="O4L4 B" n[5]="O5L4 D#" n[6]="O5L4 F#" a[7]="O2L64 G#" +"O3L64 G#" +"O6L64 B" n[7]="O6L4 B" n[8]="O5L4 D" n[9]="O5L4 F" n[10]="O4L4 B" n[11]="O5L4 D" n[12]="O5L4 F" ElseIf (M=20) then ' measure 20 a[1]="O2L64 F" +"O3L64 F" +"O6L64 B" n[1]="O6L4 B" n[2]="O5L4 C#" n[3]="O5L4 G#" n[4]="O4L4 B" n[5]="O5L4 C#" n[6]="O5L4 G#" a[7]="O2L64 F#" +"O3L64 F#" +"O6L64 A" n[7]="O6L4 A" n[8]="O5L4 C#" n[9]="O5L4 F#" n[10]="O4L4 G#" n[11]="O5L4 C#" n[12]="O5L4 F#" ElseIf (M=21) then ' measure 21 a[1]="O3L64 B" +"O4L64 B" +"O6L64 G" n[1]="O6L4 G" n[2]="O4L4 B" n[3]="O5L4 D" n[4]="O4L4 G" n[5]="O4L4 B" n[6]="O5L4 D" a[7]="O3L64 C" +"O4L64 C" +"O6L64 F#" n[7]="O6L4 F#" n[8]="O4L4 A" n[9]="O5L4 D#" n[10]="O4L4 F#" n[11]="O4L4 A" n[12]="O5L4 D#" ElseIf (M=22) then ' measure 22 a[1]="O3L64 C#" +"O5L64 C#" n[1]="O5L4 C#" n[2]="O4L4 F#" n[3]="O4L4 A" n[4]="O5L4 C#" n[5]="O4L4 F#" n[6]="O4L4 A" a[7]="O3L64 C#" +"O5L64 C#" n[7]="O5L4 C#" n[8]="O4L4 F#" n[9]="O4L4 G#" a[10]="O3L64 C#" +"O5L64 C#" n[10]="O4L4 C#" n[11]="O4L4 F" n[12]="O4L4 G#" ElseIf (M=23) then ' measure 23 a[1]="O2L64 F#" +"O3L64 C#" +"O4L64 F#" n[1]="O4L4 F#" n[2]="O4L4 A" n[3]="O5L4 C#" n[4]="O4L4 A" n[5]="O5L4 C#" n[6]="O5L4 F#" n[7]="O5L4 C#" n[8]="O5L4 F#" n[9]="O5L4 A" a[10]="O4L64 E" +"O6L64 C#" n[10]="O6L4 C#" n[11]="O5L4 F#" a[12]="O5L64 A" +"O6L64 C#" n[12]="O6L4 C#" ElseIf (M=24) then ' measure 24 a[1]="O3L64 F" +"O6L64 C#" n[1]="O4L4 C#" n[2]="O4L4 G#" n[3]="O4L4 B" n[4]="O4L4 C#" n[5]="O4L4 G#" n[6]="O4L4 B" n[7]="O4L4 C#" n[8]="O4L4 G#" n[9]="O4L4 B a[10]="O4L64 C#" +"O6L64 C#" n[10]="O6L4 C#" n[11]="O4L4 G#" a[12]="O4L64 B" +"O6L64 C#" n[12]="O6L4 C#" ElseIf (M=25) then ' measure 25 a[1]="O3L64 F#" +"O6L64 C#" n[1]="O6L4 C#" n[2]="O4L4 F#" n[3]="O4L4 A" n[4]="O4L4 C#" n[5]="O4L4 F#" n[6]="O4L4 A" a[7]="O4L64 D#" +"O6L64 C" n[7]="O6L4 C" n[8]="O4L4 F#" n[9]="O4L4 A" a[10]="O3L64 C#" +"O6L64 C#" n[10]="O6L4 C#" n[11]="O4L4 F#" n[12]="O4L4 A" ElseIf (M=26) then ' measure 26 a[1]="O3L64 C" +"O6L64 D#" n[1]="O6L4 D#" n[2]="O4L4 F#" n[3]="O4L4 G#" n[4]="O4L4 D#" n[5]="O4L4 F#" n[6]="O4L4 G#" n[7]="O4L4 D#" n[8]="O4L4 F#" n[9]="O4L4 G#" a[10]="O3L64 C" +"O6L64 D#" n[10]="O6L4 D#" n[11]="O4L4 F#" n[12]="O4L4 G#" ElseIf (M=27) then ' measure 27 a[1]="O3L64 C#" +"O6L64 E" n[1]="O6L4 E" n[2]="O4L4 G#" n[3]="O4L4 C#" n[4]="O4L4 E" n[5]="O4L4 G#" n[6]="O4L4 C#" a[7]="O3L64 F#" +"O6L64 D#" n[7]="O6L4 D#" n[8]="O4L4 F#" n[9]="O4L4 A" a[10]="O3L64 G" +"O6L64 C#" n[10]="O6L4 C#" n[11]="O4L4 E" n[12]="O4L4 A#" ElseIf (M=28) then ' measure 28 a[1]="O3L64 G#" +"O6L64 C" n[1]="O5L4 C" n[2]="O4L4 C" n[3]="O4L4 D#" a[4]="O4L64 G#" +"O6L64 G#" n[4]="O6L4 G#" n[5]="O4L4 C" n[6]="O4L4 D#" a[7]="O4L64 A" +"O6L64 A" n[7]="O6L4 A" n[8]="O4L4 C" n[9]="O4L4 D#" a[10]="O4L64 F#" +"O6L64 F#" n[10]="O6L4 F#" n[11]="O4L4 C" n[12]="O4L4 D#" ElseIf (M=29) then ' measure 29 n[1]="O3L64 G#" n[2]="O4L4 C" n[3]="O4L4 D#" a[4]="O3L64 G#" +"O5L64 G#" n[4]="O5L4 G#" n[5]="O4L4 C" n[6]="O4L4 D#" a[7]="O3L64 G#" +"O5L64 A" n[7]="O5L4 A" n[8]="O4L4 C" n[9]="O4L4 D#" a[10]="O3L64 E" +"O5L64 F#" n[10]="O5L4 F#" n[11]="O4L4 C" n[12]="O4L4 D#" ElseIf (M=30) then ' measure 30 a[1]="O3L64 G#" +"O3L64 E" n[1]="O3L4 E" n[2]="O4L4 E" n[3]="O4L4 G#" a[4]="O5L64 C#" +"O6L64 C#" n[4]="O3L4 E" n[5]="O4L4 E" n[6]="O4L4 G#" a[7]="O5L64 E" +"O6L64 E" n[7]="O6L4 E" n[8]="O4L4 E" n[9]="O4L4 G#" a[10]="O5L64 C#" +"O6L64 C#" n[10]="O6L4 C#" n[11]="O4L4 E" n[12]="O4L4 G#" ElseIf (M=31) then ' measure 31 a[1]="O3L64 G#"+"O3L64 G#" n[1]="O3L4 G#" n[2]="O4L4 E" n[3]="O4L4 G#" a[4]="O5L64 C#" +"O5L64 C#" n[5]="O4L4 E" n[6]="O4L4 G#" a[7]="O4L64 E" +"O6L64 E" n[7]="O6L4 E" n[8]="O4L4 E" n[9]="O4L4 G#" a[10]="O4L64 C#" +"O5L64 C#" n[10]="O5L4 C#" n[11]="O4L4 E" n[12]="O4L4 G#" ElseIf (M=32) then ' measure 32 a[1]="O2L64 G#"+"O3L64 F#" n[1]="O4L4 F#" n[2]="O3L4 A" n[3]="O3L4 F#" n[4]="O5L4 C" n[5]="O4L4 A" n[6]="O5L4 D#" n[7]="O5L4 C" n[8]="O5L4 F#" n[9]="O5L4 D#" n[10]="O5L4 A" n[11]="O5L4 F#" n[12]="O6L4 C" ElseIf (M=33) then ' measure 33 a[1]="O2L64 G#"+"O3L64 E" n[1]="O4L4 E" n[2]="O4L4 C#" n[3]="O3L4 G#" n[4]="O5L4 E" n[5]="O5L4 C#" n[6]="O5L4 G#" n[7]="O5L4 E" n[8]="O6L4 C#" n[9]="O5L4 G#" n[10]="O6L4 E" n[11]="O6L4 C#" n[12]="O5L4 G#" ElseIf (M=34) then ' measure 34 a[1]="O2L64 G#"+"O3L64 G#" n[1]="O4L4 G#" n[2]="O5L4 G" n[3]="O5L4 E" n[4]="O5L4 A#" n[5]="O5L4 G" n[6]="O6L4 C#" n[7]="O5L4 A#" n[8]="O6L4 E" n[9]="O6L4 C#" n[10]="O6L4 G" n[11]="O6L4 E" n[12]="O6L4 A#" ElseIf (M=35) then ' measure 35 a[1]="O2L64 G#"+"O4L64 F#" n[1]="O5L4 F#" n[2]="O6L4 C" n[3]="O5L4 A" n[4]="O6L4 D#" n[5]="O6L4 C" n[6]="O6L4 F#" n[7]="O6L4 D#" n[8]="O6L4 A" n[9]="O6L4 F#" n[10]="O7L4 C" n[11]="O6L4 A" n[12]="O7L4 D#" ElseIf (M=36) then ' measure 36 a[1]="O2L64 G#"+"O3L64 G#"+"O7L64 C" n[1]="O7L4 C" n[2]="O6L4 F#" n[3]="O6L4 A" n[4]="O6L4 D#" n[5]="O6L4 F#" n[6]="O6L4 C" n[7]="O6L4 D#" n[8]="O5L4 A" n[9]="O6L4 C" n[10]="O5L4 F#" n[11]="O5L4 A" n[12]="O5L4 D#" ElseIf (M=37) then ' measure 37 a[1]="O2L64 G#"+"O3L64 G#"+"O5L64 F#" n[1]="O5L4 F#" n[2]="O5L4 C" n[3]="O5L4 D#" n[4]="O5L4 A" n[5]="O6L4 C" n[6]="O5L4 F#" a[7]="O5L64 A"+"O6L64 A" n[7]="O5L4 A" n[8]="O5L4 D#" n[9]="O5L4 F#" a[10]="O5L64 C#"+"O6L64 C#" n[10]="O5L4 C#" n[11]="O5L4 F#" n[12]="O5L4 A" ElseIf (M=38) then ' measure 38 a[1]="O2L64 G#"+"O3L64 G#"+"O5L64 C" n[1]="O5L4 C" n[2]="O5L4 F#" n[3]="O5L4 G#" n[4]="O5L4 A" n[5]="O5L4 G#" n[6]="O5L4 F# " a[7]="O5L64 D#"+"O6L64 D#" n[7]="O5L4 D#" n[8]="O5L4 F#" n[9]="O5L4 A" a[10]="O5L64 C#"+"O6L64 C#" n[10]="O5L4 C#" n[11]="O5L4 F#" n[12]="O5L4 A" ElseIf (M=39) then ' measure 39 a[1]="O2L64 G#"+"O3L64 G#"+"O5L64 C" n[1]="O5L4 C" n[2]="O5L4 F#" n[3]="O5L4 G#" n[4]="O5L4 A" n[5]="O5L4 G#" n[6]="O5L4 F# " a[7]="O5L64 D"+"O6L64 D" n[7]="O5L4 D" n[8]="O5L4 F#" n[9]="O5L4 A" a[10]="O5L64 C#"+"O6L64 C#" n[10]="O5L4 C#" n[11]="O5L4 F#" n[12]="O5L4 A" ElseIf (M=40) then ' measure 40 a[1]="O2L64 G#"+"O3L64 G#"+"O5L64 C" n[1]="O5L4 C" n[2]="O5L4 F#" n[3]="O5L4 G#" n[4]="O5L4 A" n[5]="O5L4 G#" n[6]="O5L4 F#" ' a[7]="O2L64 A"+"O3L64 A"+"O5L64 C#" n[7]="O5L4 C#" n[8]="O5L4 E" n[9]="O6L4 C#" n[10]="O5L4 C#" n[11]="O5L4 E" n[12]="O6L4 C#" ElseIf (M=41) then ' measure 41 a[1]="O2L64 F#"+"O3L64 F#"+"O5L64 D#" n[1]="O5L4 D#" n[2]="O5L4 A" n[3]="O6L4 C#" n[4]="O5L4 D#" n[5]="O5L4 A" n[6]="O6L4 C#" a[7]="O2L64 G#"+"O3L64 G#"+"O5L64 D#" n[7]="O5L4 D#" n[8]="O5L4 G#" n[9]="O6L4 C" n[10]="O5L4 D#" n[11]="O5L4 G#" n[12]="O6L4 C" ElseIf (M=42) then ' measure 42 a[1]="O3L64 C#"+"O3L64 G#"+"O5L64 E" n[1]="O5L4 E" n[2]="O5L4 G#" n[3]="O6L4 C#" n[4]="O4L4 G#" n[5]="O5L4 C#" n[6]="O5L4 E" n[7]="O4L4 G#" n[8]="O5L4 C#" n[9]="O5L4 E" a[10]="O4L64 G#"+"O6L64 G#" n[10]="O6L4 G#" n[11]="O5L4 C#" a[12]="O5L64 E"+"O6L64 G#" n[12]="O6L4 G#" ElseIf (M=43) then ' measure 43 a[1]="O3L64 C"+"O4L64 G#"+"O6L64 G#" n[1]="O6L4 G#" n[2]="O5L4 D#" n[3]="O5L4 F#" n[4]="O4L4 G#" n[5]="O5L4 D#" n[6]="O5L4 F#" n[7]="O4L4 G#" n[8]="O5L4 D#" n[9]="O5L4 F#" a[10]="O4L64 G#"+"O6L64 G#" n[10]="O6L4 G#" n[11]="O5L4 D#" a[12]="O5L64 F#"+"O6L64 G#" ' <---- n[12]="O6L4 G#" ElseIf (M=44) then ' measure 44 a[1]="O3L64 C#"+"O4L64 G#"+"O6L64 G#" n[1]="O6L4 G#" n[2]="O5L4 C#" n[3]="O5L4 E" n[4]="O4L4 G#" n[5]="O5L4 C#" n[6]="O5L4 E" a[7]="O3L64 F#"+"O4L64 A"+"O6L64 A" n[7]="O6L4 A" n[8]="O5L4 C#" n[9]="O5L4 F#" n[10]="O4L4 A" n[11]="O5L4 C#" n[12]="O5L4 F#" ElseIf (M=45) then ' measure 45 a[1]="O3L64 B"+"O4L64 G#"+"O6L64 G#" n[1]="O6L4 G#" n[2]="O4L4 B" n[3]="O5L4 E" n[4]="O4L4 G#" n[5]="O4L4 B" n[6]="O5L4 E" a[7]="O3L64 B"+"O4L64 A"+"O6L64 F#" n[7]="O6L4 F#" n[8]="O4L4 B" n[9]="O5L4 D#" a[10]="O3L64 B"+"O4L64 A"+"O6L64 B" n[10]="O6L4 B" n[11]="O4L4 B" n[12]="O5L4 D# ElseIf (M=46) then ' measure 46 a[1]="O3L64 E"+"O4L64 G#"+"O6L64 E" n[1]="O6L4 E" n[2]="O4L4 B" n[3]="O5L4 E" n[4]="O4L4 B" n[5]="O5L4 E" n[6]="O5L4 G#" n[7]="O4L4 B" n[8]="O5L4 E" n[9]="O5L4 G#" a[10]="O4L64 B"+"O6L64 B" n[10]="O6L4 B" n[11]="O5L4 E" a[12]="O5L64 G#"+"O6L64 B" n[12]="O6L4 B" ElseIf (M=47) then ' measure 47 a[1]="O3L64 D#"+"O4L64 B"+"O6L64 B" n[1]="O6L4 B" n[2]="O5L4 F#" n[3]="O5L4 A" n[4]="O4L4 B" n[5]="O5L4 F#" n[6]="O5L4 A" n[7]="O4L4 B" n[8]="O5L4 F#" n[9]="O5L4 A" a[10]="O4L64 B"+"O6L64 B" n[10]="O6L4 B" n[11]="O5L4 F#" a[12]="O5L64 A"+"O6L64 B" n[12]="O6L4 B" ElseIf (M=48) then ' measure 48 a[1]="O3L64 E"+"O4L64 B"+"O6L64 B" n[1]="O4L4 B" n[2]="O5L4 F#" n[3]="O5L4 A" n[4]="O4L4 B" n[5]="O5L4 F#" n[6]="O5L4 A" a[7]="O3L64 D#"+"O7L64 C" n[7]="O7L4 C" n[8]="O5L4 F#" n[9]="O5L4 G#" a[10]="O3L64 C#"+"O7L64 C#" n[10]="O7L4 C#" n[11]="O5L4 E" n[12]="O5L4 G#" ElseIf (M=49) then ' measure 49 a[1]="O3L64 C"+"O4L64 G#"+"O7L64 D#" n[1]="O7L4 D#" n[2]="O5L4 F#" n[3]="O5L4 G#" n[4]="O5L4 D#" n[5]="O5L4 F#" n[6]="O5L4 G#" a[7]="O3L64 C#"+"O4L64 E"+"O7L64 E" n[7]="O7L4 E" n[8]="O5L4 F#" n[9]="O6L4 C#" n[10]="O5L4 E" n[11]="O5L4 F#" n[12]="O6L4 C#" ElseIf (M=50) then ' measure 50 a[1]="O3L64 C#"+"O4L64 D"+"O7L64 D" n[1]="O7L4 D" n[2]="O5L4 F#" n[3]="O5L4 A" n[4]="O5L4 D" n[5]="O5L4 F#" n[6]="O5L4 A" a[7]="O3L64 D"+"O7L64 C" n[7]="O7L4 C" n[8]="O5L4 F#" n[9]="O5L4 G#" n[10]="O5L4 C" n[11]="O5L4 F#" n[12]="O5L4 G#" ElseIf (M=51) then ' measure 51 a[1]="O3L64 C#"+"O4L64 C#"+"O7L64 C#" n[1]="O7L4 C#" n[2]="O5L4 E" n[3]="O5L4 G#" n[4]="O5L4 C#" n[5]="O5L4 E" n[6]="O5L4 G#" n[7]="O5L4 C#" n[8]="O5L4 F" n[9]="O5L4 G#" a[10]="O5L64 C#" +"O7L64 C#" n[10]="O5L4 C#" n[11]="O5L4 F" n[12]="O5L4 G# ElseIf (M=52) then ' measure 52 a[1]="O3L64 C#"+"O4L64 C#"+"O7L64 D" n[1]="O7L4 D" n[2]="O5L4 F#" n[3]="O5L4 A" a[4]="O3L64 F#"+"O4L64 F#" +"O5L64 C#" n[4]="O5L4 C#" n[5]="O5L4 F#" n[6]="O5L4 A" a[7]="O3L64 A"+"O4L64 A"+"O7L64 C" n[7]="O7L4 C" n[8]="O5L4 F#" n[9]="O5L4 A" a[10]="O3L64 F#"+"O5L64 C#" n[10]="O5L4 C#" n[11]="O5L4 F#" n[12]="O5L4 A" ElseIf (M=53) then ' measure 53 a[1]="O3L64 C#"+"O4L64 C#"+"O7L64 C#" n[1]="O7L4 C#" n[2]="O5L4 F" n[3]="O5L4 G#" n[4]="O5L4 C#" n[5]="O5L4 F" n[6]="O5L4 G#" n[7]="O5L4 C#" n[8]="O5L4 F" n[9]="O5L4 G#" a[10]="O5L64 C#"+"O7L64 C#" n[10]="O7L4 C#" n[11]="O5L4 F" n[12]="O5L4 G#" ElseIf (M=54) then ' measure 54 a[1]="O3L64 C#"+"O4L64 C#"+"O7L64 D" n[1]="O7L4 D" n[2]="O5L4 F#" n[3]="O5L4 A" a[4]="O3L64 F#"+"O4L64 F#" n[4]="O5L4 C#" n[5]="O5L4 F#" n[6]="O5L4 A" a[7]="O3L64 A"+"O4L64 A" n[7]="O7L4 C" n[8]="O5L4 F#" n[9]="O5L4 A" a[10]="O3L64 F#"+"O5L64 C#" +"O7L64 C" n[10]="O7L4 C" n[11]="O5L4 F#" n[12]="O5L4 A" ElseIf (M=55) then ' measure 55 a[1]="O3L64 C#"+"O4L64 C#"+"O7L64 C#" n[1]="O7L4 C#" n[2]="O5L4 F" n[3]="O5L4 G#" n[4]="O5L4 C#" n[5]="O5L4 F" n[6]="O5L4 G#" a[7]="O3L64 F#"+"O3L64 F#"+"O7L64 C#" n[7]="O5L4 C#" n[8]="O5L4 F" n[9]="O5L4 G#" n[10]="O5L4 C#" n[11]="O5L4 F" n[12]="O5L4 G#" ElseIf (M=56) then ' measure 56 a[1]="O3L64 B"+"O4L64 B"+"O6L64 B" n[1]="O6L4 B" n[2]="O5L4 F#" n[3]="O5L4 A" n[4]="O4L4 B" n[5]="O5L4 F#" n[6]="O5L4 A" n[7]="O4L4 B" n[8]="O5L4 F#" n[9]="O5L4 A" a[10]="O3L64 C#"+"O4L64 C#"+"O6L64 B" n[10]="O4L4 B" n[11]="O5L4 E" n[12]="O5L4 G#" ElseIf (M=57) then ' measure 57 a[1]="O3L64 C#"+"O4L64 A"+"O6L64 A" n[1]="O6L4 A" n[2]="O5L4 E" n[3]="O5L4 G#" a[4]="O3L64 D#"+"O4L64 D#"+"O6L64 A" n[4]="O6L4 A" n[5]="O5L4 D#" n[6]="O5L4 F#" a[7]="O3L64 C"+"O4L64 C"+"O6L64 G#" n[7]="O6L4 G#" n[8]="O5L4 D#" n[9]="O5L4 F#" a[10]="O3L64 C#"+"O4L64 A"+"O6L64 G#" n[10]="O6L4 G#" n[11]="O5L4 C#" n[12]="O5L4 E" ElseIf (M=58) then ' measure 58 a[1]="O3L64 F#"+"O4L64 A"+"O6L64 F#" n[1]="O6L4 F#" n[2]="O5L4 C#" n[3]="O5L4 D#" n[4]="O5L4 F#" n[5]="O5L4 C#" n[6]="O5L4 D#" a[7]="O3L64 E"+"O4L64 G#"+"O6L64 G#" n[7]="O6L4 G#" n[8]="O5L4 C#" n[9]="O5L4 D#" a[10]="O3L64 D#"+"O4L64 D#"+"O6L64 A" n[10]="O6L4 A" n[11]="O5L4 C#" n[12]="O5L4 D#" ElseIf (M=59) then ' measure 59 a[1]="O2L64 E"+"O4L64 G#"+"O6L64 G#" n[1]="O6L4 G#" n[2]="O5L4 C#" n[3]="O5L4 E" n[4]="O5L4 G#" n[5]="O5L4 C#" n[6]="O5L4 E" a[7]="O3L64 E"+"O4L64 F#"+"O6L64 G#" n[7]="O5L4 G#" n[8]="O5L4 C" n[9]="O5L4 D# n[10]="O5L4 F#" n[11]="O5L4 C" n[12]="O5L4 D#" ElseIf (M=60) then ' measure 60 a[1]="O3L64 C#"+"O4L64 G#"+"O5L64 C#" n[1]="O5L4 C#" n[2]="O3L4 G#" n[3]="O4L4 C#" n[4]="O4L4 G#" n[5]="O5L4 C#" n[6]="O5L4 E" n[7]="O4L4 G#" n[8]="O5L4 C#" n[9]="O5L4 E" a[10]="O3L64 C#"+"O4L64 G#" n[10]="O5L4 G#" n[11]="O5L4 C#" n[12]="O4L64 C#"+"O5L4 E" ElseIf (M=61) then ' measure 61 a[1]="O3L64 C"+"O3L64 G#" n[1]="O4L4 G#" n[2]="O5L4 D#" n[3]="O5L4 F#" n[4]="O4L4 G#" n[5]="O5L4 D#" n[6]="O5L4 F#" n[7]="O4L4 G#" n[8]="O5L4 D#" n[9]="O5L4 F#" a[10]="O3L64 G#"+"O4L64 G#" n[10]="O4L4 G#" n[11]="O5L4 D#" n[12]="O4L64 G#"+"O5L4 F#" ElseIf (M=62) then ' measure 62 a[1]="O3L64 C#"+"O3L64 G#" n[1]="O4L4 G#" n[2]="O5L4 E" n[3]="O5L4 C#" n[4]="O5L4 G#" n[5]="O5L4 E" n[6]="O6L4 C#" n[7]="O5L4 G#" n[8]="O6L4 E" n[9]="O6L4 C#" a[10]="O4L64 G#"+"O6L64 G#" n[10]="O6L4 G#" n[11]="O6L4 E" n[12]="O4L64 G#"+"O6L4 C#" ElseIf (M=63) then ' measure 63 a[1]="O2L64 G#"+"O3L64 G#"+"O6L64 C" n[1]="O6L4 C" n[2]="O6L4 D#" n[3]="O5L4 A" n[4]="O6L4 C" n[5]="O5L4 F#" n[6]="O5L4 A" n[7]="O5L4 D#" n[8]="O5L4 F#" n[9]="O5L4 A" a[10]="O4L64 G#"+"O6L64 C" n[10]="O6L4 C" n[11]="O5L4 G#" n[12]="O4L64 G#"+"O6L4 C#" ElseIf (M=64) then ' measure 64 a[1]="O3L64 C#"+"O3L64 G#"+"O6L64 C#" n[1]="O6L4 C#" n[2]="O5L4 E" n[3]="O5L4 C#" n[4]="O5L4 G#" n[5]="O5L4 E" n[6]="O6L4 C#" n[4]="O5L4 G#" n[5]="O6L4 E" n[6]="O6L4 C#" a[10]="O4L64 G#"+"O6L64 G#" n[10]="O6L4 G#" n[11]="O6L4 E" n[12]="O4L64 G#"+"O6L4 C#" ElseIf (M=65) then ' measure 65 a[1]="O2L64 G#"+"O3L64 G#"+"O6L64 C" n[1]="O6L4 C" n[2]="O6L4 D#" n[3]="O5L4 A" n[4]="O6L4 C" n[5]="O5L4 F#" n[6]="O5L4 A" n[7]="O6L4 D#" n[8]="O6L4 F#" n[9]="O5L4 A" a[10]="O4L64 G#"+"O6L64 C" n[10]="O6L4 C" n[11]="O5L4 G#" n[12]="O4L64 G#"+"O5L4 F#" ElseIf (M=66) then ' measure 66 a[1]="O3L64 C#"+"O3L64 G#"+"O6L64 C#" n[1]="O6L4 C#" n[2]="O5L4 G#" n[3]="O6L4 C#" n[4]="O6L4 E" n[5]="O6L4 C#" n[6]="O5L4 G#" n[7]="O5L4 C#" n[8]="O5L4 E" n[9]="O5L4 G#" n[10]="O6L4 C#" n[11]="O5L4 G#" n[12]="O5L4 E" ElseIf (M=67) then ' measure 67 a[1]="O3L64 C#"+"O4L64 G#" n[1]="O4L4 G#" n[2]="O5L4 E" n[3]="O5L4 G#" n[4]="O6L4 C#" n[5]="O5L4 G#" n[6]="O5L4 E" n[7]="O4L4 G#" n[8]="O5L4 C#" n[9]="O4L4 G#" n[10]="O4L4 E" n[11]="O4L4 G#" n[12]="O4L4 E" ElseIf (M=68) then ' measure 68 a[1]="O2L64 C#"+"O3L64 C#" n[1]="O4L1 C#" a[2]="O3L64 C#"+"O4L64 G#" n[2]="O4L1 G#" ElseIf (M=69) then ' measure 69 a[1]="O2L64 C#"+"O3L64 C#" n[1]="O4L1 C#" EndIf EndSub End>TZQ815-0.sb< Start>TZQ815.sb< ' mml to mid file exchange sample by NaochanON ' Sample ... MoonLightSonata(Beethoven) MML Code is made by Yvan Leduc ' This uses Free compiler mml2mid.exe. ' mml2mid compiles MML(Music Macro Language) file into SMF(Standard MIDI File format 0 and 1). ' mml2mid.exe is made by Akito Monden, Hideki Fujii, Hisayasu Kuroda and Naoyuki Nide ' See http://hpc.jp/~mml2mid/index-e.html Title="MoonLightSonata_1" Dir= Program.Directory+"\" path= Dir+Title+".mml" dq=text.GetCharacter(34) ' double quotaition" crlf=text.GetCharacter(13)+Text.GetCharacter(10) ' Head="#title"+dq+Title+dq+crlf ' title // unnecessary head=head+"#copyright"+dq+"Original Beethoven /Yvan Leduc / mml2mid by NaochanON"+dq+crlf '// unnecessary head=head+"#timebase 48"+crlf ' timebase // unnecessary head=head+"A t160"+crlf ' tempo unnecessary codes=head ' Codes="" For M=1 To 69 Read_Measure() sum="A " For t=1 To 12 temp=a[t]+n[t] temp=text.ConvertToLowerCase(LDText.Replace(temp,"L64","L0")) 'L64 --> L0 temp=LDText.Replace(temp,"#","+") ' # --> + sum=sum+temp+" " a[t]="" n[t]="" EndFor codes=codes+sum+crlf EndFor ' The following line could be harmful and has been automatically commented. ' File.DeleteFile(path) ' The following line could be harmful and has been automatically commented. ' File.WriteContents(path,codes) Program.Delay(500) LDProcess.Start(Dir+"mml2mid.exe",Title) Program.Delay(500) LDProcess.Start(Dir+Title+".mid","") SUB Read_Measure If (M=1) then ' measure 1 a[1]="O2L64 C#" +"O3L64 C#" +"O4L64 G#" n[1]="O4L4 G#" n[2]="O5L4 C#" n[3]="O5L4 E" n[4]="O4L4 G#" n[5]="O5L4 C#" n[6]="O5L4 E" n[7]="O4L4 G#" n[8]="O5L4 C#" n[9]="O5L4 E" n[10]="O4L4 G#" n[11]="O5L4 C#" n[12]="O5L4 E" ElseIf (M=2) then ' measure 2 a[1]="O2L64 B" +"O3L64 B" +"O4L64 B" n[1]="O4L4 G#" n[2]="O5L4 C#" n[3]="O5L4 E" n[4]="O4L4 G#" n[5]="O5L4 C#" n[6]="O5L4 E" n[7]="O4L4 G#" n[8]="O5L4 C#" n[9]="O5L4 E" n[10]="O4L4 G#" n[11]="O5L4 C#" n[12]="O5L4 E" ElseIf (M=3) then ' measure 3 a[1]="O2L64 A" +"O3L64 A" +"O4L64 A" n[1]="O4L4 A" n[2]="O5L4 C#" n[3]="O5L4 E" n[4]="O4L4 A" n[5]="O5L4 C#" n[6]="O5L4 E" a[7]="O2L64 F#" +"O3L64 F#" +"O4L64 A" n[7]="O4L4 A" n[8]="O5L4 D" n[9]="O5L4 F#" n[10]="O4L4 A" n[11]="O5L4 D" n[12]="O5L4 F#" ElseIf (M=4) then ' measure 4 a[1]="O2L64 G#" +"O3L64 G#" +"O4L64 G#" n[1]="O4L4 G#" n[2]="O5L4 C" n[3]="O5L4 F#" n[4]="O4L4 G#" n[5]="O5L4 C#" n[6]="O5L4 E" a[7]="O2L64 G#" +"O3L64 G#" +"O4L64 G#" n[7]="O4L4 G#" n[8]="O5L4 C#" n[9]="O5L4 E" n[10]="O4L4 G#" n[11]="O5L4 C" n[12]="O5L4 D#" ElseIf (M=5) then ' measure 5 a[1]="O2L64 C#" +"O3L64 C#" +"O4L64 G#" n[1]="O4L4 E" n[2]="O4L4 G#" n[3]="O4L4 C#" n[4]="O4L4 G#" n[5]="O5L4 C#" n[6]="O5L4 E" n[7]="O4L4 G#" n[8]="O5L4 C#" n[9]="O5L4 E" a[10]="O4L64 G#" +"O6L64 G#" n[10]="O6L4 G#" n[11]="O5L4 C#" a[12]="O5L64 E" +"O6L64 G#" n[12]="O5L4 E" ElseIf (M=6) then ' measure 6 a[1]="O2L64 F#" +"O3L64 F#" +"O4L64 C" n[1]="O6L4 G#" n[2]="O5L4 D#" n[3]="O5L4 F#" n[4]="O4L4 G#" n[5]="O5L4 D#" n[6]="O5L4 F#" n[7]="O4L4 G#" n[8]="O5L4 D#" n[9]="O5L4 F#" a[10]="O4L64 G#" +"O6L64 G#" n[10]="O6L4 G#" n[11]="O4L4 D#" a[12]="O5L64 F#" +"O6L64 G#" n[12]="O5L4 F#" ElseIf (M=7) then ' measure 7 a[1]="O3L64 C#" +"O4L64 G#" n[1]="O6L4 G#" n[2]="O5L4 C#" n[3]="O5L4 E" n[4]="O4L4 G#" n[5]="O5L4 C#" n[6]="O5L4 E" a[7]="O3L64 F#" +"O4L64 A" n[7]="O6L4 A" n[8]="O4L4 C#" n[9]="O5L4 F#" n[10]="O4L4 A" n[11]="O5L4 C#" n[12]="O5L4 F#" ElseIf (M=8) then ' measure 8 a[1]="O3L64 B" +"O4L64 G#" n[1]="O6L4 G#" n[2]="O4L4 B" n[3]="O5L4 E" n[4]="O4L4 G#" n[5]="O4L4 B" n[6]="O5L4 E" a[7]="O3L64 B" +"O4L64 G#" n[7]="O6L4 F#" n[8]="O4L4 B" n[9]="O4L4 D#" a[10]="O4L64 A"+"O6L64 B" n[10]="O6L4 B" n[11]="O4L4 B" n[12]="O5L4 D#" ElseIf (M=9) then ' measure 9 a[1]="O3L64 E" +"O4L64 G#" n[1]="O6L4 E" n[2]="O4L4 B" n[3]="O5L4 E" n[4]="O4L4 G#" n[5]="O4L4 B" n[6]="O5L4 E" n[7]="O4L4 G#" n[8]="O4L4 B" n[9]="O5L4 E" n[10]="O4L4 G#" n[11]="O4L4 B" n[12]="O5L4 E" ElseIf (M=10) then ' measure 10 a[1]="O3L64 E" +"O4L64 E" n[1]="O4L4 G" n[2]="O4L4 B" n[3]="O5L4 E" n[4]="O4L4 G" n[5]="O4L4 B" n[6]="O5L4 E n[7]="O4L4 G" n[8]="O4L4 B" n[9]="O5L4 E" a[10]="O3L64 G" +"O6L64 G" n[10]="O6L4 G" n[11]="O4L4 B" a[12]="O5L64 E" +"O6L64 G" n[12]="O5L4 E" ElseIf (M=11) then ' measure 11 a[1]="O3L64 D" +"O6L64 G" n[1]="O6L4 G" n[2]="O4L4 B" n[3]="O5L4 F" n[4]="O4L4 G" n[5]="O4L4 B" n[6]="O5L4 F" n[7]="O4L4 G" n[8]="O4L4 B" n[9]="O5L4 F" a[10]="O3L64 G" +"O6L64 G" n[10]="O6L4 G" n[11]="O4L4 F" a[12]="O5L64 E" +"O6L64 G" n[12]="O6L4 G" ElseIf (M=12) then ' measure 12 a[1]="O3L64 G" +"O5L64 G" n[1]="O6L4 G" n[2]="O4L4 C" n[3]="O5L4 E" a[4]="O3L64 B" +"O4L64 B" n[4]="O5L4 G" n[5]="O4L4 C" n[6]="O5L4 E" a[7]="O2L64 A#" +"O3L64 A#" n[7]="O5L4 G" n[8]="O5L4 C#" n[9]="O5L4 E" a[10]="O4L64 F#"+"O6L64 F#" n[10]="O6L4 F#" n[11]="O4L4 A#" n[12]="O5L4 C#" ElseIf (M=13) then ' measure 13 a[1]="O3L64 B" +"O5L64 F#" n[1]="O6L4 F#" n[2]="O4L4 B" n[3]="O5L4 D" n[4]="O4L4 F#" n[5]="O4L4 B" n[6]="O5L4 D" a[7]="O3L64 E" +"O6L64 G" n[7]="O6L4 G" n[8]="O4L4 B" n[9]="O5L4 C#" a[10]="O3L64 G" +"O6L64 E" n[10]="O6L4 E" n[11]="O4L4 B" n[12]="O5L4 C#" ElseIf (M=14) then ' measure 14 a[1]="O3L64 F#" +"O6L64 F#" n[1]="O6L4 F#" n[2]="O4L4 B" n[3]="O5L4 D" n[4]="O4L4 F#" n[5]="O4L4 B" n[6]="O5L4 D" a[7]="O3L64 F#" +"O4L64 F#" n[7]="O6L4 F#" n[8]="O4L4 A#" n[9]="O5L4 C#" n[10]="O4L4 F#" n[11]="O4L4 A#" n[12]="O5L4 C#" ElseIf (M=15) then ' measure 15 a[1]="O3L64 B" +"O5L64 B" n[1]="O5L4 B" n[2]="O5L4 D" n[3]="O5L4 F#" n[4]="O4L4 B" n[5]="O5L4 D" n[6]="O5L4 F#" n[7]="O4L4 D" n[8]="O5L4 D#" n[9]="O5L4 F#" a[10]="O4L64 B" +"O6L64 B" n[10]="O6L4 B" n[11]="O5L4 D#" n[12]="O5L4 F#" ElseIf (M=16) then ' measure 16 a[1]="O3L64 B" +"O7L64 C" n[1]="O7L4 C" n[2]="O5L4 E" n[3]="O5L4 G" a[4]="O3L64 E" +"O4L64 B" n[4]="O4L4 B" n[5]="O5L4 E" n[6]="O5L4 G" a[7]="O3L64 G" +"O4L64 B" n[7]="O4L4 B" n[8]="O5L4 E" n[9]="O5L4 G" a[10]="O3L64 C" +"O6L64 A#" n[10]="O6L4 A#" n[11]="O5L4 E" n[12]="O5L4 G" ElseIf (M=17) then ' measure 17 a[1]="O3L64 B" +"O6L64 B" n[1]="O6L4 B" n[2]="O5L4 D#" n[3]="O5L4 F#" n[4]="O4L4 B" n[5]="O5L4 D#" n[6]="O5L4 F#" n[7]="O4L4 B" n[8]="O5L4 D#" n[9]="O5L4 F#" a[10]="O3L64 B" +"O6L64 B" n[10]="O6L4 B" n[11]="O5L4 D#" n[12]="O5L4 F#" ElseIf (M=18) then ' measure 18 a[1]="O3L64 B" +"O7L64 C" n[1]="O7L4 C" n[2]="O5L4 E" n[3]="O5L4 G" a[4]="O3L64 E" +"O3L64 B" n[4]="O4L4 B" n[5]="O5L4 E" n[6]="O5L4 G" a[7]="O3L64 G" +"O3L64 B" n[7]="O4L4 B" n[8]="O5L4 E" n[9]="O5L4 G" '♮ a[10]="O3L64 C" +"O6L64 A#" n[10]="O6L4 A#" n[11]="O5L4 E" n[12]="O5L4 G" ElseIf (M=19) then ' measure 19 a[1]="O2L64 B" +"O4L64 B" +"O6L64 B" n[1]="O6L4 B" n[2]="O5L4 D#" n[3]="O5L4 F#" n[4]="O4L4 B" n[5]="O5L4 D#" n[6]="O5L4 F#" a[7]="O2L64 G#" +"O3L64 G#" +"O6L64 B" n[7]="O6L4 B" n[8]="O5L4 D" n[9]="O5L4 F" n[10]="O4L4 B" n[11]="O5L4 D" n[12]="O5L4 F" ElseIf (M=20) then ' measure 20 a[1]="O2L64 F" +"O3L64 F" +"O6L64 B" n[1]="O6L4 B" n[2]="O5L4 C#" n[3]="O5L4 G#" n[4]="O4L4 B" n[5]="O5L4 C#" n[6]="O5L4 G#" a[7]="O2L64 F#" +"O3L64 F#" +"O6L64 A" n[7]="O6L4 A" n[8]="O5L4 C#" n[9]="O5L4 F#" n[10]="O4L4 G#" n[11]="O5L4 C#" n[12]="O5L4 F#" ElseIf (M=21) then ' measure 21 a[1]="O3L64 B" +"O4L64 B" +"O6L64 G" n[1]="O6L4 G" n[2]="O4L4 B" n[3]="O5L4 D" n[4]="O4L4 G" n[5]="O4L4 B" n[6]="O5L4 D" a[7]="O3L64 C" +"O4L64 C" +"O6L64 F#" n[7]="O6L4 F#" n[8]="O4L4 A" n[9]="O5L4 D#" n[10]="O4L4 F#" n[11]="O4L4 A" n[12]="O5L4 D#" ElseIf (M=22) then ' measure 22 a[1]="O3L64 C#" +"O5L64 C#" n[1]="O5L4 C#" n[2]="O4L4 F#" n[3]="O4L4 A" n[4]="O5L4 C#" n[5]="O4L4 F#" n[6]="O4L4 A" a[7]="O3L64 C#" +"O5L64 C#" n[7]="O5L4 C#" n[8]="O4L4 F#" n[9]="O4L4 G#" a[10]="O3L64 C#" +"O5L64 C#" n[10]="O4L4 C#" n[11]="O4L4 F" n[12]="O4L4 G#" ElseIf (M=23) then ' measure 23 a[1]="O2L64 F#" +"O3L64 C#" +"O4L64 F#" n[1]="O4L4 F#" n[2]="O4L4 A" n[3]="O5L4 C#" n[4]="O4L4 A" n[5]="O5L4 C#" n[6]="O5L4 F#" n[7]="O5L4 C#" n[8]="O5L4 F#" n[9]="O5L4 A" a[10]="O4L64 E" +"O6L64 C#" n[10]="O6L4 C#" n[11]="O5L4 F#" a[12]="O5L64 A" +"O6L64 C#" n[12]="O6L4 C#" ElseIf (M=24) then ' measure 24 a[1]="O3L64 F" +"O6L64 C#" n[1]="O4L4 C#" n[2]="O4L4 G#" n[3]="O4L4 B" n[4]="O4L4 C#" n[5]="O4L4 G#" n[6]="O4L4 B" n[7]="O4L4 C#" n[8]="O4L4 G#" n[9]="O4L4 B a[10]="O4L64 C#" +"O6L64 C#" n[10]="O6L4 C#" n[11]="O4L4 G#" a[12]="O4L64 B" +"O6L64 C#" n[12]="O6L4 C#" ElseIf (M=25) then ' measure 25 a[1]="O3L64 F#" +"O6L64 C#" n[1]="O6L4 C#" n[2]="O4L4 F#" n[3]="O4L4 A" n[4]="O4L4 C#" n[5]="O4L4 F#" n[6]="O4L4 A" a[7]="O4L64 D#" +"O6L64 C" n[7]="O6L4 C" n[8]="O4L4 F#" n[9]="O4L4 A" a[10]="O3L64 C#" +"O6L64 C#" n[10]="O6L4 C#" n[11]="O4L4 F#" n[12]="O4L4 A" ElseIf (M=26) then ' measure 26 a[1]="O3L64 C" +"O6L64 D#" n[1]="O6L4 D#" n[2]="O4L4 F#" n[3]="O4L4 G#" n[4]="O4L4 D#" n[5]="O4L4 F#" n[6]="O4L4 G#" n[7]="O4L4 D#" n[8]="O4L4 F#" n[9]="O4L4 G#" a[10]="O3L64 C" +"O6L64 D#" n[10]="O6L4 D#" n[11]="O4L4 F#" n[12]="O4L4 G#" ElseIf (M=27) then ' measure 27 a[1]="O3L64 C#" +"O6L64 E" n[1]="O6L4 E" n[2]="O4L4 G#" n[3]="O4L4 C#" n[4]="O4L4 E" n[5]="O4L4 G#" n[6]="O4L4 C#" a[7]="O3L64 F#" +"O6L64 D#" n[7]="O6L4 D#" n[8]="O4L4 F#" n[9]="O4L4 A" a[10]="O3L64 G" +"O6L64 C#" n[10]="O6L4 C#" n[11]="O4L4 E" n[12]="O4L4 A#" ElseIf (M=28) then ' measure 28 a[1]="O3L64 G#" +"O6L64 C" n[1]="O5L4 C" n[2]="O4L4 C" n[3]="O4L4 D#" a[4]="O4L64 G#" +"O6L64 G#" n[4]="O6L4 G#" n[5]="O4L4 C" n[6]="O4L4 D#" a[7]="O4L64 A" +"O6L64 A" n[7]="O6L4 A" n[8]="O4L4 C" n[9]="O4L4 D#" a[10]="O4L64 F#" +"O6L64 F#" n[10]="O6L4 F#" n[11]="O4L4 C" n[12]="O4L4 D#" ElseIf (M=29) then ' measure 29 n[1]="O3L64 G#" n[2]="O4L4 C" n[3]="O4L4 D#" a[4]="O3L64 G#" +"O5L64 G#" n[4]="O5L4 G#" n[5]="O4L4 C" n[6]="O4L4 D#" a[7]="O3L64 G#" +"O5L64 A" n[7]="O5L4 A" n[8]="O4L4 C" n[9]="O4L4 D#" a[10]="O3L64 E" +"O5L64 F#" n[10]="O5L4 F#" n[11]="O4L4 C" n[12]="O4L4 D#" ElseIf (M=30) then ' measure 30 a[1]="O3L64 G#" +"O3L64 E" n[1]="O3L4 E" n[2]="O4L4 E" n[3]="O4L4 G#" a[4]="O5L64 C#" +"O6L64 C#" n[4]="O3L4 E" n[5]="O4L4 E" n[6]="O4L4 G#" a[7]="O5L64 E" +"O6L64 E" n[7]="O6L4 E" n[8]="O4L4 E" n[9]="O4L4 G#" a[10]="O5L64 C#" +"O6L64 C#" n[10]="O6L4 C#" n[11]="O4L4 E" n[12]="O4L4 G#" ElseIf (M=31) then ' measure 31 a[1]="O3L64 G#"+"O3L64 G#" n[1]="O3L4 G#" n[2]="O4L4 E" n[3]="O4L4 G#" a[4]="O5L64 C#" +"O5L64 C#" n[5]="O4L4 E" n[6]="O4L4 G#" a[7]="O4L64 E" +"O6L64 E" n[7]="O6L4 E" n[8]="O4L4 E" n[9]="O4L4 G#" a[10]="O4L64 C#" +"O5L64 C#" n[10]="O5L4 C#" n[11]="O4L4 E" n[12]="O4L4 G#" ElseIf (M=32) then ' measure 32 a[1]="O2L64 G#"+"O3L64 F#" n[1]="O4L4 F#" n[2]="O3L4 A" n[3]="O3L4 F#" n[4]="O5L4 C" n[5]="O4L4 A" n[6]="O5L4 D#" n[7]="O5L4 C" n[8]="O5L4 F#" n[9]="O5L4 D#" n[10]="O5L4 A" n[11]="O5L4 F#" n[12]="O6L4 C" ElseIf (M=33) then ' measure 33 a[1]="O2L64 G#"+"O3L64 E" n[1]="O4L4 E" n[2]="O4L4 C#" n[3]="O3L4 G#" n[4]="O5L4 E" n[5]="O5L4 C#" n[6]="O5L4 G#" n[7]="O5L4 E" n[8]="O6L4 C#" n[9]="O5L4 G#" n[10]="O6L4 E" n[11]="O6L4 C#" n[12]="O5L4 G#" ElseIf (M=34) then ' measure 34 a[1]="O2L64 G#"+"O3L64 G#" n[1]="O4L4 G#" n[2]="O5L4 G" n[3]="O5L4 E" n[4]="O5L4 A#" n[5]="O5L4 G" n[6]="O6L4 C#" n[7]="O5L4 A#" n[8]="O6L4 E" n[9]="O6L4 C#" n[10]="O6L4 G" n[11]="O6L4 E" n[12]="O6L4 A#" ElseIf (M=35) then ' measure 35 a[1]="O2L64 G#"+"O4L64 F#" n[1]="O5L4 F#" n[2]="O6L4 C" n[3]="O5L4 A" n[4]="O6L4 D#" n[5]="O6L4 C" n[6]="O6L4 F#" n[7]="O6L4 D#" n[8]="O6L4 A" n[9]="O6L4 F#" n[10]="O7L4 C" n[11]="O6L4 A" n[12]="O7L4 D#" ElseIf (M=36) then ' measure 36 a[1]="O2L64 G#"+"O3L64 G#"+"O7L64 C" n[1]="O7L4 C" n[2]="O6L4 F#" n[3]="O6L4 A" n[4]="O6L4 D#" n[5]="O6L4 F#" n[6]="O6L4 C" n[7]="O6L4 D#" n[8]="O5L4 A" n[9]="O6L4 C" n[10]="O5L4 F#" n[11]="O5L4 A" n[12]="O5L4 D#" ElseIf (M=37) then ' measure 37 a[1]="O2L64 G#"+"O3L64 G#"+"O5L64 F#" n[1]="O5L4 F#" n[2]="O5L4 C" n[3]="O5L4 D#" n[4]="O5L4 A" n[5]="O6L4 C" n[6]="O5L4 F#" a[7]="O5L64 A"+"O6L64 A" n[7]="O5L4 A" n[8]="O5L4 D#" n[9]="O5L4 F#" a[10]="O5L64 C#"+"O6L64 C#" n[10]="O5L4 C#" n[11]="O5L4 F#" n[12]="O5L4 A" ElseIf (M=38) then ' measure 38 a[1]="O2L64 G#"+"O3L64 G#"+"O5L64 C" n[1]="O5L4 C" n[2]="O5L4 F#" n[3]="O5L4 G#" n[4]="O5L4 A" n[5]="O5L4 G#" n[6]="O5L4 F# " a[7]="O5L64 D#"+"O6L64 D#" n[7]="O5L4 D#" n[8]="O5L4 F#" n[9]="O5L4 A" a[10]="O5L64 C#"+"O6L64 C#" n[10]="O5L4 C#" n[11]="O5L4 F#" n[12]="O5L4 A" ElseIf (M=39) then ' measure 39 a[1]="O2L64 G#"+"O3L64 G#"+"O5L64 C" n[1]="O5L4 C" n[2]="O5L4 F#" n[3]="O5L4 G#" n[4]="O5L4 A" n[5]="O5L4 G#" n[6]="O5L4 F# " a[7]="O5L64 D"+"O6L64 D" n[7]="O5L4 D" n[8]="O5L4 F#" n[9]="O5L4 A" a[10]="O5L64 C#"+"O6L64 C#" n[10]="O5L4 C#" n[11]="O5L4 F#" n[12]="O5L4 A" ElseIf (M=40) then ' measure 40 a[1]="O2L64 G#"+"O3L64 G#"+"O5L64 C" n[1]="O5L4 C" n[2]="O5L4 F#" n[3]="O5L4 G#" n[4]="O5L4 A" n[5]="O5L4 G#" n[6]="O5L4 F#" ' a[7]="O2L64 A"+"O3L64 A"+"O5L64 C#" n[7]="O5L4 C#" n[8]="O5L4 E" n[9]="O6L4 C#" n[10]="O5L4 C#" n[11]="O5L4 E" n[12]="O6L4 C#" ElseIf (M=41) then ' measure 41 a[1]="O2L64 F#"+"O3L64 F#"+"O5L64 D#" n[1]="O5L4 D#" n[2]="O5L4 A" n[3]="O6L4 C#" n[4]="O5L4 D#" n[5]="O5L4 A" n[6]="O6L4 C#" a[7]="O2L64 G#"+"O3L64 G#"+"O5L64 D#" n[7]="O5L4 D#" n[8]="O5L4 G#" n[9]="O6L4 C" n[10]="O5L4 D#" n[11]="O5L4 G#" n[12]="O6L4 C" ElseIf (M=42) then ' measure 42 a[1]="O3L64 C#"+"O3L64 G#"+"O5L64 E" n[1]="O5L4 E" n[2]="O5L4 G#" n[3]="O6L4 C#" n[4]="O4L4 G#" n[5]="O5L4 C#" n[6]="O5L4 E" n[7]="O4L4 G#" n[8]="O5L4 C#" n[9]="O5L4 E" a[10]="O4L64 G#"+"O6L64 G#" n[10]="O6L4 G#" n[11]="O5L4 C#" a[12]="O5L64 E"+"O6L64 G#" n[12]="O6L4 G#" ElseIf (M=43) then ' measure 43 a[1]="O3L64 C"+"O4L64 G#"+"O6L64 G#" n[1]="O6L4 G#" n[2]="O5L4 D#" n[3]="O5L4 F#" n[4]="O4L4 G#" n[5]="O5L4 D#" n[6]="O5L4 F#" n[7]="O4L4 G#" n[8]="O5L4 D#" n[9]="O5L4 F#" a[10]="O4L64 G#"+"O6L64 G#" n[10]="O6L4 G#" n[11]="O5L4 D#" a[12]="O5L64 F#"+"O6L64 G#" ' <---- n[12]="O6L4 G#" ElseIf (M=44) then ' measure 44 a[1]="O3L64 C#"+"O4L64 G#"+"O6L64 G#" n[1]="O6L4 G#" n[2]="O5L4 C#" n[3]="O5L4 E" n[4]="O4L4 G#" n[5]="O5L4 C#" n[6]="O5L4 E" a[7]="O3L64 F#"+"O4L64 A"+"O6L64 A" n[7]="O6L4 A" n[8]="O5L4 C#" n[9]="O5L4 F#" n[10]="O4L4 A" n[11]="O5L4 C#" n[12]="O5L4 F#" ElseIf (M=45) then ' measure 45 a[1]="O3L64 B"+"O4L64 G#"+"O6L64 G#" n[1]="O6L4 G#" n[2]="O4L4 B" n[3]="O5L4 E" n[4]="O4L4 G#" n[5]="O4L4 B" n[6]="O5L4 E" a[7]="O3L64 B"+"O4L64 A"+"O6L64 F#" n[7]="O6L4 F#" n[8]="O4L4 B" n[9]="O5L4 D#" a[10]="O3L64 B"+"O4L64 A"+"O6L64 B" n[10]="O6L4 B" n[11]="O4L4 B" n[12]="O5L4 D# ElseIf (M=46) then ' measure 46 a[1]="O3L64 E"+"O4L64 G#"+"O6L64 E" n[1]="O6L4 E" n[2]="O4L4 B" n[3]="O5L4 E" n[4]="O4L4 B" n[5]="O5L4 E" n[6]="O5L4 G#" n[7]="O4L4 B" n[8]="O5L4 E" n[9]="O5L4 G#" a[10]="O4L64 B"+"O6L64 B" n[10]="O6L4 B" n[11]="O5L4 E" a[12]="O5L64 G#"+"O6L64 B" n[12]="O6L4 B" ElseIf (M=47) then ' measure 47 a[1]="O3L64 D#"+"O4L64 B"+"O6L64 B" n[1]="O6L4 B" n[2]="O5L4 F#" n[3]="O5L4 A" n[4]="O4L4 B" n[5]="O5L4 F#" n[6]="O5L4 A" n[7]="O4L4 B" n[8]="O5L4 F#" n[9]="O5L4 A" a[10]="O4L64 B"+"O6L64 B" n[10]="O6L4 B" n[11]="O5L4 F#" a[12]="O5L64 A"+"O6L64 B" n[12]="O6L4 B" ElseIf (M=48) then ' measure 48 a[1]="O3L64 E"+"O4L64 B"+"O6L64 B" n[1]="O4L4 B" n[2]="O5L4 F#" n[3]="O5L4 A" n[4]="O4L4 B" n[5]="O5L4 F#" n[6]="O5L4 A" a[7]="O3L64 D#"+"O7L64 C" n[7]="O7L4 C" n[8]="O5L4 F#" n[9]="O5L4 G#" a[10]="O3L64 C#"+"O7L64 C#" n[10]="O7L4 C#" n[11]="O5L4 E" n[12]="O5L4 G#" ElseIf (M=49) then ' measure 49 a[1]="O3L64 C"+"O4L64 G#"+"O7L64 D#" n[1]="O7L4 D#" n[2]="O5L4 F#" n[3]="O5L4 G#" n[4]="O5L4 D#" n[5]="O5L4 F#" n[6]="O5L4 G#" a[7]="O3L64 C#"+"O4L64 E"+"O7L64 E" n[7]="O7L4 E" n[8]="O5L4 F#" n[9]="O6L4 C#" n[10]="O5L4 E" n[11]="O5L4 F#" n[12]="O6L4 C#" ElseIf (M=50) then ' measure 50 a[1]="O3L64 C#"+"O4L64 D"+"O7L64 D" n[1]="O7L4 D" n[2]="O5L4 F#" n[3]="O5L4 A" n[4]="O5L4 D" n[5]="O5L4 F#" n[6]="O5L4 A" a[7]="O3L64 D"+"O7L64 C" n[7]="O7L4 C" n[8]="O5L4 F#" n[9]="O5L4 G#" n[10]="O5L4 C" n[11]="O5L4 F#" n[12]="O5L4 G#" ElseIf (M=51) then ' measure 51 a[1]="O3L64 C#"+"O4L64 C#"+"O7L64 C#" n[1]="O7L4 C#" n[2]="O5L4 E" n[3]="O5L4 G#" n[4]="O5L4 C#" n[5]="O5L4 E" n[6]="O5L4 G#" n[7]="O5L4 C#" n[8]="O5L4 F" n[9]="O5L4 G#" a[10]="O5L64 C#" +"O7L64 C#" n[10]="O5L4 C#" n[11]="O5L4 F" n[12]="O5L4 G# ElseIf (M=52) then ' measure 52 a[1]="O3L64 C#"+"O4L64 C#"+"O7L64 D" n[1]="O7L4 D" n[2]="O5L4 F#" n[3]="O5L4 A" a[4]="O3L64 F#"+"O4L64 F#" +"O5L64 C#" n[4]="O5L4 C#" n[5]="O5L4 F#" n[6]="O5L4 A" a[7]="O3L64 A"+"O4L64 A"+"O7L64 C" n[7]="O7L4 C" n[8]="O5L4 F#" n[9]="O5L4 A" a[10]="O3L64 F#"+"O5L64 C#" n[10]="O5L4 C#" n[11]="O5L4 F#" n[12]="O5L4 A" ElseIf (M=53) then ' measure 53 a[1]="O3L64 C#"+"O4L64 C#"+"O7L64 C#" n[1]="O7L4 C#" n[2]="O5L4 F" n[3]="O5L4 G#" n[4]="O5L4 C#" n[5]="O5L4 F" n[6]="O5L4 G#" n[7]="O5L4 C#" n[8]="O5L4 F" n[9]="O5L4 G#" a[10]="O5L64 C#"+"O7L64 C#" n[10]="O7L4 C#" n[11]="O5L4 F" n[12]="O5L4 G#" ElseIf (M=54) then ' measure 54 a[1]="O3L64 C#"+"O4L64 C#"+"O7L64 D" n[1]="O7L4 D" n[2]="O5L4 F#" n[3]="O5L4 A" a[4]="O3L64 F#"+"O4L64 F#" n[4]="O5L4 C#" n[5]="O5L4 F#" n[6]="O5L4 A" a[7]="O3L64 A"+"O4L64 A" n[7]="O7L4 C" n[8]="O5L4 F#" n[9]="O5L4 A" a[10]="O3L64 F#"+"O5L64 C#" +"O7L64 C" n[10]="O7L4 C" n[11]="O5L4 F#" n[12]="O5L4 A" ElseIf (M=55) then ' measure 55 a[1]="O3L64 C#"+"O4L64 C#"+"O7L64 C#" n[1]="O7L4 C#" n[2]="O5L4 F" n[3]="O5L4 G#" n[4]="O5L4 C#" n[5]="O5L4 F" n[6]="O5L4 G#" a[7]="O3L64 F#"+"O3L64 F#"+"O7L64 C#" n[7]="O5L4 C#" n[8]="O5L4 F" n[9]="O5L4 G#" n[10]="O5L4 C#" n[11]="O5L4 F" n[12]="O5L4 G#" ElseIf (M=56) then ' measure 56 a[1]="O3L64 B"+"O4L64 B"+"O6L64 B" n[1]="O6L4 B" n[2]="O5L4 F#" n[3]="O5L4 A" n[4]="O4L4 B" n[5]="O5L4 F#" n[6]="O5L4 A" n[7]="O4L4 B" n[8]="O5L4 F#" n[9]="O5L4 A" a[10]="O3L64 C#"+"O4L64 C#"+"O6L64 B" n[10]="O4L4 B" n[11]="O5L4 E" n[12]="O5L4 G#" ElseIf (M=57) then ' measure 57 a[1]="O3L64 C#"+"O4L64 A"+"O6L64 A" n[1]="O6L4 A" n[2]="O5L4 E" n[3]="O5L4 G#" a[4]="O3L64 D#"+"O4L64 D#"+"O6L64 A" n[4]="O6L4 A" n[5]="O5L4 D#" n[6]="O5L4 F#" a[7]="O3L64 C"+"O4L64 C"+"O6L64 G#" n[7]="O6L4 G#" n[8]="O5L4 D#" n[9]="O5L4 F#" a[10]="O3L64 C#"+"O4L64 A"+"O6L64 G#" n[10]="O6L4 G#" n[11]="O5L4 C#" n[12]="O5L4 E" ElseIf (M=58) then ' measure 58 a[1]="O3L64 F#"+"O4L64 A"+"O6L64 F#" n[1]="O6L4 F#" n[2]="O5L4 C#" n[3]="O5L4 D#" n[4]="O5L4 F#" n[5]="O5L4 C#" n[6]="O5L4 D#" a[7]="O3L64 E"+"O4L64 G#"+"O6L64 G#" n[7]="O6L4 G#" n[8]="O5L4 C#" n[9]="O5L4 D#" a[10]="O3L64 D#"+"O4L64 D#"+"O6L64 A" n[10]="O6L4 A" n[11]="O5L4 C#" n[12]="O5L4 D#" ElseIf (M=59) then ' measure 59 a[1]="O2L64 E"+"O4L64 G#"+"O6L64 G#" n[1]="O6L4 G#" n[2]="O5L4 C#" n[3]="O5L4 E" n[4]="O5L4 G#" n[5]="O5L4 C#" n[6]="O5L4 E" a[7]="O3L64 E"+"O4L64 F#"+"O6L64 G#" n[7]="O5L4 G#" n[8]="O5L4 C" n[9]="O5L4 D# n[10]="O5L4 F#" n[11]="O5L4 C" n[12]="O5L4 D#" ElseIf (M=60) then ' measure 60 a[1]="O3L64 C#"+"O4L64 G#"+"O5L64 C#" n[1]="O5L4 C#" n[2]="O3L4 G#" n[3]="O4L4 C#" n[4]="O4L4 G#" n[5]="O5L4 C#" n[6]="O5L4 E" n[7]="O4L4 G#" n[8]="O5L4 C#" n[9]="O5L4 E" a[10]="O3L64 C#"+"O4L64 G#" n[10]="O5L4 G#" n[11]="O5L4 C#" n[12]="O4L64 C#"+"O5L4 E" ElseIf (M=61) then ' measure 61 a[1]="O3L64 C"+"O3L64 G#" n[1]="O4L4 G#" n[2]="O5L4 D#" n[3]="O5L4 F#" n[4]="O4L4 G#" n[5]="O5L4 D#" n[6]="O5L4 F#" n[7]="O4L4 G#" n[8]="O5L4 D#" n[9]="O5L4 F#" a[10]="O3L64 G#"+"O4L64 G#" n[10]="O4L4 G#" n[11]="O5L4 D#" n[12]="O4L64 G#"+"O5L4 F#" ElseIf (M=62) then ' measure 62 a[1]="O3L64 C#"+"O3L64 G#" n[1]="O4L4 G#" n[2]="O5L4 E" n[3]="O5L4 C#" n[4]="O5L4 G#" n[5]="O5L4 E" n[6]="O6L4 C#" n[7]="O5L4 G#" n[8]="O6L4 E" n[9]="O6L4 C#" a[10]="O4L64 G#"+"O6L64 G#" n[10]="O6L4 G#" n[11]="O6L4 E" n[12]="O4L64 G#"+"O6L4 C#" ElseIf (M=63) then ' measure 63 a[1]="O2L64 G#"+"O3L64 G#"+"O6L64 C" n[1]="O6L4 C" n[2]="O6L4 D#" n[3]="O5L4 A" n[4]="O6L4 C" n[5]="O5L4 F#" n[6]="O5L4 A" n[7]="O5L4 D#" n[8]="O5L4 F#" n[9]="O5L4 A" a[10]="O4L64 G#"+"O6L64 C" n[10]="O6L4 C" n[11]="O5L4 G#" n[12]="O4L64 G#"+"O6L4 C#" ElseIf (M=64) then ' measure 64 a[1]="O3L64 C#"+"O3L64 G#"+"O6L64 C#" n[1]="O6L4 C#" n[2]="O5L4 E" n[3]="O5L4 C#" n[4]="O5L4 G#" n[5]="O5L4 E" n[6]="O6L4 C#" n[4]="O5L4 G#" n[5]="O6L4 E" n[6]="O6L4 C#" a[10]="O4L64 G#"+"O6L64 G#" n[10]="O6L4 G#" n[11]="O6L4 E" n[12]="O4L64 G#"+"O6L4 C#" ElseIf (M=65) then ' measure 65 a[1]="O2L64 G#"+"O3L64 G#"+"O6L64 C" n[1]="O6L4 C" n[2]="O6L4 D#" n[3]="O5L4 A" n[4]="O6L4 C" n[5]="O5L4 F#" n[6]="O5L4 A" n[7]="O6L4 D#" n[8]="O6L4 F#" n[9]="O5L4 A" a[10]="O4L64 G#"+"O6L64 C" n[10]="O6L4 C" n[11]="O5L4 G#" n[12]="O4L64 G#"+"O5L4 F#" ElseIf (M=66) then ' measure 66 a[1]="O3L64 C#"+"O3L64 G#"+"O6L64 C#" n[1]="O6L4 C#" n[2]="O5L4 G#" n[3]="O6L4 C#" n[4]="O6L4 E" n[5]="O6L4 C#" n[6]="O5L4 G#" n[7]="O5L4 C#" n[8]="O5L4 E" n[9]="O5L4 G#" n[10]="O6L4 C#" n[11]="O5L4 G#" n[12]="O5L4 E" ElseIf (M=67) then ' measure 67 a[1]="O3L64 C#"+"O4L64 G#" n[1]="O4L4 G#" n[2]="O5L4 E" n[3]="O5L4 G#" n[4]="O6L4 C#" n[5]="O5L4 G#" n[6]="O5L4 E" n[7]="O4L4 G#" n[8]="O5L4 C#" n[9]="O4L4 G#" n[10]="O4L4 E" n[11]="O4L4 G#" n[12]="O4L4 E" ElseIf (M=68) then ' measure 68 a[1]="O2L64 C#"+"O3L64 C#" n[1]="O4L1 C#" a[2]="O3L64 C#"+"O4L64 G#" n[2]="O4L1 G#" ElseIf (M=69) then ' measure 69 a[1]="O2L64 C#"+"O3L64 C#" n[1]="O4L1 C#" EndIf EndSub End>TZQ815.sb< Start>TZR272.sb< cc[1]="..##.. ### . ## . ### .####. #### . # . ## .# # ## # # # ### ## #### ##### # # # # # # # . ###...###.. # # .# #.# #.# # cc[2]=".# #. # # .# #. # # .# . # . # . # # .# # # # # # # # # # # # . # ## # ## ## # # . # #..# #. # # .# # # # # # cc[3]=".# #. ### .# . # # .### . ### . # . # # .# # # #### # ## # # # # . # # ## # # # ## . # #..# #. # # .# # # # cc[4]=".####. # # .# . # # .# . # . # . # # .# # # ## # # # # # # # # # . # # # # # # # . ### ..### . # # .# # # # cc[5]=".# #. # # .# #. # # .# . # . # . # # .# # # # # # # # # # # ## # # . # # # # # # # . # ..# # . # # .# # # # # # cc[6]=".# #. ### . ## . ### .####. # . # . ## . ## ### # # ## ## # # #### # . #### # # # # # #. # ..# #. # . # # # # # cc[7]=".....^.....^.....^.....^.....^.....^.....^.....^.....^.....^.....^.....^.....^.....^.....^.....^.....^.....^.....^.....^.....^.....^.....^.....^.....^.....^ GraphicsWindow.PenWidth=0 GraphicsWindow.BackgroundColor="tan GraphicsWindow.BrushColor="darkblue GraphicsWindow.Width=1500 GraphicsWindow.Title="ZX Screen Hommage ix="ABCDEFIOUGHJSQZTLNMKPRVWXY " For yy=50 To 840 Step 32 TXTm=LDText.Split("THE QUICK BROWN FOX JUMPS OVER LAZY DOGS" " ") txt="" For w=1 To 70 m=Math.GetRandomNumber(8) If txtm[m]="" Then Else txt=txt+txtm[m]+" " txtm[m]="" EndIf EndFor tu= Text.ConvertToUpperCase(txt) For f=1 To 40 y=0 GraphicsWindow.BrushColor=LDColours.HSLtoRGB(240 .8 math.GetRandomNumber(5)/10) r=Shapes.AddRectangle(24 32) Shapes.Move(r (f*6)*4+20 yy ) GraphicsWindow.BrushColor="orange ldShapes.AnimateOpacity(r 750 5) LDShapes.SetShapeEvent(r) Program.Delay(5) For x=0 To 5 For y=0 To 7 n=x+6*(Text.GetIndexOf(ix text.GetSubText(tu f 1))-1)+1 If Text.GetSubText(cc[y] n 1)="#" Then e=shapes.AddRectangle(4 4) shapes.move(e (x+f*6)*4+20 y*4+yy ) EndIf EndFor EndFor EndFor EndFor zz=1 LDEvents.MouseWheel=mwww LDShapes.ShapeEvent=see Sub see ls=LDShapes.LastEventShape If LDShapes.LastEventType="MouseEnter" Then ldShapes.AnimateOpacity(ls 750 5) EndIf EndSub Sub mwww zz=zz+LDEvents.LastMouseWheelDelta/15 LDGraphicsWindow.Reposition(zz zz 0 zz*100 0) EndSub End>TZR272.sb< Start>TZR534.sb< GraphicsWindow.KeyUp = OnKeyUp Init() InitialSituation() While 1 = 1 If KU = 1 Then LK = GraphicsWindow.LastKey 'TextWindow.WriteLine(LK) KU = 0 EndIf NewPositionC3() NewPositionC2() NewPositionC1() DetctCollision() EndWhile Sub OnKeyUp KU = 1 EndSub 'OnKeyUp Sub InitialSituation C1X = 80 C1Y = 150 Shapes.Move(Circle1, C1X,C1Y) C2X = 340 C2Y = 150 Shapes.Move(Circle2, C2X,C2Y) C3X = 130 C3Y = 320 Shapes.Move(Circle3, C3X, C3Y) C3DX = Math.GetRandomNumber(2) - 1 C3DY = Math.GetRandomNumber(2) - 1 C1DX = 1 C1DY = 1 R1 = "Result left: " + RR1 Shapes.SetText(Result1, R1) R2 = "Result right: " + RR2 Shapes.SetText(Result2, R2) EndSub 'InitialSituation Sub NewPositionC3 X = Math.GetRandomNumber(5) Y = Math.GetRandomNumber(3) R = R +1 If R = 25 Then C3DX = Math.GetRandomNumber(7) If C3DX > 3 Then C3DX = 1 Else C3DX = 0 EndIf C3DY = Math.GetRandomNumber(7) If C3DY > 3 Then C3DY = 1 Else C3DY = 0 EndIf R = 0 EndIf If C3DX = 0 Then C3X = C3X + X Else C3X = C3X - X EndIf If C3DY = 0 Then C3Y = C3Y + Y Else C3Y = C3Y - Y EndIf If C3X < -30 Then C3DX = 0 C3X = C3X + X + X ElseIf C3X > GWW -30 Then C3DX = 1 C3X = C3X - X - X EndIf If C3Y < -15 Then C3DY = 0 C3Y = C3Y + Y + Y ElseIf C3Y > GWH -15 Then C3DY = 1 C3Y = C3Y - Y - Y EndIf Shapes.Move(Circle3, C3X, C3Y) Program.Delay(10) EndSub 'NewPositionC3 Sub NewPositionC2 If LK = "Up" Then LK = "" C2Y = C2Y - 15 ElseIf LK = "Down" Then LK = "" C2Y = C2Y + 15 ElseIf LK = "Left" Then LK = "" C2X = C2X - 15 ElseIf LK = "Right" Then LK = "" C2X = C2X + 15 EndIf Shapes.Move(Circle2, C2X,C2Y) EndSub 'NewPositionC2 Sub NewPositionC1 XX = Math.GetRandomNumber(3) YY = Math.GetRandomNumber(2) If C1DX = 0 Then C1X = C1X + XX Else C1X = C1X - XX EndIf If C1DY = 0 Then C1Y = C1Y + YY Else C1Y = C1Y - YY EndIf If C1X < 0 Then C1DX = 0 C1X = C1X + XX + XX ElseIf C1X > GWW -75 Then C1DX = 1 C1X = C1X - XX - XX EndIf If C1Y < 0 Then C1DY = 0 C1Y = C1Y + YY + YY ElseIf C1Y > GWH -50 Then C1DY = 1 C1Y = C1Y - YY - YY EndIf Shapes.Move(Circle1, C1X,C1Y) EndSub 'NewPositionC1 Sub DetctCollision CC1 = LDShapes.Overlap(Circle3, Circle1) CC2 = LDShapes.Overlap(Circle3, Circle2) If CC1 = T Then RR2 = RR2 + 1 InitialSituation() ElseIf CC2 = T Then RR1 = RR1 + 1 InitialSituation() EndIf EndSub 'DetctCollision Sub Init GWW = 500 GWH = 500 GraphicsWindow.Width = GWW GraphicsWindow.Height = GWH GraphicsWindow.BrushColor = "Yellow" GraphicsWindow.BackgroundColor = "Black" GraphicsWindow.FillEllipse(10,10,GraphicsWindow.Width - 20, GraphicsWindow.Height - 20) GraphicsWindow.BrushColor = "Steelblue" Circle1 = Shapes.AddEllipse(75,50) Circle2 = Shapes.AddEllipse(75,50) Circle3 = Shapes.AddEllipse(240,100) T = "True" RR1 = 0 RR2 = 0 R1 = "Result left: " + RR1 Result1 = Shapes.AddText(R1) Shapes.Move(Result1, 10, 10) R2 = "Result right: " + RR2 Result2 = Shapes.AddText(R2) Shapes.Move(Result2, 340, 10) C1DX = 1 C1DY = 1 EndSub 'Init End>TZR534.sb< Start>TZZ326.sb< 'WINDOW GraphicsWindow.Hide() width = Desktop.Width GraphicsWindow.Width = 640 GraphicsWindow.Height = 480 GraphicsWindow.Left = (width - 640) / 2 GraphicsWindow.Top = 50 GraphicsWindow.BackgroundColor = "midnightblue" GraphicsWindow.CanResize = "false" GraphicsWindow.Title = "Contacts" 'NUM num = Controls.AddButton("0", 0, 0) Controls.HideControl(num) 'NUM_SAVE savenum1 = Controls.AddButton("0", 0, 0) Controls.HideControl(savenum1) savenum2 = Controls.AddButton("0", 0, 0) Controls.HideControl(savenum2) savenum3 = Controls.AddButton("0", 0, 0) Controls.HideControl(savenum3) savenum4 = Controls.AddButton("0", 0, 0) Controls.HideControl(savenum4) savenum5 = Controls.AddButton("0", 0, 0) Controls.HideControl(savenum5) savenum6 = Controls.AddButton("0", 0, 0) Controls.HideControl(savenum6) savenum7 = Controls.AddButton("0", 0, 0) Controls.HideControl(savenum7) 'MENU GraphicsWindow.FontName = "modern" GraphicsWindow.BrushColor = "blue" GraphicsWindow.FontSize = 18 create = Controls.AddButton("Contacts", 220, 100) Controls.SetSize(create, 200, 40) browse = Controls.AddButton("Browse", 220, 160) Controls.SetSize(browse, 200, 40) help = Controls.AddButton("Help", 220, 280) Controls.SetSize(help, 200, 40) exit = Controls.AddButton("Exit", 220, 340) Controls.SetSize(exit, 200, 40) exithelp = Controls.AddButton("Back", 220, 420) Controls.SetSize(exithelp, 200, 40) Controls.HideControl(exithelp) 'HELP GraphicsWindow.BrushColor = "yellow" GraphicsWindow.FontSize = 20 helptext1 = Shapes.AddText("If you wish to create a new contact, simply push the 'Contacts'") helptext2 = Shapes.AddText("button, then choose one of the empty slots and fill the ") helptext3 = Shapes.AddText("textboxes with information. After that press 'Finish' in order") helptext4 = Shapes.AddText("for the program to remember your information. Now if you") helptext5 = Shapes.AddText("wish to cancel the creation of a contact then you have to press ") helptext6 = Shapes.AddText("the 'Abort' button. Be warned that this button will delete all") helptext7 = Shapes.AddText(" your information forever but only in the specific sheet.") GraphicsWindow.BrushColor = "gold" helptext8 = Shapes.AddText("In order to save your contact to a file you have to press the") helptext9 = Shapes.AddText("'Save' button. If you do that, your contact will be saved only") helptext10 = Shapes.AddText("for the sheet that you currently use. Same rules for the 'Load'") helptext11 = Shapes.AddText("button. It will only load data if you saved any in the specific ") helptext12 = Shapes.AddText("sheet. But don't worry, there's gonna be helpful information.") helptext13 = Shapes.AddText("The data that you save are stored in a file. When you press") helptext14 = Shapes.AddText("'Exit' the files that were created get deleted so no worries!") Shapes.Move(helptext1, 30, 30) Shapes.Move(helptext2, 30, 60) Shapes.Move(helptext3, 30, 90) Shapes.Move(helptext4, 30, 120) Shapes.Move(helptext5, 30, 150) Shapes.Move(helptext6, 30, 180) Shapes.Move(helptext7, 30, 210) Shapes.Move(helptext8, 30, 30) Shapes.Move(helptext9, 30, 60) Shapes.Move(helptext10, 30, 90) Shapes.Move(helptext11, 30, 120) Shapes.Move(helptext12, 30, 150) Shapes.Move(helptext13, 30, 180) Shapes.Move(helptext14, 30, 210) Shapes.HideShape(helptext1) Shapes.HideShape(helptext2) Shapes.HideShape(helptext3) Shapes.HideShape(helptext4) Shapes.HideShape(helptext5) Shapes.HideShape(helptext6) Shapes.HideShape(helptext7) Shapes.HideShape(helptext8) Shapes.HideShape(helptext9) Shapes.HideShape(helptext10) Shapes.HideShape(helptext11) Shapes.HideShape(helptext12) Shapes.HideShape(helptext13) Shapes.HideShape(helptext14) 'NEXT GraphicsWindow.BrushColor = "blue" GraphicsWindow.FontSize = 15 next = Controls.AddButton("Next", 245, 250) Controls.SetSize(next, 150, 40) Controls.HideControl(next) previous = Controls.AddButton("Previous", 245, 250) Controls.SetSize(previous, 150, 40) Controls.HideControl(previous) 'FIGURE_ONE_1 GraphicsWindow.PenWidth = 2 GraphicsWindow.BrushColor = GraphicsWindow.GetColorFromRGB(0, 0, 100) GraphicsWindow.PenColor = "deepskyblue" ellipse1 = Shapes.AddEllipse(130, 150) Shapes.Move(ellipse1, 29, 50) GraphicsWindow.PenWidth = 3 GraphicsWindow.BrushColor = "deepskyblue" GraphicsWindow.PenColor = "midnightblue" body1 = Shapes.AddEllipse(100, 100) head1 = Shapes.AddEllipse(45, 45) GraphicsWindow.BrushColor = "midnightblue" bodycover1 = Shapes.AddRectangle(90, 50) Shapes.Zoom(body1, 0.9, 1) Shapes.Move(body1, 50, 100) Shapes.Move(head1, 70, 60) Shapes.Move(bodycover1, 50, 150) 'FIGURE_TWO_2 GraphicsWindow.PenWidth = 2 GraphicsWindow.BrushColor = GraphicsWindow.GetColorFromRGB(0, 0, 100) GraphicsWindow.PenColor = "deepskyblue" ellipse2 = Shapes.AddEllipse(130, 150) Shapes.Move(ellipse2, 489, 50) GraphicsWindow.PenWidth = 3 GraphicsWindow.BrushColor = "deepskyblue" GraphicsWindow.PenColor = "midnightblue" body2 = Shapes.AddEllipse(100, 100) head2 = Shapes.AddEllipse(45, 45) GraphicsWindow.BrushColor = "midnightblue" bodycover2 = Shapes.AddRectangle(90, 50) Shapes.Zoom(body2, 0.9, 1) Shapes.Move(body2, 510, 100) Shapes.Move(head2, 530, 60) Shapes.Move(bodycover2, 510, 150) 'CONTACTS GraphicsWindow.BrushColor = "blue" GraphicsWindow.FontSize = 15 contact1 = Controls.AddButton("New", 170, 50) Controls.SetSize(contact1, 300, 35) Controls.HideControl(contact1) contact2 = Controls.AddButton("New", 170, 100) Controls.SetSize(contact2, 300, 35) Controls.HideControl(contact2) contact3 = Controls.AddButton("New", 170, 150) Controls.SetSize(contact3, 300, 35) Controls.HideControl(contact3) contact4 = Controls.AddButton("New", 170, 200) Controls.SetSize(contact4, 300, 35) Controls.HideControl(contact4) contact5 = Controls.AddButton("New", 170, 250) Controls.SetSize(contact5, 300, 35) Controls.HideControl(contact5) contact6 = Controls.AddButton("New", 170, 300) Controls.SetSize(contact6, 300, 35) Controls.HideControl(contact6) contact7 = Controls.AddButton("New", 170, 350) Controls.SetSize(contact7, 300, 35) Controls.HideControl(contact7) GraphicsWindow.BrushColor = "brown" cancelcontact = Controls.AddButton("Cancel", 245, 420) Controls.SetSize(cancelcontact, 150, 35) Controls.HideControl(cancelcontact) 'TOP_MENU GraphicsWindow.PenWidth = 0 GraphicsWindow.BrushColor = "blue" topmenu = Shapes.AddRectangle(640, 17) Controls.HideControl(topmenu) 'SHEETS GraphicsWindow.FontSize = 15 GraphicsWindow.BrushColor = "white" sheet = Shapes.AddText("") savedsheet1 = Shapes.AddText("You have a save in this sheet") Shapes.Move(savedsheet1, 435, 0) savedsheet2 = Shapes.AddText("You have a save in this sheet") Shapes.Move(savedsheet2, 435, 0) savedsheet3 = Shapes.AddText("You have a save in this sheet") Shapes.Move(savedsheet3, 435, 0) savedsheet4 = Shapes.AddText("You have a save in this sheet") Shapes.Move(savedsheet4, 435, 0) savedsheet5 = Shapes.AddText("You have a save in this sheet") Shapes.Move(savedsheet5, 435, 0) savedsheet6 = Shapes.AddText("You have a save in this sheet") Shapes.Move(savedsheet6, 435, 0) savedsheet7 = Shapes.AddText("You have a save in this sheet") Shapes.Move(savedsheet7, 435, 0) Shapes.HideShape(savedsheet1) Shapes.HideShape(savedsheet2) Shapes.HideShape(savedsheet3) Shapes.HideShape(savedsheet4) Shapes.HideShape(savedsheet5) Shapes.HideShape(savedsheet6) Shapes.HideShape(savedsheet7) 'BROWSE_CONTACTS GraphicsWindow.BrushColor = "blue" browsecontact1 = Controls.AddButton("-empty-", 0, 50) browsecontact2 = Controls.AddButton("-empty-", 0, 100) browsecontact3 = Controls.AddButton("-empty-", 0, 150) browsecontact4 = Controls.AddButton("-empty-", 0, 200) browsecontact5 = Controls.AddButton("-empty-", 0, 250) browsecontact6 = Controls.AddButton("-empty-", 0, 300) browsecontact7 = Controls.AddButton("-empty-", 0, 350) GraphicsWindow.BrushColor = "brown" cancelbrowsecontact = Controls.AddButton("Back", 0, 400) Controls.HideControl(browsecontact1) Controls.HideControl(browsecontact2) Controls.HideControl(browsecontact3) Controls.HideControl(browsecontact4) Controls.HideControl(browsecontact5) Controls.HideControl(browsecontact6) Controls.HideControl(browsecontact7) Controls.HideControl(cancelbrowsecontact) Controls.SetSize(browsecontact1, 150, 35) Controls.SetSize(browsecontact2, 150, 35) Controls.SetSize(browsecontact3, 150, 35) Controls.SetSize(browsecontact4, 150, 35) Controls.SetSize(browsecontact5, 150, 35) Controls.SetSize(browsecontact6, 150, 35) Controls.SetSize(browsecontact7, 150, 35) Controls.SetSize(cancelbrowsecontact, 150, 35) 'BACKGROUNDS GraphicsWindow.PenColor = "silver" GraphicsWindow.BrushColor = "gainsboro" nicknametbback = Shapes.AddRectangle(300, 40) Shapes.Move(nicknametbback, 170, 70) Shapes.HideShape(nicknametbback) nametbback = Shapes.AddRectangle(200, 40) Shapes.Move(nametbback, 220, 185) Shapes.HideShape(nametbback) agetbback = Shapes.AddRectangle(70, 40) Shapes.Move(agetbback, 285, 295) Shapes.HideShape(agetbback) 'TEXT GraphicsWindow.FontSize = 20 GraphicsWindow.BrushColor = "yellow" nickname = Shapes.AddText("Nickname") Shapes.Move(nickname, 273, 40) Shapes.HideShape(nickname) name = Shapes.AddText("Name") Shapes.Move(name, 292, 160) Shapes.HideShape(name) age = Shapes.AddText("Age") Shapes.Move(age, 301, 270) Shapes.HideShape(age) 'TEXTBOXES GraphicsWindow.BrushColor = "midnightblue" nicknametb1 = Controls.AddTextBox(175, 75) Controls.SetSize(nicknametb1, 290, 30) Controls.HideControl(nicknametb1) nicknametb2 = Controls.AddTextBox(175, 75) Controls.SetSize(nicknametb2, 290, 30) Controls.HideControl(nicknametb2) nicknametb3 = Controls.AddTextBox(175, 75) Controls.SetSize(nicknametb3, 290, 30) Controls.HideControl(nicknametb3) nicknametb4 = Controls.AddTextBox(175, 75) Controls.SetSize(nicknametb4, 290, 30) Controls.HideControl(nicknametb4) nicknametb5 = Controls.AddTextBox(175, 75) Controls.SetSize(nicknametb5, 290, 30) Controls.HideControl(nicknametb5) nicknametb6 = Controls.AddTextBox(175, 75) Controls.SetSize(nicknametb6, 290, 30) Controls.HideControl(nicknametb6) nicknametb7 = Controls.AddTextBox(175, 75) Controls.SetSize(nicknametb7, 290, 30) Controls.HideControl(nicknametb7) nametb1 = Controls.AddTextBox(225, 190) Controls.SetSize(nametb1, 190, 30) Controls.HideControl(nametb1) nametb2 = Controls.AddTextBox(225, 190) Controls.SetSize(nametb2, 190, 30) Controls.HideControl(nametb2) nametb3 = Controls.AddTextBox(225, 190) Controls.SetSize(nametb3, 190, 30) Controls.HideControl(nametb3) nametb4 = Controls.AddTextBox(225, 190) Controls.SetSize(nametb4, 190, 30) Controls.HideControl(nametb4) nametb5 = Controls.AddTextBox(225, 190) Controls.SetSize(nametb5, 190, 30) Controls.HideControl(nametb5) nametb6 = Controls.AddTextBox(225, 190) Controls.SetSize(nametb6, 190, 30) Controls.HideControl(nametb6) nametb7 = Controls.AddTextBox(225, 190) Controls.SetSize(nametb7, 190, 30) Controls.HideControl(nametb7) agetb1 = Controls.AddTextBox(290, 300) Controls.SetSize(agetb1, 60, 30) Controls.HideControl(agetb1) agetb2 = Controls.AddTextBox(290, 300) Controls.SetSize(agetb2, 60, 30) Controls.HideControl(agetb2) agetb3 = Controls.AddTextBox(290, 300) Controls.SetSize(agetb3, 60, 30) Controls.HideControl(agetb3) agetb4 = Controls.AddTextBox(290, 300) Controls.SetSize(agetb4, 60, 30) Controls.HideControl(agetb4) agetb5 = Controls.AddTextBox(290, 300) Controls.SetSize(agetb5, 60, 30) Controls.HideControl(agetb5) agetb6 = Controls.AddTextBox(290, 300) Controls.SetSize(agetb6, 60, 30) Controls.HideControl(agetb6) agetb7 = Controls.AddTextBox(290, 300) Controls.SetSize(agetb7, 60, 30) Controls.HideControl(agetb7) 'CONTROLS GraphicsWindow.FontSize = 20 GraphicsWindow.BrushColor = "brown" finish1 = Controls.AddButton("Finish", 245, 390) Controls.SetSize(finish1, 150, 35) Controls.HideControl(finish1) finish2 = Controls.AddButton("Finish", 245, 390) Controls.SetSize(finish2, 150, 35) Controls.HideControl(finish2) finish3 = Controls.AddButton("Finish", 245, 390) Controls.SetSize(finish3, 150, 35) Controls.HideControl(finish3) finish4 = Controls.AddButton("Finish", 245, 390) Controls.SetSize(finish4, 150, 35) Controls.HideControl(finish4) finish5 = Controls.AddButton("Finish", 245, 390) Controls.SetSize(finish5, 150, 35) Controls.HideControl(finish5) finish6 = Controls.AddButton("Finish", 245, 390) Controls.SetSize(finish6, 150, 35) Controls.HideControl(finish6) finish7 = Controls.AddButton("Finish", 245, 390) Controls.SetSize(finish7, 150, 35) Controls.HideControl(finish7) 'LOAD GraphicsWindow.BrushColor = "blue" load1 = Controls.AddButton("Load", 85, 435) Controls.SetSize(load1, 150, 35) Controls.HideControl(load1) load2 = Controls.AddButton("Load", 85, 435) Controls.SetSize(load2, 150, 35) Controls.HideControl(load2) load3 = Controls.AddButton("Load", 85, 435) Controls.SetSize(load3, 150, 35) Controls.HideControl(load3) load4 = Controls.AddButton("Load", 85, 435) Controls.SetSize(load4, 150, 35) Controls.HideControl(load4) load5 = Controls.AddButton("Load", 85, 435) Controls.SetSize(load5, 150, 35) Controls.HideControl(load5) load6 = Controls.AddButton("Load", 85, 435) Controls.SetSize(load6, 150, 35) Controls.HideControl(load6) load7 = Controls.AddButton("Load", 85, 435) Controls.SetSize(load7, 150, 35) Controls.HideControl(load7) 'SAVE save1 = Controls.AddButton("Save", 405, 435) Controls.SetSize(save1, 150, 35) Controls.HideControl(save1) save2 = Controls.AddButton("Save", 405, 435) Controls.SetSize(save2, 150, 35) Controls.HideControl(save2) save3 = Controls.AddButton("Save", 405, 435) Controls.SetSize(save3, 150, 35) Controls.HideControl(save3) save4 = Controls.AddButton("Save", 405, 435) Controls.SetSize(save4, 150, 35) Controls.HideControl(save4) save5 = Controls.AddButton("Save", 405, 435) Controls.SetSize(save5, 150, 35) Controls.HideControl(save5) save6 = Controls.AddButton("Save", 405, 435) Controls.SetSize(save6, 150, 35) Controls.HideControl(save6) save7 = Controls.AddButton("Save", 405, 435) Controls.SetSize(save7, 150, 35) Controls.HideControl(save7) 'SAVED GraphicsWindow.BrushColor = "lime" saved = Shapes.AddText("Contact saved!") Shapes.Move(saved, 410, 400) Shapes.HideShape(saved) 'CANCEL_CONTACT_CREATION GraphicsWindow.BrushColor = "brown" cancelcontactcreation = Controls.AddButton("Abort", 245, 435) Controls.SetSize(cancelcontactcreation, 150, 35) Controls.HideControl(cancelcontactcreation) 'IF_STATEMENTS 'BUTTON_CLICKED Controls.ButtonClicked = buttonclicked Sub buttonclicked lastbutton = Controls.LastClickedButton 'CREATE If lastbutton = create Then Sound.PlayClick() Controls.HideControl(create) Controls.HideControl(browse) Controls.HideControl(help) Controls.HideControl(exit) Controls.Move(contact1, 170, 50) Controls.SetSize(contact1, 300, 35) Controls.Move(contact2, 170, 100) Controls.SetSize(contact2, 300, 35) Controls.Move(contact3, 170, 150) Controls.SetSize(contact3, 300, 35) Controls.Move(contact4, 170, 200) Controls.SetSize(contact4, 300, 35) Controls.Move(contact5, 170, 250) Controls.SetSize(contact5, 300, 35) Controls.Move(contact6, 170, 300) Controls.SetSize(contact6, 300, 35) Controls.Move(contact7, 170, 350) Controls.SetSize(contact7, 300, 35) GraphicsWindow.BrushColor = "brown" Controls.Move(cancelcontact, 245, 420) Controls.SetSize(cancelcontact, 150, 35) Controls.ShowControl(contact1) Controls.ShowControl(contact2) Controls.ShowControl(contact3) Controls.ShowControl(contact4) Controls.ShowControl(contact5) Controls.ShowControl(contact6) Controls.ShowControl(contact7) Controls.ShowControl(cancelcontact) EndIf 'CONTACT_ONE_1 If lastbutton = contact1 Then Sound.PlayClick() getsavenum1 = Controls.GetButtonCaption(savenum1) Controls.SetButtonCaption(num, 1) Shapes.ShowShape(sheet) Shapes.ShowShape(topmenu) Shapes.SetText(sheet, "Sheet 1") Controls.HideControl(contact1) Controls.HideControl(contact2) Controls.HideControl(contact3) Controls.HideControl(contact4) Controls.HideControl(contact5) Controls.HideControl(contact6) Controls.HideControl(contact7) Controls.HideControl(cancelcontact) Shapes.ShowShape(nickname) Shapes.ShowShape(nicknametbback) Controls.ShowControl(nicknametb1) Shapes.ShowShape(name) Shapes.ShowShape(nametbback) Controls.ShowControl(nametb1) Shapes.ShowShape(age) Shapes.ShowShape(agetbback) Controls.ShowControl(agetb1) Controls.ShowControl(save1) Controls.ShowControl(finish1) Controls.ShowControl(load1) Controls.ShowControl(cancelcontactcreation) If getsavenum1 = 1 Then Shapes.ShowShape(savedsheet1) EndIf EndIf 'CONTACT_TWO_2 If lastbutton = contact2 Then Sound.PlayClick() getsavenum2 = Controls.GetButtonCaption(savenum2) Controls.SetButtonCaption(num, 2) Shapes.ShowShape(sheet) Shapes.ShowShape(topmenu) Shapes.SetText(sheet, "Sheet 2") Controls.HideControl(contact1) Controls.HideControl(contact2) Controls.HideControl(contact3) Controls.HideControl(contact4) Controls.HideControl(contact5) Controls.HideControl(contact6) Controls.HideControl(contact7) Controls.HideControl(cancelcontact) Shapes.ShowShape(nickname) Shapes.ShowShape(nicknametbback) Controls.ShowControl(nicknametb2) Shapes.ShowShape(name) Shapes.ShowShape(nametbback) Controls.ShowControl(nametb2) Shapes.ShowShape(age) Shapes.ShowShape(agetbback) Controls.ShowControl(agetb2) Controls.ShowControl(save2) Controls.ShowControl(finish2) Controls.ShowControl(load2) Controls.ShowControl(cancelcontactcreation) If getsavenum2 = 1 Then Shapes.ShowShape(savedsheet2) EndIf EndIf 'CONTACT_THREE_3 If lastbutton = contact3 Then Sound.PlayClick() getsavenum3 = Controls.GetButtonCaption(savenum3) Controls.SetButtonCaption(num, 3) Shapes.ShowShape(sheet) Shapes.ShowShape(topmenu) Shapes.SetText(sheet, "Sheet 3") Controls.HideControl(contact1) Controls.HideControl(contact2) Controls.HideControl(contact3) Controls.HideControl(contact4) Controls.HideControl(contact5) Controls.HideControl(contact6) Controls.HideControl(contact7) Controls.HideControl(cancelcontact) Shapes.ShowShape(nickname) Shapes.ShowShape(nicknametbback) Controls.ShowControl(nicknametb3) Shapes.ShowShape(name) Shapes.ShowShape(nametbback) Controls.ShowControl(nametb3) Shapes.ShowShape(age) Shapes.ShowShape(agetbback) Controls.ShowControl(agetb3) Controls.ShowControl(save3) Controls.ShowControl(finish3) Controls.ShowControl(load3) Controls.ShowControl(cancelcontactcreation) If getsavenum3 = 1 Then Shapes.ShowShape(savedsheet3) EndIf EndIf 'CONTACT_FOUR_4 If lastbutton = contact4 Then Sound.PlayClick() getsavenum4 = Controls.GetButtonCaption(savenum4) Controls.SetButtonCaption(num, 4) Shapes.ShowShape(sheet) Shapes.ShowShape(topmenu) Shapes.SetText(sheet, "Sheet 4") Controls.HideControl(contact1) Controls.HideControl(contact2) Controls.HideControl(contact3) Controls.HideControl(contact4) Controls.HideControl(contact5) Controls.HideControl(contact6) Controls.HideControl(contact7) Controls.HideControl(cancelcontact) Shapes.ShowShape(nickname) Shapes.ShowShape(nicknametbback) Controls.ShowControl(nicknametb4) Shapes.ShowShape(name) Shapes.ShowShape(nametbback) Controls.ShowControl(nametb4) Shapes.ShowShape(age) Shapes.ShowShape(agetbback) Controls.ShowControl(agetb4) Controls.ShowControl(save4) Controls.ShowControl(finish4) Controls.ShowControl(load4) Controls.ShowControl(cancelcontactcreation) If getsavenum4 = 1 Then Shapes.ShowShape(savedsheet4) EndIf EndIf 'CONTACT_FIVE_5 If lastbutton = contact5 Then Sound.PlayClick() getsavenum5 = Controls.GetButtonCaption(savenum5) Controls.SetButtonCaption(num, 5) Shapes.ShowShape(sheet) Shapes.ShowShape(topmenu) Shapes.SetText(sheet, "Sheet 5") Controls.HideControl(contact1) Controls.HideControl(contact2) Controls.HideControl(contact3) Controls.HideControl(contact4) Controls.HideControl(contact5) Controls.HideControl(contact6) Controls.HideControl(contact7) Controls.HideControl(cancelcontact) Shapes.ShowShape(nickname) Shapes.ShowShape(nicknametbback) Controls.ShowControl(nicknametb5) Shapes.ShowShape(name) Shapes.ShowShape(nametbback) Controls.ShowControl(nametb5) Shapes.ShowShape(age) Shapes.ShowShape(agetbback) Controls.ShowControl(agetb5) Controls.ShowControl(save5) Controls.ShowControl(finish5) Controls.ShowControl(load5) Controls.ShowControl(cancelcontactcreation) If getsavenum5 = 1 Then Shapes.ShowShape(savedsheet5) EndIf EndIf 'CONTACT_SIX_6 If lastbutton = contact6 Then Sound.PlayClick() getsavenum6 = Controls.GetButtonCaption(savenum6) Controls.SetButtonCaption(num, 6) Shapes.ShowShape(sheet) Shapes.ShowShape(topmenu) Shapes.SetText(sheet, "Sheet 6") Controls.HideControl(contact1) Controls.HideControl(contact2) Controls.HideControl(contact3) Controls.HideControl(contact4) Controls.HideControl(contact5) Controls.HideControl(contact6) Controls.HideControl(contact7) Controls.HideControl(cancelcontact) Shapes.ShowShape(nickname) Shapes.ShowShape(nicknametbback) Controls.ShowControl(nicknametb6) Shapes.ShowShape(name) Shapes.ShowShape(nametbback) Controls.ShowControl(nametb6) Shapes.ShowShape(age) Shapes.ShowShape(agetbback) Controls.ShowControl(agetb6) Controls.ShowControl(save6) Controls.ShowControl(finish6) Controls.ShowControl(load6) Controls.ShowControl(cancelcontactcreation) If getsavenum6 = 1 Then Shapes.ShowShape(savedsheet6) EndIf EndIf 'CONTACT_SEVEN_7 If lastbutton = contact7 Then Sound.PlayClick() getsavenum7 = Controls.GetButtonCaption(savenum7) Controls.SetButtonCaption(num, 7) Shapes.ShowShape(sheet) Shapes.ShowShape(topmenu) Shapes.SetText(sheet, "Sheet 7") Controls.HideControl(contact1) Controls.HideControl(contact2) Controls.HideControl(contact3) Controls.HideControl(contact4) Controls.HideControl(contact5) Controls.HideControl(contact6) Controls.HideControl(contact7) Controls.HideControl(cancelcontact) Shapes.ShowShape(nickname) Shapes.ShowShape(nicknametbback) Controls.ShowControl(nicknametb7) Shapes.ShowShape(name) Shapes.ShowShape(nametbback) Controls.ShowControl(nametb7) Shapes.ShowShape(age) Shapes.ShowShape(agetbback) Controls.ShowControl(agetb7) Controls.ShowControl(save7) Controls.ShowControl(finish7) Controls.ShowControl(load7) Controls.ShowControl(cancelcontactcreation) If getsavenum7 = 1 Then Shapes.ShowShape(savedsheet7) EndIf EndIf 'CANCEL_CONTACT_CREATION If lastbutton = cancelcontactcreation Then Sound.PlayClick() Controls.HideControl(cancelcontactcreation) Controls.HideControl(save1) Controls.HideControl(save2) Controls.HideControl(save3) Controls.HideControl(save4) Controls.HideControl(save5) Controls.HideControl(save6) Controls.HideControl(save7) Controls.HideControl(load1) Controls.HideControl(load2) Controls.HideControl(load3) Controls.HideControl(load4) Controls.HideControl(load5) Controls.HideControl(load6) Controls.HideControl(load7) Controls.HideControl(finish1) Controls.HideControl(finish2) Controls.HideControl(finish3) Controls.HideControl(finish4) Controls.HideControl(finish5) Controls.HideControl(finish6) Controls.HideControl(finish7) Shapes.HideShape(nickname) Shapes.HideShape(name) Shapes.HideShape(age) Shapes.HideShape(nicknametbback) Shapes.HideShape(nametbback) Shapes.HideShape(agetbback) Shapes.HideShape(sheet) Shapes.HideShape(topmenu) Shapes.HideShape(saved) Shapes.HideShape(savedsheet1) Shapes.HideShape(savedsheet2) Shapes.HideShape(savedsheet3) Shapes.HideShape(savedsheet4) Shapes.HideShape(savedsheet5) Shapes.HideShape(savedsheet6) Shapes.HideShape(savedsheet7) Controls.HideControl(nicknametb1) Controls.HideControl(nicknametb2) Controls.HideControl(nicknametb3) Controls.HideControl(nicknametb4) Controls.HideControl(nicknametb5) Controls.HideControl(nicknametb6) Controls.HideControl(nicknametb7) Controls.HideControl(nametb1) Controls.HideControl(nametb2) Controls.HideControl(nametb3) Controls.HideControl(nametb4) Controls.HideControl(nametb5) Controls.HideControl(nametb6) Controls.HideControl(nametb7) Controls.HideControl(agetb1) Controls.HideControl(agetb2) Controls.HideControl(agetb3) Controls.HideControl(agetb4) Controls.HideControl(agetb5) Controls.HideControl(agetb6) Controls.HideControl(agetb7) Controls.ShowControl(create) Controls.ShowControl(browse) Controls.ShowControl(help) Controls.ShowControl(exit) getnum = Controls.GetButtonCaption(num) If getnum = 1 Then Controls.SetTextBoxText(nicknametb1, "") Controls.SetTextBoxText(nametb1, "") Controls.SetTextBoxText(agetb1, "") Controls.SetButtonCaption(contact1, "New") Controls.SetButtonCaption(browsecontact1, "-empty-") EndIf If getnum = 2 Then Controls.SetTextBoxText(nicknametb2, "") Controls.SetTextBoxText(nametb2, "") Controls.SetTextBoxText(agetb2, "") Controls.SetButtonCaption(contact2, "New") Controls.SetButtonCaption(browsecontact2, "-empty-") EndIf If getnum = 3 Then Controls.SetTextBoxText(nicknametb3, "") Controls.SetTextBoxText(nametb3, "") Controls.SetTextBoxText(agetb3, "") Controls.SetButtonCaption(contact3, "New") Controls.SetButtonCaption(browsecontact3, "-empty-") EndIf If getnum = 4 Then Controls.SetTextBoxText(nicknametb4, "") Controls.SetTextBoxText(nametb4, "") Controls.SetTextBoxText(agetb4, "") Controls.SetButtonCaption(contact4, "New") Controls.SetButtonCaption(browsecontact4, "-empty-") EndIf If getnum = 5 Then Controls.SetTextBoxText(nicknametb5, "") Controls.SetTextBoxText(nametb5, "") Controls.SetTextBoxText(agetb5, "") Controls.SetButtonCaption(contact5, "New") Controls.SetButtonCaption(browsecontact5, "-empty-") EndIf If getnum = 6 Then Controls.SetTextBoxText(nicknametb6, "") Controls.SetTextBoxText(nametb6, "") Controls.SetTextBoxText(agetb6, "") Controls.SetButtonCaption(contact6, "New") Controls.SetButtonCaption(browsecontact6, "-empty-") EndIf If getnum = 7 Then Controls.SetTextBoxText(nicknametb7, "") Controls.SetTextBoxText(nametb7, "") Controls.SetTextBoxText(agetb7, "") Controls.SetButtonCaption(contact7, "New") Controls.SetButtonCaption(browsecontact7, "-empty-") EndIf EndIf 'CANCEL_CONTACTS If lastbutton = cancelcontact Then Sound.PlayClick() Controls.HideControl(cancelcontact) Controls.HideControl(contact1) Controls.HideControl(contact2) Controls.HideControl(contact3) Controls.HideControl(contact4) Controls.HideControl(contact5) Controls.HideControl(contact6) Controls.HideControl(contact7) Shapes.HideShape(nickname) Shapes.HideShape(nicknametbback) Controls.HideControl(nicknametb1) Controls.HideControl(nicknametb2) Shapes.HideShape(name) Shapes.HideShape(nametbback) Shapes.HideShape(age) Shapes.HideShape(agetbback) Controls.ShowControl(create) Controls.ShowControl(browse) Controls.ShowControl(help) Controls.ShowControl(exit) EndIf 'FINISH_ONE_1 If lastbutton = finish1 Then Sound.PlayClick() getnicknametb1 = Controls.GetTextBoxText(nicknametb1) getnametb1 = Controls.GetTextBoxText(nametb1) getagetb1 = Controls.GetTextBoxText(agetb1) Controls.HideControl(save1) Controls.HideControl(finish1) Controls.HideControl(cancelcontactcreation) Controls.HideControl(load1) Controls.HideControl(nicknametb1) Controls.HideControl(nametb1) Controls.HideControl(agetb1) Shapes.HideShape(nicknametbback) Shapes.HideShape(nametbback) Shapes.HideShape(agetbback) Shapes.HideShape(nickname) Shapes.HideShape(name) Shapes.HideShape(age) Shapes.HideShape(sheet) Shapes.HideShape(savedsheet1) Shapes.HideShape(topmenu) Shapes.HideShape(saved) Controls.ShowControl(create) Controls.ShowControl(browse) Controls.ShowControl(help) Controls.ShowControl(exit) Controls.SetButtonCaption(contact1, getnicknametb1) Controls.SetButtonCaption(browsecontact1, getnicknametb1) If getnicknametb1 = "" Then Controls.SetButtonCaption(contact1, getnametb1) Controls.SetButtonCaption(browsecontact1, getnametb1) EndIf EndIf 'FINISH_TWO_2 If lastbutton = finish2 Then Sound.PlayClick() getnicknametb2 = Controls.GetTextBoxText(nicknametb2) getnametb2 = Controls.GetTextBoxText(nametb2) getagetb2 = Controls.GetTextBoxText(agetb2) Controls.HideControl(save2) Controls.HideControl(finish2) Controls.HideControl(cancelcontactcreation) Controls.HideControl(load2) Controls.HideControl(nicknametb2) Controls.HideControl(nametb2) Controls.HideControl(agetb2) Shapes.HideShape(nicknametbback) Shapes.HideShape(nametbback) Shapes.HideShape(agetbback) Shapes.HideShape(nickname) Shapes.HideShape(name) Shapes.HideShape(age) Shapes.HideShape(sheet) Shapes.HideShape(savedsheet2) Shapes.HideShape(topmenu) Shapes.HideShape(saved) Controls.ShowControl(create) Controls.ShowControl(browse) Controls.ShowControl(help) Controls.ShowControl(exit) Controls.SetButtonCaption(contact2, getnicknametb2) Controls.SetButtonCaption(browsecontact2, getnicknametb2) If getnicknametb2 = "" Then Controls.SetButtonCaption(contact2, getnametb2) Controls.SetButtonCaption(browsecontact2, getnametb2) EndIf EndIf 'FINISH_THREE_3 If lastbutton = finish3 Then Sound.PlayClick() getnicknametb3 = Controls.GetTextBoxText(nicknametb3) getnametb3 = Controls.GetTextBoxText(nametb3) getagetb3 = Controls.GetTextBoxText(agetb3) Controls.HideControl(save3) Controls.HideControl(finish3) Controls.HideControl(cancelcontactcreation) Controls.HideControl(load3) Controls.HideControl(nicknametb3) Controls.HideControl(nametb3) Controls.HideControl(agetb3) Shapes.HideShape(nicknametbback) Shapes.HideShape(nametbback) Shapes.HideShape(agetbback) Shapes.HideShape(nickname) Shapes.HideShape(name) Shapes.HideShape(age) Shapes.HideShape(sheet) Shapes.HideShape(savedsheet3) Shapes.HideShape(topmenu) Shapes.HideShape(saved) Controls.ShowControl(create) Controls.ShowControl(browse) Controls.ShowControl(help) Controls.ShowControl(exit) Controls.SetButtonCaption(contact3, getnicknametb3) Controls.SetButtonCaption(browsecontact3, getnicknametb3) If getnicknametb3 = "" Then Controls.SetButtonCaption(contact3, getnametb3) Controls.SetButtonCaption(browsecontact3, getnametb3) EndIf EndIf 'FINISH_FOUR_4 If lastbutton = finish4 Then Sound.PlayClick() getnicknametb4 = Controls.GetTextBoxText(nicknametb4) getnametb4 = Controls.GetTextBoxText(nametb4) getagetb4 = Controls.GetTextBoxText(agetb4) Controls.HideControl(save4) Controls.HideControl(finish4) Controls.HideControl(cancelcontactcreation) Controls.HideControl(load4) Controls.HideControl(nicknametb4) Controls.HideControl(nametb4) Controls.HideControl(agetb4) Shapes.HideShape(nicknametbback) Shapes.HideShape(nametbback) Shapes.HideShape(agetbback) Shapes.HideShape(nickname) Shapes.HideShape(name) Shapes.HideShape(age) Shapes.HideShape(sheet) Shapes.HideShape(savedsheet4) Shapes.HideShape(topmenu) Shapes.HideShape(saved) Controls.ShowControl(create) Controls.ShowControl(browse) Controls.ShowControl(help) Controls.ShowControl(exit) Controls.SetButtonCaption(contact4, getnicknametb4) Controls.SetButtonCaption(browsecontact4, getnicknametb4) If getnicknametb4 = "" Then Controls.SetButtonCaption(contact4, getnametb4) Controls.SetButtonCaption(browsecontact4, getnametb4) EndIf EndIf 'FINISH_FIVE_5 If lastbutton = finish5 Then Sound.PlayClick() getnicknametb5 = Controls.GetTextBoxText(nicknametb5) getnametb5 = Controls.GetTextBoxText(nametb5) getagetb5 = Controls.GetTextBoxText(agetb5) Controls.HideControl(save5) Controls.HideControl(finish5) Controls.HideControl(cancelcontactcreation) Controls.HideControl(load5) Controls.HideControl(nicknametb5) Controls.HideControl(nametb5) Controls.HideControl(agetb5) Shapes.HideShape(nicknametbback) Shapes.HideShape(nametbback) Shapes.HideShape(agetbback) Shapes.HideShape(nickname) Shapes.HideShape(name) Shapes.HideShape(age) Shapes.HideShape(sheet) Shapes.HideShape(savedsheet5) Shapes.HideShape(topmenu) Shapes.HideShape(saved) Controls.ShowControl(create) Controls.ShowControl(browse) Controls.ShowControl(help) Controls.ShowControl(exit) Controls.SetButtonCaption(contact5, getnicknametb5) Controls.SetButtonCaption(browsecontact5, getnicknametb5) If getnicknametb5 = "" Then Controls.SetButtonCaption(contact5, getnametb5) Controls.SetButtonCaption(browsecontact5, getnametb5) EndIf EndIf 'FINISH_SIX_6 If lastbutton = finish6 Then Sound.PlayClick() getnicknametb6 = Controls.GetTextBoxText(nicknametb6) getnametb6 = Controls.GetTextBoxText(nametb6) getagetb6 = Controls.GetTextBoxText(agetb6) Controls.HideControl(save6) Controls.HideControl(finish6) Controls.HideControl(cancelcontactcreation) Controls.HideControl(load6) Controls.HideControl(nicknametb6) Controls.HideControl(nametb6) Controls.HideControl(agetb6) Shapes.HideShape(nicknametbback) Shapes.HideShape(nametbback) Shapes.HideShape(agetbback) Shapes.HideShape(nickname) Shapes.HideShape(name) Shapes.HideShape(age) Shapes.HideShape(sheet) Shapes.HideShape(savedsheet6) Shapes.HideShape(topmenu) Shapes.HideShape(saved) Controls.ShowControl(create) Controls.ShowControl(browse) Controls.ShowControl(help) Controls.ShowControl(exit) Controls.SetButtonCaption(contact6, getnicknametb6) Controls.SetButtonCaption(browsecontact6, getnicknametb6) If getnicknametb6 = "" Then Controls.SetButtonCaption(contact6, getnametb6) Controls.SetButtonCaption(browsecontact6, getnametb6) EndIf EndIf 'FINISH_SEVEN_7 If lastbutton = finish7 Then Sound.PlayClick() getnicknametb7 = Controls.GetTextBoxText(nicknametb7) getnametb7 = Controls.GetTextBoxText(nametb7) getagetb7 = Controls.GetTextBoxText(agetb7) Controls.HideControl(save7) Controls.HideControl(finish7) Controls.HideControl(cancelcontactcreation) Controls.HideControl(load7) Controls.HideControl(nicknametb7) Controls.HideControl(nametb7) Controls.HideControl(agetb7) Shapes.HideShape(nicknametbback) Shapes.HideShape(nametbback) Shapes.HideShape(agetbback) Shapes.HideShape(nickname) Shapes.HideShape(name) Shapes.HideShape(age) Shapes.HideShape(sheet) Shapes.HideShape(savedsheet7) Shapes.HideShape(topmenu) Shapes.HideShape(saved) Controls.ShowControl(create) Controls.ShowControl(browse) Controls.ShowControl(help) Controls.ShowControl(exit) Controls.SetButtonCaption(contact7, getnicknametb7) Controls.SetButtonCaption(browsecontact7, getnicknametb7) If getnicknametb7 = "" Then Controls.SetButtonCaption(contact7, getnametb7) Controls.SetButtonCaption(browsecontact7, getnametb7) EndIf EndIf 'SAVE_ONE_1 If lastbutton = save1 Then Sound.PlayClick() Controls.SetButtonCaption(savenum1, 1) Shapes.ShowShape(saved) Shapes.ShowShape(savedsheet1) Timer.Interval = 1500 getnicknametb1 = Controls.GetTextBoxText(nicknametb1) getnametb1 = Controls.GetTextBoxText(nametb1) getagetb1 = Controls.GetTextBoxText(agetb1) ' The following line could be harmful and has been automatically commented. ' tmp1 = File.GetTemporaryFilePath() ' The following line could be harmful and has been automatically commented. ' File.WriteContents(tmp1 + ".txt", getnicknametb1 + " " + getnametb1 + " " + getagetb1) ' The following line could be harmful and has been automatically commented. ' File.WriteLine(tmp1 + ".txt", 1, getnicknametb1) ' The following line could be harmful and has been automatically commented. ' File.WriteLine(tmp1 + ".txt", 2, getnametb1) ' The following line could be harmful and has been automatically commented. ' File.WriteLine(tmp1 + ".txt", 3, getagetb1) EndIf 'SAVE_TWO_2 If lastbutton = save2 Then Sound.PlayClick() Controls.SetButtonCaption(savenum2, 1) Shapes.ShowShape(saved) Shapes.ShowShape(savedsheet2) Timer.Interval = 1500 getnicknametb2 = Controls.GetTextBoxText(nicknametb2) getnametb2 = Controls.GetTextBoxText(nametb2) getagetb2 = Controls.GetTextBoxText(agetb2) ' The following line could be harmful and has been automatically commented. ' tmp2 = File.GetTemporaryFilePath() ' The following line could be harmful and has been automatically commented. ' File.WriteContents(tmp2 + ".txt", getnicknametb2 + " " + getnametb2 + " " + getagetb2) ' The following line could be harmful and has been automatically commented. ' File.WriteLine(tmp2 + ".txt", 1, getnicknametb2) ' The following line could be harmful and has been automatically commented. ' File.WriteLine(tmp2 + ".txt", 2, getnametb2) ' The following line could be harmful and has been automatically commented. ' File.WriteLine(tmp2 + ".txt", 3, getagetb2) EndIf 'SAVE_THREE_3 If lastbutton = save3 Then Sound.PlayClick() Controls.SetButtonCaption(savenum3, 1) Shapes.ShowShape(saved) Shapes.ShowShape(savedsheet3) Timer.Interval = 1500 getnicknametb3 = Controls.GetTextBoxText(nicknametb3) getnametb3 = Controls.GetTextBoxText(nametb3) getagetb3 = Controls.GetTextBoxText(agetb3) ' The following line could be harmful and has been automatically commented. ' tmp3 = File.GetTemporaryFilePath() ' The following line could be harmful and has been automatically commented. ' File.WriteContents(tmp3 + ".txt", getnicknametb3 + " " + getnametb3 + " " + getagetb3) ' The following line could be harmful and has been automatically commented. ' File.WriteLine(tmp3 + ".txt", 1, getnicknametb3) ' The following line could be harmful and has been automatically commented. ' File.WriteLine(tmp3 + ".txt", 2, getnametb3) ' The following line could be harmful and has been automatically commented. ' File.WriteLine(tmp3 + ".txt", 3, getagetb3) EndIf 'SAVE_FOUR_4 If lastbutton = save4 Then Sound.PlayClick() Controls.SetButtonCaption(savenum4, 1) Shapes.ShowShape(saved) Shapes.ShowShape(savedsheet4) Timer.Interval = 1500 getnicknametb4 = Controls.GetTextBoxText(nicknametb4) getnametb4 = Controls.GetTextBoxText(nametb4) getagetb4 = Controls.GetTextBoxText(agetb4) ' The following line could be harmful and has been automatically commented. ' tmp4 = File.GetTemporaryFilePath() ' The following line could be harmful and has been automatically commented. ' File.WriteContents(tmp4 + ".txt", getnicknametb4 + " " + getnametb4 + " " + getagetb4) ' The following line could be harmful and has been automatically commented. ' File.WriteLine(tmp4 + ".txt", 1, getnicknametb4) ' The following line could be harmful and has been automatically commented. ' File.WriteLine(tmp4 + ".txt", 2, getnametb4) ' The following line could be harmful and has been automatically commented. ' File.WriteLine(tmp4 + ".txt", 3, getagetb4) EndIf 'SAVE_FIVE_5 If lastbutton = save5 Then Sound.PlayClick() Controls.SetButtonCaption(savenum5, 1) Shapes.ShowShape(saved) Shapes.ShowShape(savedsheet5) Timer.Interval = 1500 getnicknametb5 = Controls.GetTextBoxText(nicknametb5) getnametb5 = Controls.GetTextBoxText(nametb5) getagetb5 = Controls.GetTextBoxText(agetb5) ' The following line could be harmful and has been automatically commented. ' tmp5 = File.GetTemporaryFilePath() ' The following line could be harmful and has been automatically commented. ' File.WriteContents(tmp5 + ".txt", getnicknametb5 + " " + getnametb5 + " " + getagetb5) ' The following line could be harmful and has been automatically commented. ' File.WriteLine(tmp5 + ".txt", 1, getnicknametb5) ' The following line could be harmful and has been automatically commented. ' File.WriteLine(tmp5 + ".txt", 2, getnametb5) ' The following line could be harmful and has been automatically commented. ' File.WriteLine(tmp5 + ".txt", 3, getagetb5) EndIf 'SAVE_SIX_6 If lastbutton = save6 Then Sound.PlayClick() Controls.SetButtonCaption(savenum6, 1) Shapes.ShowShape(saved) Shapes.ShowShape(savedsheet6) Timer.Interval = 1500 getnicknametb6 = Controls.GetTextBoxText(nicknametb6) getnametb6 = Controls.GetTextBoxText(nametb6) getagetb6 = Controls.GetTextBoxText(agetb6) ' The following line could be harmful and has been automatically commented. ' tmp6 = File.GetTemporaryFilePath() ' The following line could be harmful and has been automatically commented. ' File.WriteContents(tmp6 + ".txt", getnicknametb6 + " " + getnametb6 + " " + getagetb6) ' The following line could be harmful and has been automatically commented. ' File.WriteLine(tmp6 + ".txt", 1, getnicknametb6) ' The following line could be harmful and has been automatically commented. ' File.WriteLine(tmp6 + ".txt", 2, getnametb6) ' The following line could be harmful and has been automatically commented. ' File.WriteLine(tmp6 + ".txt", 3, getagetb6) EndIf 'SAVE_SEVEN_7 If lastbutton = save7 Then Sound.PlayClick() Controls.SetButtonCaption(savenum7, 1) Shapes.ShowShape(saved) Shapes.ShowShape(savedsheet7) Timer.Interval = 1500 getnicknametb7 = Controls.GetTextBoxText(nicknametb7) getnametb7 = Controls.GetTextBoxText(nametb7) getagetb7 = Controls.GetTextBoxText(agetb7) ' The following line could be harmful and has been automatically commented. ' tmp7 = File.GetTemporaryFilePath() ' The following line could be harmful and has been automatically commented. ' File.WriteContents(tmp7 + ".txt", getnicknametb7 + " " + getnametb7 + " " + getagetb7) ' The following line could be harmful and has been automatically commented. ' File.WriteLine(tmp7 + ".txt", 1, getnicknametb7) ' The following line could be harmful and has been automatically commented. ' File.WriteLine(tmp7 + ".txt", 2, getnametb7) ' The following line could be harmful and has been automatically commented. ' File.WriteLine(tmp7 + ".txt", 3, getagetb7) EndIf 'LOAD_ONE_1 If lastbutton = load1 Then Sound.PlayClick() ' The following line could be harmful and has been automatically commented. ' nicknametb1line1 = File.ReadLine(tmp1 + ".txt", 1) ' The following line could be harmful and has been automatically commented. ' nametb1line2 = File.ReadLine(tmp1 + ".txt", 2) ' The following line could be harmful and has been automatically commented. ' agetb1line3 = File.ReadLine(tmp1 + ".txt", 3) Controls.SetTextBoxText(nicknametb1, nicknametb1line1) Controls.SetTextBoxText(nametb1, nametb1line2) Controls.SetTextBoxText(agetb1, agetb1line3) EndIf 'LOAD_TWO_2 If lastbutton = load2 Then Sound.PlayClick() ' The following line could be harmful and has been automatically commented. ' nicknametb1line1 = File.ReadLine(tmp2 + ".txt", 1) ' The following line could be harmful and has been automatically commented. ' nametb1line2 = File.ReadLine(tmp2 + ".txt", 2) ' The following line could be harmful and has been automatically commented. ' agetb1line3 = File.ReadLine(tmp2 + ".txt", 3) Controls.SetTextBoxText(nicknametb2, nicknametb1line1) Controls.SetTextBoxText(nametb2, nametb1line2) Controls.SetTextBoxText(agetb2, agetb1line3) EndIf 'LOAD_THREE_3 If lastbutton = load3 Then Sound.PlayClick() ' The following line could be harmful and has been automatically commented. ' nicknametb1line1 = File.ReadLine(tmp3 + ".txt", 1) ' The following line could be harmful and has been automatically commented. ' nametb1line2 = File.ReadLine(tmp3 + ".txt", 2) ' The following line could be harmful and has been automatically commented. ' agetb1line3 = File.ReadLine(tmp3 + ".txt", 3) Controls.SetTextBoxText(nicknametb3, nicknametb1line1) Controls.SetTextBoxText(nametb3, nametb1line2) Controls.SetTextBoxText(agetb3, agetb1line3) EndIf 'LOAD_FOUR_4 If lastbutton = load4 Then Sound.PlayClick() ' The following line could be harmful and has been automatically commented. ' nicknametb1line1 = File.ReadLine(tmp4 + ".txt", 1) ' The following line could be harmful and has been automatically commented. ' nametb1line2 = File.ReadLine(tmp4 + ".txt", 2) ' The following line could be harmful and has been automatically commented. ' agetb1line3 = File.ReadLine(tmp4 + ".txt", 3) Controls.SetTextBoxText(nicknametb4, nicknametb1line1) Controls.SetTextBoxText(nametb4, nametb1line2) Controls.SetTextBoxText(agetb4, agetb1line3) EndIf 'LOAD_FIVE_5 If lastbutton = load5 Then Sound.PlayClick() ' The following line could be harmful and has been automatically commented. ' nicknametb1line1 = File.ReadLine(tmp5 + ".txt", 1) ' The following line could be harmful and has been automatically commented. ' nametb1line2 = File.ReadLine(tmp5 + ".txt", 2) ' The following line could be harmful and has been automatically commented. ' agetb1line3 = File.ReadLine(tmp5 + ".txt", 3) Controls.SetTextBoxText(nicknametb5, nicknametb1line1) Controls.SetTextBoxText(nametb5, nametb1line2) Controls.SetTextBoxText(agetb5, agetb1line3) EndIf 'LOAD_SIX_6 If lastbutton = load6 Then Sound.PlayClick() ' The following line could be harmful and has been automatically commented. ' nicknametb1line1 = File.ReadLine(tmp6 + ".txt", 1) ' The following line could be harmful and has been automatically commented. ' nametb1line2 = File.ReadLine(tmp6 + ".txt", 2) ' The following line could be harmful and has been automatically commented. ' agetb1line3 = File.ReadLine(tmp6 + ".txt", 3) Controls.SetTextBoxText(nicknametb6, nicknametb1line1) Controls.SetTextBoxText(nametb6, nametb1line2) Controls.SetTextBoxText(agetb6, agetb1line3) EndIf 'LOAD_SEVEN_7 If lastbutton = load7 Then Sound.PlayClick() ' The following line could be harmful and has been automatically commented. ' nicknametb1line1 = File.ReadLine(tmp7 + ".txt", 1) ' The following line could be harmful and has been automatically commented. ' nametb1line2 = File.ReadLine(tmp7 + ".txt", 2) ' The following line could be harmful and has been automatically commented. ' agetb1line3 = File.ReadLine(tmp7 + ".txt", 3) Controls.SetTextBoxText(nicknametb7, nicknametb1line1) Controls.SetTextBoxText(nametb7, nametb1line2) Controls.SetTextBoxText(agetb7, agetb1line3) EndIf 'BROWSE If lastbutton = browse Then Sound.PlayClick() Controls.HideControl(create) Controls.HideControl(browse) Controls.HideControl(help) Controls.HideControl(exit) Controls.ShowControl(browsecontact1) Controls.ShowControl(browsecontact2) Controls.ShowControl(browsecontact3) Controls.ShowControl(browsecontact4) Controls.ShowControl(browsecontact5) Controls.ShowControl(browsecontact6) Controls.ShowControl(browsecontact7) Controls.ShowControl(cancelbrowsecontact) Shapes.HideShape(body1) Shapes.HideShape(head1) Shapes.HideShape(ellipse1) Shapes.HideShape(bodycover1) EndIf 'BROWSE_CONTACT_ONE_1 If lastbutton = browsecontact1 Then Sound.PlayClick() Controls.HideControl(nicknametb1) Controls.HideControl(nametb1) Controls.HideControl(agetb1) Controls.HideControl(nicknametb2) Controls.HideControl(nametb2) Controls.HideControl(agetb2) Controls.HideControl(nicknametb3) Controls.HideControl(nametb3) Controls.HideControl(agetb3) Controls.HideControl(nicknametb4) Controls.HideControl(nametb4) Controls.HideControl(agetb4) Controls.HideControl(nicknametb5) Controls.HideControl(nametb5) Controls.HideControl(agetb5) Controls.HideControl(nicknametb6) Controls.HideControl(nametb6) Controls.HideControl(agetb6) Controls.HideControl(nicknametb7) Controls.HideControl(nametb7) Controls.HideControl(agetb7) Shapes.ShowShape(nickname) Shapes.ShowShape(nicknametbback) Controls.ShowControl(nicknametb1) Shapes.ShowShape(name) Shapes.ShowShape(nametbback) Controls.ShowControl(nametb1) Shapes.ShowShape(age) Shapes.ShowShape(agetbback) Controls.ShowControl(agetb1) EndIf 'BROWSE_CONTACT_TWO_2 If lastbutton = browsecontact2 Then Sound.PlayClick() Controls.HideControl(nicknametb1) Controls.HideControl(nametb1) Controls.HideControl(agetb1) Controls.HideControl(nicknametb2) Controls.HideControl(nametb2) Controls.HideControl(agetb2) Controls.HideControl(nicknametb3) Controls.HideControl(nametb3) Controls.HideControl(agetb3) Controls.HideControl(nicknametb4) Controls.HideControl(nametb4) Controls.HideControl(agetb4) Controls.HideControl(nicknametb5) Controls.HideControl(nametb5) Controls.HideControl(agetb5) Controls.HideControl(nicknametb6) Controls.HideControl(nametb6) Controls.HideControl(agetb6) Controls.HideControl(nicknametb7) Controls.HideControl(nametb7) Controls.HideControl(agetb7) Shapes.ShowShape(nickname) Shapes.ShowShape(nicknametbback) Controls.ShowControl(nicknametb2) Shapes.ShowShape(name) Shapes.ShowShape(nametbback) Controls.ShowControl(nametb2) Shapes.ShowShape(age) Shapes.ShowShape(agetbback) Controls.ShowControl(agetb2) EndIf 'BROWSE_CONTACT_THREE_3 If lastbutton = browsecontact3 Then Sound.PlayClick() Controls.HideControl(nicknametb1) Controls.HideControl(nametb1) Controls.HideControl(agetb1) Controls.HideControl(nicknametb2) Controls.HideControl(nametb2) Controls.HideControl(agetb2) Controls.HideControl(nicknametb3) Controls.HideControl(nametb3) Controls.HideControl(agetb3) Controls.HideControl(nicknametb4) Controls.HideControl(nametb4) Controls.HideControl(agetb4) Controls.HideControl(nicknametb5) Controls.HideControl(nametb5) Controls.HideControl(agetb5) Controls.HideControl(nicknametb6) Controls.HideControl(nametb6) Controls.HideControl(agetb6) Controls.HideControl(nicknametb7) Controls.HideControl(nametb7) Controls.HideControl(agetb7) Shapes.ShowShape(nickname) Shapes.ShowShape(nicknametbback) Controls.ShowControl(nicknametb3) Shapes.ShowShape(name) Shapes.ShowShape(nametbback) Controls.ShowControl(nametb3) Shapes.ShowShape(age) Shapes.ShowShape(agetbback) Controls.ShowControl(agetb3) EndIf 'BROWSE_CONTACT_FOUR_4 If lastbutton = browsecontact4 Then Sound.PlayClick() Controls.HideControl(nicknametb1) Controls.HideControl(nametb1) Controls.HideControl(agetb1) Controls.HideControl(nicknametb2) Controls.HideControl(nametb2) Controls.HideControl(agetb2) Controls.HideControl(nicknametb3) Controls.HideControl(nametb3) Controls.HideControl(agetb3) Controls.HideControl(nicknametb4) Controls.HideControl(nametb4) Controls.HideControl(agetb4) Controls.HideControl(nicknametb5) Controls.HideControl(nametb5) Controls.HideControl(agetb5) Controls.HideControl(nicknametb6) Controls.HideControl(nametb6) Controls.HideControl(agetb6) Controls.HideControl(nicknametb7) Controls.HideControl(nametb7) Controls.HideControl(agetb7) Shapes.ShowShape(nickname) Shapes.ShowShape(nicknametbback) Controls.ShowControl(nicknametb4) Shapes.ShowShape(name) Shapes.ShowShape(nametbback) Controls.ShowControl(nametb4) Shapes.ShowShape(age) Shapes.ShowShape(agetbback) Controls.ShowControl(agetb4) EndIf 'BROWSE_CONTACT_FIVE_5 If lastbutton = browsecontact5 Then Sound.PlayClick() Controls.HideControl(nicknametb1) Controls.HideControl(nametb1) Controls.HideControl(agetb1) Controls.HideControl(nicknametb2) Controls.HideControl(nametb2) Controls.HideControl(agetb2) Controls.HideControl(nicknametb3) Controls.HideControl(nametb3) Controls.HideControl(agetb3) Controls.HideControl(nicknametb4) Controls.HideControl(nametb4) Controls.HideControl(agetb4) Controls.HideControl(nicknametb5) Controls.HideControl(nametb5) Controls.HideControl(agetb5) Controls.HideControl(nicknametb6) Controls.HideControl(nametb6) Controls.HideControl(agetb6) Controls.HideControl(nicknametb7) Controls.HideControl(nametb7) Controls.HideControl(agetb7) Shapes.ShowShape(nickname) Shapes.ShowShape(nicknametbback) Controls.ShowControl(nicknametb5) Shapes.ShowShape(name) Shapes.ShowShape(nametbback) Controls.ShowControl(nametb5) Shapes.ShowShape(age) Shapes.ShowShape(agetbback) Controls.ShowControl(agetb5) EndIf 'BROWSE_CONTACT_SIX_6 If lastbutton = browsecontact6 Then Sound.PlayClick() Controls.HideControl(nicknametb1) Controls.HideControl(nametb1) Controls.HideControl(agetb1) Controls.HideControl(nicknametb2) Controls.HideControl(nametb2) Controls.HideControl(agetb2) Controls.HideControl(nicknametb3) Controls.HideControl(nametb3) Controls.HideControl(agetb3) Controls.HideControl(nicknametb4) Controls.HideControl(nametb4) Controls.HideControl(agetb4) Controls.HideControl(nicknametb5) Controls.HideControl(nametb5) Controls.HideControl(agetb5) Controls.HideControl(nicknametb6) Controls.HideControl(nametb6) Controls.HideControl(agetb6) Controls.HideControl(nicknametb7) Controls.HideControl(nametb7) Controls.HideControl(agetb7) Shapes.ShowShape(nickname) Shapes.ShowShape(nicknametbback) Controls.ShowControl(nicknametb6) Shapes.ShowShape(name) Shapes.ShowShape(nametbback) Controls.ShowControl(nametb6) Shapes.ShowShape(age) Shapes.ShowShape(agetbback) Controls.ShowControl(agetb6) EndIf 'BROWSE_CONTACT_SEVEN_7 If lastbutton = browsecontact7 Then Sound.PlayClick() Controls.HideControl(nicknametb1) Controls.HideControl(nametb1) Controls.HideControl(agetb1) Controls.HideControl(nicknametb2) Controls.HideControl(nametb2) Controls.HideControl(agetb2) Controls.HideControl(nicknametb3) Controls.HideControl(nametb3) Controls.HideControl(agetb3) Controls.HideControl(nicknametb4) Controls.HideControl(nametb4) Controls.HideControl(agetb4) Controls.HideControl(nicknametb5) Controls.HideControl(nametb5) Controls.HideControl(agetb5) Controls.HideControl(nicknametb6) Controls.HideControl(nametb6) Controls.HideControl(agetb6) Controls.HideControl(nicknametb7) Controls.HideControl(nametb7) Controls.HideControl(agetb7) Shapes.ShowShape(nickname) Shapes.ShowShape(nicknametbback) Controls.ShowControl(nicknametb7) Shapes.ShowShape(name) Shapes.ShowShape(nametbback) Controls.ShowControl(nametb7) Shapes.ShowShape(age) Shapes.ShowShape(agetbback) Controls.ShowControl(agetb7) EndIf 'CANCEL_BROWSE_CONTACT If lastbutton = cancelbrowsecontact Then Sound.PlayClick() Controls.HideControl(browsecontact1) Controls.HideControl(browsecontact2) Controls.HideControl(browsecontact3) Controls.HideControl(browsecontact4) Controls.HideControl(browsecontact5) Controls.HideControl(browsecontact6) Controls.HideControl(browsecontact7) Controls.HideControl(cancelbrowsecontact) Shapes.HideShape(nickname) Shapes.HideShape(nicknametbback) Controls.HideControl(nicknametb1) Controls.HideControl(nicknametb2) Controls.HideControl(nicknametb3) Controls.HideControl(nicknametb4) Controls.HideControl(nicknametb5) Controls.HideControl(nicknametb6) Controls.HideControl(nicknametb7) Shapes.HideShape(name) Shapes.HideShape(nametbback) Controls.HideControl(nametb1) Controls.HideControl(nametb2) Controls.HideControl(nametb3) Controls.HideControl(nametb4) Controls.HideControl(nametb5) Controls.HideControl(nametb6) Controls.HideControl(nametb7) Shapes.HideShape(age) Shapes.HideShape(agetbback) Controls.HideControl(agetb1) Controls.HideControl(agetb2) Controls.HideControl(agetb3) Controls.HideControl(agetb4) Controls.HideControl(agetb5) Controls.HideControl(agetb6) Controls.HideControl(agetb7) Controls.ShowControl(create) Controls.ShowControl(browse) Controls.ShowControl(help) Controls.ShowControl(exit) Shapes.ShowShape(ellipse1) Shapes.ShowShape(head1) Shapes.ShowShape(body1) Shapes.ShowShape(bodycover1) EndIf 'HELP If lastbutton = help Then Sound.PlayClick() Controls.HideControl(create) Controls.HideControl(browse) Controls.HideControl(help) Controls.HideControl(exit) Controls.ShowControl(exithelp) Controls.ShowControl(next) Shapes.ShowShape(helptext1) Shapes.ShowShape(helptext2) Shapes.ShowShape(helptext3) Shapes.ShowShape(helptext4) Shapes.ShowShape(helptext5) Shapes.ShowShape(helptext6) Shapes.ShowShape(helptext7) Shapes.HideShape(ellipse1) Shapes.HideShape(ellipse2) Shapes.HideShape(head1) Shapes.HideShape(head2) Shapes.HideShape(body1) Shapes.HideShape(body2) Shapes.HideShape(bodycover1) Shapes.HideShape(bodycover2) EndIf 'NEXT If lastbutton = next Then Sound.PlayClick() Controls.HideControl(next) Controls.ShowControl(previous) Shapes.HideShape(helptext1) Shapes.HideShape(helptext2) Shapes.HideShape(helptext3) Shapes.HideShape(helptext4) Shapes.HideShape(helptext5) Shapes.HideShape(helptext6) Shapes.HideShape(helptext7) Shapes.ShowShape(helptext8) Shapes.ShowShape(helptext9) Shapes.ShowShape(helptext10) Shapes.ShowShape(helptext11) Shapes.ShowShape(helptext12) Shapes.ShowShape(helptext13) Shapes.ShowShape(helptext14) EndIf 'PREVIOUS If lastbutton = previous Then Sound.PlayClick() Controls.HideControl(previous) Controls.ShowControl(next) Shapes.HideShape(helptext8) Shapes.HideShape(helptext9) Shapes.HideShape(helptext10) Shapes.HideShape(helptext11) Shapes.HideShape(helptext12) Shapes.HideShape(helptext13) Shapes.HideShape(helptext14) Shapes.ShowShape(helptext1) Shapes.ShowShape(helptext2) Shapes.ShowShape(helptext3) Shapes.ShowShape(helptext4) Shapes.ShowShape(helptext5) Shapes.ShowShape(helptext6) Shapes.ShowShape(helptext7) EndIf 'EXIT_HELP If lastbutton = exithelp Then Sound.PlayClick() Controls.HideControl(exithelp) Controls.HideControl(next) Controls.HideControl(previous) Shapes.HideShape(helptext1) Shapes.HideShape(helptext2) Shapes.HideShape(helptext3) Shapes.HideShape(helptext4) Shapes.HideShape(helptext5) Shapes.HideShape(helptext6) Shapes.HideShape(helptext7) Shapes.HideShape(helptext8) Shapes.HideShape(helptext9) Shapes.HideShape(helptext10) Shapes.HideShape(helptext11) Shapes.HideShape(helptext12) Shapes.HideShape(helptext13) Shapes.HideShape(helptext14) Controls.ShowControl(create) Controls.ShowControl(browse) Controls.ShowControl(help) Controls.ShowControl(exit) Shapes.ShowShape(ellipse1) Shapes.ShowShape(ellipse2) Shapes.ShowShape(head1) Shapes.ShowShape(head2) Shapes.ShowShape(body1) Shapes.ShowShape(body2) Shapes.ShowShape(bodycover1) Shapes.ShowShape(bodycover2) EndIf 'EXIT If lastbutton = exit Then Sound.PlayClickAndWait() ' The following line could be harmful and has been automatically commented. ' File.DeleteFile(tmp1 + ".txt") ' The following line could be harmful and has been automatically commented. ' File.DeleteFile(tmp2 + ".txt") ' The following line could be harmful and has been automatically commented. ' File.DeleteFile(tmp3 + ".txt") ' The following line could be harmful and has been automatically commented. ' File.DeleteFile(tmp4 + ".txt") ' The following line could be harmful and has been automatically commented. ' File.DeleteFile(tmp5 + ".txt") ' The following line could be harmful and has been automatically commented. ' File.DeleteFile(tmp6 + ".txt") ' The following line could be harmful and has been automatically commented. ' File.DeleteFile(tmp7 + ".txt") Program.End() EndIf EndSub 'TIMER Timer.Tick = tick Sub tick Shapes.HideShape(saved) EndSub 'SHOW_WINDOW GraphicsWindow.Show() End>TZZ326.sb<