Email script

[Tazco]

This was posted on the rc forums, by me 24 Aug 2010 20:47.
This is the script that sparked the inspiration for the beta key script in scripted realm.

BTW: this script will ONLY work in RCS 1.25 or higher.

Ok I know this is random, but a few weeks ago I made a really basic email output script. It would need alot of work to be useful, but the idea was to output random emails to a text file, the hope was they would be legitimate emails.
Here is a sample pulled from a list that was made with the script.

[e-mail]
[e-mail]
[e-mail]
[e-mail]
[e-mail]
[e-mail]
[e-mail]
[e-mail]
[e-mail]
[e-mail]
[e-mail]
[e-mail]
[e-mail]
[e-mail]
[e-mail]
[e-mail]
[e-mail]
[e-mail]
[e-mail]
[e-mail]
[e-mail]
[e-mail]
[e-mail]
[e-mail]
[e-mail]

The script is randomly picking hotmail or gmail. Any other address could be added or it could be set up to give the address with every output. Since english is not my strong point, its harder to wrap my brain around the options of leters to make words. Anyone that wants to mess with the script here it is, all I ask is any alterations made that work, I would like to see, either in this post, by pm or email. Enjoy.


; By TAZCO on his computer
;Can be altered in anyway, I would like to see anything that is done with it.
;[e-mail]

Player = Actor()
PName$ = Name(Player)
       

    ;This neededs to be uncommented to make the email list file, or this script will crash.
    ;comment this when file is made, or file will be reset everytime the script runs.
            ;EmailF = WriteFile(+ PName + "s Email List.txt")
            ;DoEvents(1000)
            ;CloseFile(EmailF)  

Makeemail% = 10 ;amount of emails to make

Repeat
DoEvents(100)

Makeemail% = Makeemail - 1

LetterTicks% = Rnd(3, 5) ;pick 3 to 5 diff letters
       Repeat
           LetterTicks = LetterTicks - 1
           PickLetter% = Rnd(1, 24)


VowelA% = Rnd(1, 4)
VowelE% = Rnd(1, 5)
VowelI% = Rnd(1, 4)
VowelO% = Rnd(1, 2)
VowelU% = Rnd(1, 3)
VowelY% = Rnd(1, 7)

;Vowel Chance
       If (VowelA = 1)
           LetA$ = "A"
       Endif  
       
       If (VowelE = 1)
            LetE$ = "E"
       Endif

       If (VowelI = 1)    
           LetI$ = "I"
       Endif
       
       If (VowelO = 1)
          LetO$ = "O"
       Endif  
       
       If (VowelU = 1)
         LetU$ = "U"
       Endif

       If (VowelY = 1)
         LetY$ = "Y"
       Endif  
;____________________________________    
           
      If PickLetter = 1
           LetB$ = "B"
       ElseIf PickLetter = 2
           LetC$ = "C"
       ElseIf PickLetter = 3
           LetD$ = "D"      
       ElseIf PickLetter = 4
           LetF$ = "F"
       ElseIf PickLetter = 5
           LetG$ = "G"
       ElseIf PickLetter = 6
           LetH$ = "H"        
       ElseIf PickLetter = 7
           LetJ$ = "J"
       ElseIf PickLetter = 8
           LetK$ = "K"
       ElseIf PickLetter = 9
           LetL$ = "L"
       ElseIf PickLetter = 10
           LetM$ = "M"
       ElseIf PickLetter = 11
           LetN$ = "N"
       ElseIf PickLetter = 12
           LetO$ = "O"
       ElseIf PickLetter = 13
           LetP$ = "P"
       ElseIf PickLetter = 14
           LetQ$ = "Q"
       ElseIf PickLetter = 15
           LetR$ = "R"
       ElseIf PickLetter = 16
           LetS$ = "S"
       ElseIf PickLetter = 17
           LetT$ = "T"        
       ElseIf PickLetter = 18
           LetV$ = "V"
       ElseIf PickLetter = 19
           LetW$ = "W"
       ElseIf PickLetter = 20
           LetX$ = "X"          
       ElseIf PickLetter = 21
           LetZ$ = "Z"
       Endif
       DoEvents(100)
   Until (LetterTicks = 0)
   
       MChance% = Rnd(1, 2)
       If (MChance = 1)
           EMPro$ = "@Hotmail.com"
       ElseIf (MChance = 2)
           EMPro$ = "@GMail.com"
       Endif
Numberamount% = Rnd(1, 9999) ;pick random number, since alot of emails use atleast four digits after there text. could set it to have a chance to output emails with no numbers as well.

   Emailwrite$ = LetA + LetB + LetC + LetD + LetE + LetF + LetG + LetH + LetI + LetJ + LetK + LetL + LetM + LetN + LetO + LetP + LetQ + LetR + LetS + LetT + LetU + LetV + LetW + LetX + LetY + LetZ + Numberamount + EMPro

                   OutPut(Player, + Emailwrite, 230, 145, 23)
           
                   BFN$ = + PName + "s Email List.txt"
                   BankF = OpenFile(BFN)
                   SeekFile(BankF, FileSize(BFN))
                   WriteLine(BankF, Emailwrite) ;write email name to file
                   CloseFile(BankF)

                   DoEvents(100)
 ;Put variables back to nothing or letters have a chance to show back up in the output.
           LetA$ = ""
           LetB$ = ""
           LetC$ = ""
           LetD$ = ""
           LetE$ = ""
           LetF$ = ""
           LetG$ = ""
           LetH$ = ""
           LetI$ = ""
           LetJ$ = ""
           LetK$ = ""
           LetL$ = ""
           LetM$ = ""
           LetN$ = ""
           LetO$ = ""
           LetP$ = ""
           LetQ$ = ""
           LetR$ = ""
           LetS$ = ""
           LetT$ = ""
           LetU$ = ""
           LetV$ = ""
           LetW$ = ""
           LetX$ = ""
           LetY$ = ""
           LetZ$ = ""
    Until (Makeemail = 0)