Rian_Tyler

Untitled

Apr 14th, 2016
78
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 3.60 KB | None | 0 0
  1. :?:/angeln::
  2. :?:/fischen::
  3. Suspend, Permit
  4. if(getIP() == "31.214.160.11"){
  5. billigPrice := 5000
  6. VerkaufGeld := 0
  7. billigHP := 250
  8. FischNr := 1
  9. vkNumber := 1
  10. Geld := 0
  11. FLife := 0
  12. Weg := 0
  13. if(getPlayerInteriorId() == 0){
  14. Loop, {
  15. Sleep, 850
  16. SendChat("/fish")
  17. Sleep, 150
  18. getChatLine(0, Chat)
  19. if(inStr(Chat, "Du bist an keinem Angelplatz (Big Wheel Rods) oder an einem Fischerboot!")){
  20. return
  21. }else if(inStr(Chat, " LBS gefangen.")){
  22. RegExMatch(Chat, "Du hast ein/e (.*) mit (.*) LBS gefangen.", Fang)
  23. FischHP := Floor(Fang2*0.3)
  24. FischGe := FischPreis(Fang1, Fang2)
  25. addChatMessage(ACM "{FFFFFF} Fisch Nr " FischNr ": " Fang1 " mit " Fang2 " LBS gefangen [HP: {" Color2 "}" FischHP "{FFFFFF}, Geldwert: {" Color2 "}" FischGe "${FFFFFF}]")
  26. Geld := (Geld+FischGe)
  27. FLife := (FLife+FischHP)
  28. if(BilligPrice > FischGe){
  29. billigNr = %FischNr%
  30. billigName = %Fang1%
  31. billigPrice = %FischGe%
  32. billigHP = %FischHP%
  33. }
  34. FischNr++
  35. Fische++
  36. IniWrite, %Fische%, Settings.ini, Stats, Fische
  37. }else if(inStr(Chat, "Bitte warte einige Minuten.")){
  38. if(Geld > 0){
  39. GesamtFischWert += Geld
  40. IniWrite, %GesamtFischWert%, Settings.ini, Stats, GesamtFischWert
  41. addChatMessage(ACM " {FFFFFF}HP der Fische: {" Color2 "}" FLife "{FFFFFF}, Geldwert der Fische: {" Color2 "}" FormatNumber(Geld) "{FFFFFF}$.")
  42. addChatMessage(ACM " {FFFFFF}Du kannst /finfo verwenden, um mehr Informationen zu deinen Fischen zu erhalten.")
  43. SetTimer, FischTimer, 1200000
  44. FischSperre := 1
  45. }else{
  46. if(FischSperre == 0){
  47. FischSperre := 1
  48. }
  49. addChatMessage(ACM "{FFFFFF} Bitte warte bis deine Fischsperre rum ist. Nutze /finfo.")
  50. }
  51. return
  52. }else if(inStr(Chat, "Du kannst nur 5 Fische bei dir tragen.")){
  53. if(Weg == 1){
  54. break
  55. }else if(FischNr = 0 || FischNr = 1 || FischNr = 2 || FischNr = 3 || FischNr = 4 || FischNr = 5){
  56. return
  57. }
  58. Geld := (Geld-BilligPrice)
  59. FLife := (FLife-BilligHP)
  60. SendChat("/releasefish " BilligNr)
  61. addChatMessage(ACM "{FFFFFF} Fisch Nr. " FischNr " (" BilligName ") im Wert von {" Color2 "}" BilligPrice "${FFFFFF} zurück ins Meer gefeuert.")
  62. Weg := 1
  63. FischNr := 5
  64. }else if(inStr(Chat, "Du hast eine Geldtasche mit ")){
  65. RegExMatch(Chat, "Du hast eine Geldtasche mit (.*)\$ gefangen\.", Geldtasche)
  66. GeldTaschen ++
  67. IniWrite, %GeldTaschen%, Settings.ini, Stats, GeldTaschen
  68. GeldTaschenMoney += %Geldtasche1%
  69. IniWrite, %GeldTaschenMoney%, Settings.ini, Stats, GeldTaschenMoney
  70. addChatMessage(ACM "{FFFFFF} Geldtasche Nr. " GeldTaschen " gefangen. Gewinn durch Geldtaschen: {" Color2 "}" FormatNumber(GeldTaschenMoney) "${FFFFFF}.")
  71. }
  72. }
  73. }else{
  74. vorher := getPlayerMoney()
  75. SendChat("/sell fish 1")
  76. Sleep, 200
  77. getChatLine(0, Chat)
  78. if(inStr(Chat, "Du bist in keinem ")){
  79. addChatMessage(ACM "{FFFFFF} Du kannst hier keine Fische verkaufen, bitte begib dich in ein 24/7 oder in eine Tankstelle.")
  80. return
  81. }else if(inStr(Chat, "Du hast keinen Fisch im")){
  82. addChatMessage(ACM "{FFFFFF} Du hast keine Fische mehr dabei, bitte warte etwas oder geh direkt wieder angeln.")
  83. return
  84. }else{
  85. SendChat("/sell fish 2")
  86. SendChat("/sell fish 3")
  87. SendChat("/sell fish 4")
  88. SendChat("/sell fish 5")
  89. sleep, 100
  90. nachher := getPlayerMoney()
  91. Gewinn := nachher - vorher
  92. addChatMessage(ACM "Du hast für deine Fische {" Color2 "}" FormatNumber(Gewinn) "${FFFFFF} bekommen.")
  93. }
  94. }
  95. }else{
  96. addChatMessage(ACM "{FFFFFF} Du bist nicht mit RPG-City verbunden.")
  97. }
  98. return
Advertisement
Add Comment
Please, Sign In to add comment