API tools faq
paste
Advertisement
DCaddies

PirateBay OSC

DCaddies
Mar 22nd, 2018
276
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VB.NET 26.99 KB | None | 0 0
raw download clone embed print report
  1. 'Benötigt Telegram.dll (Project -> Nuget)
  2. 'Benötigt Timer auf der Form
  3.  
  4.  
  5. Public Class Form1
  6.     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  7.  
  8.         If IO.Directory.Exists("C:\piratebayosc\") = False Then
  9.             IO.Directory.CreateDirectory("C:\piratebayosc\")
  10.             IO.Directory.CreateDirectory("C:\piratebayosc\users\")
  11.         End If
  12.  
  13.         Timer1.Start()
  14.     End Sub
  15.  
  16.     Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
  17.         Telegram.bot.token = "TOKEN HIER"
  18.         Telegram.bot.update = True
  19.  
  20.         Dim id As String = Telegram.bot.from_ID
  21.  
  22.         If Telegram.bot.message_text = "/start" Then
  23.             Telegram.bot.sendKeyboard.keyboard_R11_1 = "Spiel starten"
  24.             Telegram.bot.SendPhoto.sendFromFile_id(id, "https://www.pirateshowcancun.com/blog/wp-content/uploads/2016/12/the-black-pearl-pirate-ship-1050x746.jpg")
  25.             Telegram.bot.sendKeyboard.send(id, "Willkommen zu Pirate Bay OSC!" & vbNewLine &
  26. " • Kaufe Piraten!" & vbNewLine &
  27.  "• Verdiene 💎!")
  28.             Exit Sub
  29.         End If
  30.  
  31.         If Telegram.bot.message_text = "Spiel starten" Then
  32.  
  33.             If IO.File.Exists("C:\piratebayosc\users\" & id & ".txt") Then
  34.                 befehl(id, "⬅️ zurück")
  35.             Else
  36.  
  37.                 Dim gg As New ListBox
  38.                 gg.Items.Add("0")
  39.                 gg.Items.Add("1")
  40.                 gg.Items.Add("0")
  41.                 gg.Items.Add("0")
  42.                 gg.Items.Add("0")
  43.                 gg.Items.Add("0")
  44.                 gg.Items.Add(DateTime.Now)
  45.                 gg.Items.Add("0")
  46.                 ListBox_Save(gg, "C:\piratebayosc\users\" & id & ".txt")
  47.                 befehl(id, "⬅️ zurück")
  48.             End If
  49.             Exit Sub
  50.         End If
  51.  
  52.         befehl(id, Telegram.bot.message_text)
  53.  
  54.     End Sub
  55.  
  56.  
  57.     Private Sub befehl(id As String, bef As String)
  58.         Dim p1 As Double
  59.         Dim p2 As Double
  60.         Dim p3 As Double
  61.         Dim p4 As Double
  62.         Dim p5 As Double
  63.         Dim p1a As Double
  64.         Dim p2a As Double
  65.         Dim p3a As Double
  66.         Dim p4a As Double
  67.         Dim p5a As Double
  68.  
  69.  
  70.  
  71.         Dim essen As Double
  72.         Dim zeit As Date
  73.         Dim dias As Double
  74.         Try
  75.             Dim g As New ListBox
  76.             ListBox_Read(g, "C:\piratebayosc\users\" & id & ".txt")
  77.             essen = g.Items.Item(0)
  78.             p1 = g.Items.Item(1)
  79.             p2 = g.Items.Item(2)
  80.             p3 = g.Items.Item(3)
  81.             p4 = g.Items.Item(4)
  82.             p5 = g.Items.Item(5)
  83.             zeit = g.Items.Item(6)
  84.             dias = g.Items.Item(7)
  85.             p1a = p1 * 60
  86.             p2a = p2 * 360
  87.             p3a = p3 * 1980
  88.             p4a = p4 * 10020
  89.             p5a = p5 * 35040
  90.         Catch ex As Exception
  91.             Telegram.bot.sendMessage.send(id, "Fehler: /start")
  92.         End Try
  93.  
  94.  
  95.  
  96.  
  97.         If bef = "⬅️ zurück" Then
  98.             Telegram.bot.sendKeyboard.keyboard_R11_1 = "Anheuern"
  99.             Telegram.bot.sendKeyboard.keyboard_R11_2 = "Schwarz-Markt"
  100.             Telegram.bot.sendKeyboard.keyboard_R10_1 = "Lager"
  101.  
  102.  
  103.             Telegram.bot.sendKeyboard.send(id, "Überblick über deine Ressourcen:" & vbNewLine &
  104.                                            "Dein Essen: " & essen & "🍞" & vbNewLine & vbNewLine &
  105.                                            "Deine Piraten:" & vbNewLine &
  106.                                            "💚 Raubein: " & p1 & " Produktion: " & p1a & " 💎/ Stunde" & vbNewLine &
  107.                                            "💙 Ringelbart: " & p2 & " Produktion: " & p2a & " 💎/ Stunde" & vbNewLine &
  108.                                            "💜 Schielauge: " & p3 & " Produktion: " & p3a & " 💎/ Stunde" & vbNewLine &
  109.                                            "💛 Haifisch: " & p4 & " Produktion: " & p4a & " 💎/ Stunde" & vbNewLine &
  110.                                            "❤️ Schwarzzahn: " & p5 & " Produktion: " & p5a & " 💎/ Stunde")
  111.         End If
  112.  
  113.         If bef = "Anheuern" Then
  114.             Telegram.bot.sendKeyboard.keyboard_R11_1 = "💚 Raubein"
  115.             Telegram.bot.sendKeyboard.keyboard_R11_2 = "💙 Ringelbart"
  116.             Telegram.bot.sendKeyboard.keyboard_R11_3 = "💜 Schielauge"
  117.             Telegram.bot.sendKeyboard.keyboard_R10_1 = "💛 Haifisch"
  118.             Telegram.bot.sendKeyboard.keyboard_R10_2 = "❤️ Schwarzzahn"
  119.             Telegram.bot.sendKeyboard.keyboard_R10_3 = "⬅️ zurück"
  120.             Telegram.bot.sendKeyboard.send(id, "Sie haben die Bar betreten. Hier können sie Piraten erwerben und damit 💎 verdienen!")
  121.         Else
  122.             If bef = "💚 Raubein" Then
  123.                 Telegram.bot.SendPhoto.sendFromFile_id(id, "http://wfpl.org/wp-content/plugins/lightbox/images/No-image-found.jpg")
  124.                 Telegram.bot.send_inline_keyboard.keyboard_R1_1 = "Anheuern für 1200🍞"
  125.                 Telegram.bot.send_inline_keyboard.keyboard_R1_1_callback_data = "Anheuern für 1200🍞"
  126.                 Telegram.bot.send_inline_keyboard.send(id, bef & vbNewLine &
  127.                                                        "Produktion pro Stunde: 60💎" & vbNewLine &
  128.                                                        "Im Besitz: " & p1 & vbNewLine &
  129.                                                        "Anheuern für 1200🍞?")
  130.             End If
  131.             If bef = "💙 Ringelbart" Then
  132.                 Telegram.bot.SendPhoto.sendFromFile_id(id, "http://wfpl.org/wp-content/plugins/lightbox/images/No-image-found.jpg")
  133.                 Telegram.bot.send_inline_keyboard.keyboard_R1_1 = "Anheuern für 6600🍞"
  134.                 Telegram.bot.send_inline_keyboard.keyboard_R1_1_callback_data = "Anheuern für 6600🍞"
  135.                 Telegram.bot.send_inline_keyboard.send(id, bef & vbNewLine &
  136.                                                        "Produktion pro Stunde: 360💎" & vbNewLine &
  137.                                                        "Im Besitz: " & p1 & vbNewLine &
  138.                                                        "Anheuern für 6600🍞?")
  139.             End If
  140.             If bef = "💜 Schielauge" Then
  141.                 Telegram.bot.SendPhoto.sendFromFile_id(id, "http://wfpl.org/wp-content/plugins/lightbox/images/No-image-found.jpg")
  142.                 Telegram.bot.send_inline_keyboard.keyboard_R1_1 = "Anheuern für 33000🍞"
  143.                 Telegram.bot.send_inline_keyboard.keyboard_R1_1_callback_data = "Anheuern für 33000🍞"
  144.                 Telegram.bot.send_inline_keyboard.send(id, bef & vbNewLine &
  145.                                                        "Produktion pro Stunde: 1980💎" & vbNewLine &
  146.                                                        "Im Besitz: " & p1 & vbNewLine &
  147.                                                        "Anheuern für 33000🍞?")
  148.             End If
  149.             If bef = "💛 Haifisch" Then
  150.                 Telegram.bot.SendPhoto.sendFromFile_id(id, "http://wfpl.org/wp-content/plugins/lightbox/images/No-image-found.jpg")
  151.                 Telegram.bot.send_inline_keyboard.keyboard_R1_1 = "Anheuern für 155000🍞"
  152.                 Telegram.bot.send_inline_keyboard.keyboard_R1_1_callback_data = "Anheuern für 155000🍞"
  153.                 Telegram.bot.send_inline_keyboard.send(id, bef & vbNewLine &
  154.                                                        "Produktion pro Stunde: 10020💎" & vbNewLine &
  155.                                                        "Im Besitz: " & p1 & vbNewLine &
  156.                                                        "Anheuern für 155000🍞?")
  157.             End If
  158.             If bef = "❤️ Schwarzzahn" Then
  159.                 Telegram.bot.SendPhoto.sendFromFile_id(id, "http://wfpl.org/wp-content/plugins/lightbox/images/No-image-found.jpg")
  160.                 Telegram.bot.send_inline_keyboard.keyboard_R1_1 = "Anheuern für 510000🍞"
  161.                 Telegram.bot.send_inline_keyboard.keyboard_R1_1_callback_data = "Anheuern für 510000🍞"
  162.                 Telegram.bot.send_inline_keyboard.send(id, bef & vbNewLine &
  163.                                                        "Produktion pro Stunde: 35040💎" & vbNewLine &
  164.                                                        "Im Besitz: " & p1 & vbNewLine &
  165.                                                        "Anheuern für 510000🍞?")
  166.             End If
  167.             If bef.Contains("1200🍞") Then
  168.                 If essen >= 1200 Then
  169.                     essen = essen - 1200
  170.                     p1 = p1 + 1
  171.                     Dim gg As New ListBox
  172.                     gg.Items.Add(essen)
  173.                     gg.Items.Add(p1)
  174.                     gg.Items.Add(p2)
  175.                     gg.Items.Add(p3)
  176.                     gg.Items.Add(p4)
  177.                     gg.Items.Add(p5)
  178.                     gg.Items.Add(zeit)
  179.                     gg.Items.Add(dias)
  180.                     ListBox_Save(gg, "C:\piratebayosc\users\" & id & ".txt")
  181.                     Telegram.bot.sendMessage.send(id, "Super!" & vbNewLine &
  182.                                                   "Du hast ein neues Crew Mitglied." & vbNewLine &
  183.                                                   "Was wollen wir jetzt tun, Kapitän?")
  184.                 Else
  185.                     Telegram.bot.sendMessage.send(id, "Nicht genug 🍞")
  186.                 End If
  187.             End If
  188.             If bef.Contains("6600🍞") Then
  189.                 If essen >= 6600 Then
  190.                     essen = essen - 6600
  191.                     p2 = p2 + 1
  192.                     Dim gg As New ListBox
  193.                     gg.Items.Add(essen)
  194.                     gg.Items.Add(p1)
  195.                     gg.Items.Add(p2)
  196.                     gg.Items.Add(p3)
  197.                     gg.Items.Add(p4)
  198.                     gg.Items.Add(p5)
  199.                     gg.Items.Add(zeit)
  200.                     gg.Items.Add(dias)
  201.                     ListBox_Save(gg, "C:\piratebayosc\users\" & id & ".txt")
  202.                     Telegram.bot.sendMessage.send(id, "Super!" & vbNewLine &
  203.                                                   "Du hast ein neues Crew Mitglied." & vbNewLine &
  204.                                                   "Was wollen wir jetzt tun, Kapitän?")
  205.                 Else
  206.                     Telegram.bot.sendMessage.send(id, "Nicht genug 🍞")
  207.                 End If
  208.             End If
  209.             If bef.Contains("33000🍞") Then
  210.                 If essen >= 33000 Then
  211.                     essen = essen - 33000
  212.                     p3 = p3 + 1
  213.                     Dim gg As New ListBox
  214.                     gg.Items.Add(essen)
  215.                     gg.Items.Add(p1)
  216.                     gg.Items.Add(p2)
  217.                     gg.Items.Add(p3)
  218.                     gg.Items.Add(p4)
  219.                     gg.Items.Add(p5)
  220.                     gg.Items.Add(zeit)
  221.                     gg.Items.Add(dias)
  222.                     ListBox_Save(gg, "C:\piratebayosc\users\" & id & ".txt")
  223.                     Telegram.bot.sendMessage.send(id, "Super!" & vbNewLine &
  224.                                                   "Du hast ein neues Crew Mitglied." & vbNewLine &
  225.                                                   "Was wollen wir jetzt tun, Kapitän?")
  226.                 Else
  227.                     Telegram.bot.sendMessage.send(id, "Nicht genug 🍞")
  228.                 End If
  229.             End If
  230.             If bef.Contains("155000🍞") Then
  231.                 If essen >= 155000 Then
  232.                     essen = essen - 155000
  233.                     p4 = p4 + 1
  234.                     Dim gg As New ListBox
  235.                     gg.Items.Add(essen)
  236.                     gg.Items.Add(p1)
  237.                     gg.Items.Add(p2)
  238.                     gg.Items.Add(p3)
  239.                     gg.Items.Add(p4)
  240.                     gg.Items.Add(p5)
  241.                     gg.Items.Add(zeit)
  242.                     gg.Items.Add(dias)
  243.                     ListBox_Save(gg, "C:\piratebayosc\users\" & id & ".txt")
  244.                     Telegram.bot.sendMessage.send(id, "Super!" & vbNewLine &
  245.                                                   "Du hast ein neues Crew Mitglied." & vbNewLine &
  246.                                                   "Was wollen wir jetzt tun, Kapitän?")
  247.                 Else
  248.                     Telegram.bot.sendMessage.send(id, "Nicht genug 🍞")
  249.                 End If
  250.             End If
  251.             If bef.Contains("510000🍞") Then
  252.                 If essen >= 155000 Then
  253.                     essen = essen - 510000
  254.                     p5 = p5 + 1
  255.                     Dim gg As New ListBox
  256.                     gg.Items.Add(essen)
  257.                     gg.Items.Add(p1)
  258.                     gg.Items.Add(p2)
  259.                     gg.Items.Add(p3)
  260.                     gg.Items.Add(p4)
  261.                     gg.Items.Add(p5)
  262.                     gg.Items.Add(zeit)
  263.                     gg.Items.Add(dias)
  264.                     ListBox_Save(gg, "C:\piratebayosc\users\" & id & ".txt")
  265.                     Telegram.bot.sendMessage.send(id, "Super!" & vbNewLine &
  266.                                                   "Du hast ein neues Crew Mitglied." & vbNewLine &
  267.                                                   "Was wollen wir jetzt tun, Kapitän?")
  268.                 Else
  269.                     Telegram.bot.sendMessage.send(id, "Nicht genug 🍞")
  270.                 End If
  271.             End If
  272.         End If
  273.  
  274.         If bef = "Schwarz-Markt" Then
  275.             Telegram.bot.sendKeyboard.keyboard_R11_1 = "Schätze verkaufen"
  276.             Telegram.bot.sendKeyboard.keyboard_R11_2 = "Gesammelte 💎"
  277.             Telegram.bot.sendKeyboard.keyboard_R10_1 = "⬅️ zurück"
  278.             Telegram.bot.sendKeyboard.send(id, "Willkommen im Schwarz-Markt." & vbNewLine &
  279.                                            "Hier kannst du Schätze abholen und verkaufen.")
  280.         Else
  281.             If bef = "Schätze verkaufen" Then
  282.                 If dias < 100 Then
  283.                     Telegram.bot.sendMessage.send(id, "Du hast nicht genug 💎 zum verkaufen.")
  284.                 Else
  285.                     Dim ex As Double = Math.Floor(dias / 100)
  286.                     Dim abzugd As Double = ex * 100
  287.                     dias = dias - abzugd
  288.                     essen = essen + ex
  289.                     Dim gg As New ListBox
  290.                     gg.Items.Add(essen)
  291.                     gg.Items.Add(p1)
  292.                     gg.Items.Add(p2)
  293.                     gg.Items.Add(p3)
  294.                     gg.Items.Add(p4)
  295.                     gg.Items.Add(p5)
  296.                     gg.Items.Add(zeit)
  297.                     gg.Items.Add(dias)
  298.                     ListBox_Save(gg, "C:\piratebayosc\users\" & id & ".txt")
  299.                     Telegram.bot.sendMessage.send(id, "Du hast aus " & abzugd & "💎 > " & ex & "🍞 gemacht.")
  300.                 End If
  301.             End If
  302.             If bef = "Gesammelte 💎" Then
  303.  
  304.  
  305.  
  306.                 Telegram.bot.sendKeyboard.keyboard_R11_1 = "Alle 💎 sammeln"
  307.                 Telegram.bot.sendKeyboard.keyboard_R10_1 = "Schwarz-Markt"
  308.                 Telegram.bot.sendKeyboard.send(id, "Überblick deiner Schätze:" & vbNewLine & vbNewLine &
  309.                                                "Schätze im Lager: " & dias & "💎" & vbNewLine &
  310.                                                "Gesammelt durch Piraten: " & gesammelte(id) & "💎")
  311.             Else
  312.                 If bef = "Alle 💎 sammeln" Then
  313.                     Dim alt As Double = gesammelte(id)
  314.                     dias = dias + alt
  315.                     zeit = DateTime.Now
  316.                     Dim gg As New ListBox
  317.                     gg.Items.Add(essen)
  318.                     gg.Items.Add(p1)
  319.                     gg.Items.Add(p2)
  320.                     gg.Items.Add(p3)
  321.                     gg.Items.Add(p4)
  322.                     gg.Items.Add(p5)
  323.                     gg.Items.Add(zeit)
  324.                     gg.Items.Add(dias)
  325.                     ListBox_Save(gg, "C:\piratebayosc\users\" & id & ".txt")
  326.                     Telegram.bot.sendMessage.send(id, "Super!" & vbNewLine &
  327.                                                   "Du hast: " & alt & "💎 eingesammelt!" & vbNewLine &
  328.                                                   "Im Lager: " & dias & "💎.")
  329.  
  330.  
  331.                 End If
  332.             End If
  333.         End If
  334.  
  335.         If bef = "Lager" Then
  336.             Telegram.bot.sendKeyboard.keyboard_R11_1 = "🎲 Würfeln"
  337.             Telegram.bot.sendKeyboard.keyboard_R11_2 = "Infos"
  338.             Telegram.bot.sendKeyboard.keyboard_R10_1 = "Credits"
  339.             Telegram.bot.sendKeyboard.keyboard_R10_2 = "⬅️ zurück"
  340.             Telegram.bot.sendKeyboard.send(id, "Du hast das Lager betreten.")
  341.         Else
  342.             If bef.Contains("🎲 Würfeln") Then
  343.                 Telegram.bot.sendKeyboard.keyboard_R10_1 = "< Kleiner"
  344.                 Telegram.bot.sendKeyboard.keyboard_R10_2 = "= Gleich"
  345.                 Telegram.bot.sendKeyboard.keyboard_R10_3 = "> Höher"
  346.                 Telegram.bot.sendKeyboard.keyboard_R9_1 = "🎲 Anleitung"
  347.                 Telegram.bot.sendKeyboard.keyboard_R9_2 = "Lager"
  348.                 Telegram.bot.sendMessage.send(id, "---Spiel: 🎲 Würfeln---")
  349.                 Telegram.bot.sendKeyboard.send(id, "Wähle zum Starten")
  350.  
  351.             Else
  352.                 If bef.Contains("🎲 Anleitung") Then
  353.                     Telegram.bot.sendMessage.send(id, "---Anleitung: 🎲 Würfeln---" & vbNewLine &
  354.                               "Wähle wie die Würfel fallen." & vbNewLine &
  355.                               "Es wird zwei mal gewürfelt fällt es beim zweiten mal so aus wie du es sagst gewinnst du." & vbNewLine &
  356.                               "Preis: 100💎" & vbNewLine &
  357.                               "Gewinn: 500💎")
  358.                 Else
  359.                     If bef.Contains("< Kleiner") Then
  360.                         If dias < 100 Then
  361.                             Telegram.bot.sendMessage.send(id, "Keine 💎 zum spielen.")
  362.                             Exit Sub
  363.                         End If
  364.                         dias = dias - 100
  365.                         Dim gg As New ListBox
  366.                         gg.Items.Add(essen)
  367.                         gg.Items.Add(p1)
  368.                         gg.Items.Add(p2)
  369.                         gg.Items.Add(p3)
  370.                         gg.Items.Add(p4)
  371.                         gg.Items.Add(p5)
  372.                         gg.Items.Add(zeit)
  373.                         gg.Items.Add(dias)
  374.                         ListBox_Save(gg, "C:\piratebayosc\users\" & id & ".txt")
  375.                         Dim babo As New Random
  376.                         Dim wurf1 As Integer = babo.Next(2, 13)
  377.                         Dim wurf2 As Integer = babo.Next(2, 13)
  378.  
  379.                         If wurf2 < wurf1 Then
  380.                             dias = dias + 500
  381.                             Dim gg2 As New ListBox
  382.                             gg2.Items.Add(essen)
  383.                             gg2.Items.Add(p1)
  384.                             gg2.Items.Add(p2)
  385.                             gg2.Items.Add(p3)
  386.                             gg2.Items.Add(p4)
  387.                             gg2.Items.Add(p5)
  388.                             gg2.Items.Add(zeit)
  389.                             gg2.Items.Add(dias)
  390.                             ListBox_Save(gg2, "C:\piratebayosc\users\" & id & ".txt")
  391.                             Telegram.bot.sendMessage.send(id, "Wurf1: " & wurf1 & vbNewLine &
  392.                                                       "Wurf2: " & wurf2 & vbNewLine &
  393.                                                       "Gewonnen!")
  394.                         Else
  395.                             Telegram.bot.sendMessage.send(id, "Wurf1: " & wurf1 & vbNewLine &
  396.                               "Wurf2: " & wurf2 & vbNewLine &
  397.                               "Verloren!")
  398.                         End If
  399.  
  400.  
  401.                     Else
  402.                         If bef.Contains("= Gleich") Then
  403.                             If dias < 100 Then
  404.                                 Telegram.bot.sendMessage.send(id, "Keine 💎 zum spielen.")
  405.                                 Exit Sub
  406.                             End If
  407.                             dias = dias - 100
  408.                             Dim gg As New ListBox
  409.                             gg.Items.Add(essen)
  410.                             gg.Items.Add(p1)
  411.                             gg.Items.Add(p2)
  412.                             gg.Items.Add(p3)
  413.                             gg.Items.Add(p4)
  414.                             gg.Items.Add(p5)
  415.                             gg.Items.Add(zeit)
  416.                             gg.Items.Add(dias)
  417.                             ListBox_Save(gg, "C:\piratebayosc\users\" & id & ".txt")
  418.                             Dim babo As New Random
  419.                             Dim wurf1 As Integer = babo.Next(2, 13)
  420.                             Dim wurf2 As Integer = babo.Next(2, 13)
  421.  
  422.                             If wurf2 = wurf1 Then
  423.                                 dias = dias + 500
  424.                                 Dim gg2 As New ListBox
  425.                                 gg2.Items.Add(essen)
  426.                                 gg2.Items.Add(p1)
  427.                                 gg2.Items.Add(p2)
  428.                                 gg2.Items.Add(p3)
  429.                                 gg2.Items.Add(p4)
  430.                                 gg2.Items.Add(p5)
  431.                                 gg2.Items.Add(zeit)
  432.                                 gg2.Items.Add(dias)
  433.                                 ListBox_Save(gg2, "C:\piratebayosc\users\" & id & ".txt")
  434.                                 Telegram.bot.sendMessage.send(id, "Wurf1: " & wurf1 & vbNewLine &
  435.                                                           "Wurf2: " & wurf2 & vbNewLine &
  436.                                                           "Gewonnen!")
  437.                             Else
  438.                                 Telegram.bot.sendMessage.send(id, "Wurf1: " & wurf1 & vbNewLine &
  439.                                   "Wurf2: " & wurf2 & vbNewLine &
  440.                                   "Verloren!")
  441.                             End If
  442.                         Else
  443.                             If bef.Contains("> Höher") Then
  444.                                 If dias < 100 Then
  445.                                     Telegram.bot.sendMessage.send(id, "Keine 💎 zum spielen.")
  446.                                     Exit Sub
  447.                                 End If
  448.                                 dias = dias - 100
  449.                                 Dim gg As New ListBox
  450.                                 gg.Items.Add(essen)
  451.                                 gg.Items.Add(p1)
  452.                                 gg.Items.Add(p2)
  453.                                 gg.Items.Add(p3)
  454.                                 gg.Items.Add(p4)
  455.                                 gg.Items.Add(p5)
  456.                                 gg.Items.Add(zeit)
  457.                                 gg.Items.Add(dias)
  458.                                 ListBox_Save(gg, "C:\piratebayosc\users\" & id & ".txt")
  459.                                 Dim babo As New Random
  460.                                 Dim wurf1 As Integer = babo.Next(2, 13)
  461.                                 Dim wurf2 As Integer = babo.Next(2, 13)
  462.  
  463.                                 If wurf2 > wurf1 Then
  464.                                     dias = dias + 500
  465.                                     Dim gg2 As New ListBox
  466.                                     gg2.Items.Add(essen)
  467.                                     gg2.Items.Add(p1)
  468.                                     gg2.Items.Add(p2)
  469.                                     gg2.Items.Add(p3)
  470.                                     gg2.Items.Add(p4)
  471.                                     gg2.Items.Add(p5)
  472.                                     gg2.Items.Add(zeit)
  473.                                     gg2.Items.Add(dias)
  474.                                     ListBox_Save(gg2, "C:\piratebayosc\users\" & id & ".txt")
  475.                                     Telegram.bot.sendMessage.send(id, "Wurf1: " & wurf1 & vbNewLine &
  476.                                                               "Wurf2: " & wurf2 & vbNewLine &
  477.                                                               "Gewonnen!")
  478.                                 Else
  479.                                     Telegram.bot.sendMessage.send(id, "Wurf1: " & wurf1 & vbNewLine &
  480.                                       "Wurf2: " & wurf2 & vbNewLine &
  481.                                       "Verloren!")
  482.                                 End If
  483.                             End If
  484.                         End If
  485.                     End If
  486.  
  487.  
  488.  
  489.                 End If
  490.             End If
  491.  
  492.             If bef = "Infos" Then
  493.                 Telegram.bot.sendKeyboard.send(id, "Du hast: " & dias & "💎 im Lager.")
  494.             End If
  495.             If bef = "Credits" Then
  496.                 Telegram.bot.sendMessage.send(id, "Pirate Bay OSC - dcaddies.de" & vbNewLine &
  497.                                               "Projekt Mappe Download: https://dcaddies.de/pirate-bay-osc/")
  498.             End If
  499.         End If
  500.  
  501.     End Sub
  502.  
  503.  
  504.     Public Function gesammelte(id As String)
  505.         Dim p1 As Double
  506.         Dim p2 As Double
  507.         Dim p3 As Double
  508.         Dim p4 As Double
  509.         Dim p5 As Double
  510.         Dim p1a As Double
  511.         Dim p2a As Double
  512.         Dim p3a As Double
  513.         Dim p4a As Double
  514.         Dim p5a As Double
  515.         Dim zeit As Date
  516.         Dim dias As Double
  517.         Try
  518.             Dim g As New ListBox
  519.             ListBox_Read(g, "C:\piratebayosc\users\" & id & ".txt")
  520.             p1 = g.Items.Item(1)
  521.             p2 = g.Items.Item(2)
  522.             p3 = g.Items.Item(3)
  523.             p4 = g.Items.Item(4)
  524.             p5 = g.Items.Item(5)
  525.             zeit = g.Items.Item(6)
  526.             dias = g.Items.Item(7)
  527.             p1a = p1 * 6
  528.             p2a = p2 * 60
  529.             p3a = p3 * 33
  530.             p4a = p4 * 167
  531.             p5a = p5 * 584
  532.         Catch ex As Exception
  533.             Return (0)
  534.         End Try
  535.  
  536.         Dim zeiti As Integer = DateDiff(DateInterval.Minute, zeit, DateTime.Now)
  537.  
  538.         Dim ges As Double = (p1a * zeiti) + (p2a * zeiti) + (p3a * zeiti) + (p4a * zeiti) + (p5a * zeiti)
  539.  
  540.         Return (ges)
  541.  
  542.  
  543.     End Function
  544.  
  545.  
  546.  
  547.  
  548.     Public Sub ListBox_Save(ByVal ListBox As ListBox,
  549.   ByVal sFile As String)
  550.  
  551.         ' Inhalt einer ListBox speichern
  552.         Dim oStream As IO.StreamWriter
  553.         Dim i As Short
  554.  
  555.         oStream = New IO.StreamWriter(sFile)
  556.  
  557.         For i = 0 To ListBox.Items.Count - 1
  558.             oStream.WriteLine(ListBox.Items(i))
  559.         Next
  560.         oStream.Close()
  561.     End Sub
  562.  
  563.     Public Sub ListBox_Read(ByVal ListBox As ListBox,
  564.       ByVal sFile As String)
  565.  
  566.         ' Inhalt einer ListBox speichern
  567.         Dim oStream As IO.StreamReader
  568.         Dim sLine As String
  569.  
  570.         ' ListBox löschen
  571.         ListBox.Items.Clear()
  572.  
  573.         ' Existsiert die Datei?
  574.         Dim oFile As New IO.FileInfo(sFile)
  575.  
  576.         If oFile.Exists() = True Then
  577.             oStream = New IO.StreamReader(sFile)
  578.             ' Datei zeilenweise auslesen
  579.             Do
  580.                 sLine = oStream.ReadLine()
  581.                 If IsNothing(sLine) Then Exit Do
  582.                 ListBox.Items.Add(sLine)
  583.             Loop
  584.             oStream.Close()
  585.         End If
  586.     End Sub
  587. End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!