1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57
| Public Function stats()
dim rep as string
dim att as integer
dim def as integer
dim pv as integer
'Définition de la vie actuelle.
Dim reader As New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Zune\stats\pv.txt")
Dim vie = reader.ReadLine
pv = vie
reader.Close()
'Définition des points d'attaque
Dim effetattaquetete As New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Zune\effet\attaquetete.txt")
Dim effetattaquet = effetattaquetete.ReadToEnd
effetattaquetete.Close()
Dim effetattaquecape As New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Zune\effet\attaquecape.txt")
Dim effetcape = effetattaquecape.ReadToEnd
effetattaquecape.Close()
Dim effetattaquecuirasse As New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Zune\effet\attaquecuirasse.txt")
Dim effetattaquec = effetattaquecuirasse.ReadToEnd
effetattaquecuirasse.Close()
Dim effetattaquearme As New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Zune\effet\attaquearme.txt")
Dim effetattaquea = effetattaquearme.ReadToEnd
effetattaquearme.Close()
Dim dommage As New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Zune\stats\attaque.txt")
Dim attaque = dommage.ReadToEnd
att = CDbl(attaque) + CDbl(effetattaquet) + CDbl(effetcape) + CDbl(effetattaquec) + CDbl(effetattaquea)
dommage.Close()
'Définition des points de défense.
Dim effetdefensetete As New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Zune\effet\defensetete.txt")
Dim effetdefenset = effetdefensetete.ReadToEnd
effetdefensetete.Close()
Dim effetdefensecape As New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Zune\effet\defensecape.txt")
Dim effetdcape = effetdefensecape.ReadToEnd
effetdefensecape.Close()
Dim effetdefensecuirasse As New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Zune\effet\defensecuirasse.txt")
Dim effetdefensec = effetdefensecuirasse.ReadToEnd
effetdefensecuirasse.Close()
Dim effetdefensearme As New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Zune\effet\defensearme.txt")
Dim effetdefensea = effetdefensearme.ReadToEnd
effetdefensearme.Close()
Dim defense As New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Zune\stats\defense.txt")
Dim pd = defense.ReadToEnd
def = CDbl(pd) + CDbl(effetdefenset) + CDbl(effetdcape) + CDbl(effetdefensec) + CDbl(effetdefensea)
defense.Close()
rep = att & ";" & def & ";" pv
return rep
end fonction
Dim mes_stats as string
dim attaque as integer
dim poivie as integer
dim defense as integer
mes_stats = stats
attaque = cint(split(mes_stats,";")(0))
poivie = cint(split(mes_stats,";")(2))
defense = cint(split(mes_stats,";")(1)) |
Partager