;Unnamed Battle bot made by Alkora(Itsuki_Koizumi) (Server: irc.animelab.com channel #Naruto_Arena OR irc.immortal-anime.net channel #Truth_Or_Dare) and ][ (Server: irc.immortal-anime.net channel #Truth_Or_Dare)
;Start
on *:TEXT:start:#allaboutsp: {
msg $chan Welcome to Unnamed Game 2.0 (Beta).
if (!$readini(ugc.ini,chr,list)) { msg $chan Error - No Character Plugin detected. | return }
msg $chan Characters: $readini(ugc.ini,chr,list)
msg $chan Say chr <character> to choose a character.
}
on *:TEXT:chr *:#allaboutsp: {
if (!$readini(ugc.ini,$2-,name)) {
msg $chan That character doesn't exist.
}
writeini ugs.ini $nick chr $readini(ugc.ini,$2-,name)
if ($readini(ugs.ini,$nick,LVL) { goto AlreadyHasStats }
writeini ugs.ini $nick Attack 0
writeini ugs.ini $nick Defense 0
writeini ugs.ini $nick Speed 0
writeini ugs.ini $nick HP 200
writeini ugs.ini $nick HPMax 200
writeini ugs.ini $nick LVL 1
writeini ugs.ini $nick EXP 0
writeini ugs.ini $nick Nextlvl 100
writeini ugs.ini $nick Money 0
writeini ugs.ini $nick Fighting No
:AlreadyHasStats
writeini ugs.ini $nick ATK1 $readini(ugc.ini,$2-,ATK1)
writeini ugs.ini $nick ATK2 $readini(ugc.ini,$2-,ATK2)
writeini ugs.ini $nick ATK3 $readini(ugc.ini,$2-,ATK3)
writeini ugs.ini $nick ATK4 $readini(ugc.ini,$2-,ATK4)
msg $chan Okay. What is your gender? (Male, Female)
.auser Gen $nick
}
on Gen:TEXT:*:#allaboutsp: {
if (male == $1-) {
msg $chan Your gender has been set to: 'Male'
writeini ugs.ini $nick Gender him
msg $chan You are now registered with the character: $readini(ugs.ini,$nick,chr) $+ .
.ruser $nick
}
if (Female == $1-) {
msg $chan Your gender has been set to: 'Female'
writeini ugs.ini $nick Gender her
msg $chan You are now registered with the character: $readini(ugs.ini,$nick,chr) $+ .
.ruser $nick
}
}
on *:TEXT:stats*:#allaboutsp: {
if (!$2-) { set %temp.nick $nick | goto continue }
if ($2 ison $chan) { set %temp.nick $2 }
:continue
if (!$readini(ugs.ini,%temp.nick,CHR)) { msg $chan You/They are not registered. Say: Start | return }
if (!$readini(ugs.ini,%temp.nick,HPMax)) { msg $chan Error - There is a problem with your/their stats. Say start to re-register. | return }
msg $chan (Character: $readini(ugs.ini,%temp.nick,CHR) $+ ) (HP: $readini(ugs.ini,%temp.nick,HP) $+ / $+ $readini(ugs.ini,%temp.nick,HPMax) $+ ) (Level: $readini(ugs.ini,%temp.nick,LVL) $+ ) (EXP: $readini(ugs.ini,%temp.nick,EXP) $+ ) (Attack: $readini(ugs.ini,%temp.nick,Attack) $+ ) (Defense: $readini(ugs.ini,%temp.nick,Defense) $+ ) (Fighting: $readini(ugs.ini,%temp.nick,fighting) $+ )
msg $chan Attacks: (1: $readini(ugs.ini,%temp.nick,ATK1) $+ ) (2: $readini(ugs.ini,%temp.nick,ATK2) $+ ) (3: $readini(ugs.ini,%temp.nick,ATK3) $+ ) (4: $readini(ugs.ini,%temp.nick,ATK4) $+ )
}
on *:TEXT:Help*:#allaboutsp: {
if (!$2) {
notice $nick Topics: Battling - Registration - Store - Stats - Adding more soon! | return
notice $nick Syntax: Help <topic>
}
if ($2 == Battling) {
notice $nick To enter the battle field, type Fight. To lock on to someone else in the battlefield, type lo <nick>. To attack someone while locked on to them, type Atk ?-4>
notice $nick Locking on to someone will take some time (a few seconds), but it has a few benefits:
notice $nick #1: You don't have to say the person's name when attacking. #2: Your attack has a much lower chance of missing.
notice $nick If you just spray-and-pray with atk ?-4> <nick>, you can attack multiple people quickly, but you lose accuracy.
}
if ($2 == Registration) {
notice $nick To start registering, type Start.
}
if ($2 == Store) {
notice $nick To see whats in the store, type Store.
}
if ($2 == Stats) {
notice $nick To view you stats, type Stats.
}
}
on *:TEXT:fight:#allaboutsp: {
if (!$readini(ugs.ini,$nick,CHR)) { msg $chan You are not registered. Say: Start | return }
if ($readini(ugs.ini,$nick,fighting) == yes) { msg $chan $nick $+ ( $+ $readini(ugs.ini,$nick,chr) $+ ) starts running from the battle field.. | timer 1 10 lfield $chan $nick | return }
writeini ugs.ini $nick fighting Yes
msg $chan $nick $+ ( $+ $readini(ugs.ini,$nick,chr) $+ ) has entered the field! To lock on to $readini(ugs.ini,$nick,Gender) say lo <nick>.
}
alias lfield {
writeini ugs.ini $2 fighting No
writeini ugs.ini %temp.lo HP $readini(ugs.ini,%temp.lo,HPMax)
msg $1 $2 $+ ( $+ $readini(ugs.ini,$2,chr) $+ ) has escaped from the battle field!
}
on *:TEXT:lo*:#allaboutsp: {
if ($1 != lo) { return }
if (!$2-) && (!$readini(ugs.ini,$nick,lo)) { msg $chan Error - Say Help Battling to learn how to lock on. | return }
if (!$2-) && ($readini(ugs.ini,$nick,lo)) { msg $chan $nick has stopped locking on to $readini(ugs.ini,$nick,lo) $+ . | remini ugs.ini $nick lo | return }
if ($2 !ison $chan) { msg $chan Error - That person is not here. | return }
if ($readini(ugs.ini,$nick,fighting) != Yes) { msg $chan Error - You are not in the field. Say: Fight | return }
if ($readini(ugs.ini,$2,fighting) != Yes) { msg $chan Error - That person is not in the field. Say: Fight | return }
msg $chan $nick begins targeting $2 $+ ..
timer 1 5 lo $chan $nick $2
}
alias lo {
writeini ugs.ini $2 lo $3
msg $1 $2 $+ ( $+ $readini(ugs.ini,$2,chr) $+ ) has locked on to $3 $+ ( $+ $readini(ugs.ini,$3,chr) $+ ) $+ ... They can now say ATK <number> to attack $readini(ugs.ini,$nick,Gender) $+ .
}
on *:TEXT:atk *:#allaboutsp: {
if (!$readini(ugs.ini,$nick,lo)) {
if (!$3) || ($4-) || ($3 !ison $chan) || ($readini(ugs.ini,$3,fighting) != Yes) { msg $chan Error - Say Help Battling to learn how to attack | return }
set %temp.lo $3
set %temp.miss 5
goto continue
}
if ($3) { msg $chan Error - You are already locked on to someone. Say lo to stop, or lo <nick> to lock on to someone else. | return }
set %temp.lo $readini(ugs.ini,$nick,lo)
set %temp.miss 3
:continue
if ($readini(ugs.ini,$nick,fighting) != Yes) { msg $chan Error - You are not in the field. Say: Fight | return }
if ($readini(ugs.ini,%temp.lo,fighting) != Yes) { msg $chan Error - That person is not in the field. Say: Fight | return }
if (%temp.lo !ison $chan) { msg $chan Error - That person has left/isn't here. | return }
if ($readini(ugs.ini,$nick,attacking) == Yes) { msg $chan Error - You are already attacking, $nick $+ . | return }
if ($2 < 0) || ($2 > 4) || ($2 !isnum) { msg $chan Error - Say Help Battling to learn how to attack | return }
writeini ugs.ini $nick attacking Yes
timer 1 10 datk $chan $nick
set %temp.hom $rand(1,%temp.miss)
if (%temp.hom == 1) {
msg $chan $nick $+ ( $+ $readini(ugs.ini,$nick,chr) $+ ) attacks %temp.lo $+ ( $+ $readini(ugs.ini,%temp.lo,chr) $+ ) with %temp.atk $+ .. but misses!
return
}
set %temp.atk $readini(ugs.ini,$nick,atk $+ $2)
set %tmp.exdmg $rand(1,23)
set %tmp.dmg $calc($readini(ugs.ini,$nick,Attack) - $readini(ugs.ini,%temp.lo,defense) + %tmp.exdmg)
if (%temp.dmg < 1) { set %temp.dmg 1 }
writeini ugs.ini %temp.lo HP $calc($readini(ugs.ini,%temp.lo,HP) - %temp.dmg)
if ($readini(ugs.ini,%temp.lo,HP) < 1) { writeini ugs.ini %temp.lo HP 0 }
msg $chan $readini(ugs.ini,$nick,HP) - $nick $+ ( $+ $readini(ugs.ini,$nick,chr) $+ ) $+ 's health - News: $nick $+ ( $+ $readini(ugs.ini,$nick,chr) $+ ) attacks %temp.lo with %temp.atk $+ !
msg $chan $readini(ugs.ini,%temp.lo,HP) - %temp.lo $+ 's health
set %temp.llo $rand(1,5)
if (%temp.llo == 1) && ($readini(ugs.ini,%temp.lo,lo)) {
remini ugs.ini %temp.lo lo
msg $chan %temp.lo $+ ( $+ $readini(ugs.ini,%temp.lo,chr) $+ ) has lost their lock on (to $readini(ugs.ini,%temp.lo,lo) $+ ) as a result of the attack.
return
}
if ($readini(ugs.ini,%temp.lo,HP) < 1) {
writeini ugs.ini %temp.lo fighting No
writeini ugs.ini %temp.lo HP $readini(ugs.ini,%temp.lo,HPMax)
set %temp.expgain $rand(1,40)
writeini ugs.ini $nick EXP $calc($readini(ugs.ini,$nick,EXP) + %temp.expgain)
msg $chan %temp.lo $+ ( $+ $readini(ugs.ini,%temp.lo,chr) $+ ) has died! $nick $+ ( $+ $readini(ugs.ini,$nick,chr) $+ ) gets %temp.expgain EXP for winning.
remini ugs.ini %temp.lo lo
}
if ($readini(ugs.ini,$nick,EXP) >= $readini(ugs.ini,$nick,Nextlvl)) {
msg $chan $nick $+ ( $+ $readini(ugs.ini,$nick,chr) $+ ) has just grown to level $calc($readini(ugs.ini,$nick,LVL) + 1)
writeini ugs.ini $nick Attack $calc($readini(ugs.ini,$nick,Attack) + 15)
writeini ugs.ini $nick Defense $calc($readini(ugs.ini,$nick,Defense) + 10)
writeini ugs.ini $nick HPMax $calc($readini(ugs.ini,$nick,HPMax) + 100)
writeini ugs.ini $nick LVL $calc($readini(ugs.ini,$nick,LVL) + 1)
writeini ugs.ini $nick EXP 0
writeini ugs.ini $nick Nextlvl $calc($readini(ugs.ini,$nick,Nextlvl) + 100)
writeini ugs.ini $nick Money $calc($readini(ugs.ini,$nick,Money) + 300)
writeini ugs.ini $nick HP $readini(ugs.ini,$nick,HPMax)
}
}
alias datk {
writeini ugs.ini $2 attacking No
msg $1 $2 $+ ( $+ $readini(ugs.ini,$2,chr) $+ ) has finished $readini(ugs.ini,$nick,Gender) attack.
}
on *:TEXT:Store:#allaboutsp: {
notice $nick Now listing store items..
notice $nick Health Boost - 800
notice $nick Health Potion - 200
notice $nick Attack Boost - 900
notice $nick Defense Boost - 750
notice $nick Finished listing store items..
notice $nick Syntax: Buy <item>
}
on *:TEXT:Buy*:#allaboutsp: {
if ($2- == Health Boost) {
if ($readini(ugs.ini,$nick,money) <= 800) {
notice $nick Purchased Health Boost
writeini ugs.ini $nick money $calc($readini(ugs.ini,$nick,money) - 800)
notice $nick Syntax: USE <item>
writeini ugs.ini $nick items $readini(ugs.ini,$nick,items) $+ Health Boost,
}
else { notice $nick You dont have enough money! }
}
if ($2- == Health Potion) {
if ($readini(ugs.ini,$nick,money) <= 200) {
notice $nick Purchased Health Potion
writeini ugs.ini $nick money $calc($readini(ugs.ini,$nick,money) - 200)
notice $nick Syntax: USE <item>
writeini ugs.ini $nick items $readini(ugs.ini,$nick,items) $+ Health Potion,
}
else { notice $nick You dont have enough money! }
}
if ($2- == Attack Boost) {
if ($readini(ugs.ini,$nick,money) <= 900) {
notice $nick Purchased Attack Boost
writeini ugs.ini $nick money $calc($readini(ugs.ini,$nick,money) - 900)
notice $nick Syntax: USE <item>
writeini ugs.ini $nick items $readini(ugs.ini,$nick,items) $+ Attack Boost,
}
else { notice $nick You dont have enough money! }
}
if ($2- == defense Boost) {
if ($readini(ugs.ini,$nick,money) <= 750) {
notice $nick Purchased Defense Boost
writeini ugs.ini $nick money $calc($readini(ugs.ini,$nick,money) - 750)
notice $nick Syntax: USE <item>
writeini ugs.ini $nick items $readini(ugs.ini,$nick,items) $+ defense Boost,
}
else { notice $nick You dont have enough money! }
}
}
on *:TEXT:USE*:#allaboutsp: {
if ($2- == Health Boost) {
if ($2- isin $readini(ugs.ini,$nick,items)) {
notice $nick Health boosted by 50 points!
writeini ugs.ini $nick HPMax $calc($readini(ugs.ini,$nick,HPMax) + 50)
writeini ugs.ini $nick items $remove($readini(ugs.ini,$nick,items),Health Boost $+ $chr(44))
}
}
if ($2- == Health Potion) {
if ($2- isin $readini(ugs.ini,$nick,items)) {
notice $nick You have been healed!
writeini ugs.ini $nick HP $readini(ugs.ini,$nick,HPMax)
writeini ugs.ini $nick items $remove($readini(ugs.ini,$nick,items),Health Potion $+ $chr(44))
}
}
if ($2- == Attack Boost) {
if ($2- isin $readini(ugs.ini,$nick,items)) {
notice $nick Attack boosted by 25 points!
writeini ugs.ini $nick Attack $calc($readini(ugs.ini,$nick,attack) + 25)
writeini ugs.ini $nick items $remove($readini(ugs.ini,$nick,items),Attack Boost $+ $chr(44))
}
}
if ($2- == Defense Boost) {
if ($2- isin $readini(ugs.ini,$nick,items)) {
notice $nick Defense boosted by 25 points!
writeini ugs.ini $nick Defense $calc($readini(ugs.ini,$nick,Defense) + 25)
writeini ugs.ini $nick items $remove($readini(ugs.ini,$nick,items),Defense Boost $+ $chr(44))
}
}
}
menu channel {
...Plugins
...Configure Character Plugin
..Add character:chrconfig add
..Del character:chrconfig del
}
alias chrconfig {
if ($1 == add) {
set %chrname $$?="What is the characters name?
writeini ugc.ini chr List $readini(ugc.ini,chr,list) $+ %chrname $+ ,
writeini ugc.ini %chrname Name %chrname
writeini ugc.ini %chrname atk1 $$?="What is this characters STRONGEST attack?"
writeini ugc.ini %chrname atk2 $$?="What is this characters second STRONGEST attack?"
writeini ugc.ini %chrname atk3 $$?="what is this characters second WEAKEST attack?"
writeini ugc.ini %chrname atk4 $$?="What is this characters WEAKEST attack?"
echo -a Character Created!
}
if ($2 == del) {
set %remnick $$?="What is the characters name?"
remini ugc.ini %remnick
writeini ugc.ini chr list $remove($readini(ugc.ini,chr,list),%remnick)
}
}