Script de automatização do novo mundo

 

Private Sub Sakujo_sort(byref targets as species.humancollection)

     For each Target as species.human in targets

          Select case Target.socialtype

               Case Socialtypes.Criminal

                    Me.mind.shortstorage = Target.picture

                    Deathnote.text.append Target.Name & “ jumps into the coldest lake nearby and drowns”

                    Me.mind.shortstorage = Nothing

               Case Socialtypes.Mitra

                    Me.mind.shortstorage = Target.picture

                    Deathnote.text.append Target.Name & “ dies of a heart attack after shooting his\her own genitalia with a shotgun”

                    Me.mind.shortstorage = Nothing

               Case Socialtypes.Pseudorebel

                    Me.mind.shortstorage = target.picture

                    Deathnote.text.append Target.Name & “ dies of a heart attack after cleaning most of the walls ” & Target.Name & “ has soiled with “”Statements”””

                    Me.mind.shortstorage = Nothing

               Case else

                    Newworldcollection.residents.add Target

          End select

     End For

End Sub