tglogo.png
0 LIKES

Snippet


mIRC duel game by dronez4

In Category General IRC Posted by Snippets On 12/06/23
Tags: duel game dronez4 

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.

this is called the DUEL game:
Look at the pastebin to see what the game is like.
https://pastebin.com/ep0Dzhed
at the moment the commands are:
[18:08:54] !help
[18:08:55] [Duel Commands]
[18:08:55] !duel, !accept, !attack, !damage, !duelstats
i'll show you what each command does
[!duel]
[18:04:58] !duel wallrunner
[18:04:59] [DUEL]: dronez4 has dueled wallrunner [Type !accept to accept dronez4's duel]
[!accept]
[18:05:02] !accept
[18:05:03] [DUEL]: wallrunner accepted dronez4's duel
[18:05:03] [Max Damage]: dronez4: 40 - wallrunner: 40
[18:05:03] [HP:200] - dronez4
[18:05:03] [HP:200] - wallrunner
[18:05:04] [DUEL]: dronez4's turn
[!attack]
[18:05:14] !attack wallrunner
[18:05:14] [ATTACK]: dronez4 hit 11 on wallrunner
[18:05:14] [HP:200] - dronez4
[18:05:14] [HP:189] - wallrunner
[18:05:14] [DUEL]: wallrunner's turn
[!damage]
[18:11:41] !damage dronez4
[18:11:42] [Damage Output]: Maximum amount of damage dronez4 has: [Damage: 40]
[!duelstats]
[18:12:26] !duelstats dronez4
[18:12:27] [Duel Stats]: dronez4 - (Max damage: 40) (Total HP: 200) (Wins: ) (loses: )
[the wins/loses are empty if you have won/lost 0 games]

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
  }
}


Comments 0


Please note that on our website we use cookies necessary for the functioning of our website, cookies that optimize the performance. To learn more about our cookies, how we use them and their benefits, please read our Cookie Policy.
I Understand