By Israfel on May 16, 2008Well, what i have here is a REALLY basic little "Bot" thingy for any Roleplayers out there. It gives out drinks as per the request of the purchiser and has several other amusing options.
Hopefully somone can help me expand on the bot, such as getting some Timers for the text (Mine don't want to work) and getting a Counter for Money so i can create a Tab for people. This is really my first work, so judge lightly! ^^;
***UPDATE****
Alright, so i have the bot working, the tab system is perfect In my opinion, and everything SHOULD work properly. Just copy the new code, and paste it in the Remote section of your script.
WHAT THIS BOT DOES: Now what this little bugger does is he greets people when they come in, giving them several options on what they can do. He not only serves people Drinks, but he also keeps track of how much they owe, and won't give them a drink if they owe too much. It has the options of Paying, Checking your tab, Making their tabs, and getting a list of drinks
The drinks in the bot are as follows: Bloodwine, Ale, Hotchocolate, Redwine, Whitewine, Water, Milk, Mead, Rum, Dragonsbreath, Angelskiss, Sake, Devilstit and Nekoblood.
Enjoy the bot, and have fun. I will make improvements from time to time, adding things like an Ice Option for each drink, things like that.
On *:JOIN:#: {
.timer 1 3 .notice $nick Ahh, welcome to $chan visit the Community for more details. Can i get you anything to drink? Approach the Bar and type !Drinklist in a separate post.*
.timer 1 6 .notice $nick I forgot to mention, please make a tab using the !maketab function. Please only use this feature once, enjoy!
}
On *:TEXT:!Maketab:#: {
set % $+ $nick
.inc % $+ $nick 0
.timer 1 1 .notice $nick We have made your tab, feel free to begin ordering drinks whenever you feel like it! Don't forget to pay the tab too!
.timer 1 2 .notice $nick Also, you can check your tab with !Checktab and you can clear it with !Pay
}
On *:TEXT:!Drinklist:#: {
.timer 1 2 .describe $Chan ~He smiles and begins moationing towards the bar, "Well $nick, We have Bloodwine, Ale, Hotchocolate, both Red and White wines, Water, Milk, Mead, Rum, Dragons Breath, Angels Kiss, Sake, Devils Tit and my personal favorite Neko blood"
.timer 1 4 .notice $nick Looking at drinks eah? Well type the name of the drink with an Exclamation point before the name. An example would be !Ale or !Bloodwine. All two word drinks are typed as one word. IE Devils Tit = !devilstit
.timer 1 6 .notice $nick Ohh, i forgot to mention. When I give you your drink, I add what you owe to a Tab. Feel free to check it any any time with the !Checktab command, and pay with the !pay command.
}
On *:TEXT:!Bloodwine:#: {
if (!bloodwine isin $$1) && ($($+(%,$nick),2) >= 100 ) {
.Describe $chan ~The bartender shakes his head and continues wiping down his glasses, "Sorry there $nick you have racked up too high of a tab. I can't serve you anymore untill you pay me."
}
Else {
describe $Chan ~ He grasps a large glass from under the counter, a large flat base pointing into a long thin stem, branching out in an elegant pattern to support a large bowel. kneeling down he then lifted a large bottle, wrapped in cord to the bar top, drilling a>>
.timer 1 2 describe $Chan ~ Corkscrew inside the bottle. Lifting the bottle off the counter, he began pouring the crimson liquid into the glass, letting it settle before sliding it over to the drinker, "Hope that satisfies ya. I'll put it on your tab."<D>
.inc % $+ $nick 7
.Inc %total
.timer 1 3 .notice $nick you have a % $+ $nick silver tab running
}
}
On *:TEXT:!Ale:#: {
if (!ale isin $$1) && ($($+(%,$nick),2) >= 100 ) {
.timer 1 1 .Describe $chan ~The bartender shakes his head and continues wiping down his glasses, "Sorry there $nick you have racked up too high of a tab. I can't serve you anymore untill you pay me."
}
Else {
.timer 1 1 .describe $Chan ~ Grabbing a large mug, he filled it with a clearish liquid from a barrel behind him. The liquid bubbled and foamed in the glass, tinted slightly yellowish brown. Looked almost sickening. Wiping some froth>>
.timer 1 3 .describe $Chan ~ off the side of the glass, he slides it over to $nick the glass skidding along the bartop<D>
.inc % $+ $nick 3
.Inc %total
.timer 1 4 .notice $nick You have a % $+ $nick Silver tab running
}
}
On *:TEXT:!Hotchocolate:#: {
if (!hotchocolate isin $$1) && ($($+(%,$nick),2) >= 100 ) {
.describe $chan ~The bartender shakes his head and continues wiping down his glasses, "Sorry there $nick you have racked up too high of a tab. I can't serve you anymore untill you pay me."
}
Else {
.describe $Chan ~ He laughed heartily at the request, "Hot chocolate eah? Lets see if i can remember how to do this" He grasps a thick mug, and fills it with steamy milk, frothy and bubbly as it splashes into the glass. He then >>
.timer 1 2 describe $Chan ~ Took a large pot of bubbly chocolate, and began dolloping large spoonfuls into the glass, stirring it until it became a rich brown. Whipping cream in a bowl, he topped it all off with that and sprinkles of shredded Chocolate >>
.timer 1 4 describe $Chan ~ And sugar. Setting the steamy mug in front of his customer he smirked to himself, "Guess I do." He chuckled<D>
inc % $+ $nick 20
.Inc %total
.timer 1 6 .notice $nick You have a % $+ $nick Silver tab running
}
}
On *:TEXT:!RedWine:#: {
if (!redwine isin $$1) && ($($+(%,$nick),2) >= 100 ) {
.describe $chan ~The bartender shakes his head and continues wiping down his glasses, "Sorry there $nick you have racked up too high of a tab. I can't serve you anymore untill you pay me."
}
Else {
.timer 1 1 .describe $Chan ~ Taking a large goblet he set it atop the counter, uncorking a bottle of Red Wine with his teeth. Not the best way to do it, but it worked didn't it? Pouring the crimson liquid into the Goblet, he slid the vessel over>>
.timer 1 3 .describe $Chan ~ to $nick , his skillful art keeping the glass upright the entire ride down.
.inc % $+ $nick 5
.Inc %total
.timer 1 4 .notice $nick you have a % $+ $nick tab running
}
}
On *:TEXT:!Whitewine:#: {
if (!whitewine isin $$1) && ($($+(%,$nick),2) >= 100 ) {
.describe $chan ~The bartender shakes his head and continues wiping down his glasses, "Sorry there $nick you have racked up too high of a tab. I can't serve you anymore untill you pay me."
}
Else {
.timer 1 1 .describe $Chan ~ A slender glass was brought down from a high shelf, the tender straining to reach it, "Not many people with your level of Class around now days. Glad to see there are still those out there who can appreciate>>
.timer 1 3 .describe $Chan ~ The finer things in life." He then took a slender bottle and poured the liquid into the glass, slowly, so it didn't froth over, or lose flavor. He slid the glass to $nick and chuckled to himself<D>
.inc % $+ $nick 2
.Inc %total
.timer 1 4 notice $nick you have a % $+ $nick tab running
}
}
On *:TEXT:!Water:#: {
if (!water isin $$1) && ($($+(%,$nick),2) >= 100 ) {
.describe $chan ~The bartender shakes his head and continues wiping down his glasses, "Sorry there $nick you have racked up too high of a tab. I can't serve you anymore untill you pay me."
}
Else {
.timer 1 1 .describe $Chan ~ He pulls up a simple glass. cyndrilical, clear, with a heavy bottom. Taking a pitcher of iced water, he pours some into the glass, and slides it down the bar to $nick smiling softly, "On the house."
.timer 1 2 .notice $nick You still have a tab of % $+ $nick Silver
}
}
On *:TEXT:!Milk:#: {
if (!milk isin $$1) && ($($+(%,$nick),2) >= 100 ) {
.describe $chan ~The bartender shakes his head and continues wiping down his glasses, "Sorry there $nick you have racked up too high of a tab. I can't serve you anymore untill you pay me."
}
Else {
.timer 1 1 .describe $Chan ~ "Milk fresh from the cow, coming up!" He said heartily, retreating to a refrigerated room, where a large pail of milk was sitting. Taking the ladle from the bucket, he filled a glass he >>
.timer 1 3 .describe $Chan ~ Had snatched on the way out and filled it with cool milk. He smiled and set the glass down before $nick
.inc % $+ $nick 1
.Inc %total
.timer 1 4 .notice $nick You have a % $+ $nick tab running
}
}
On *:TEXT:!Mead:#: {
if (!mead isin $$1) && ($($+(%,$nick),2) >= 100 ) {
.describe $chan ~The bartender shakes his head and continues wiping down his glasses, "Sorry there $nick you have racked up too high of a tab. I can't serve you anymore untill you pay me."
}
Else {
timer 1 1 .describe $Chan ~ The tender grabs a large mug and dumps in it several large ladle fulls of steaming hot Honey Mead. He didn't have bottles for it, but it tasted better freshly made and warm anyways.
.inc % $+ $nick 3
.Inc %total
.timer 1 2 .notice $nick you have a % $+ $nick tab running
}
}
On *:TEXT:!Rum:#: {
if (!rum isin $$1) && ($($+(%,$nick),2) >= 100 ) {
.describe $chan ~The bartender shakes his head and continues wiping down his glasses, "Sorry there $nick you have racked up too high of a tab. I can't serve you anymore untill you pay me."
}
Else {
.timer 1 1 .describe $Chan ~ Laughing heartily he grabs a small, silver flask from the back of the bar and tosses it at $nick , Shortly followed by a small shot glass, "Leave the glass here if ya aint gonna use it."
.inc % $+ $Nick 3
.Inc %total
.timer 1 2 .notice $nick you have a % $+ $nick tab running
}
}
On *:TEXT:!DragonsBreath:#: {
if (!Dragonsbreath isin $$1) && ($($+(%,$nick),2) >= 100 ) {
.describe $chan ~The bartender shakes his head and continues wiping down his glasses, "Sorry there $nick you have racked up too high of a tab. I can't serve you anymore untill you pay me."
}
Else {
.timer 1 1 .describe $Chan ~ He frowns and takes a pair of Tongs from under the bar, holding a very thick mug close by. Taking the tongs he reaches up to a bottle on one of the upper most shelves and pulls down a large red bottle>>
.timer 1 3 .describe $Chan ~ and uncorks it, holding it away from him as flames shoot out of the top of the bottle. he slowly tilts it sideways, as a magma colored liquid pours out into the mug, steaming and frothing at the>>
.timer 1 5 .describe $Chan ~ top. Carefully giving the hot mug to $nick and holding out a hand, the other covering his nose, "Ugh, that stuff is horrid." He said, trying to get away from the foul smelling brew.<D>
.inc % $+ $nick 32
.Inc %total
.timer 1 6 .notice $nick you have a % $+ $nick tab running
}
}
On *:TEXT:!AngelsKiss:#: {
if (!Angelskiss isin $$1) && ($($+(%,$nick),2) >= 100 ) {
.describe $chan ~The bartender shakes his head and continues wiping down his glasses, "Sorry there $nick you have racked up too high of a tab. I can't serve you anymore untill you pay me."
}
Else {
.timer 1 1 .describe $Chan ~ He seemed to glow almost as he took a frosted white glass from a freezer in the back, whisps of cold coming off the glass itself. He poured in a nectar that was scented of peach and vanilla. He smirked lightly as he took a small>>
.timer 1 3 .describe $Chan ~ Purple pouch and sprinkled a little gold powder on the drinks, which in turn responded by glowing brightly for a moment, before giving off a much softer glow, cool to the touch, "Don't down it all at once.>>
.timer 1 5 .describe $chan ~ Savor it." He said, setting the glowing glass in front of his patron.<D>
.inc % $+ $nick 50
.Inc %total
.timer 1 6 .notice $nick You have a % $+ $nick tab running
}
}
On *:TEXT:!Sake:#: {
if (!Sake isin $$1) && ($($+(%,$nick),2) >= 100 ) {
.describe $chan ~The bartender shakes his head and continues wiping down his glasses, "Sorry there $nick you have racked up too high of a tab. I can't serve you anymore untill you pay me."
}
Else {
.timer 1 1 .describe $Chan ~ He took a large green bottle from a shelf and set it before $nick as well as two shot glasses, "Sake is best served with friends." He said, setting another handful of glasses down, "Just leave what ya don't need." <D>
.inc % $+ $nick 2
.inc %total
.timer 1 2 .notice $nick you have a % $+ $nick tab running
}
}
On *:TEXT:!DevilsTit:#: {
if (!Devilstit isin $$1) && ($($+(%,$nick),2) >= 100 ) {
.describe $chan ~The bartender shakes his head and continues wiping down his glasses, "Sorry there $nick you have racked up too high of a tab. I can't serve you anymore untill you pay me."
}
Else {
.timer 1 1 .describe $Chan ~ He took a large crimson goblet from a heater, and set it on the bar, radiating high ammounts of heat. He shook his hands off to cool them down. Pouring what looked like blood into the glass, smoke pouring out of the>>
.timer 1 3 .describe $Chan ~ glass as it created a fowl stench that spewed forth in the air. Coughing violently for a moment before setting the glass down before $nick and frowning, "Get that garbage away>>
.timer 1 5 .describe $chan ~ from me please." He said, whilst coughing to the side<D>
.inc % $+ $nick 30
.inc %total
timer 1 6 .notice $nick you have a % $+ $nick tab running
}
}
On *:TEXT:!NekoBlood:#: {
if (!Nekoblood isin $$1) && ($($+(%,$nick),2) >= 100 ) {
.describe $chan ~The bartender shakes his head and continues wiping down his glasses, "Sorry there $nick you have racked up too high of a tab. I can't serve you anymore untill you pay me."
}
Else {
.timer 1 1 .describe $Chan ~ He smiles brightly and nods, "Neko's blood coming up." He went into the back where mentally ill Nekos were kept. Grabbing one by the neck he pulled her out and dragged it to a separate room, slamming and bolting the>>
.timer 1 3 .describe $Chan ~ Neko door behind him. He snapped the Neko's neck, and hung her upside down on a hook, the Steel piercing her flesh and bone, securing her in place. He then took out a large knife and carefully pierced her>>
.timer 1 5 .describe $Chan ~ Jugular, blood squirting out into a wine glass that he had ready. Once the glass was full, he took a large cork and shoved it into the neko's wound, using it as an effective Stopper. ReturningTo the bar with>>
.timer 1 7 .describe $chan ~ The glass, he set it down, deeply inhaling the sweet aroma, He said, marking $nick 's tab, "Sorry bout the price, but it takes a good bit of money to get Neko Slaves now days." He said, chuckling cruelly to himself.<D>
.inc % $+ $nick 75
.Inc %total
.timer 1 8 .notice $nick you have a % $+ $nick tab running
}
}
on *:TEXT:!Pay:#: {
/Set % $+ $nick 0
.notice $nick alright then $nick your tab is clear and you are free to go! thanks for paying!
.notice $nick We have served %total drinks so far.
}
on *:TEXT:!checktab:#: {
.timer 1 1 .notice $nick You currently have % $+ $nick silver in back dues.
}
You want something like a ... Creditcard or so?
if (% $+ $nick > = 100) {
.Describe $chan ~The bartender shakes his head and continues wiping down his glasses, \"Sorry there $nick you have racked up too high of a tab. I can\'t serve you anymore until you pay me.\"
}
Try the following
if (% [ $+ [ $nick ] ] > = 100) {
.Describe $chan ~The bartender shakes his head and continues wiping down his glasses, \"Sorry there $nick you have racked up too high of a tab. I can\'t serve you anymore until you pay me.\"
}
try this
if (!bloodwine isin $$1) && ($($+(%,$nick),2) >= 100 ) {
msg $chan The bartender shakes his head and continues wiping down his glasses, \"Sorry there $nick you have racked up too high of a tab. I can\'t serve you anymore until you pay me.\"
}
russelb helped me with something similar
the 2 there in $($+(%,$nick),2)
checks the setting of the variable
if u replace it with a 1
it checks the name of the variable
Update 2!
alright, i have almost everything working. The bot .Notice\'s people when they come in and tells them about the system, the commands to use the like. i have the Drink list set up, the drinks themselves set up, even the Tabs and Payment system! I have to give PunkTuReD the credit for being able to keep the Tabs system, so i greatly thank you :P
the only thing that ISN\'t working right now is my \"Limit\" system, ergo if someone reaches a certain limit in money (100 silver) then it cuts them off until they pay the bill. I can show you the code
On *:TEXT:!Bloodwine:#: {
if (% $+ $nick > = 100) {
.Describe $chan ~The bartender shakes his head and continues wiping down his glasses, \"Sorry there $nick you have racked up too high of a tab. I can\'t serve you anymore untill you pay me.\"
}
Else {
describe $Chan ~ He grasps a large glass from under the counter, a large flat base pointing into a long thin stem, branching out in an elegant pattern to support a large bowel. kneeling down he then lifted a large bottle, wrapped in cord to the bar top, drilling a>>
.timer 1 2 describe $Chan ~ Corkscrew inside the bottle. Lifting the bottle off the counter, he began pouring the crimson liquid into the glass, letting it settle before sliding it over to the drinker, \"Hope that satisfies ya. I\'ll put it on your tab.\"<D>
.inc % $+ $nick 7
.Inc %total
.timer 1 3 .notice $nick you have a % $+ $nick silver tab running
}
}
So the part that i am having trouble with is the
if (% $+ $nick > = 100) {
.Describe $chan ~The bartender shakes his head and continues wiping down his glasses, \"Sorry there $nick you have racked up too high of a tab. I can\'t serve you anymore until you pay me.\"
}
Part. Even if these people have a tab of 642 it still lets them buy drinks! Its maddening! I mean, whats the point of having a payment system if you can\'t force people to use it!!
So i will break down parts of it so you get the general idea of whats going on
Ok, so when someone types !bloodwine it checks their tab to see if its over 100, if it is, it denies them the drink until they pay for their other drinks. If they have a tab under 100 (Even 99 works) then it gives them the drink, and adds money to their tab (in this case 7 silver) then it adds a 1 to a Total\'s value, which will tell people the total number of drinks ever served on this script. It then .Notice\'s them and tells them what their tab is currently at (Something i will embellish later)
So here is my delema one more time. The bot gives people drinks even though i tell it not to, any tips or tricks on what i may need done?
Update
Well, i finally got my timers working properly, so the bot runs MUCH smoother now, But i have a few coding problems:
Alright, so i have been trying to get the bot to give me a Tab (There seems to be come confusion about what a Tab is. A tab is essentially a Credit Card. buy your drinks now, but you pay for them later. The Tab refers to how much is owed)
now my problem is that using the %tab variable puts it as a generic variable so someone who didn\'t order a drink, would have a tab, and such. So how would i write an individual tab for everyone? I am not sure, but would it be something like:
On *:JOIN:#:
.Write $nick %tab 0
And then for adding to the tab each time they buy a drink
On *:TEXT:!Ale:#:
.describe $chan Here you go, some fresh Ale
.Read $nick
.inc %tab 5
.notice $nick your tab has reached (.Read $nick(%tab))
And for paying the tab
.describe $chan Takes the money happily
.write $nick %tab 0
.notice $nick Your tab has been erased, Thank you!
Or am I WAY off? I checked the Help Section, and it didn\'t.. Well give me much help...
Ok thanks, i\'ll post a Report on how it works ^^
As a side note, none of my timers work, i just get \"unknown command 1\" If i have the timer set as .timer 1 2 /me do this OR .timer 1 2 describe $chan Does This
Regardless, it keeps saying Unknown Command 1. I am building the script for Oasiz, so if anyone is more fammiler with their style of coding then that would be most helpful ^^
And if i wanted it to say different things based on how much they had would i write
If (%tab. [ $+ [ $address($nick,2) ] ] < 33){
.notice %nick Your tab is pretty low, so don\'t worry about it too much
}
If (%tab. [ $+ [ $address($nick,2) ] ] = 34 - 66) {
.notice $nick Your tab is getting up there, you might want to slow down a little
}
Else (%tab. [ $+ [ $address($nick,2) ] ] > 67) {
.notice $nick Wow mate, your tab is getting really high, you had best pay soon so you don\'t embarras yourself.
}
If you want to increase more than one just use \' inc % number \'.
(Replace number with a number of your choice ofcourse and % with the variable you want)
What the code does is uhm... How would I explain..
I\'m sorry if you don\'t understand the following, i\'m dutch.
If someone triggers the command, it\'ll check how many tabs he has, if it\'s above 100, it will notice him \' Oya, your tab is to high, pay me before you ask more \' and it\'ll halt.
If the tabs are under 100 it\'ll message the chan saying \' Ohai have fun with the ale ... \' + It increases his tabs with 10 + it calcs how many tabs he has remaining.
So in your case.. add
if (%tab. [ $+ [ $nick ] ] >= 100) {
.notice $nick Oya, your tab is to high, pay me before you ask more!
.halt
under each On Text event ( this checks how many tabs he has, if above 100, halts )
On *:TEXT:!ale*:#: {
if (%tab. [ $+ [ $address($nick,2) ] ] >= 100) {
.notice $nick Oya, your tab is to high, pay me before you ask more!
.halt
}
Else {
.msg $chan Ohai have fun with the ale ...
.inc %tab. [ $+ [ $address($nick,2) ] ] 10
.notice $nick You have $calc(100 - %tab. [ $+ [ $address($nick,2) ] ]) tabs remaining
}
}
If you want to change the amount of tabs he receives, just change the 10 to a number you want ( line 8 )
So Describe is the eqivilant of using a /me or Action type of text? Cool o.o
As for the Payment thing, what i really want to do is assign each drink with its own value, and every time someone buys a drink, it adds that much to their tab, and using !pay they get rid of their tab and reset the counter for them.
And if i do end up making this, if i wanted to restrict people\'s tabs from going over a certain amount of money, wouldn\'t it go something like
if (%tab >= 100) say Oye, your tab is to high, pay me before you ask for more!
Hopefully somone can help me expand on the bot, such as getting some Timers for the text (Mine don\'t want to work) and getting a Counter for Money so i can create a Tab for people.
[B]
For the timers:
[/B]
On *:TEXT:?Timer*:?: {
Timer NumberOfHowManyTimesItHasToRepeat NumberOfHowFastItHasToRepeat(Seconds)
}
[B]
Example:
[/B]
On *:TEXT:?sayhi*:?: {
timer 2 5 msg $chan Hai!
}
This would repeat 2 times each 5 seconds¨
[B]
For the counter:
[/B]
On *:TEXT:!pay*:#: {
inc %Payment
msg $chan Thanks for paying $nick $+ !
msg $chan The number of people who have paid me: %Payment
}
U can use anything else for \' %Payment \' But make sure % is in front of it.
Next time, try using /help. It solves like 80% of the questions :)