Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #NoEnv ; Recommended for performance and compatibility with future AutoHotkey releases.
- #Warn ; Recommended for catching common errors.
- SendMode Input ; Recommended for new scripts due to its superior speed and reliability.
- SetWorkingDir %A_ScriptDir% ; Ensures a consistent starting directory.
- SetKeyDelay -1,-1
- ;SetBatchLines -1
- Process, Priority,, High
- #MaxThreadsPerHotkey 1
- ;Delay between inputs
- Delay := 1
- ;Coordinate for next piece box
- nextXpos := 429
- nextYpos := 224
- ;Coordinate for initial ghost piece
- ;vs mode
- ghostXpos := 164
- ghostYpos := 677
- ;cheese mode
- ;~ ghostXpos := 181
- ;~ ghostYpos := 412
- ;Key config
- drop := "Numpad8" ; drop piece
- left := "Numpad1" ; move left
- right := "Numpad3" ; move right
- ccw := "Numpad4" ; rotate ccw
- cw := "Numpad6" ; rotate cw
- 180 := "Numpad5" ; rotate 180
- ;no error if user forgets to press space
- Piece = "#"
- ;Player must press space bar during the countdown before the game starts to get the color of the first piece.
- Space::
- Piece := getPiece(ghostXpos,ghostYpos)
- return
- A::
- if (Piece = "O") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- return
- S::
- if (Piece = "O") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- return
- D::
- if (Piece = "O") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- return
- F::
- if (Piece = "O") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- return
- G::
- if (Piece = "O") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- return
- H::
- if (Piece = "O") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- return
- J::
- if (Piece = "O") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- return
- K::
- if (Piece = "O") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else if (Piece = "I") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- return
- L::
- if (Piece = "O") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else if (Piece = "I") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- return
- Z::
- if (Piece = "O") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else if (Piece = "S") OR (Piece = "Z") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%ccw% down}
- send, {%ccw% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else if (Piece = "L") OR (Piece = "J") OR (Piece = "T") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%cw% down}
- send, {%cw% up}
- sleep, (Delay)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%ccw% down}
- send, {%ccw% up}
- sleep, (Delay)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- return
- X::
- if (Piece = "O") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else if (Piece = "S") OR (Piece = "Z") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%ccw% down}
- send, {%ccw% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else if (Piece = "L") OR (Piece = "J") OR (Piece = "T") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%cw% down}
- send, {%cw% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%ccw% down}
- send, {%ccw% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- return
- C::
- if (Piece = "O") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else if (Piece = "S") OR (Piece = "Z") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%ccw% down}
- send, {%ccw% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else if (Piece = "L") OR (Piece = "J") OR (Piece = "T") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%cw% down}
- send, {%cw% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%ccw% down}
- send, {%ccw% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- return
- V::
- if (Piece = "O") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else if (Piece = "S") OR (Piece = "Z") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%ccw% down}
- send, {%ccw% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else if (Piece = "L") OR (Piece = "J") OR (Piece = "T") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%cw% down}
- send, {%cw% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%ccw% down}
- send, {%ccw% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- return
- B::
- if (Piece = "O") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else if (Piece = "S") OR (Piece = "Z") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%cw% down}
- send, {%cw% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else if (Piece = "L") OR (Piece = "J") OR (Piece = "T") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%cw% down}
- send, {%cw% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%ccw% down}
- send, {%ccw% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- return
- N::
- if (Piece = "O") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else if (Piece = "S") OR (Piece = "Z") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%cw% down}
- send, {%cw% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else if (Piece = "L") OR (Piece = "J") OR (Piece = "T") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%cw% down}
- send, {%cw% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%cw% down}
- send, {%cw% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- return
- M::
- if (Piece = "O") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else if (Piece = "S") OR (Piece = "Z") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%cw% down}
- send, {%cw% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else if (Piece = "L") OR (Piece = "J") OR (Piece = "T") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%cw% down}
- send, {%cw% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%cw% down}
- send, {%cw% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- return
- ,::
- if (Piece = "O") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else if (Piece = "S") OR (Piece = "Z") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%cw% down}
- send, {%cw% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else if (Piece = "L") OR (Piece = "J") OR (Piece = "T") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%cw% down}
- send, {%cw% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%cw% down}
- send, {%cw% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- return
- .::
- if (Piece = "O") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else if (Piece = "S") OR (Piece = "Z") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%cw% down}
- send, {%cw% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else if (Piece = "L") OR (Piece = "J") OR (Piece = "T") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%cw% down}
- send, {%cw% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%cw% down}
- send, {%cw% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- return
- Q::
- if (Piece = "O") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else if (Piece = "S") OR (Piece = "Z") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%ccw% down}
- send, {%ccw% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else if (Piece = "L") OR (Piece = "J") OR (Piece = "T") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%ccw% down}
- send, {%ccw% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%ccw% down}
- send, {%ccw% up}
- sleep, (Delay)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- return
- W::
- if (Piece = "O") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else if (Piece = "S") OR (Piece = "Z") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%ccw% down}
- send, {%ccw% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else if (Piece = "L") OR (Piece = "J") OR (Piece = "T") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%ccw% down}
- send, {%ccw% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%ccw% down}
- send, {%ccw% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- return
- E::
- if (Piece = "O") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else if (Piece = "S") OR (Piece = "Z") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%ccw% down}
- send, {%ccw% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else if (Piece = "L") OR (Piece = "J") OR (Piece = "T") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%ccw% down}
- send, {%ccw% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%ccw% down}
- send, {%ccw% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- return
- R::
- if (Piece = "O") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else if (Piece = "S") OR (Piece = "Z") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%ccw% down}
- send, {%ccw% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else if (Piece = "L") OR (Piece = "J") OR (Piece = "T") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%ccw% down}
- send, {%ccw% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%ccw% down}
- send, {%ccw% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- return
- T::
- if (Piece = "O") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else if (Piece = "S") OR (Piece = "Z") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%cw% down}
- send, {%cw% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else if (Piece = "L") OR (Piece = "J") OR (Piece = "T") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%ccw% down}
- send, {%ccw% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%ccw% down}
- send, {%ccw% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- return
- Y::
- if (Piece = "O") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else if (Piece = "S") OR (Piece = "Z") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%cw% down}
- send, {%cw% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else if (Piece = "L") OR (Piece = "J") OR (Piece = "T") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%ccw% down}
- send, {%ccw% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%cw% down}
- send, {%cw% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- return
- U::
- if (Piece = "O") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else if (Piece = "S") OR (Piece = "Z") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%cw% down}
- send, {%cw% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else if (Piece = "L") OR (Piece = "J") OR (Piece = "T") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%ccw% down}
- send, {%ccw% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%cw% down}
- send, {%cw% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- return
- I::
- if (Piece = "O") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else if (Piece = "S") OR (Piece = "Z") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%cw% down}
- send, {%cw% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else if (Piece = "L") OR (Piece = "J") OR (Piece = "T") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%ccw% down}
- send, {%ccw% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%cw% down}
- send, {%cw% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- return
- O::
- if (Piece = "O") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else if (Piece = "S") OR (Piece = "Z") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%cw% down}
- send, {%cw% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else if (Piece = "L") OR (Piece = "J") OR (Piece = "T") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%ccw% down}
- send, {%ccw% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%cw% down}
- send, {%cw% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- return
- P::
- if (Piece = "O") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else if (Piece = "S") OR (Piece = "Z") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%cw% down}
- send, {%cw% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else if (Piece = "L") OR (Piece = "J") OR (Piece = "T") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%ccw% down}
- send, {%ccw% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%cw% down}
- send, {%cw% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- return
- 1::
- if (Piece = "O") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else if (Piece = "S") OR (Piece = "Z") OR (Piece = "I") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%180% down}
- send, {%180% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- return
- 2::
- if (Piece = "O") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else if (Piece = "S") OR (Piece = "Z") OR (Piece = "I") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%180% down}
- send, {%180% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- return
- 3::
- if (Piece = "O") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else if (Piece = "S") OR (Piece = "Z") OR (Piece = "I") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%180% down}
- send, {%180% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- return
- 4::
- if (Piece = "O") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%left% down}
- send, {%left% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else if (Piece = "S") OR (Piece = "Z") OR (Piece = "I") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%180% down}
- send, {%180% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- return
- 5::
- if (Piece = "O") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else if (Piece = "S") OR (Piece = "Z") OR (Piece = "I") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%180% down}
- send, {%180% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- return
- 6::
- if (Piece = "O") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else if (Piece = "S") OR (Piece = "Z") OR (Piece = "I") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%180% down}
- send, {%180% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- return
- 7::
- if (Piece = "O") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else if (Piece = "S") OR (Piece = "Z") OR (Piece = "I") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%180% down}
- send, {%180% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- return
- 8::
- if (Piece = "O") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else if (Piece = "S") OR (Piece = "Z") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else if (Piece = "I") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- return
- }
- else {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%180% down}
- send, {%180% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- return
- 9::
- if (Piece = "O") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else if (Piece = "S") OR (Piece = "Z") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else if (Piece = "I") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- return
- }
- else {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%180% down}
- send, {%180% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- return
- 0::
- if (Piece = "O") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else if (Piece = "S") OR (Piece = "Z") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- else if (Piece = "I") {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- return
- }
- else {
- Piece := getPiece(nextXpos,nextYpos)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%right% down}
- send, {%right% up}
- sleep, (Delay)
- send, {%180% down}
- send, {%180% up}
- sleep, (Delay)
- send, {%drop% down}
- send, {%drop% up}
- sleep, (Delay)
- return
- }
- return
- ;Detect which piece is on a specific coordinate
- getPiece(x,y)
- {
- PixelGetColor, b, x, y
- r := Mod( b, 0x100 )
- b -= r
- b /= 0x100
- g := Mod( b, 0x100 )
- b -= g
- b /= 0x100
- If ( r < 20 AND g < 20 AND b < 20 ) ; black
- return "#"
- Else If ( ABS( g - r ) <= 7 AND ABS( g - b ) <= 5 ) ; white
- return "*"
- Else If ( r >= 2*g AND r >= 2*b ) ; red
- return "Z"
- Else If ( ( b >= 2*r OR b - 80 >= r ) AND ( b >= 2*g OR b - 80 >= g ) ) ; blue
- return "J"
- Else If ( g >= 2*r AND g >= 2*b ) ; green
- return "S"
- Else If ( r >= 2*g AND ABS( r - b ) <= 0.25*r ) ; purple
- return "T"
- Else If ( g >= 2*r AND ABS( g - b ) <= 0.25*g ) ; cyan
- return "I"
- Else If ( ( g >= 2*b OR g - 70 >= b ) AND ABS( g - 1.07*r ) <= 0.25*g AND ( r < g OR ( r = 255 AND b >= 85 ) ) ) ; yellow
- return "O"
- Else If ( r >= 2*b AND ( ABS( r - 1.4*g ) <= 0.25*r OR ( r = 255 AND g > 180 AND b < 85 ) ) ) ; orange
- return "L"
- }
- Return
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement