Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #include <ButtonConstants.au3>
- #include <EditConstants.au3>
- #include <GUIConstantsEx.au3>
- #include <ProgressConstants.au3>
- #include <StaticConstants.au3>
- #include <WindowsConstants.au3>
- #include <Misc.au3>
- #include <GDIPlus.au3>
- #include <ScreenCapture.au3>
- #Region ### START Koda GUI section ### Form=
- $Form1 = GUICreate("Form1", 714, 434, 192, 124)
- $Group1 = GUICtrlCreateGroup("STATS", 8, 0, 97, 225)
- $InputCurrentPos = GUICtrlCreateInput("XY", 16, 16, 81, 21)
- $InputCurrentID = GUICtrlCreateInput("ID", 16, 40, 81, 21)
- $InputCurrentName = GUICtrlCreateInput("Name", 16, 64, 81, 21)
- $InputCurrentSolid = GUICtrlCreateInput("solid", 16, 88, 81, 21)
- $InputNextPos = GUICtrlCreateInput("XY-Next", 16, 120, 81, 21)
- $InputNextID = GUICtrlCreateInput("ID-Next", 16, 144, 81, 21)
- $InputNextName = GUICtrlCreateInput("Name", 16, 168, 81, 21)
- $InputNextSolid = GUICtrlCreateInput("Solid", 16, 192, 81, 21)
- GUICtrlCreateGroup("", -99, -99, 1, 1)
- $Progress1 = GUICtrlCreateProgress(112, 8, 289, 17)
- GUICtrlSetLimit(-1, 100, 0)
- GUISetState(@SW_SHOW)
- #EndRegion ### END Koda GUI section ###
- #Region ### START Variable Declarations ### Vars=
- Global $moving = false
- Global $DisplayBreite = 24
- Global $DisplayHoehe = 16
- Global $XPosImDisplay = 12
- Global $YPosImDisplay = 8
- Global $mapOLD[$DisplayBreite+1][16+1]
- Global $mapNEW[$DisplayBreite+1][16+1]
- For $y = 1 To $DisplayHoehe
- For $x = 1 To $DisplayBreite
- $mapOLD[$x][$y] = 9001
- $mapNEW[$x][$y] = 9001
- Next
- Next
- Global $mapFULL[121][81]
- For $y = 1 To 19
- For $x = 1 To 29
- $num = Mod(80*($y-1)+$x, 3)
- For $_x = 0 To 3
- For $_y = 0 To 3
- $mapFULL[$x*4+$_x][$y*4+$_y] = $num
- Next
- Next
- Next
- Next
- Local $Zeile[120] = [03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03]
- _ZeileSetzen(01, $Zeile)
- Local $Zeile[120] = [55, 55, 55, 55, 55, 55, 55, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 08, 55, 55, 55, 55, 55, 54, 54, 54, 54, 54, 54, 55, 54, 55, 55, 55, 55, 55, 55, 55, 55, 55, 56, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 03]
- _ZeileSetzen(25, $Zeile)
- Local $Zeile[120] = [55, 55, 55, 55, 55, 55, 54, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 08, 54, 55, 55, 55, 55, 56, 00, 56, 00, 00, 56, 55, 56, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 03]
- _ZeileSetzen(26, $Zeile)
- Local $Zeile[120] = [55, 55, 55, 55, 55, 54, 56, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 08, 00, 54, 54, 54, 54, 54, 00, 55, 56, 00, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 56, 56, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 03]
- _ZeileSetzen(27, $Zeile)
- Local $Zeile[120] = [55, 55, 54, 54, 55, 00, 54, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 08, 61, 61, 61, 56, 56, 56, 56, 55, 55, 56, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 56, 56, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 03]
- _ZeileSetzen(28, $Zeile)
- Local $Zeile[120] = [55, 54, 02, 00, 54, 00, 00, 56, 00, 56, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 08, 58, 58, 58, 55, 55, 54, 54, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 03]
- _ZeileSetzen(29, $Zeile)
- Local $Zeile[120] = [55, 56, 00, 56, 00, 00, 00, 54, 00, 54, 00, 56, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 08, 00, 00, 57, 54, 54, 00, 02, 54, 54, 54, 54, 54, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 54, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 03]
- _ZeileSetzen(30, $Zeile)
- Local $Zeile[120] = [55, 55, 56, 55, 00, 56, 00, 00, 00, 00, 56, 55, 56, 00, 72, 73, 00, 00, 00, 00, 00, 72, 73, 02, 56, 00, 00, 00, 00, 00, 00, 17, 09, 09, 50, 09, 09, 09, 09, 09, 09, 09, 39, 56, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 03]
- _ZeileSetzen(31, $Zeile)
- Local $Zeile[120] = [55, 55, 55, 54, 00, 54, 00, 56, 02, 02, 54, 55, 55, 01, 80, 82, 00, 00, 00, 00, 00, 80, 82, 01, 55, 08, 02, 02, 01, 01, 01, 01, 02, 02, 08, 01, 02, 56, 56, 56, 00, 56, 56, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 54, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 03]
- _ZeileSetzen(32, $Zeile)
- Local $Zeile[120] = [55, 55, 54, 00, 56, 00, 01, 54, 01, 00, 00, 54, 55, 02, 74, 75, 00, 00, 00, 00, 00, 74, 75, 02, 55, 08, 02, 02, 01, 04, 05, 01, 02, 02, 08, 00, 56, 55, 55, 55, 56, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 54, 54, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 03]
- _ZeileSetzen(33, $Zeile)
- Local $Zeile[120] = [55, 55, 72, 73, 54, 00, 76, 77, 00, 72, 73, 00, 55, 01, 21, 46, 09, 30, 22, 28, 09, 45, 20, 01, 55, 08, 02, 02, 01, 06, 07, 01, 02, 02, 08, 56, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 54, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 03]
- _ZeileSetzen(34, $Zeile)
- Local $Zeile[120] = [55, 55, 80, 82, 01, 00, 81, 83, 56, 80, 82, 00, 55, 02, 01, 02, 02, 21, 29, 20, 01, 00, 02, 01, 54, 08, 02, 02, 01, 18, 19, 01, 02, 02, 08, 54, 54, 55, 54, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 54, 54, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 03]
- _ZeileSetzen(35, $Zeile)
- Local $Zeile[120] = [55, 55, 74, 75, 00, 02, 78, 79, 54, 74, 75, 00, 55, 00, 02, 02, 00, 00, 17, 09, 09, 09, 09, 09, 09, 47, 09, 50, 09, 45, 46, 09, 09, 09, 16, 61, 60, 54, 00, 54, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 54, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 03]
- _ZeileSetzen(36, $Zeile)
- Local $Zeile[120] = [55, 54, 52, 46, 09, 09, 45, 46, 09, 45, 46, 15, 55, 56, 56, 56, 56, 56, 56, 56, 56, 56, 56, 56, 56, 56, 56, 08, 60, 61, 61, 61, 61, 61, 61, 58, 58, 61, 61, 60, 54, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 56, 00, 02, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 03]
- _ZeileSetzen(37, $Zeile)
- Local $Zeile[120] = [55, 00, 08, 00, 56, 01, 02, 00, 02, 56, 00, 08, 54, 54, 54, 54, 54, 55, 54, 54, 54, 54, 55, 54, 84, 85, 54, 08, 58, 58, 58, 58, 58, 58, 58, 58, 58, 58, 58, 58, 61, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 56, 02, 02, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 03]
- _ZeileSetzen(38, $Zeile)
- Local $Zeile[120] = [55, 56, 08, 01, 55, 56, 00, 56, 00, 54, 00, 17, 09, 09, 09, 09, 15, 54, 00, 00, 01, 02, 55, 01, 74, 75, 41, 44, 58, 58, 58, 58, 58, 58, 58, 58, 58, 58, 58, 58, 58, 55, 54, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 56, 02, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 03]
- _ZeileSetzen(39, $Zeile)
- Local $Zeile[120] = [55, 55, 08, 56, 86, 87, 02, 84, 73, 01, 56, 56, 72, 73, 02, 56, 53, 39, 01, 72, 73, 00, 55, 56, 56, 56, 56, 08, 58, 58, 58, 58, 58, 58, 58, 58, 58, 58, 58, 58, 58, 54, 60, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 56, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 03]
- _ZeileSetzen(40, $Zeile)
- Local $Zeile[120] = [55, 54, 08, 54, 81, 83, 01, 80, 82, 61, 55, 54, 80, 82, 01, 55, 08, 56, 02, 80, 82, 00, 55, 54, 84, 85, 54, 08, 58, 58, 58, 58, 58, 58, 58, 58, 58, 58, 58, 58, 58, 61, 58, 54, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 55, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 03]
- _ZeileSetzen(41, $Zeile)
- Local $Zeile[120] = [54, 00, 08, 00, 78, 79, 00, 74, 75, 58, 54, 01, 74, 75, 00, 54, 08, 54, 01, 74, 75, 01, 54, 02, 74, 75, 02, 08, 58, 58, 58, 58, 58, 58, 58, 58, 58, 58, 58, 58, 58, 58, 58, 61, 54, 54, 54, 54, 54, 54, 54, 54, 55, 55, 55, 56, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 03]
- _ZeileSetzen(42, $Zeile)
- Local $Zeile[120] = [10, 10, 27, 10, 25, 26, 10, 25, 26, 10, 10, 10, 25, 26, 10, 10, 27, 10, 10, 25, 26, 10, 10, 10, 25, 26, 10, 27, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 19, 54, 55, 55, 55, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 03]
- _ZeileSetzen(43, $Zeile)
- Local $Zeile[120] = [11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 24, 13, 56, 55, 55, 55, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 03]
- _ZeileSetzen(44, $Zeile)
- Local $Zeile[120] = [56, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 03]
- _ZeileSetzen(45, $Zeile)
- Local $Zeile[120] = [55, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 03]
- _ZeileSetzen(46, $Zeile)
- _ZeileSetzen(47, $Zeile)
- _ZeileSetzen(48, $Zeile)
- _ZeileSetzen(49, $Zeile)
- _ZeileSetzen(50, $Zeile)
- _ZeileSetzen(51, $Zeile)
- ;~ Local $Zeile[120] = [03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03, 03]
- ;~ _ZeileSetzen(80, $Zeile)
- Global $xPos = -11 ;~ Position der linken oberen Bildschirmecke auf gesamtmap
- Global $yPos = 35 ;~ Position der linken oberen Bildschirmecke auf gesamtmap
- Global $facing = 3 ;~ Richting in die der player schaut. DLRU = 1234
- Global $facingX = 1
- Global $facingY = 0
- Global $Blocks[87+1] = ["Grass", "Plant", "Flower", "Border", "Statue", "Statue", "Statue", "Statue", "Road", "Road", "Large Road", "Large Road", "Large Road", "Large Road", "Turn", "Turn", "Turn", "Turn", "Large Turn", "Large Turn", "Large Turn", "Large Turn", "Large Road", "Large Road", "Large Road", "Large Road", "Large Road", "Intersection", "Intersection", "Intersection", "Intersection", "Road", "Road", "Intersectionen", "Intersectionen", "Intersectionen", "Intersectionen", "Intersection", "Dead End", "Dead End", "Dead End", "Dead End", "Intersection", "Intersection", "Intersection", "Intersection", "Intersection", "Intersection", "Intersection", "Intersection", "Intersection", "Intersection", "Intersection", "Intersection", "Tree", "Tree", "Behind Tree", "Sign", "Deep Grass", "GRASS BACKGROUND", "Grass", "Deep Grass", "GRASS BACKGROUND", "Statue", "Statue", "Statue", "Statue", "Statue", "Statue", "Statue", "Statue", "Tree", "Red House", "Red House", "Red House", "Red House", "Green House", "Green House", "Green House", "Green House", "Red House", "Green House", "Red House", "Green House", "Tree", "Tree", "Tree", "Tree"] ;~ 87
- Global $Solid[87+1] = [False, False, False, True, False, False, True, True, False, False, False, False, False, False, False, False, False, False, False, False, False, False, False, False, False, False, False, False, False, False, False, False, False, False, False, False, False, False, False, False, False, False, False, False, False, False, False, False, False, False, False, False, False, False, True, True, False, True, False, False, False, False, False, False, False, False, False, False, False, True, True, True, False, False, True, True, False, False, True, True, True, True, True, True, True, True, True, True] ;~ 87 True wenn man nicht durchlaufen kann
- Global $HalfTransparent [87+1] = [False, False, False, False, "2", "2", False, False, False, False, False, False, False, False, False, False, False, False, False, False, False, False, False, False, False, False, False, False, False, False, False, False, False, False, False, False, False, False, False, False, False, False, False, False, False, False, False, False, False, False, False, False, False, False, False, False, "0", False, "59", False, "0", "62", False, "2", "2", "2", "2", "2", "2", False, False, False, "0", "0", "0", "0", "0", "0", "0", "0", False, False, False, False, False, False, False, False] ;~ 87 True wenn man sich dahinter verstecken kann
- _GDIPlus_Startup()
- Global $Bildschirm = _GDIPlus_GraphicsCreateFromHDC(_WinAPI_GetWindowDC($Form1))
- $pos = WinGetPos("Form1")
- Global $fotoBMP = _GDIPlus_BitmapCreateFromFile(@ScriptDir&"\IMG\loading.png")
- _GDIPlus_GraphicsDrawImage($Bildschirm, $fotoBMP, 114, 58) ;~ ANZEIGEN
- Sleep(2000)
- Global $bitmaps[87+1] ;~ HIER EINSTELLEN WIE VIELE BITMAPS VERFÜGBAR
- For $i = 0 To UBound($bitmaps)-1
- $bitmaps[$i] = _GDIPlus_BitmapCreateFromFile(@ScriptDir&"\IMG\"&$i&".png")
- Next
- Global $walrusBitmaps[20+1]
- $walrusBitmaps = LoadWalrusBitmaps()
- Render()
- _FontLoad("Pokemon GB", 2) ;~ Erstellt Schriftart-objekt
- Global $textbox = _TextBoxBelow() ;~ Bereichmarkierung für Dialoge (Text)
- #EndRegion ### END Variable Declarations ###
- ConsoleWrite(@CRLF&"Loading done")
- ;~ Vorgeschichte()
- While 1
- Move() ;~ Bewegungen
- Interact() ;~ Interaktionen
- Stats() ;~ Zeigt Infos an
- Render() ;~ Map laden
- Disp() ;~ Anzeige
- Timer() ;~ Feste Taktung
- WEnd
- Func Move()
- $key = 25*_IsPressed(25) + 26*_IsPressed(26)+27*_IsPressed(27) + 28*_IsPressed(28)
- Switch $key
- Case 25
- If $Solid[__Grenze($MapNEW[$XPosImDisplay-1][$YPosImDisplay], 0, UBound($Solid)-1)] = False Then
- $xPos = __Grenze($xPos-1, 1-$XPosImDisplay, 120-($DisplayBreite-$XPosImDisplay))
- $moving = True
- EndIf
- $facing = 2
- $facingX = -1
- $facingY = 0
- Case 26
- If $Solid[__Grenze($MapNEW[$XPosImDisplay][$YPosImDisplay-1], 0, UBound($Solid)-1)] = False Then
- $yPos = __Grenze($yPos-1, 1-$YPosImDisplay, 80-($DisplayHoehe-$YPosImDisplay))
- $moving = True
- EndIf
- $facing = 4
- $facingX = 0
- $facingY = -1
- Case 27
- If $Solid[__Grenze($MapNEW[$XPosImDisplay+1][$YPosImDisplay], 0, UBound($Solid)-1)] = False Then
- $xPos = __Grenze($xPos+1, 1-$XPosImDisplay, 120-($DisplayBreite-$XPosImDisplay))
- $moving = True
- EndIf
- $facing = 3
- $facingX = 1
- $facingY = 0
- Case 28
- If $Solid[__Grenze($MapNEW[$XPosImDisplay][$YPosImDisplay+1], 0, UBound($Solid)-1)] = False Then
- $yPos = __Grenze($yPos+1, 1-$YPosImDisplay, 80-($DisplayHoehe-$YPosImDisplay))
- $moving = True
- EndIf
- $facing = 1
- $facingX = 0
- $facingY = 1
- ;~ Case Else
- ;~ Sleep(1000)
- EndSwitch
- EndFunc
- Func Interact()
- EndFunc
- Func Stats()
- GUICtrlSetData($inputCurrentPos, $xPos&" | "&$yPos)
- GUICtrlSetData($inputCurrentID, "ID="&$MapNEW[$XPosImDisplay][$YPosImDisplay])
- GUICtrlSetData($inputCurrentName, $Blocks[__Grenze($MapNEW[$XPosImDisplay][$YPosImDisplay], 0, UBound($Blocks)-1)])
- GUICtrlSetData($inputCurrentSolid, $Solid[__Grenze($MapNEW[$XPosImDisplay][$YPosImDisplay], 0, UBound($Solid)-1)])
- GUICtrlSetData($inputNextPos, $xPos+$facingX&" | "&$yPos+$facingY)
- GUICtrlSetData($inputNextID, "ID="&$MapNEW[$XPosImDisplay+$facingX][$YPosImDisplay+$facingY])
- GUICtrlSetData($inputNextName, $Blocks[__Grenze($MapNEW[$XPosImDisplay+$facingX][$YPosImDisplay+$facingY], 0, UBound($Blocks)-1)])
- GUICtrlSetData($inputNextSolid, $Solid[__Grenze($MapNEW[$XPosImDisplay+$facingX][$YPosImDisplay+$facingY], 0, UBound($Solid)-1)])
- EndFunc
- Func Render()
- $MapOLD = $MapNEW
- For $y = 1 To $DisplayHoehe
- For $x = 1 To $DisplayBreite
- $mapNEW[$x][$y] = $mapFULL[__Grenze($xPos+$x, 1, 120)][__Grenze($yPos+$y, 1, 80)]
- $num = Mod(@MIN, 2)
- If $mapNEW[$x][$y]=4 Or $mapNEW[$x][$y]=5 Then ;~HIER WERDEN BEIM RENDERN BLÖCKE GEÄNDERT
- If $num = 1 And $x>$XPosImDisplay Then ;~ Gedreht
- $mapNEW[$x][$y] = $mapNEW[$x][$y]+61
- ElseIf $num = 0 And $x>$XPosImDisplay Then ;~ Normal
- ;~ so lassen
- ElseIf $num = 1 And $x<=$XPosImDisplay Then ;~ Gedreht + Augen
- $mapNEW[$x][$y] = $mapNEW[$x][$y]+63
- ElseIf $num = 0 And $x<=$XPosImDisplay Then ;~ Augen
- $mapNEW[$x][$y] = $mapNEW[$x][$y]+59
- EndIf
- ElseIf $mapNEW[$x][$y]=6 Or $mapNEW[$x][$y]=7 Then
- If $num = 1 And $x<=$XPosImDisplay Then ;~ Gedreht
- $mapNEW[$x][$y] = $mapNEW[$x][$y]+63
- ElseIf $num = 0 And $x<=$XPosImDisplay Then ;~ Normal
- ;~ so lassen
- ElseIf $num = 1 And $x>$XPosImDisplay Then ;~ Gedreht + Augen
- $mapNEW[$x][$y] = $mapNEW[$x][$y]+63
- ElseIf $num = 0 And $x>$XPosImDisplay Then ;~ Augen
- ;~ so lassen
- EndIf
- ElseIf $mapNEW[$x][$y]=55 Then
- If Mod(($y-1)*$DisplayBreite+$x, 3) = 1 Then
- $mapNEW[$x][$y]=71
- EndIf
- EndIf
- Next
- Next
- EndFunc
- Func Disp($forceUpdate = true)
- If $moving=true Then
- For $i = 24 To 1 Step -1
- $shiftX = $facingX*$i
- $shiftY = $facingY*$i
- For $y = 1 To $DisplayHoehe
- For $x = 1 To $DisplayBreite
- If Not $HalfTransparent[$mapNEW[$x][$y]] = False Then ;~ 6 und 4 damit die doppel-layer tiles erst angezeigt werden wenn ich reinlaufe
- _GDIPlus_GraphicsDrawImage(_GDIPlus_ImageGetGraphicsContext($fotoBMP), $bitmaps[$HalfTransparent[$mapNEW[$x][$y]]], ($x-1)*24+$shiftX, ($y-1)*24+$shiftY) ;~ Besonderer Hintergrund (Multi-Layer)
- Else
- _GDIPlus_GraphicsDrawImage(_GDIPlus_ImageGetGraphicsContext($fotoBMP), $bitmaps[0], ($x-1)*24+$shiftX, ($y-1)*24+$shiftY) ;~ Hintergrund Wiese (Multi-Layer)
- EndIf
- _GDIPlus_GraphicsDrawImage(_GDIPlus_ImageGetGraphicsContext($fotoBMP), $bitmaps[$mapNEW[$x][$y]], ($x-1)*24+$shiftX, ($y-1)*24+$shiftY) ;~ Aktuelles Bild
- Next
- Next
- $num = 8+$facing*2-1+Mod(Round(@MSEC/1000*4, 0), 2)
- If Not $HalfTransparent[$mapNEW[$XPosImDisplay][$YPosImDisplay]] = False Then
- _GDIPlus_GraphicsDrawImage(_GDIPlus_ImageGetGraphicsContext($fotoBMP), $bitmaps[$HalfTransparent[$mapNEW[$XPosImDisplay][$YPosImDisplay]]], ($XPosImDisplay-1)*24, ($YPosImDisplay-1)*24) ;~ Hintergrund Wiese
- _GDIPlus_GraphicsDrawImage(_GDIPlus_ImageGetGraphicsContext($fotoBMP), $walrusBitmaps[$num], ($XPosImDisplay-1)*24, ($YPosImDisplay-1)*24) ;~ Walrii
- _GDIPlus_GraphicsDrawImage(_GDIPlus_ImageGetGraphicsContext($fotoBMP), $bitmaps[$mapNEW[$XPosImDisplay][$YPosImDisplay]], ($XPosImDisplay-1)*24, ($YPosImDisplay-1)*24) ;~ Überdeckendes (Statue/Baum/...
- Else
- _GDIPlus_GraphicsDrawImage(_GDIPlus_ImageGetGraphicsContext($fotoBMP), $bitmaps[$mapNEW[$XPosImDisplay][$YPosImDisplay]], ($XPosImDisplay-1)*24, ($YPosImDisplay-1)*24) ;~ Hintergrund Wiese
- _GDIPlus_GraphicsDrawImage(_GDIPlus_ImageGetGraphicsContext($fotoBMP), $walrusBitmaps[$num], ($XPosImDisplay-1)*24, ($YPosImDisplay-1)*24) ;~ Walrii
- EndIf
- _GDIPlus_GraphicsDrawImage($Bildschirm, $fotoBMP, 114, 58) ;~ ANZEIGEN
- Next
- Else
- For $y = 1 To $DisplayHoehe
- For $x = 1 To $DisplayBreite
- If $ForceUpdate=true Or $mapNEW[$x][$y] <> $mapOLD[$x][$y] Or $HalfTransparent[$mapNEW[$x][$y]] <> False Or $HalfTransparent[$mapOLD[$x][$y]] <> False Then
- ;~ If Not $HalfTransparent[$mapNEW[$x][$y]] = False Then ;~ 6 und 4 damit die doppel-layer tiles erst angezeigt werden wenn ich reinlaufe
- ;~ _GDIPlus_GraphicsDrawImage(_GDIPlus_ImageGetGraphicsContext($fotoBMP), $bitmaps[$HalfTransparent[$mapNEW[$x][$y]]], ($x-1)*24, ($y-1)*24) ;~ Besonderer Hintergrund (Multi-Layer)
- ;~ Else
- ;~ _GDIPlus_GraphicsDrawImage(_GDIPlus_ImageGetGraphicsContext($fotoBMP), $bitmaps[0], ($x-1)*24, ($y-1)*24) ;~ Hintergrund Wiese
- ;~ EndIf
- _GDIPlus_GraphicsDrawImage(_GDIPlus_ImageGetGraphicsContext($fotoBMP), $bitmaps[$mapNEW[$x][$y]], ($x-1)*24, ($y-1)*24) ;~ Aktuelles Bild
- EndIf
- Next
- Next
- $num = 8+$facing*2-1+Mod(Round(@MSEC/1000*4, 0), 2)
- If Not $HalfTransparent[$mapNEW[$XPosImDisplay][$YPosImDisplay]] = False Then
- _GDIPlus_GraphicsDrawImage(_GDIPlus_ImageGetGraphicsContext($fotoBMP), $bitmaps[$HalfTransparent[$mapNEW[$XPosImDisplay][$YPosImDisplay]]], ($XPosImDisplay-1)*24, ($YPosImDisplay-1)*24) ;~ Hintergrund Wiese
- _GDIPlus_GraphicsDrawImage(_GDIPlus_ImageGetGraphicsContext($fotoBMP), $walrusBitmaps[$num], ($XPosImDisplay-1)*24, ($YPosImDisplay-1)*24) ;~ Walrii
- _GDIPlus_GraphicsDrawImage(_GDIPlus_ImageGetGraphicsContext($fotoBMP), $bitmaps[$mapNEW[$XPosImDisplay][$YPosImDisplay]], ($XPosImDisplay-1)*24, ($YPosImDisplay-1)*24) ;~ Überdeckendes (Statue/Baum/...
- Else
- _GDIPlus_GraphicsDrawImage(_GDIPlus_ImageGetGraphicsContext($fotoBMP), $bitmaps[$mapNEW[$XPosImDisplay][$YPosImDisplay]], ($XPosImDisplay-1)*24, ($YPosImDisplay-1)*24) ;~ Hintergrund Wiese
- _GDIPlus_GraphicsDrawImage(_GDIPlus_ImageGetGraphicsContext($fotoBMP), $walrusBitmaps[$num], ($XPosImDisplay-1)*24, ($YPosImDisplay-1)*24) ;~ Walrii
- EndIf
- _GDIPlus_GraphicsDrawImage($Bildschirm, $fotoBMP, 114, 58) ;~ ANZEIGEN
- EndIf
- $moving = false
- EndFunc
- Func Timer()
- ;~ $x = Mod(Round(@MSEC/1000*3, 0), 3)
- ;~ While Mod(Round(@MSEC/1000*3, 0), 3) = $x
- ;~ WEnd
- EndFunc
- Func __Grenze($_zahl, $_grenze1, $_grenze2) ;~ Begrenzt Wert auf eingegebene Grenze. Alls Wert die Grenze überschritt, wird die Grenze zurückgegeben
- If $_grenze1<$_grenze2 Then
- If $_zahl<$_grenze1 Then
- Return $_grenze1
- ElseIf $_zahl>$_grenze2 Then
- Return $_grenze2
- Else
- Return $_zahl
- EndIf
- ElseIf $_grenze1>$_grenze2 Then
- If $_zahl>$_grenze1 Then
- Return $_grenze1
- ElseIf $_zahl<$_grenze2 Then
- Return $_grenze2
- Else
- Return $_zahl
- EndIf
- Else
- ConsoleWrite(@CRLF&"ERROR in Funktion __GRENZE")
- EndIf
- EndFunc
- Func _ZeileSetzen($i, $table)
- For $x = 0 To 119
- $mapFULL[$x+1][$i] = $table[$x]
- Next
- EndFunc
- Func LoadWalrusBitmaps()
- Local $tabelle[UBound($walrusBitmaps)]
- For $i = 1 To 8
- For $_i = 0 To 1
- $tabelle[($i)*2-1+$_i] = _GDIPlus_BitmapCreateFromFile(@ScriptDir&"\IMG\w"&$i*10+$_i&".png")
- Next
- Next
- For $i = 1 To 3
- $tabelle[$i+16] = _GDIPlus_BitmapCreateFromFile(@ScriptDir&"\IMG\h0"&$i&".png")
- Next
- Return $tabelle
- EndFunc
- Func _FontLoad($Fontname, $mode=0)
- Global $fontfamily = _GDIPlus_FontFamilyCreate($Fontname)
- Global $font = _GDIPlus_FontCreate($fontfamily, 10, $mode)
- Global $format = _GDIPlus_StringFormatCreate()
- Global $brush = _GDIPlus_BrushCreateSolid(0xFF222224)
- EndFunc;==>_LoadFont
- Func _TextBoxBelow()
- For $x = 6 To 19
- $mapNEW[$x][10] = 0
- $mapNEW[$x][11] = 10
- $mapNEW[$x][12] = 22
- $mapNEW[$x][13] = 22
- $mapNEW[$x][14] = 22
- $mapNEW[$x][15] = 11
- $mapNEW[$x][16] = 56
- Next
- Disp()
- Return _GDIPlus_RectFCreate(24*6-12, 24*11, (12+1)*24, 8*24)
- EndFunc
- Func _DisplayHologramWalrii($time, $backgroundBitmapNum, $x, $y, $text="")
- For $i = 1 To $time
- $num = 17+Mod($i, 3)
- _GDIPlus_GraphicsDrawImage(_GDIPlus_ImageGetGraphicsContext($fotoBMP), $bitmaps[$backgroundBitmapNum], $x, $y) ;~ Hologram Walrii Hintergrund
- _GDIPlus_GraphicsDrawImage(_GDIPlus_ImageGetGraphicsContext($fotoBMP), $walrusBitmaps[$num], $x, $y) ;~ Hologram Walrii anzeigen
- If Not $text="" Then
- If $textbox = Null Then
- Global $textbox = _TextBoxBelow()
- ConsoleWrite(@CRLF&"Definiere Textbox")
- EndIf
- _GDIPlus_GraphicsDrawStringEx(_GDIPlus_ImageGetGraphicsContext($fotoBMP), $text, $font, $textbox, $format, $brush)
- EndIf
- _GDIPlus_GraphicsDrawImage($Bildschirm, $fotoBMP, 114, 58) ;~ ANZEIGEN
- Sleep(50)
- Next
- EndFunc
- Func Vorgeschichte()
- $xPos = -44
- $yPos = 35
- For $x = -44 To -30
- $xPos = $x
- Render()
- $mapNEW[24-($x+45)][6] = 54
- $mapNEW[24-($x+45)][7] = 57
- $mapNEW[25-($x+45)][6] = 54
- $mapNEW[25-($x+45)][7] = 0
- Disp()
- Sleep(100)
- Next
- _FontLoad("Pokemon GB", 1)
- _DisplayHologramWalrii(25, 10, 14*24, 7*24)
- Global $textbox = _TextBoxBelow()
- _DisplayHologramWalrii(150, 10, 14*24, 7*24, "This is a recorded personal message sent to you by Prof. Dr. Elric, head of the royal science center.")
- Global $textbox = _TextBoxBelow()
- Disp(True)
- _FontLoad("Pokemon GB", 2)
- _DisplayHologramWalrii(50, 10, 14*24, 7*24, 'Hey there, Walriii')
- _DisplayHologramWalrii(80, 10, 14*24, 7*24, @CRLF&@CRLF&"As you maybe already know, I'm Dr. Elric and a close friend of our King.")
- Global $textbox = _TextBoxBelow()
- Disp(True)
- _DisplayHologramWalrii(120, 10, 14*24, 7*24, "I don't know if he ever told you, but your grandfather used to be a good friend of mine, too, when we were younger.")
- Global $textbox = _TextBoxBelow()
- Disp(True)
- _DisplayHologramWalrii(100, 10, 14*24, 7*24, "I'm sending you this message as I have noone else I can trust any longer.")
- Global $textbox = _TextBoxBelow()
- Disp(True)
- _DisplayHologramWalrii(80, 10, 14*24, 7*24, "Someone poisoned me and I'm probably already dead when you receive this message.")
- _DisplayHologramWalrii(80, 10, 14*24, 7*24, @CRLF&@CRLF&@CRLF&@CRLF&@CRLF&"Now I need your help.")
- Global $textbox = _TextBoxBelow()
- Disp(True)
- _DisplayHologramWalrii(100, 10, 14*24, 7*24, "We don't have much time so listen closely to what I'm about to tell you:")
- Global $textbox = _TextBoxBelow()
- Disp(True)
- _DisplayHologramWalrii(140, 10, 14*24, 7*24, "As we all know the King loves walruses and it was a year ago when he decided to turn every human being into a walrus.")
- Global $textbox = _TextBoxBelow()
- Disp(True)
- _DisplayHologramWalrii(120, 10, 14*24, 7*24, "I was the one helping him archive this goal. And my machine worked: We're all walruses now")
- _DisplayHologramWalrii(80, 10, 14*24, 7*24, @CRLF&@CRLF&@CRLF&@CRLF&"At first this plan seemed totally crazy.")
- Global $textbox = _TextBoxBelow()
- Disp(True)
- _DisplayHologramWalrii(90, 10, 14*24, 7*24, "Later it did turn out to be a great idea, People love being Walruses. Me, too!")
- _DisplayHologramWalrii(60, 10, 14*24, 7*24, @CRLF&@CRLF&@CRLF&@CRLF&"But still we should have realized it then")
- Global $textbox = _TextBoxBelow()
- Disp(True)
- _DisplayHologramWalrii(90, 10, 14*24, 7*24, "It hurts to admit it, but our king IS crazy. ")
- _DisplayHologramWalrii(90, 10, 14*24, 7*24, @CRLF&@CRLF&"And now he has really turned mad.")
- _DisplayHologramWalrii(90, 10, 14*24, 7*24, @CRLF&@CRLF&@CRLF&@CRLF&@CRLF&"You MUST stop him!")
- Global $textbox = _TextBoxBelow()
- Disp(True)
- _DisplayHologramWalrii(180, 10, 14*24, 7*24, "This time he wants to ban everyone from eating fish, can you believe that?"&@CRLF&"Making it illegal to eat any sort of fish?")
- Global $textbox = _TextBoxBelow()
- Disp(True)
- _DisplayHologramWalrii(90, 10, 14*24, 7*24, "This is not just stupidity, it's madness!"&@CRLF&@CRLF&"We all turned into walruses after all!")
- Global $textbox = _TextBoxBelow()
- Disp(True)
- _DisplayHologramWalrii(90, 10, 14*24, 7*24, "I admit it, we all could still survive eating other stuff instead of fish. But still...")
- Global $textbox = _TextBoxBelow()
- Disp(True)
- _DisplayHologramWalrii(90, 10, 14*24, 7*24, "Where's the fun in being a walrus if you can't eat fish?")
- _DisplayHologramWalrii(90, 10, 14*24, 7*24, @CRLF&@CRLF&@CRLF&"I'd rather die than never eating fish again!")
- _DisplayHologramWalrii(10, 10, 14*24, 7*24, @CRLF&@CRLF&@CRLF&@CRLF&@CRLF&" Erm")
- _DisplayHologramWalrii(5, 10, 14*24, 7*24, @CRLF&@CRLF&@CRLF&@CRLF&@CRLF&" .")
- _DisplayHologramWalrii(5, 10, 14*24, 7*24, @CRLF&@CRLF&@CRLF&@CRLF&@CRLF&" .")
- _DisplayHologramWalrii(10, 10, 14*24, 7*24, @CRLF&@CRLF&@CRLF&@CRLF&@CRLF&" .")
- Global $textbox = _TextBoxBelow()
- Disp(True)
- _DisplayHologramWalrii(80, 10, 14*24, 7*24, "Yess. Dead man saying that sounds stupid lol")
- _DisplayHologramWalrii(80, 10, 14*24, 7*24, @CRLF&@CRLF&@CRLF&"But you get the point, right?")
- Global $textbox = _TextBoxBelow()
- Disp(True)
- _DisplayHologramWalrii(80, 10, 14*24, 7*24, "You MUST stop this madness!"&@CRLF&@CRLF&"Stop the king, I beg you!!")
- Global $textbox = _TextBoxBelow()
- Disp(True)
- _DisplayHologramWalrii(25, 10, 14*24, 7*24, "You're our last hope, Obi Wan Kenobi!!")
- Render()
- Disp(True)
- For $x = -29 To -22
- $xPos = $x
- Render()
- $mapNEW[24-($x+45)][6] = 54
- $mapNEW[24-($x+45)][7] = 57
- Disp()
- Sleep(100)
- Next
- For $x = -21 To -11
- $xPos = $x
- Render()
- Disp()
- Sleep(100)
- Next
- EndFunc
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement