Microsoft Small Basic

Program Listing: GRL564

List Program

GraphicsWindow.Show()
img = ImageList.LoadImage("http://www.kms-herzgasse.ac.at/smallbasic/smallbasic.jpg")
GraphicsWindow.DrawImage(img, 0,0)
gw = 1000
gh = 800
GraphicsWindow.Height = gh
GraphicsWindow.Width = gw
GraphicsWindow.FillRectangle(900, 650, 10, 10)
GraphicsWindow.FillRectangle(550, 350, 10, 10)
GraphicsWindow.FillRectangle(400, 455, 10, 10)

GraphicsWindow.FillRectangle(300, 400, 10, 10)
GraphicsWindow.FillRectangle(320, 500, 10, 10)
GraphicsWindow.FillRectangle(725, 100, 10, 10)
GraphicsWindow.FillRectangle(111, 500, 10, 10)
GraphicsWindow.FillRectangle(415, 200, 10, 10)
GraphicsWindow.FillRectangle(900, 500, 10, 10)
GraphicsWindow.FillRectangle(200, 500, 10, 10)
GraphicsWindow.FillRectangle(400, 500, 10, 10)
GraphicsWindow.FillRectangle(500, 400, 10, 10)
GraphicsWindow.FillRectangle(100, 500, 10, 10)
GraphicsWindow.FillRectangle(800, 500, 10, 10)
GraphicsWindow.FillRectangle(300, 300, 10, 10)
GraphicsWindow.FillRectangle(455, 455, 10, 10)
GraphicsWindow.FillRectangle(100, 200, 10, 10)
GraphicsWindow.FillRectangle(400, 400, 10, 10)
GraphicsWindow.FillRectangle(300, 200, 10, 10)
GraphicsWindow.FillRectangle(100, 100, 10, 10)
GraphicsWindow.FillRectangle(830, 300, 10, 10)
GraphicsWindow.FillRectangle(150, 200, 10, 10)
GraphicsWindow.MouseDown = OnMouseDown
GraphicsWindow.FillRectangle(800, 500, 10, 10)
GraphicsWindow.FillRectangle(725, 100, 10, 10)
GraphicsWindow.FillRectangle(320, 500, 10, 10)
GraphicsWindow.FillRectangle(200, 300, 10 10)
GraphicsWindow.FillRectangle(550, 350, 10, 10)
GraphicsWindow.FillRectangle(350, 360, 10, 10)
GraphicsWindow.FillRectangle(500, 455, 10, 10)
GraphicsWindow.FillRectangle(400, 450, 10, 10)
GraphicsWindow.FillRectangle(600, 350, 10, 10)
GraphicsWindow.FillRectangle(100, 100, 10, 10)

Sub OnMouseDown
x = GraphicsWindow.MouseX
y = GraphicsWindow.MouseY


If(x >900 And x <910 And y >650 And y <660) Then
GraphicsWindow.ShowMessage(" Hier ist ein schöner Park wo wir vier oft hingehen !", "You Won!")
EndIf

If(x >400 And x <410 And y >455 And y <466) Then
GraphicsWindow.ShowMessage("Hier ist mein aller aller Lieblingsgeschäft!", "You Won!")
EndIf

If(x >550 And x <560 And y >350 And y <360) Then
GraphicsWindow.ShowMessage(" Here is the best school !", "You Won!")
EndIf

If(x >830 And x <840 And y >300 And y <310) Then
GraphicsWindow.ShowMessage(" Hier ist der Müller!", "You Won!")
EndIf


If(x >300 And x <310 And y >400 And y <410) Then
GraphicsWindow.ShowMessage("Hier gibt es leckeres EIS", "You Won!")
EndIf

If(x >99 And x <199 And y >49 And y <149) Then
GraphicsWindow.ShowMessage("Hier wohnt eine Freundin von uns!", "You Won!")
EndIf

If(x >299 And x <399 And y >349 And y <449) Then
GraphicsWindow.ShowMessage("Hier sind die feschesten Jungs!", "You Won!")
EndIf

If(x >399 And x <499 And y >449 And y <549) Then
GraphicsWindow.ShowMessage("Kauf hier blos keine Pizza!", "You Won!")
EndIf

If(x >500 And x <510 And y >455 And y <465) Then
GraphicsWindow.ShowMessage("Aufpassen !", "You Won!")
EndIf

If(x >600 And x <610 And y >350 And y <360) Then
GraphicsWindow.ShowMessage("Hier gibt`s den besten Döner!", "You Won!")
EndIf

If(x >550 And x <560 And y >350 And y <360) Then
GraphicsWindow.ShowMessage("Hier ist unser Heimweg!", "You Won!")
EndIf
If(x >320 And x <330 And y >500 And y <510) Then
GraphicsWindow.ShowMessage("Hier wohnt Predrag !", "You Won!")
EndIf

If(x >725 And x <740 And y >100 And y <110) Then
GraphicsWindow.ShowMessage("Hier kaufen wir sehr gerne ein!", "You Won!")
EndIf

If(x >111 And x <121 And y >500 And y <510) Then
GraphicsWindow.ShowMessage("Hier ist die Feuerwehr!", "You Won!")
EndIf

If(x >415 And x <425 And y >200 And y <210) Then
GraphicsWindow.ShowMessage("Hier gehe ich mit meiner Schule in den park!", "You Won!")
EndIf

If(x >900 And x <910 And y >500 And y <510) Then
GraphicsWindow.ShowMessage("Kauf hier ein Eis!", "You Won!")
EndIf

If(x >200 And x <210 And y >500 And y < 510) Then
GraphicsWindow.ShowMessage("Hier gibt's die besten High Heels!", "You Won!")
EndIf

If(x >400 And x <410 And y >500 And y <510 ) Then
GraphicsWindow.ShowMessage("Hier ist die Bipa !", "You Won!")
EndIf
If(x >500 And x <510 And y >400 And y <410 ) Then
GraphicsWindow.ShowMessage("Hir wohnt ein Freund !", "You Won!")
EndIf

If(x>100 And x <110 And y >500 And y <510) Then
GraphicsWindow.ShowMessage("Hier ist die Rettung !", "You Won!")
EndIf

If(x >800 And x <810 And y >500 And y <510 ) Then
GraphicsWindow.ShowMessage("Hier ist Julia zur welt gekommen !", "You Won!")
EndIf

If(x >200 And x <210 And y >300 And y <310) Then
GraphicsWindow.ShowMessage("Hier ist ein gutes Restaurant", "You Won!")
EndIf

If(x >320 And x <330 And y >500 And y <510) Then
GraphicsWindow.ShowMessage("Hier ist ein guter Park", "You Won!")
EndIf

If(x >725 And x <740 And y >100 And y <110) Then
GraphicsWindow.ShowMessage("Beste Schnitzelsemmel ", "You Won!")
EndIf

If(x >800 And x <810 And y >500 And y <510) Then
GraphicsWindow.ShowMessage("Hier ist die Müllabfuhr", "You Won!")
EndIf


If(x >455 And x <466 And y >455 And y <466) Then
GraphicsWindow.ShowMessage("Hier ist immer ein alter Penner!", "You Won!")
EndIf

If(x >300 And x <310 And y >300 And y <310) Then
GraphicsWindow.ShowMessage("Hir gibts den besten Döner!", "You Won!")
EndIf

If(x >100 And x <110 And y >200 And y <210) Then
GraphicsWindow.ShowMessage("Hunde alarm!!!", "You Won!")
EndIf

If(x >100 And x <110 And y >200 And y <210) Then
GraphicsWindow.ShowMessage("Ich würde euch raten : haltet euch hier besser fern!", "You Won!")
EndIf

If(x >400And x <410 And y >400 And y <410) Then
GraphicsWindow.ShowMessage("Hier is ne echt coole gegend!", "You Won!")
EndIf

If(x >300 And x <310 And y >200 And y <210) Then
GraphicsWindow.ShowMessage("Heir ist unsere schule!", "You Won!")
EndIf

If(x >100 And x <110 And y >100 And y <110) Then
GraphicsWindow.ShowMessage("Hier gibt es viel zu sehen!", "You Won!")
EndIf

If(x >150 And x <160 And y >200 And y <210) Then
GraphicsWindow.ShowMessage("Hier gibt es ein schwimmbad !", "You Won!")
EndIf

EndSub