Game Making Should Be Easy...
https://www.coolbasic.com/phpBB3/
DLL:ään tulee pelkkä muistiosoite josta data alkaa. Ei siis mitään taulukoita.koodaaja wrote:Nyt tämmöinen enemmän tai vähemmän tyhmä kysymys; miten CB:n dll-kutsusysteemin muistipalikkajärjestelmä toimii DLL:n päässä? Eli mikä parametri sieltä tulee? Pointteri johonkin? Varmaan, mutta entä jos osa parametrimuistipalan osista on floatteja, osa chareja ja muutama intti? Tuleeko se jonain ovelana pointteritaulukkona vai?
I. Viimeinencheeshelmet.jr wrote:Olisi kaksi kysymystä
I. kun typeen luodaan uusi jäsen onko se ensimmäinen vai viimeinen?
II. kuinka lasketaan tietyn typen jäsenten määrä??
Code: Select all
i = 0
For t.TYPE = Each TYPE
i = i + 1
Next tCode: Select all
if exp=>100 then lvl=2
if exp=>200 then lvl=3
...
Innostuinpas tekemään oikein hienon esimerkin:Guest wrote:Miten saan levelit rpg peliin. Meinaan että en jaksaisi alkaa mitään
Eli miten saisin että aluks täytyy saada sata exp että ukosta tulee 2 lvl seuravaks pitää saada 2 kertaa toi äskenen määrä expointteja et ukos tulee taas 1 lvl isompi JNE. Ja siis että ne exp ain nollaantuis kun tulee se uus leveli. ? Kun kyllähän se noin kin käy mitä tuossa esimerkissä näytin mutta en jaksais mihinkää sataa asti noit kirjottaa. Ja ois helpompaa tehä niin että exp määrä aina kerrotaan vaikka sillä kahella , kun sit sais niit taitojakin siihen helpommin. Kait tää on mahdollista ?Code: Select all
if exp=>100 then lvl=2 if exp=>200 then lvl=3 ...
Ihmeellinen toi päärynä ->
Code: Select all
exp = 0
lvl = 1
exptonxt = 100
Repeat
exp = exp + KeyDown(57)
If exp >= exptonxt Then
exptonxt = exptonxt * 2
lvl = lvl + 1
exp = 0
EndIf
Text 10, 10, "Ekspaa: " + exp
Text 10, 30, "Seuraava leveli @: " + exptonxt
Text 10, 50, "Lvl: " + lvl
Color 255, 0, 0
Box 10, 70, (Float(exp)/Float(exptonxt))*100,10, 1
Color 255, 255, 255
Box 10, 70, 100, 10, 0
DrawScreen
ForeverTottakai se voi olla RPG vaikka ylhäältä olisikin kuvattu. Onhan ES4:Oblivionkin ekasta persoonasta kuvattu (ensisijaisesti). Ja hommaa graafikko, helpottaa elämää ( ellet ole niin ahne kuin minä, että haluat kaiken kunnian itsellesi ;D ) Ja pitäähän ne ylhäältäkuvatutkin animoida, jos haluaa hienoa jälkeä aikaan.Guest wrote:Kiitti ! Just tollast tarttinkin ! Projektini on ylhäältäpäin kuvattu rpg. Muutes onkos se enää rpg jos se on ylhäältäpäin ? Olen niin kehno graafikko että en jaksa animoida
heh . Ja nuo nimethän on silkroad onlinesta Kun voin kyllä tehdä 35 typeä , mutta en tiedä hidastaako se ?Ei ole mitään järkeä tehdä noin, kun voisit tehdä sen yhdellä typellä. Esimerkiksi näin:Guest wrote:Hitastaako se että on monta tyyppiä vaikka 35 ? Kun en tiedä miten tekisin . Teenkö vain monta typeä jokaisen vihun type . eli movia type, bear type reiren type graesp type jne . vai onko jotain tyyliä miten saisin ne kaikki vaikka yhteen typeen eli monitoimi type
Code: Select all
päivitäammukset:
For luoti.AMMUS = Each AMMUS
For vihu.VIHUT=Each VIHUT
MoveObject luoti\obj,6
//törmäystarkistus vihujen kanssa
If ObjectsOverlap (vihu\obj,luoti\obj,2) Then
DeleteObject luoti\obj 'poista objekti
Delete luoti 'poista luoti kokonaan
vihu\hp=vihu\hp-5
If vihu\hp<0 Then
DeleteObject vihu\obj
Delete vihu
EndIf
EndIf
Next vihu
Next luoti
ReturnAmmuksia käsitellessä käydään kaikki viholliset läpi, jonka takia käsitellään samaa jo valmiiksi tuhottua ammusta useamman kerran, joka aiheuttaa MAV:in.tuhoojabotti wrote:miksi tämä MAVittaa?
Code: Select all
For vihu.VIHUT=Each VIHUT
For luoti.AMMUS = Each AMMUS
..
next luoti
next vihuCode: Select all
For luoti.AMMUS = Each AMMUS
For vihu.VIHUT=Each VIHUT
MoveObject luoti\obj,6Code: Select all
päivitäammukset:
For luoti.AMMUS = Each AMMUS
MoveObject luoti\obj,6
For vihu.VIHUT=Each VIHUT
//törmäystarkistus vihujen kanssa
If ObjectsOverlap (vihu\obj,luoti\obj,2) Then
DeleteObject luoti\obj 'poista objekti
Delete luoti 'poista luoti kokonaan
vihu\hp=vihu\hp-5
If vihu\hp<0 Then
DeleteObject vihu\obj
Delete vihu
EndIf
EXIT
EndIf
Next vihu
Next luoti
ReturnCode: Select all
Type ENEMIES
Field obj As Integer
Field name As String
Field attack As Integer
Field defence As Integer
End Type
Code: Select all
Type Vidolliset
Field obj As Integer
Field nimi As String
Field attack As Integer
Field suojaus As Integer
Field hp
End Type
For x = 0 To 10
uusimovia.Viholliset = New(Viholliset)
uusimovia\obj\movia\2\1 = CloneObject(mastermovia)
PositionObject uusimovia\obj,rand(-screenwidth()/2,screenwidth()/2),rand(-screenheight()/2,screenheight()/2)
SetupCollision uusimovia\obj,kartta,2,4,2
SetupCollision uusimovia\obj,ukko,2,2,2
SetupCollision Oma,uusimovia\obj,2,2,2
uusimovia\hp=100
Next x
Code: Select all
Type VIHUT
Field obj
Field attack
Field defence
Field hp
End Type
For i = 0 To 9
vihu.VIHUT = New(VIHUT)
vihu\obj = CloneObject(mastervihu)
Positionobject vihu\obj, x, y
vihu\hp = 100
vihu\attack = Rand(5,10)
vihu\defence = Rand(5,10)
Next iCode: Select all
Type esineet
Field obj
Field vaikutus
End Type
