SHARE
TWEET

PocketWalrus BETA uncontinued

a guest Oct 13th, 2016 109 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #include <ButtonConstants.au3>
  2. #include <EditConstants.au3>
  3. #include <GUIConstantsEx.au3>
  4. #include <ProgressConstants.au3>
  5. #include <StaticConstants.au3>
  6. #include <WindowsConstants.au3>
  7. #include <Misc.au3>
  8. #include <GDIPlus.au3>
  9. #include <ScreenCapture.au3>
  10.  
  11. #Region ### START Koda GUI section ### Form=
  12. $Form1 = GUICreate("Form1", 714, 434, 192, 124)
  13. $Group1 = GUICtrlCreateGroup("STATS", 8, 0, 97, 225)
  14. $InputCurrentPos = GUICtrlCreateInput("XY", 16, 16, 81, 21)
  15. $InputCurrentID = GUICtrlCreateInput("ID", 16, 40, 81, 21)
  16. $InputCurrentName = GUICtrlCreateInput("Name", 16, 64, 81, 21)
  17. $InputCurrentSolid = GUICtrlCreateInput("solid", 16, 88, 81, 21)
  18. $InputNextPos = GUICtrlCreateInput("XY-Next", 16, 120, 81, 21)
  19. $InputNextID = GUICtrlCreateInput("ID-Next", 16, 144, 81, 21)
  20. $InputNextName = GUICtrlCreateInput("Name", 16, 168, 81, 21)
  21. $InputNextSolid = GUICtrlCreateInput("Solid", 16, 192, 81, 21)
  22. GUICtrlCreateGroup("", -99, -99, 1, 1)
  23. $Progress1 = GUICtrlCreateProgress(112, 8, 289, 17)
  24. GUICtrlSetLimit(-1, 100, 0)
  25. GUISetState(@SW_SHOW)
  26. #EndRegion ### END Koda GUI section ###
  27. #Region ### START Variable Declarations ### Vars=
  28. Global $moving = false
  29. Global $DisplayBreite = 24
  30. Global $DisplayHoehe = 16
  31. Global $XPosImDisplay = 12
  32. Global $YPosImDisplay = 8
  33. Global $mapOLD[$DisplayBreite+1][16+1]
  34. Global $mapNEW[$DisplayBreite+1][16+1]
  35. For $y = 1 To $DisplayHoehe
  36.    For $x = 1 To $DisplayBreite
  37.       $mapOLD[$x][$y] = 9001
  38.       $mapNEW[$x][$y] = 9001
  39.    Next
  40. Next
  41. Global $mapFULL[121][81]
  42. For $y = 1 To 19
  43.    For $x = 1 To 29
  44.       $num = Mod(80*($y-1)+$x, 3)
  45.       For $_x = 0 To 3
  46.          For $_y = 0 To 3
  47.             $mapFULL[$x*4+$_x][$y*4+$_y] = $num
  48.          Next
  49.       Next
  50.    Next
  51. Next
  52.  
  53. 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]
  54. _ZeileSetzen(01, $Zeile)
  55.  
  56. 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]
  57. _ZeileSetzen(25, $Zeile)
  58. 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]
  59. _ZeileSetzen(26, $Zeile)
  60. 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]
  61. _ZeileSetzen(27, $Zeile)
  62. 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]
  63. _ZeileSetzen(28, $Zeile)
  64. 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]
  65. _ZeileSetzen(29, $Zeile)
  66. 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]
  67. _ZeileSetzen(30, $Zeile)
  68. 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]
  69. _ZeileSetzen(31, $Zeile)
  70. 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]
  71. _ZeileSetzen(32, $Zeile)
  72. 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]
  73. _ZeileSetzen(33, $Zeile)
  74. 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]
  75. _ZeileSetzen(34, $Zeile)
  76. 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]
  77. _ZeileSetzen(35, $Zeile)
  78. 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]
  79. _ZeileSetzen(36, $Zeile)
  80. 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]
  81. _ZeileSetzen(37, $Zeile)
  82. 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]
  83. _ZeileSetzen(38, $Zeile)
  84. 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]
  85. _ZeileSetzen(39, $Zeile)
  86. 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]
  87. _ZeileSetzen(40, $Zeile)
  88. 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]
  89. _ZeileSetzen(41, $Zeile)
  90. 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]
  91. _ZeileSetzen(42, $Zeile)
  92. 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]
  93. _ZeileSetzen(43, $Zeile)
  94. 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]
  95. _ZeileSetzen(44, $Zeile)
  96. 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]
  97. _ZeileSetzen(45, $Zeile)
  98. 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]
  99. _ZeileSetzen(46, $Zeile)
  100. _ZeileSetzen(47, $Zeile)
  101. _ZeileSetzen(48, $Zeile)
  102. _ZeileSetzen(49, $Zeile)
  103. _ZeileSetzen(50, $Zeile)
  104. _ZeileSetzen(51, $Zeile)
  105. ;~ 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]
  106. ;~ _ZeileSetzen(80, $Zeile)
  107. Global $xPos = -11  ;~ Position der linken oberen Bildschirmecke auf gesamtmap
  108. Global $yPos = 35   ;~ Position der linken oberen Bildschirmecke auf gesamtmap
  109. Global $facing = 3  ;~ Richting in die der player schaut. DLRU = 1234
  110. Global $facingX = 1
  111. Global $facingY = 0
  112. 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
  113. 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
  114. 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
  115.  
  116. _GDIPlus_Startup()
  117. Global $Bildschirm = _GDIPlus_GraphicsCreateFromHDC(_WinAPI_GetWindowDC($Form1))
  118. $pos = WinGetPos("Form1")
  119. Global $fotoBMP = _GDIPlus_BitmapCreateFromFile(@ScriptDir&"\IMG\loading.png")
  120. _GDIPlus_GraphicsDrawImage($Bildschirm, $fotoBMP, 114, 58)  ;~ ANZEIGEN
  121. Sleep(2000)
  122. Global $bitmaps[87+1]                                                                       ;~ HIER EINSTELLEN WIE VIELE BITMAPS VERFÜGBAR
  123. For $i = 0 To UBound($bitmaps)-1
  124.    $bitmaps[$i] = _GDIPlus_BitmapCreateFromFile(@ScriptDir&"\IMG\"&$i&".png")
  125. Next
  126. Global $walrusBitmaps[20+1]
  127. $walrusBitmaps = LoadWalrusBitmaps()
  128. Render()
  129. _FontLoad("Pokemon GB", 2)          ;~ Erstellt Schriftart-objekt
  130. Global $textbox = _TextBoxBelow()   ;~ Bereichmarkierung für Dialoge (Text)
  131. #EndRegion ### END Variable Declarations ###
  132. ConsoleWrite(@CRLF&"Loading done")
  133. ;~ Vorgeschichte()
  134. While 1
  135.    Move()       ;~ Bewegungen
  136.    Interact()   ;~ Interaktionen
  137.    Stats()      ;~ Zeigt Infos an
  138.    Render()     ;~ Map laden
  139.    Disp()       ;~ Anzeige
  140.    Timer()      ;~ Feste Taktung
  141. WEnd
  142.  
  143.  
  144.  
  145. Func Move()
  146.    $key = 25*_IsPressed(25) + 26*_IsPressed(26)+27*_IsPressed(27) + 28*_IsPressed(28)
  147.    Switch $key
  148.    Case 25
  149.       If $Solid[__Grenze($MapNEW[$XPosImDisplay-1][$YPosImDisplay], 0, UBound($Solid)-1)] = False Then
  150.          $xPos = __Grenze($xPos-1, 1-$XPosImDisplay, 120-($DisplayBreite-$XPosImDisplay))
  151.          $moving = True
  152.       EndIf
  153.       $facing = 2
  154.       $facingX = -1
  155.       $facingY = 0
  156.    Case 26
  157.       If $Solid[__Grenze($MapNEW[$XPosImDisplay][$YPosImDisplay-1], 0, UBound($Solid)-1)] = False Then
  158.          $yPos = __Grenze($yPos-1, 1-$YPosImDisplay, 80-($DisplayHoehe-$YPosImDisplay))
  159.          $moving = True
  160.       EndIf
  161.       $facing = 4
  162.       $facingX = 0
  163.       $facingY = -1
  164.    Case 27
  165.       If $Solid[__Grenze($MapNEW[$XPosImDisplay+1][$YPosImDisplay], 0, UBound($Solid)-1)] = False Then
  166.          $xPos = __Grenze($xPos+1, 1-$XPosImDisplay, 120-($DisplayBreite-$XPosImDisplay))
  167.          $moving = True
  168.       EndIf
  169.       $facing = 3
  170.       $facingX = 1
  171.       $facingY = 0
  172.    Case 28
  173.       If $Solid[__Grenze($MapNEW[$XPosImDisplay][$YPosImDisplay+1], 0, UBound($Solid)-1)] = False Then
  174.          $yPos = __Grenze($yPos+1, 1-$YPosImDisplay, 80-($DisplayHoehe-$YPosImDisplay))
  175.          $moving = True
  176.       EndIf
  177.       $facing = 1
  178.       $facingX = 0
  179.       $facingY = 1
  180. ;~    Case Else
  181. ;~    Sleep(1000)
  182.    EndSwitch
  183. EndFunc
  184. Func Interact()
  185. EndFunc
  186. Func Stats()
  187.    GUICtrlSetData($inputCurrentPos, $xPos&" | "&$yPos)
  188.    GUICtrlSetData($inputCurrentID, "ID="&$MapNEW[$XPosImDisplay][$YPosImDisplay])
  189.    GUICtrlSetData($inputCurrentName, $Blocks[__Grenze($MapNEW[$XPosImDisplay][$YPosImDisplay], 0, UBound($Blocks)-1)])
  190.    GUICtrlSetData($inputCurrentSolid, $Solid[__Grenze($MapNEW[$XPosImDisplay][$YPosImDisplay], 0, UBound($Solid)-1)])
  191.    GUICtrlSetData($inputNextPos, $xPos+$facingX&" | "&$yPos+$facingY)
  192.    GUICtrlSetData($inputNextID, "ID="&$MapNEW[$XPosImDisplay+$facingX][$YPosImDisplay+$facingY])
  193.    GUICtrlSetData($inputNextName, $Blocks[__Grenze($MapNEW[$XPosImDisplay+$facingX][$YPosImDisplay+$facingY], 0, UBound($Blocks)-1)])
  194.    GUICtrlSetData($inputNextSolid, $Solid[__Grenze($MapNEW[$XPosImDisplay+$facingX][$YPosImDisplay+$facingY], 0, UBound($Solid)-1)])
  195. EndFunc
  196. Func Render()
  197.    $MapOLD = $MapNEW
  198.    For $y = 1 To $DisplayHoehe
  199.       For $x = 1 To $DisplayBreite
  200.          $mapNEW[$x][$y] = $mapFULL[__Grenze($xPos+$x, 1, 120)][__Grenze($yPos+$y, 1, 80)]
  201.          $num = Mod(@MIN, 2)
  202.          If $mapNEW[$x][$y]=4 Or $mapNEW[$x][$y]=5 Then         ;~HIER WERDEN BEIM RENDERN BLÖCKE GEÄNDERT
  203.             If $num = 1 And $x>$XPosImDisplay Then  ;~ Gedreht
  204.                $mapNEW[$x][$y] = $mapNEW[$x][$y]+61
  205.             ElseIf $num = 0 And $x>$XPosImDisplay Then  ;~ Normal
  206.                ;~ so lassen
  207.             ElseIf $num = 1 And $x<=$XPosImDisplay Then ;~ Gedreht + Augen
  208.                $mapNEW[$x][$y] = $mapNEW[$x][$y]+63
  209.             ElseIf $num = 0 And $x<=$XPosImDisplay Then ;~ Augen
  210.                $mapNEW[$x][$y] = $mapNEW[$x][$y]+59
  211.             EndIf
  212.          ElseIf $mapNEW[$x][$y]=6 Or $mapNEW[$x][$y]=7 Then
  213.             If $num = 1 And $x<=$XPosImDisplay Then ;~ Gedreht
  214.                $mapNEW[$x][$y] = $mapNEW[$x][$y]+63
  215.             ElseIf $num = 0 And $x<=$XPosImDisplay Then ;~ Normal
  216.                ;~ so lassen
  217.             ElseIf $num = 1 And $x>$XPosImDisplay Then  ;~ Gedreht + Augen
  218.                $mapNEW[$x][$y] = $mapNEW[$x][$y]+63
  219.             ElseIf $num = 0 And $x>$XPosImDisplay Then  ;~ Augen
  220.                ;~ so lassen
  221.             EndIf
  222.          ElseIf $mapNEW[$x][$y]=55 Then
  223.             If Mod(($y-1)*$DisplayBreite+$x, 3) = 1 Then
  224.                $mapNEW[$x][$y]=71
  225.             EndIf
  226.          EndIf
  227.       Next
  228.    Next
  229. EndFunc
  230.  
  231. Func Disp($forceUpdate = true)
  232.    If $moving=true Then
  233.       For $i = 24 To 1 Step -1
  234.          $shiftX = $facingX*$i
  235.          $shiftY = $facingY*$i
  236.          For $y = 1 To $DisplayHoehe
  237.             For $x = 1 To $DisplayBreite
  238.                If Not $HalfTransparent[$mapNEW[$x][$y]] = False Then    ;~ 6 und 4 damit die doppel-layer tiles erst angezeigt werden wenn ich reinlaufe
  239.                   _GDIPlus_GraphicsDrawImage(_GDIPlus_ImageGetGraphicsContext($fotoBMP), $bitmaps[$HalfTransparent[$mapNEW[$x][$y]]], ($x-1)*24+$shiftX, ($y-1)*24+$shiftY) ;~ Besonderer Hintergrund (Multi-Layer)
  240.                Else
  241.                   _GDIPlus_GraphicsDrawImage(_GDIPlus_ImageGetGraphicsContext($fotoBMP), $bitmaps[0], ($x-1)*24+$shiftX, ($y-1)*24+$shiftY) ;~ Hintergrund Wiese (Multi-Layer)
  242.                EndIf
  243.                _GDIPlus_GraphicsDrawImage(_GDIPlus_ImageGetGraphicsContext($fotoBMP), $bitmaps[$mapNEW[$x][$y]], ($x-1)*24+$shiftX, ($y-1)*24+$shiftY)  ;~ Aktuelles Bild
  244.             Next
  245.          Next
  246.          $num = 8+$facing*2-1+Mod(Round(@MSEC/1000*4, 0), 2)
  247.          If Not $HalfTransparent[$mapNEW[$XPosImDisplay][$YPosImDisplay]] = False Then
  248.             _GDIPlus_GraphicsDrawImage(_GDIPlus_ImageGetGraphicsContext($fotoBMP), $bitmaps[$HalfTransparent[$mapNEW[$XPosImDisplay][$YPosImDisplay]]], ($XPosImDisplay-1)*24, ($YPosImDisplay-1)*24)   ;~ Hintergrund Wiese
  249.             _GDIPlus_GraphicsDrawImage(_GDIPlus_ImageGetGraphicsContext($fotoBMP), $walrusBitmaps[$num], ($XPosImDisplay-1)*24, ($YPosImDisplay-1)*24)  ;~ Walrii
  250.             _GDIPlus_GraphicsDrawImage(_GDIPlus_ImageGetGraphicsContext($fotoBMP), $bitmaps[$mapNEW[$XPosImDisplay][$YPosImDisplay]], ($XPosImDisplay-1)*24, ($YPosImDisplay-1)*24) ;~ Überdeckendes (Statue/Baum/...
  251.          Else
  252.             _GDIPlus_GraphicsDrawImage(_GDIPlus_ImageGetGraphicsContext($fotoBMP), $bitmaps[$mapNEW[$XPosImDisplay][$YPosImDisplay]], ($XPosImDisplay-1)*24, ($YPosImDisplay-1)*24) ;~ Hintergrund Wiese
  253.             _GDIPlus_GraphicsDrawImage(_GDIPlus_ImageGetGraphicsContext($fotoBMP), $walrusBitmaps[$num], ($XPosImDisplay-1)*24, ($YPosImDisplay-1)*24)  ;~ Walrii
  254.          EndIf
  255.          _GDIPlus_GraphicsDrawImage($Bildschirm, $fotoBMP, 114, 58) ;~ ANZEIGEN
  256.       Next
  257.    Else
  258.       For $y = 1 To $DisplayHoehe
  259.          For $x = 1 To $DisplayBreite
  260.             If $ForceUpdate=true Or $mapNEW[$x][$y] <> $mapOLD[$x][$y] Or $HalfTransparent[$mapNEW[$x][$y]] <> False Or $HalfTransparent[$mapOLD[$x][$y]] <> False Then
  261. ;~             If Not $HalfTransparent[$mapNEW[$x][$y]] = False Then    ;~ 6 und 4 damit die doppel-layer tiles erst angezeigt werden wenn ich reinlaufe
  262. ;~                _GDIPlus_GraphicsDrawImage(_GDIPlus_ImageGetGraphicsContext($fotoBMP), $bitmaps[$HalfTransparent[$mapNEW[$x][$y]]], ($x-1)*24, ($y-1)*24) ;~ Besonderer Hintergrund (Multi-Layer)
  263. ;~             Else
  264. ;~                _GDIPlus_GraphicsDrawImage(_GDIPlus_ImageGetGraphicsContext($fotoBMP), $bitmaps[0], ($x-1)*24, ($y-1)*24) ;~ Hintergrund Wiese
  265. ;~             EndIf
  266.                _GDIPlus_GraphicsDrawImage(_GDIPlus_ImageGetGraphicsContext($fotoBMP), $bitmaps[$mapNEW[$x][$y]], ($x-1)*24, ($y-1)*24)  ;~ Aktuelles Bild
  267.             EndIf
  268.          Next
  269.       Next
  270.       $num = 8+$facing*2-1+Mod(Round(@MSEC/1000*4, 0), 2)
  271.       If Not $HalfTransparent[$mapNEW[$XPosImDisplay][$YPosImDisplay]] = False Then
  272.          _GDIPlus_GraphicsDrawImage(_GDIPlus_ImageGetGraphicsContext($fotoBMP), $bitmaps[$HalfTransparent[$mapNEW[$XPosImDisplay][$YPosImDisplay]]], ($XPosImDisplay-1)*24, ($YPosImDisplay-1)*24)  ;~ Hintergrund Wiese
  273.          _GDIPlus_GraphicsDrawImage(_GDIPlus_ImageGetGraphicsContext($fotoBMP), $walrusBitmaps[$num], ($XPosImDisplay-1)*24, ($YPosImDisplay-1)*24) ;~ Walrii
  274.          _GDIPlus_GraphicsDrawImage(_GDIPlus_ImageGetGraphicsContext($fotoBMP), $bitmaps[$mapNEW[$XPosImDisplay][$YPosImDisplay]], ($XPosImDisplay-1)*24, ($YPosImDisplay-1)*24)    ;~ Überdeckendes (Statue/Baum/...
  275.       Else
  276.          _GDIPlus_GraphicsDrawImage(_GDIPlus_ImageGetGraphicsContext($fotoBMP), $bitmaps[$mapNEW[$XPosImDisplay][$YPosImDisplay]], ($XPosImDisplay-1)*24, ($YPosImDisplay-1)*24)    ;~ Hintergrund Wiese
  277.          _GDIPlus_GraphicsDrawImage(_GDIPlus_ImageGetGraphicsContext($fotoBMP), $walrusBitmaps[$num], ($XPosImDisplay-1)*24, ($YPosImDisplay-1)*24) ;~ Walrii
  278.       EndIf
  279.       _GDIPlus_GraphicsDrawImage($Bildschirm, $fotoBMP, 114, 58)    ;~ ANZEIGEN
  280.    EndIf
  281.    $moving = false
  282. EndFunc
  283.  
  284. Func Timer()
  285. ;~    $x = Mod(Round(@MSEC/1000*3, 0), 3)
  286. ;~    While Mod(Round(@MSEC/1000*3, 0), 3) = $x
  287. ;~    WEnd
  288. EndFunc
  289.  
  290. Func __Grenze($_zahl, $_grenze1, $_grenze2) ;~ Begrenzt Wert auf eingegebene Grenze. Alls Wert die Grenze überschritt, wird die Grenze zurückgegeben
  291.    If $_grenze1<$_grenze2 Then
  292.       If $_zahl<$_grenze1 Then
  293.          Return $_grenze1
  294.       ElseIf $_zahl>$_grenze2 Then
  295.          Return $_grenze2
  296.       Else
  297.          Return $_zahl
  298.       EndIf
  299.    ElseIf $_grenze1>$_grenze2 Then
  300.       If $_zahl>$_grenze1 Then
  301.          Return $_grenze1
  302.       ElseIf $_zahl<$_grenze2 Then
  303.          Return $_grenze2
  304.       Else
  305.          Return $_zahl
  306.       EndIf
  307.    Else
  308.       ConsoleWrite(@CRLF&"ERROR in Funktion __GRENZE")
  309.    EndIf
  310. EndFunc
  311.  
  312. Func _ZeileSetzen($i, $table)
  313.    For $x = 0 To 119
  314.       $mapFULL[$x+1][$i] = $table[$x]
  315.    Next
  316. EndFunc
  317.  
  318. Func LoadWalrusBitmaps()
  319.    Local $tabelle[UBound($walrusBitmaps)]
  320.    For $i = 1 To 8
  321.       For $_i = 0 To 1
  322.          $tabelle[($i)*2-1+$_i] = _GDIPlus_BitmapCreateFromFile(@ScriptDir&"\IMG\w"&$i*10+$_i&".png")
  323.       Next
  324.    Next
  325.    For $i = 1 To 3
  326.       $tabelle[$i+16] = _GDIPlus_BitmapCreateFromFile(@ScriptDir&"\IMG\h0"&$i&".png")
  327.    Next
  328.    Return $tabelle
  329. EndFunc
  330.  
  331. Func _FontLoad($Fontname, $mode=0)
  332.    Global $fontfamily = _GDIPlus_FontFamilyCreate($Fontname)
  333.    Global $font = _GDIPlus_FontCreate($fontfamily, 10, $mode)
  334.    Global $format = _GDIPlus_StringFormatCreate()
  335.    Global $brush = _GDIPlus_BrushCreateSolid(0xFF222224)
  336. EndFunc;==>_LoadFont
  337.  
  338. Func _TextBoxBelow()
  339.    For $x = 6 To 19
  340.       $mapNEW[$x][10] = 0
  341.       $mapNEW[$x][11] = 10
  342.       $mapNEW[$x][12] = 22
  343.       $mapNEW[$x][13] = 22
  344.       $mapNEW[$x][14] = 22
  345.       $mapNEW[$x][15] = 11
  346.       $mapNEW[$x][16] = 56
  347.    Next
  348.    Disp()
  349.    Return _GDIPlus_RectFCreate(24*6-12, 24*11, (12+1)*24, 8*24)
  350. EndFunc
  351.  
  352. Func _DisplayHologramWalrii($time, $backgroundBitmapNum, $x, $y, $text="")
  353.    For $i = 1 To $time
  354.       $num = 17+Mod($i, 3)
  355.       _GDIPlus_GraphicsDrawImage(_GDIPlus_ImageGetGraphicsContext($fotoBMP), $bitmaps[$backgroundBitmapNum], $x, $y)    ;~ Hologram Walrii Hintergrund
  356.       _GDIPlus_GraphicsDrawImage(_GDIPlus_ImageGetGraphicsContext($fotoBMP), $walrusBitmaps[$num], $x, $y)  ;~ Hologram Walrii anzeigen
  357.       If Not $text="" Then
  358.          If $textbox = Null Then
  359.             Global $textbox = _TextBoxBelow()
  360.             ConsoleWrite(@CRLF&"Definiere Textbox")
  361.          EndIf
  362.          _GDIPlus_GraphicsDrawStringEx(_GDIPlus_ImageGetGraphicsContext($fotoBMP), $text, $font, $textbox, $format, $brush)
  363.       EndIf
  364.       _GDIPlus_GraphicsDrawImage($Bildschirm, $fotoBMP, 114, 58)    ;~ ANZEIGEN
  365.       Sleep(50)
  366.    Next
  367. EndFunc
  368.  
  369. Func Vorgeschichte()
  370.    $xPos = -44
  371.    $yPos = 35
  372.    For $x = -44 To -30
  373.       $xPos = $x
  374.       Render()
  375.       $mapNEW[24-($x+45)][6] = 54
  376.       $mapNEW[24-($x+45)][7] = 57
  377.       $mapNEW[25-($x+45)][6] = 54
  378.       $mapNEW[25-($x+45)][7] = 0
  379.       Disp()
  380.       Sleep(100)
  381.    Next
  382.    _FontLoad("Pokemon GB", 1)
  383.    _DisplayHologramWalrii(25, 10, 14*24, 7*24)
  384.    Global $textbox = _TextBoxBelow()
  385.    _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.")
  386.    Global $textbox = _TextBoxBelow()
  387.    Disp(True)
  388.    _FontLoad("Pokemon GB", 2)
  389.    _DisplayHologramWalrii(50, 10, 14*24, 7*24, 'Hey there, Walriii')
  390.    _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.")
  391.    Global $textbox = _TextBoxBelow()
  392.    Disp(True)
  393.    _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.")
  394.    Global $textbox = _TextBoxBelow()
  395.    Disp(True)
  396.    _DisplayHologramWalrii(100, 10, 14*24, 7*24, "I'm sending you this message as I have noone else I can trust any longer.")
  397.    Global $textbox = _TextBoxBelow()
  398.    Disp(True)
  399.    _DisplayHologramWalrii(80, 10, 14*24, 7*24, "Someone poisoned me and I'm probably already dead when you receive this message.")
  400.    _DisplayHologramWalrii(80, 10, 14*24, 7*24, @CRLF&@CRLF&@CRLF&@CRLF&@CRLF&"Now I need your help.")
  401.    Global $textbox = _TextBoxBelow()
  402.    Disp(True)
  403.    _DisplayHologramWalrii(100, 10, 14*24, 7*24, "We don't have much time so listen closely to what I'm about to tell you:")
  404.    Global $textbox = _TextBoxBelow()
  405.    Disp(True)
  406.    _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.")
  407.    Global $textbox = _TextBoxBelow()
  408.    Disp(True)
  409.    _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")
  410.    _DisplayHologramWalrii(80, 10, 14*24, 7*24, @CRLF&@CRLF&@CRLF&@CRLF&"At first this plan seemed totally crazy.")
  411.    Global $textbox = _TextBoxBelow()
  412.    Disp(True)
  413.    _DisplayHologramWalrii(90, 10, 14*24, 7*24, "Later it did turn out to be a great idea, People love being Walruses. Me, too!")
  414.    _DisplayHologramWalrii(60, 10, 14*24, 7*24, @CRLF&@CRLF&@CRLF&@CRLF&"But still we should have realized it then")
  415.    Global $textbox = _TextBoxBelow()
  416.    Disp(True)
  417.    _DisplayHologramWalrii(90, 10, 14*24, 7*24, "It hurts to admit it, but our king IS crazy. ")
  418.    _DisplayHologramWalrii(90, 10, 14*24, 7*24, @CRLF&@CRLF&"And now he has really turned mad.")
  419.    _DisplayHologramWalrii(90, 10, 14*24, 7*24, @CRLF&@CRLF&@CRLF&@CRLF&@CRLF&"You MUST stop him!")
  420.    Global $textbox = _TextBoxBelow()
  421.    Disp(True)
  422.    _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?")
  423.    Global $textbox = _TextBoxBelow()
  424.    Disp(True)
  425.    _DisplayHologramWalrii(90, 10, 14*24, 7*24, "This is not just stupidity, it's madness!"&@CRLF&@CRLF&"We all turned into walruses after all!")
  426.    Global $textbox = _TextBoxBelow()
  427.    Disp(True)
  428.    _DisplayHologramWalrii(90, 10, 14*24, 7*24, "I admit it, we all could still survive eating other stuff instead of fish. But still...")
  429.    Global $textbox = _TextBoxBelow()
  430.    Disp(True)
  431.    _DisplayHologramWalrii(90, 10, 14*24, 7*24, "Where's the fun in being a walrus if you can't eat fish?")
  432.    _DisplayHologramWalrii(90, 10, 14*24, 7*24, @CRLF&@CRLF&@CRLF&"I'd rather die than never eating fish again!")
  433.    _DisplayHologramWalrii(10, 10, 14*24, 7*24, @CRLF&@CRLF&@CRLF&@CRLF&@CRLF&"       Erm")
  434.    _DisplayHologramWalrii(5, 10, 14*24, 7*24, @CRLF&@CRLF&@CRLF&@CRLF&@CRLF&"          .")
  435.    _DisplayHologramWalrii(5, 10, 14*24, 7*24, @CRLF&@CRLF&@CRLF&@CRLF&@CRLF&"           .")
  436.    _DisplayHologramWalrii(10, 10, 14*24, 7*24, @CRLF&@CRLF&@CRLF&@CRLF&@CRLF&"            .")
  437.    Global $textbox = _TextBoxBelow()
  438.    Disp(True)
  439.    _DisplayHologramWalrii(80, 10, 14*24, 7*24, "Yess. Dead man saying that sounds stupid lol")
  440.    _DisplayHologramWalrii(80, 10, 14*24, 7*24, @CRLF&@CRLF&@CRLF&"But you get the point, right?")
  441.    Global $textbox = _TextBoxBelow()
  442.    Disp(True)
  443.    _DisplayHologramWalrii(80, 10, 14*24, 7*24, "You MUST stop this madness!"&@CRLF&@CRLF&"Stop the king, I beg you!!")
  444.    Global $textbox = _TextBoxBelow()
  445.    Disp(True)
  446.    _DisplayHologramWalrii(25, 10, 14*24, 7*24, "You're our last hope, Obi Wan Kenobi!!")
  447.    Render()
  448.    Disp(True)
  449.    For $x = -29 To -22
  450.       $xPos = $x
  451.       Render()
  452.       $mapNEW[24-($x+45)][6] = 54
  453.       $mapNEW[24-($x+45)][7] = 57
  454.       Disp()
  455.       Sleep(100)
  456.    Next
  457.    For $x = -21 To -11
  458.       $xPos = $x
  459.       Render()
  460.       Disp()
  461.       Sleep(100)
  462.    Next
  463. EndFunc
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top