home *** CD-ROM | disk | FTP | other *** search
/ Hackers Toolkit v2.0 / Hackers_Toolkit_v2.0.iso / HTML / archive / IRC / ebonics.irc < prev    next >
Text File  |  1999-11-04  |  3KB  |  87 lines
  1. # ebonicspeak by pent.  who the hell else would do this?
  2. # i think people like this though :)
  3.  
  4. ^set input_protection off
  5. @ englishwords = [i are am is pretty ask alright hi hello friend man girl \
  6. people suck cool neat awesome and my don't friends you more for everyone \
  7. this work beautiful were thing anything something there door anymore \
  8. have about the get warez shit having using fool hey good with white \
  9. a shoot went guys them boys girls fuck best dude dood no that was \
  10. you're woman oh doesn't doesnt isn't isnt your to stuff ebonics they \
  11. question script i'm i'll does because better again of saw any]
  12.  
  13. @ ebonicswords = [ah be be be fine ax aight werd peace homey nig bitch \
  14. brothas wack phat phat phat an' mah don' homies ya mo' fo' brothas \
  15. dis werk fine was thin' anythin' somethin' dere do' anymo' \
  16. gots 'bout de git juarez sheeit havin' usin' foo' yo pimp-tight wiff whitey \
  17. uh sheeeyit go pimpz dem nigs bitches fuk bawmb nigga nigga nahh dat been \
  18. you bitch awww don' don' ain't ain't yo' ta sheeit ebonix dey \
  19. queshun scrip' ah'm ah'll do cuz bettah ag'in o' seen no]
  20.  
  21. eval $srand(23134234)
  22. @ ephrasenum = [7]
  23. @ ephrase[0] = [. Ya' know what I'm sayin']
  24. @ ephrase[1] = [. Ya' dig?]
  25. @ ephrase[3] = []
  26. @ ephrase[4] = []
  27. @ ephrase[5] = []
  28. @ ephrase[6] = []
  29. alias esay {
  30.    @ ebonics.str = [$*]
  31.    @ ebonicsnumwords = [$#ebonics.str]
  32.    @ ebonparse = [1]
  33.    while (ebonparse <= ebonicsnumwords) {
  34.       @ currentword = [$word(${ebonparse - 1} $ebonics.str)]
  35.       if (rmatch($currentword $englishwords)) {
  36.          @ ebonwd[$ebonparse] = [$ebontrans($currentword)]
  37.       }{
  38.          @ ebonwd[$ebonparse] = [$word(${ebonparse - 1} ${ebonics.str})]
  39.       }
  40.       @ ebonparse = ebonparse + 1
  41.    }
  42.    @ ebonnew = [1]
  43.    while (ebonnew <= ebonicsnumwords) {
  44.       if ([$ebonnew]==[1]) {
  45.          @ ebonicsstring = [$ebonwd[$ebonnew]]
  46.      }{
  47.          @ ebonicsstring = [$ebonicsstring $ebonwd[$ebonnew]]
  48.       }
  49.       @ ebonnew = ebonnew + 1
  50.    }
  51. @ function_return = [${ebonicsstring}${ephrase[$rand($ephrasenum)]}]
  52. purge ebonwd;^assign -ebonicsstring
  53. }
  54. alias purge {
  55.   foreach $0 ii {purge $0.$ii}
  56.   ^assign -ii
  57.   ^assign -$0
  58. }
  59.  
  60. alias ebontrans if (rmatch($0 ${englishwords})){
  61.    @ word_to_trans = [$0]
  62.    @ searchidx = [0]
  63.    while ([$word($searchidx $englishwords)] != [$word_to_trans]) {
  64.       @ searchidx = searchidx + 1
  65.    }
  66.    if ([$word($searchidx $englishwords)] == [$word_to_trans]) {@ function_return = [$word($searchidx $ebonicswords)]}
  67.    ^assign -search_idx
  68. }
  69. alias emsg if ([$1]) {msg $0 $esay($1-)}{echo *** USAGE /emsg <nick> message}
  70. alisa es if ([$0]) {say $esay($0-)}
  71. alias ebon_on {
  72. ^on ^input "*" {
  73. if (([$[1]0]!=[/])&&([$0]!=[])) {sendline $esay($*);type }{
  74. if ([$0]==[/me]) {//me $esay($1-);type }{SENDLINE $*}
  75. }
  76. }}
  77. alias ebon_off {
  78. ^on -input "*"
  79. }
  80. ebon_on
  81.  
  82. echo *** ebonik ta'ker buh pent lo'ded, muh brotha
  83. echo *** /emsg send a msg in ebonics
  84. echo *** /es send a public message in ebonics (unnecessary unless you are
  85. echo ***       ebon_off or you cannot usually see what you type)
  86. echo *** /ebon_off will turn de automatic ta'ker off.
  87. echo *** /ebon_on will turn de automatic ta'ker on (done automatikly)