1
0

BnameGen 2.3 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576
  1. # BnameGen
  2. bnrand = rand(0, 15)
  3. if bnrand = 0:$bname = 'Sasha' & $bnamefull = 'Alexander'
  4. if bnrand = 1:$bname = 'Lesch' & $bnamefull = 'Alexey'
  5. if bnrand = 2:$bname = 'Kohl' & $bnamefull = 'Nicholas'
  6. if bnrand = 3:$bname = 'Petya' & $bnamefull = 'Peter'
  7. if bnrand = 4:$bname = 'Vasya' & $bnamefull = 'Basil'
  8. if bnrand = 5:$bname = 'Gosh' & $bnamefull = 'Igor'
  9. if bnrand = 6:$bname = 'Misha' & $bnamefull = 'Michael'
  10. if bnrand = 7:$bname = 'Dan' & $bnamefull = 'Denis'
  11. if bnrand = 8:$bname = 'Pasha' & $bnamefull = 'Paul'
  12. if bnrand = 9:$bname = 'Gene' & $bnamefull = 'Gennady'
  13. if bnrand = 10:$bname = 'Dimka' & $bnamefull = 'Dimitry'
  14. if bnrand = 11:$bname = 'Slavik' & $bnamefull = 'Vyachesla'
  15. if bnrand = 12:$bname = 'Acne' & $bnamefull = 'Vitali'
  16. if bnrand = 13:$bname = 'Valera' & $bnamefull = 'Valery'
  17. if bnrand = 14:$bname = 'Vanya' & $bnamefull = 'Ivan'
  18. if bnrand = 15:$bname = 'Serge' & $bnamefull = 'Sergey'
  19. :markodinname
  20. bnrand = rand(0, 15)
  21. if bnrand = 0:$bname2 = 'Sasha'
  22. if bnrand = 1:$bname2 = 'Lesch'
  23. if bnrand = 2:$bname2 = 'Kohl'
  24. if bnrand = 3:$bname2 = 'Petya'
  25. if bnrand = 4:$bname2 = 'Vasya'
  26. if bnrand = 5:$bname2 = 'Gosh'
  27. if bnrand = 6:$bname2 = 'Misha'
  28. if bnrand = 7:$bname2 = 'Dan'
  29. if bnrand = 8:$bname2 = 'Pasha'
  30. if bnrand = 9:$bname2 = 'Gene'
  31. if bnrand = 10:$bname2 = 'Dima'
  32. if bnrand = 11:$bname2 = 'Slavik'
  33. if bnrand = 12:$bname2 = 'Acne'
  34. if bnrand = 13:$bname2 = 'Valera'
  35. if bnrand = 14:$bname2 = 'Vanya'
  36. if bnrand = 15:$bname2 = 'Serge'
  37. if $bname = $bname2:jump 'markodinname'
  38. :markodinnamesec
  39. bnrand = rand(0, 15)
  40. if bnrand = 0:$bname3 = 'Sasha'
  41. if bnrand = 1:$bname3 = 'Lesch'
  42. if bnrand = 2:$bname3 = 'Kohl'
  43. if bnrand = 3:$bname3 = 'Petya'
  44. if bnrand = 4:$bname3 = 'Vasya'
  45. if bnrand = 5:$bname3 = 'Gosh'
  46. if bnrand = 6:$bname3 = 'Misha'
  47. if bnrand = 7:$bname3 = 'Dan'
  48. if bnrand = 8:$bname3 = 'Pasha'
  49. if bnrand = 9:$bname3 = 'Gene'
  50. if bnrand = 10:$bname3 = 'Dima'
  51. if bnrand = 11:$bname3 = 'Slavik'
  52. if bnrand = 12:$bname3 = 'Acne'
  53. if bnrand = 13:$bname3 = 'Valera'
  54. if bnrand = 14:$bname3 = 'Vanya'
  55. if bnrand = 15:$bname3 = 'Serge'
  56. if $bname = $bname3 or $bname2 = $bname3:jump 'markodinnamesec'
  57. raspredickrand = rand(0, 10)
  58. if raspredickrand = 0:
  59. dick = rand(8, 13)
  60. elseif raspredickrand=10:
  61. dick = rand(18, 25)
  62. else
  63. dick = rand(13, 17)
  64. end
  65. silavag = rand(0, 2)
  66. --- BnameGen ---------------------------------