By Romeo on Apr 05, 2006Put This in Remites - This is the shop
on *:text:`Shop:#: {
if ($chan != %ChanSet) { halt }
if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
if ($readini($nick $+ .ini,Pass,Logged) != Yes) { Notice $nick Login, By PMing $Me with `Login PassYouMade! | halt }
if ($readini($nick $+ .ini,$nick,fighting) == yes) { Notice $nick You are Battling! | halt }
Notice $nick Potion(100) 0-9 Sword(1000)
}
on *:text:`Use Potion:#: {
if ($chan != %ChanSet) { halt }
if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
if ($readini($nick $+ .ini,Pass,Logged) != Yes) { Notice $nick Login, By PMing $Me with `Login PassYouMade! | halt }
if ($readini($nick $+ .ini,items,Potion) <= 0) { /notice $nick Not Enough Potions! | halt }
Writeini $nick $+ .ini Items Potion $calc($readini($nick $+ .ini,Items,Potion) - 1)
Writeini $nick $+ .ini $nick Hp $calc($readini($nick $+ .ini,$nick,Hp) + 50)
set %Hp $readini($nick $+ .ini,$nick,Hp)
set %MHp $readini($nick $+ .ini,$nick,MHp)
if (%Hp > %MHp) { writeini $nick $+ .ini $nick Hp %MHp }
}
on *:text:*`buy*:#:{
if ($chan != %ChanSet) { halt }
if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
if ($readini($nick $+ .ini,Pass,Logged) != Yes) { Notice $nick Login, By PMing $Me with `Login PassYouMade! | halt }
if ($readini($nick $+ .ini,$nick,fighting) == yes) { /notice $nick You are in Battle! | halt }
if (Potion == $2) {
set %Price 100
if ($readini($nick $+ .ini,$nick,money) < %Price) { /notice $nick Not Enough Money! | halt }
Writeini $nick $+ .ini $nick money $calc($readini($nick $+ .ini,$nick,money) - %Price)
Writeini $nick $+ .ini items $2 $calc($readini($nick $+ .ini,items,$2) + 1)
Notice $nick You Bought a $2
}
if (Sword == $2) {
if ($readini($nick $+ .ini,Weapon,$2) == Yes) { /notice $nick You Already have $2 | halt }
if ($readini($nick $+ .ini,Weapon,$2) == Equipped) { /notice $nick You Already have $2 | halt }
set %Price 1000
if ($readini($nick $+ .ini,$nick,money) < %Price) { /notice $nick Not Enough Money! | halt }
Writeini $nick $+ .ini $nick money $calc($readini($nick $+ .ini,$nick,money) - %Price)
Writeini $nick $+ .ini Weapon $2 Yes
Notice $nick You Bought a $2
}
}
on *:text:`Equip Sword:#: {
if ($chan != %ChanSet) { halt }
if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
if ($readini($nick $+ .ini,Pass,Logged) != Yes) { Notice $nick Login, By PMing $Me with `Login PassYouMade! | halt }
if ($readini($nick $+ .ini,Weapon,$2) != Yes) { /notice $nick You Dont have $2 | halt }
if ($readini($nick $+ .ini,$nick,WeaponMove) != $Null) { /notice $nick Please UnEquip a Weapon! | halt }
if ($readini($nick $+ .ini,$nick,Level) < 5) { /notice $nick You Cant Handle $2 $+ ! | halt }
if ($readini($nick $+ .ini,$nick,fighting) == yes) { /notice $nick You are in Battle! | halt }
Writeini $nick $+ .ini Weapon $2 Equipped
Notice $nick You Equipped a Sword!
if ($readini($nick $+ .ini,$nick,WeaponMove) == None) { writeini $nick $+ .ini $nick WeaponMove Slash | Msg %ChanSet $Name($Nick) 10Learned 7"Slash" | halt }
}
on *:text:`UnEquip Sword:#: {
if ($chan != %ChanSet) { halt }
if ($readini($nick $+ .ini,Register,Complete) != Yes) { Notice $nick Please Register! `Register | halt }
if ($readini($nick $+ .ini,Pass,Logged) != Yes) { Notice $nick Login, By PMing $Me with `Login PassYouMade! | halt }
if ($readini($nick $+ .ini,Weapon,Sword) != Equipped) { /notice $nick Your Not Equipped With A Sword | halt }
if ($readini($nick $+ .ini,$nick,fighting) == yes) { /notice $nick You are in Battle! | halt }
writeini $nick $+ .ini Weapon Sword Yes
Notice $nick 4You UnEquip Sword
if ($readini($nick $+ .ini,$nick,WeaponMove) == Slash) { writeini $nick $+ .ini $nick WeaponMove None | Msg %ChanSet $Name($Nick) 10Lost 7"Slash" | Halt }
}
FURBY*: i did send it as a bot, but hawkee never put it up ;/
Patty: 1: I\'ve been used to ` for awhile, I cant change who i am ;-;!
2: If bot is in more than 1 Chan, Msg\'s end up being sent to different chans also the battling would be unfair because you wouldn\'t know who\'s attacking who, end you suddenly die
3: I only made 2 Items Because i dont wanna make a bot for someone, its a starter, Learn from it, or Just upgrade it.
4: in the Alias section of the starter bot, The color thing is there, you can change it.
5: uhh :s k...
Thanks for the feedback
I just tested the script, and i do like it but here is some feedback:
1: I dont like you use the ` as a trigger part, since it for me, takes to long to write instead of just a . or , -
2: i think you should have made it multi channel like
on *:text:blabla:%ChanSet: {
and the use ascii 44 as a seperator for channels
that will allow the fighter bot to be played in more then 1 channel, but still with the same acc :)
3: Buy Potion and Sword... is that it? then there is alot better bots on the market mate.
4: The colours make it hard to read.. and they realy looks like the colours a 5 year old would pick for painting...
5: You should have added all the cha files in a FOIlder instead of in $MircDir adter 20 min with advertsing for your bot, my FOlder was full... realy sucky..
but when all that has been sayed, its a realy nice bot actually :)