Hi guys so i'm making a simple command line game, i've finished making a standard one, theres so much more to add but for now i'll show you what its like.
I am currently in the stage of adding more features, way more features, feel free to give me any ideas? atm i've got a list
hp [DONE]
damage [DONE]
upgrades [DONE]
Round start - Round end [DONE]
Special power - skip [not sure about implimenting yet]
Store point system [Coming soon]
Stun [Coming soon]
Critical hit [coming soon]
Heal [Coming soon]
Protection spell [Coming soon]
;works for only 1 channel at the moment, so add a specific channel if need be.
on *:text:*:#:{
if ($1 == !duel) && ($2 ison $chan) {
if (%duel == on) { msg $chan 7[DUEL]: There's already a duel going on }
else {
msg $chan 7[DUEL]: $nick has dueled $2 [Type !accept to accept $nick $+ 's duel]
set %duel on
set %duelnick1 $nick
set %duelnick2 $2
}
}
if ($1 == !accept) {
if (%duel == on) {
remini duelhp.ini hp %duelnick1
remini duelhp.ini hp %duelnick2
set %duelturn %duelnick1
set %duelnotturn %duelnick2
msg $chan 7[DUEL]: %duelnick2 accepted %duelnick1 $+ 's duel
msg $chan 4[Max Damage]: %duelnick1 $+ :13 $calc($readini(duelstats.ini, stats, %duelnick1) + 40) 4- %duelnick2 $+ :13 $calc($readini(duelstats.ini, stats, %duelnick2) + 40)
timer 1 2 msg $chan 7[DUEL]: %duelturn $+ 's turn
if ($readini(addhp.ini, hp, %duelnick1) != $null) {
timer 1 1 writeini duelhp.ini hp %duelnick1 $calc(200 + $readini(addhp.ini, hp, %duelnick1))
msg $chan 4[HP:13 $+ $calc(200 + $readini(addhp.ini, hp, %duelnick1)) $+ 4] - %duelnick1
}
if ($readini(addhp.ini, hp, %duelnick2) != $null) {
timer 1 1 writeini duelhp.ini hp %duelnick2 $calc(200 + $readini(addhp.ini, hp, %duelnick2))
msg $chan 4[HP:13 $+ $calc(200 + $readini(addhp.ini, hp, %duelnick2)) $+ 4] - %duelnick2
}
if ($readini(duelhp.ini, hp, %duelnick1)) {
msg $chan 4[HP:13 $+ $calc($readini(duelhp.ini, hp, %duelnick1) + $readini(addhp.ini, hp, %duelnick1)) $+ 4] - %duelnick1
}
else {
if ($readini(addhp.ini, hp, %duelnick1) == $null) {
writeini duelhp.ini hp %duelnick1 200
msg $chan 4[HP:132004] - %duelnick1
}
}
if ($readini(duelhp.ini, hp, %duelnick2)) {
msg $chan 4[HP:13 $+ $calc($readini(duelhp.ini, hp, %duelnick2) + $readini(addhp.ini, hp, %duelnick2)) $+ 4] - %duelnick2
}
else {
if ($readini(addhp.ini, hp, %duelnick2) == $null) {
writeini duelhp.ini hp %duelnick2 200
msg $chan 4[HP:132004] - %duelnick2
}
}
}
}
if ($1 == !attack) {
if (%duel == on) {
if ($nick isin %duelturn) {
set %randomhit $calc($rand(10,40) + $readini(duelstats.ini, stats, %duelturn))
if ($chr(45) isin $calc($readini(duelhp.ini, hp, %duelnotturn) - %randomhit)) {
set %prize $rand(1,5)
set %prize1 $rand(1,7)
set %duel off
msg $chan 4[ATTACK]:9 %duelturn hit13 %randomhit 9on %duelnotturn
writeini duelhp.ini hp %duelnotturn $calc($readini(duelhp.ini, hp, %duelnotturn) - %randomhit)
msg $chan 4[HP:13 $+ $readini(duelhp.ini, hp, %duelnick1) $+ 4] - %duelnick1
msg $chan 4[HP:13 $+ $readini(duelhp.ini, hp, %duelnick2) $+ 4] - %duelnick2
msg $chan 9[Winner]: %duelturn won the duel [Prize: Added %prize damage + %prize1 HP to %duelturn $+ 's statistic]
writeini winsnlose.ini win %duelturn $calc($readini(winsnlose.ini, win, %duelturn) + 1)
writeini winsnlose.ini lose %duelnotturn $calc($readini(winsnlose.ini, win, %duelnotturn) + 1)
remini duelhp.ini hp %duelnick1
remini duelhp.ini hp %duelnick2
if ($readini(addhp.ini, hp, %duelturn) == $null) {
writeini addhp.ini hp %duelturn %prize1
}
else {
writeini addhp.ini hp %duelturn $calc($readini(addhp.ini, hp, %duelturn) + %prize1)
}
if ($readini(duelstats.ini, stats, %duelturn) != $null) {
writeini duelstats.ini stats %duelturn $calc($readini(duelstats.ini, stats, %duelturn) + %prize)
halt
}
else {
writeini duelstats.ini stats %duelturn %prize
halt
}
}
msg $chan 4[ATTACK]:9 %duelturn hit13 %randomhit 9on %duelnotturn
writeini duelhp.ini hp %duelnotturn $calc($readini(duelhp.ini, hp, %duelnotturn) - %randomhit)
msg $chan 4[HP:13 $+ $readini(duelhp.ini, hp, %duelnick1) $+ 4] - %duelnick1
msg $chan 4[HP:13 $+ $readini(duelhp.ini, hp, %duelnick2) $+ 4] - %duelnick2
set %duelnotturn1 %duelnotturn
set %duelnotturn %duelturn
set %duelturn %duelnotturn1
msg $chan 7[DUEL]: %duelturn $+ 's turn
}
else {
msg $chan 7[DUEL]: It is %duelturn $+ 's turn
}
}
}
if ($1 == !damage) && ($2 == $null) {
msg $chan 9[Damage Output]: Maximum amount of damage $nick has: [Damage:13 $calc($readini(duelstats.ini, stats, $nick) + 40) $+ 9]
}
if ($1 == !damage) && ($2 != $null) {
msg $chan 9[Damage Output]: Maximum amount of damage $2 has: [Damage:13 $calc($readini(duelstats.ini, stats, $2) + 40) $+ 9]
}
if ($1 == !duelstats) {
if ($2 != $null) {
msg $chan 9[Duel Stats]: $2 - (Max damage:13 $calc($readini(duelstats.ini, stats, $2) + 40) $+ 9) (Total HP:13 $calc($readini(addhp.ini, hp, $2) + 200) $+ 9) 9(Wins:13 $readini(winsnlose.ini, win, $2) $+ 9) 9(loses:13 $readini(winsnlose.ini, lose, $2) $+ 9)
}
else {
msg $chan 9[Duel Stats]: $nick - (Max damage:13 $calc($readini(duelstats.ini, stats, $nick) + 40) $+ 9) (Total HP:13 $calc($readini(addhp.ini, hp, $nick) + 200) $+ 9) 9(Wins:13 $readini(winsnlose.ini, win, $nick) $+ 9) 9(loses:13 $readini(winsnlose.ini, lose, $nick) $+ 9)
}
}
if ($1 == !help) {
msg $chan [Duel Commands]
msg $chan !duel, !accept, !attack, !damage, !duelstats
}
}
Hahahah me too! i'm actually working on more! you should definitely come by at irc.rencorner.com i'm always there maybe we can work on something together :p