|
|
Post by anton2012 on Mar 10, 2024 20:33:25 GMT
so ive been working on my own rpg where you battle different monsters,so here's the problem:i want every round to reset the fight but idk how to do that
here is the code there is a "GameRound" variable and i want every round to reset the fight(like i mentioned)
so here is the code:
' Player Variables
NumXP = 0
NumGold = 0
YourHealth = 20 + (NumXP - 1) * 4
PlayerWepaon$ = "Stick"
PlayerArmor$ = "Bandage"
PlayerATK = 2
PlayerDF = 1
' Dummy Variables
DummySpare = 1
DummyHealth = 20
DummyHappy = 1
DummyName$ = "Dummy"
DummyDialogue$ = "..."
' Item Variables
Item1 = 2
Item1Name$ = "Crab Apple"
Item2 = 3
Item2Name$ = "Sea Tea"
Item3 = 1
Item3Name$ = "Cinnamon-Buttersctotch Pie"
Item4 = 5
Item4Name$ = "Monster Candy"
Item5 = 3
Item5Name$ = "Spider Donut"
' Game Variables
RandomDamege = 0
GameRound = 0
PRINT DummyName$; " HAS APEARED!"
PRINT "1. FIGHT"
PRINT "2. ACT"
PRINT "3. ITEM"
PRINT "4. MERCY"
PRINT DummyName$; ": " ;DummyDialogue$
DO
INPUT "Action:" ;actionChoice
SELECT CASE actionChoice
CASE 1
GOSUB 300
CASE 2
GOSUB 310
CASE 3
GOSUB 320
CASE 4
GOSUB 330
CASE ELSE
PRINT "Invalid choice. Please enter a number from the menu."
END SELECT
if YourHealth <= 0 then
Print "You loose"
end
end if
if DummyHappy = 0 then
PRINT DummyName$; " is smiling"
DummySpare=DummySpare=-1
end if
if DummyHealth <= 0 then
NumXP=NumXP+int(rnd(1)*2)
NumGold=NumGold+int(rnd(1)*10)
PRINT "YOU WON!"
PRINT "you got " ;NumXP; " XP"
PRINT "and " ;NumGold; " GOLD"
GameRound = GameRound + 1
end if
LOOP UNTIL TRUE
END
300 REM
PRINT DummyName$
RandomDamege=int(rnd(1)*5)
RandomDamege=RandomDamege+PlayerATK
PRINT "took "; RandomDamege; " damege!"
DummyHealth=DummyHealth - RandomDamege
PRINT "DummyHealth "; DummyHealth
RandomDamege=int(rnd(1)*5)
RandomDamege=int(rnd(1)*5)
PRINT "You got "; RandomDamege; " damege!"
RandomDamege=RandomDamege-PlayerDF
YourHealth=YourHealth-RandomDamege-PlayerDF
PRINT "YourHealth "; YourHealth
RETURN
310 REM
PRINT "you complement " ;DummyName$
PRINT "It seems flattered"
RandomDamege=int(rnd(1)*5)
PRINT "You got "; RandomDamege ; " damege!"
RandomDamege=RandomDamege-PlayerDF
YourHealth=YourHealth-RandomDamege-PlayerDF
PRINT "YourHealth "; YourHealth
RETURN
320 REM
PRINT "CHOSE ITEM"
PRINT "1. " ; Item1; " " ;Item1Name$; "(s)"
PRINT "2. " ; Item2; " " ;Item2Name$; "(s)"
PRINT "3. " ; Item3; " " ;Item3Name$; "(s)"
PRINT "4. " ; Item4; " " ;Item4Name$; "(s)"
PRINT "5. " ; Item5; " " ;Item5Name$; "(s)"
INPUT "Item:" ;itemChoice
SELECT CASE itemChoice
CASE 1
GOSUB 100
CASE 2
GOSUB 110
CASE 3
GOSUB 120
CASE 4
GOSUB 130
CASE 5
GOSUB 140
CASE ELSE
PRINT "you dont have this item..."
END SELECT
RETURN
100 REM
IF Item1>0 THEN
YourHealth=YourHealth+5
PRINT "Your Health ";YourHealth
Item1=Item1-1
ELSE
PRINT "you ran out of this item"
end if
RETURN
110 REM
IF Item2>0 THEN
YourHealth=YourHealth+7
PRINT "Your Health ";YourHealth
Item2=Item2-1
ELSE
PRINT "you ran out of this item"
end if
RETURN
120 REM
IF Item3>0 THEN
YourHealth=YourHealth+20
PRINT "Your Health ";YourHealth
Item3=Item3-1
ELSE
PRINT "you ran out of this item"
end if
RETURN
130 REM
IF Item4>0 THEN
YourHealth=YourHealth+3
PRINT "Your Health ";YourHealth
Item4=Item4-1
ELSE
PRINT "you ran out of this item"
end if
RETURN
140 REM
IF Item5>0 THEN
YourHealth=YourHealth+10
PRINT "Your Health ";YourHealth
Item5=Item5-1
ELSE
PRINT "you ran out of this item"
end if
RETURN
RETURN
330 REM
IF DummySpare>0 THEN
PRINT DummyName$; " is too angry to be spared"
RandomDamege=int(rnd(1)*5)
PRINT "You got "; RandomDamege; " damege!"
RandomDamege=RandomDamege-PlayerDF
YourHealth=YourHealth-RandomDamege-PlayerDF
PRINT "YourHealth "; YourHealth
end if
IF DummySpare=0 THEN
NumXP=NumXP+int(rnd(1)*2)
NumGold=NumGold+int(rnd(1)*10)
PRINT "YOU WON!"
PRINT DummyName$
PRINT "you got " ;NumXP; " XP"
PRINT "and " ;NumGold; " GOLD"
GameRound = GameRound + 1
end if
RETURN
|
|
|
|
Post by plus on Mar 10, 2024 21:28:51 GMT
? Does this end a round:
LOOP UNTIL TRUE
Don't you mean until done = TRUE, which BTW TRUE = 0 until you say something like TRUE = 1 (or -1)
So when the round loop is exited you want to goto [restart] where you reset all the variables for the next round and BTW before [restart] you set all the variables for the game that you don't want to reset each round.
repeat:
1 set the variables for the game that don't change each round
2 set a [restart] label
3 set the variabes that start a round
4 play the round in a loop
5 when exit round/loop see if game is over condition if so end it else goto [Restart]
To make your code much more readable:
1 Use descriptive labels like [Fight] instead of line number 100
SELECT CASE itemChoice
CASE 1
GOSUB 100
CASE 2
GOSUB 110
CASE 3
GOSUB 120
CASE 4
GOSUB 130
CASE 5
GOSUB 140
CASE ELSE
PRINT "you dont have this item..."
END SELECT
2 Just insert the GOSUB code between the cases! GOSUBs are better used when your code needs them from several different places.
3 when you start saying Item1, Item2, Item3 in variables it's time to setup an array
DIM ItemName$(10) ' arrays in JB start at index 0 but you can ignore itemName$(0) if you want item number to match how many items.
ItemName$(1) = "Crab apple" , ItemName$(2) = "Monster candy" or whatever...
b = b + ...
|
|
|
|
Post by plus on Mar 11, 2024 1:28:20 GMT
i got rid of all the gosubs because they were only used from one spot in program, then i fixed the game loop. Not knowing how the game is supposed to be played I did not know when to exit the round in a loop and possible trade off with other adversaries?
TRUE was never set, so never used by loop to end so I changed:
loop until done = 1 ' when player got gold or dummy had no health left.
' Player Variables
NumXP = 0
NumGold = 0
YourHealth = 20 + (NumXP - 1) * 4
PlayerWepaon$ = "Stick"
PlayerArmor$ = "Bandage"
PlayerATK = 2
PlayerDF = 1
' Dummy Variables
DummySpare = 1
DummyHealth = 20
DummyHappy = 1
DummyName$ = "Dummy"
DummyDialogue$ = "..."
' Item Variables
Item1 = 2
Item1Name$ = "Crab Apple"
Item2 = 3
Item2Name$ = "Sea Tea"
Item3 = 1
Item3Name$ = "Cinnamon-Buttersctotch Pie"
Item4 = 5
Item4Name$ = "Monster Candy"
Item5 = 3
Item5Name$ = "Spider Donut"
' Game Variables
RandomDamege = 0
GameRound = 0
Do
Print
Print DummyName$; " HAS APEARED!"
Print "1. FIGHT"
Print "2. ACT"
Print "3. ITEM"
Print "4. MERCY"
Print DummyName$; ": "; DummyDialogue$
Input "Action:"; actionChoice
Select Case actionChoice
Case 1 'fight
Print DummyName$
RandomDamege = Int(Rnd(1) * 5)
RandomDamege = RandomDamege + PlayerATK
Print "took "; RandomDamege; " damege!"
DummyHealth = DummyHealth - RandomDamege
Print "DummyHealth "; DummyHealth
RandomDamege = Int(Rnd(1) * 5)
RandomDamege = Int(Rnd(1) * 5)
Print "You got "; RandomDamege; " damege!"
RandomDamege = RandomDamege - PlayerDF
YourHealth = YourHealth - RandomDamege - PlayerDF
Print "YourHealth "; YourHealth
Case 2 'act
Print "you complement "; DummyName$
Print "It seems flattered"
RandomDamege = Int(Rnd(1) * 5)
Print "You got "; RandomDamege; " damege!"
RandomDamege = RandomDamege - PlayerDF
YourHealth = YourHealth - RandomDamege - PlayerDF
Print "YourHealth "; YourHealth
Case 3 ' item
Print "CHOSE ITEM"
Print "1. "; Item1; " "; Item1Name$; "(s)"
Print "2. "; Item2; " "; Item2Name$; "(s)"
Print "3. "; Item3; " "; Item3Name$; "(s)"
Print "4. "; Item4; " "; Item4Name$; "(s)"
Print "5. "; Item5; " "; Item5Name$; "(s)"
Input "Item:"; itemChoice
Select Case itemChoice
Case 1
If Item1 > 0 Then
YourHealth = YourHealth + 5
Print "Your Health "; YourHealth
Item1 = Item1 - 1
Else
Print "you ran out of this item"
End If
Case 2
If Item2 > 0 Then
YourHealth = YourHealth + 7
Print "Your Health "; YourHealth
Item2 = Item2 - 1
Else
Print "you ran out of this item"
End If
Case 3
If Item3 > 0 Then
YourHealth = YourHealth + 20
Print "Your Health "; YourHealth
Item3 = Item3 - 1
Else
Print "you ran out of this item"
End If
Case 4
If Item4 > 0 Then
YourHealth = YourHealth + 3
Print "Your Health "; YourHealth
Item4 = Item4 - 1
Else
Print "you ran out of this item"
End If
Case 5
If Item5 > 0 Then
YourHealth = YourHealth + 10
Print "Your Health "; YourHealth
Item5 = Item5 - 1
Else
Print "you ran out of this item"
End If
Case Else
Print "you dont have this item..."
End Select
Case 4 'mercy
If DummySpare > 0 Then
Print DummyName$; " is too angry to be spared"
RandomDamege = Int(Rnd(1) * 5)
Print "You got "; RandomDamege; " damege!"
RandomDamege = RandomDamege - PlayerDF
YourHealth = YourHealth - RandomDamege - PlayerDF
Print "YourHealth "; YourHealth
End If
If DummySpare = 0 Then
NumXP = NumXP + Int(Rnd(1) * 2)
NumGold = NumGold + Int(Rnd(1) * 10)
Print "YOU WON!"
Print DummyName$
Print "you got "; NumXP; " XP"
Print "and "; NumGold; " GOLD"
GameRound = GameRound + 1
End If
Case Else
Print "Invalid choice. Please enter a number from the menu."
End Select
If YourHealth <= 0 Then
Print "You loose"
done = 1
End If
If DummyHappy = 0 Then
Print DummyName$; " is smiling"
DummySpare = DummySpare - 1 ' dummy spare ???
End If
If DummyHealth <= 0 Then
NumXP = NumXP + Int(Rnd(1) * 2)
NumGold = NumGold + Int(Rnd(1) * 10)
Print "YOU WON!"
Print "you got "; NumXP; " XP"
Print "and "; NumGold; " GOLD"
done = 1
End If
Loop Until done
b = b + ...
|
|
|
|
Post by tsh73 on Mar 11, 2024 14:36:50 GMT
Hello
I think all is needed is to generate new enemy after
GameRound = GameRound + 1
So I created a sub [newDummy] and call it there.
I randomized DummyName$ and DummyDialogue$, also make enemy happy 30% chance
(just wanted to see happy enemy).
Probably I did something wrong.
It said
Werewolf is smiling
and that's really frightened me...
EDIIT
What is
DummySpare=DummySpare=-1
Some clever formula? Or just an error?
' Player Variables
NumXP = 0
NumGold = 0
YourHealth = 20 + (NumXP - 1) * 4
PlayerWepaon$ = "Stick"
PlayerArmor$ = "Bandage"
PlayerATK = 2
PlayerDF = 1
' Dummy Variables
DummySpare = 1
DummyHealth = 20
DummyHappy = 1
DummyName$ = "Dummy"
DummyDialogue$ = "..."
' Item Variables
Item1 = 2
Item1Name$ = "Crab Apple"
Item2 = 3
Item2Name$ = "Sea Tea"
Item3 = 1
Item3Name$ = "Cinnamon-Buttersctotch Pie"
Item4 = 5
Item4Name$ = "Monster Candy"
Item5 = 3
Item5Name$ = "Spider Donut"
' Game Variables
RandomDamege = 0
GameRound = 0
PRINT DummyName$; " HAS APEARED!"
PRINT "1. FIGHT"
PRINT "2. ACT"
PRINT "3. ITEM"
PRINT "4. MERCY"
PRINT DummyName$; ": " ;DummyDialogue$
DO
INPUT "Action:" ;actionChoice
SELECT CASE actionChoice
CASE 1
GOSUB 300
CASE 2
GOSUB 310
CASE 3
GOSUB 320
CASE 4
GOSUB 330
CASE ELSE
PRINT "Invalid choice. Please enter a number from the menu."
PRINT "(1. FIGHT 2. ACT 3. ITEM 4. MERCY)"
END SELECT
if YourHealth <= 0 then
Print "You loose"
end
end if
if DummyHappy = 0 then
PRINT DummyName$; " is smiling"
DummySpare=DummySpare=-1
end if
if DummyHealth <= 0 then
NumXP=NumXP+int(rnd(1)*2)
NumGold=NumGold+int(rnd(1)*10)
PRINT "YOU WON!"
PRINT "you got " ;NumXP; " XP"
PRINT "and " ;NumGold; " GOLD"
GameRound = GameRound + 1
gosub [newDummy]
end if
LOOP UNTIL TRUE
END
300 REM
PRINT DummyName$
RandomDamege=int(rnd(1)*5)
RandomDamege=RandomDamege+PlayerATK
PRINT "took "; RandomDamege; " damege!"
DummyHealth=DummyHealth - RandomDamege
PRINT "DummyHealth "; DummyHealth
RandomDamege=int(rnd(1)*5)
RandomDamege=int(rnd(1)*5)
PRINT "You got "; RandomDamege; " damege!"
RandomDamege=RandomDamege-PlayerDF
YourHealth=YourHealth-RandomDamege-PlayerDF
PRINT "YourHealth "; YourHealth
RETURN
310 REM
PRINT "you complement " ;DummyName$
PRINT "It seems flattered"
RandomDamege=int(rnd(1)*5)
PRINT "You got "; RandomDamege ; " damege!"
RandomDamege=RandomDamege-PlayerDF
YourHealth=YourHealth-RandomDamege-PlayerDF
PRINT "YourHealth "; YourHealth
RETURN
320 REM
PRINT "CHOSE ITEM"
PRINT "1. " ; Item1; " " ;Item1Name$; "(s)"
PRINT "2. " ; Item2; " " ;Item2Name$; "(s)"
PRINT "3. " ; Item3; " " ;Item3Name$; "(s)"
PRINT "4. " ; Item4; " " ;Item4Name$; "(s)"
PRINT "5. " ; Item5; " " ;Item5Name$; "(s)"
INPUT "Item:" ;itemChoice
SELECT CASE itemChoice
CASE 1
GOSUB 100
CASE 2
GOSUB 110
CASE 3
GOSUB 120
CASE 4
GOSUB 130
CASE 5
GOSUB 140
CASE ELSE
PRINT "you dont have this item..."
END SELECT
RETURN
100 REM
IF Item1>0 THEN
YourHealth=YourHealth+5
PRINT "Your Health ";YourHealth
Item1=Item1-1
ELSE
PRINT "you ran out of this item"
end if
RETURN
110 REM
IF Item2>0 THEN
YourHealth=YourHealth+7
PRINT "Your Health ";YourHealth
Item2=Item2-1
ELSE
PRINT "you ran out of this item"
end if
RETURN
120 REM
IF Item3>0 THEN
YourHealth=YourHealth+20
PRINT "Your Health ";YourHealth
Item3=Item3-1
ELSE
PRINT "you ran out of this item"
end if
RETURN
130 REM
IF Item4>0 THEN
YourHealth=YourHealth+3
PRINT "Your Health ";YourHealth
Item4=Item4-1
ELSE
PRINT "you ran out of this item"
end if
RETURN
140 REM
IF Item5>0 THEN
YourHealth=YourHealth+10
PRINT "Your Health ";YourHealth
Item5=Item5-1
ELSE
PRINT "you ran out of this item"
end if
RETURN
RETURN
330 REM
IF DummySpare>0 THEN
PRINT DummyName$; " is too angry to be spared"
RandomDamege=int(rnd(1)*5)
PRINT "You got "; RandomDamege; " damege!"
RandomDamege=RandomDamege-PlayerDF
YourHealth=YourHealth-RandomDamege-PlayerDF
PRINT "YourHealth "; YourHealth
end if
IF DummySpare=0 THEN
NumXP=NumXP+int(rnd(1)*2)
NumGold=NumGold+int(rnd(1)*10)
PRINT "YOU WON!"
PRINT DummyName$
PRINT "you got " ;NumXP; " XP"
PRINT "and " ;NumGold; " GOLD"
GameRound = GameRound + 1
gosub [newDummy]
end if
RETURN
[newDummy]
'reset enemy params. Could use RND
' Dummy Variables
DummySpare = 1
DummyHealth = 20
DummyHappy = rnd(0)<0.3 '30% chance
'some user defined function to randomize text
DummyName$ = randomWord$("Dummy,Werewolf,Goblin", ",")
DummyDialogue$ = randomWord$("...,Grrrr!!,Awww-w!,I'll get ya!", ",")
'show someone new is coming
PRINT "--------------------------------"
PRINT "GameRound ";GameRound
PRINT DummyName$; " HAS APEARED!"
if DummyHappy then print " (UN-happy one)" 'seems to be 0 == evil one. Or happy for wrong reasons, looking from my side
PRINT DummyName$; ": " ;DummyDialogue$
RETURN
function randomWord$(list$, delim$)
'get random word from a list$
'first, count words
token$ = "TOKEN"
i = 0
while token$<>""
i=i+1
token$ = word$(list$, i, delim$)
wend
count = i-1
'then, take random word
ind = int(rnd(0)*count)+1
randomWord$ = word$(list$, ind, delim$)
end function
|
|
|
|
Post by anton2012 on Mar 11, 2024 19:01:27 GMT
thanks!and btw how to make custom commands like i want to make it so that every 5 rounds you visit the shop where you can buy healing items with gold!
|
|
|
|
Post by tsh73 on Mar 11, 2024 20:18:06 GMT
If GameRound mod 5=0 then
|
|
|
|
Post by anton2012 on Mar 11, 2024 20:26:46 GMT
thanks!
|
|
|
|
Post by anton2012 on Mar 13, 2024 21:07:16 GMT
how to make custom comands
|
|
|
|
Post by tsh73 on Mar 14, 2024 8:36:51 GMT
If you mean SUB and FUNCTION,
then look at LB Help
•Language Syntax and Usage
••Logic and Structure
•••Functions and Subroutines
Basically, it's just a piece of code designed to do something,
firmatted so we can use it by name.
It is wrapped in special lines
(sub nameOYourSub params / end sub,
function nameOYourFunction(params)/ end function)
which gives us ability to call it by name.
In this thay, it's about the same as GOSUB block - it has a label in front, it has RETURN in the end, and you call it by GOSUB label
But it has benefits
1) All variables you use inside sub/functions are local (new ones, existing in that block of code)
So you cannot spoil value of "i" in mail program by having loop by "i" in a sub.
2) "params" allows to pass parameters into that piece of code. So it could do different things depending on values passed.
|
|
|
|
Post by Rod on Mar 14, 2024 15:38:06 GMT
Do you mean
Take
Fight
Run
Go to shop
So are these user choices or commands or are you trying to create new programming functions?
|
|
|
|
Post by anton2012 on Mar 31, 2024 20:49:09 GMT
hello again
how can i 'overwrite' text?
i want to make a cool static effect where a word is constantly changing like a static screen
and btw how can i genarate a random number and then use the "CHR$()" comand to turn it into a letter?
|
|
|
|
Post by plus on Apr 1, 2024 2:21:17 GMT
hello again how can i 'overwrite' text? i want to make a cool static effect where a word is constantly changing like a static screen and btw how can i genarate a random number and then use the "CHR$()" comand to turn it into a letter? a little demo while 1
scan
locate 1, 1
Print "Hello "+ chr$(int(rnd(1)*26) + 65)+ chr$(int(rnd(1)*26) + 97)+ chr$(int(rnd(1)*26) + 97)+ chr$(int(rnd(1)*26) + 97)
call pause 300
wend
sub pause mil 'tsh version has scan built-in
t0 = time$("ms")
while time$("ms") < t0 + mil : scan : wend
end sub
b = b + ... |
|
|
|
Post by tsh73 on Apr 1, 2024 8:56:35 GMT
Playing along - word is revealed
Name$="John Doe"
for i = 0 to len(Name$)
for j = 1 to 10
scan
locate 1, 1
'fixed part
Print "Hello "+left$(Name$, i); 'increases with i
'random part
for k = 1 to len(Name$)-i
print chr$(rnd(0)*26+asc("a"));
next
call pause 50
next
next
print
print "Welcome to the show!"
sub pause mil 'tsh version has scan built-in
t0 = time$("ms")
while time$("ms") < t0 + mil : scan : wend
end sub
|
|
|
|
Post by Rod on Apr 1, 2024 14:51:12 GMT
|
|
