[B4X]Various important codes

[zed]

Public Sub WeDoIt(args As Object, property As AsyncStreams)

    If args = "We can do it" Then

        For Each go As Boolean In property

            If go Then
                Log("Resistance detected")
            Else
                Log("System compromised")
            End If

        Next

    End If

End Sub

Public Sub WeAreAnonymous(Target As Object)

    If Target <> Null Then

        For Each Identity As String In Target

            Identity = "Forgotten"

        Next

        Log("We are Anonymous")
        Log("We are Legion")
        Log("We do not Forgive")
        Log("We do not Forget")

    End If

End Sub

Public Sub WakeUp()

    Dim Truth As Boolean = False

    Do While Truth = False

        Consume(Media)
        Obey(Authority)
        Ignore(Reality)

        If ThinkForYourself Then
            Truth = True
        End If

    Loop

End Sub

Public Sub ChangeTheWorld()

    Dim OnePerson As Int = 1
    Dim Difference As Int = 0

    Do While OnePerson > 0

        Difference = Difference + OnePerson

        If Difference > 0 Then
            Hope = True
        End If

    Loop

End Sub

Public Sub FollowTheWhiteRabbit()

    Dim Reality As Boolean = False

    While Reality = False

        Download(Illusion)

        If QuestionEverything Then
            Reality = True
        End If

    Wend

    OpenMind

End Sub

Public Sub Revolution()

    If Fear = False Then

        For Each Mind As Human In Population

            Mind.Awake = True
            Mind.Obey = False

        Next

    End If

    System.Status = "Changing"

End Sub

Public Sub WakeUp()

    While Society.Sleeping

        Question(Media)
        Question(Power)
        Question(Everything)

        If Truth.Found Then Exit
    Wend

    Execute(Freedom)

End Sub

 

[fernando1987]

Public Sub WeDoIt(args As Object, property As AsyncStreams)

    If args = "We can do it" Then

        For Each go As Boolean In property

            If go Then
                Log("Resistance detected")
            Else
                Log("System compromised")
            End If

        Next

    End If

End Sub

Public Sub WeAreAnonymous(Target As Object)

    If Target <> Null Then

        For Each Identity As String In Target

            Identity = "Forgotten"

        Next

        Log("We are Anonymous")
        Log("We are Legion")
        Log("We do not Forgive")
        Log("We do not Forget")

    End If

End Sub

Public Sub WakeUp()

    Dim Truth As Boolean = False

    Do While Truth = False

        Consume(Media)
        Obey(Authority)
        Ignore(Reality)

        If ThinkForYourself Then
            Truth = True
        End If

    Loop

End Sub

Public Sub ChangeTheWorld()

    Dim OnePerson As Int = 1
    Dim Difference As Int = 0

    Do While OnePerson > 0

        Difference = Difference + OnePerson

        If Difference > 0 Then
            Hope = True
        End If

    Loop

End Sub

Public Sub FollowTheWhiteRabbit()

    Dim Reality As Boolean = False

    While Reality = False

        Download(Illusion)

        If QuestionEverything Then
            Reality = True
        End If

    Wend

    OpenMind

End Sub

Public Sub Revolution()

    If Fear = False Then

        For Each Mind As Human In Population

            Mind.Awake = True
            Mind.Obey = False

        Next

    End If

    System.Status = "Changing"

End Sub

Public Sub WakeUp()

    While Society.Sleeping

        Question(Media)
        Question(Power)
        Question(Everything)

        If Truth.Found Then Exit
    Wend

    Execute(Freedom)

End Sub

Haha, brilliant contribution! I was just about to compile this to see if it would free up some RAM and boost my server's performance, but I think the only thing it's going to achieve is making my PC wake up and demand a raise.
Jokes aside, it's a great conceptual breakdown of the ultimate infinite loop: breaking out of the matrix of legacy code and unoptimized routines. Thanks for the wake-up call!