I made my own slots that use numbers instead of emoticons because I want it to be fully compatible and AIM doesn't have access to all those MSN emoticons, so... yeah.
In the slots, however much you bet... if your slot result is positive, you get that + what you betted, added to your points. But if the slot result is negative, you get that - what you betted, removed from your points. So if you bet all you have, you can double+ if you win, or double- if you lose. _________________ Current Site (2008) http://www.cuvou.com/
' would work perfect. I'd add it in the code i gave you though, it just seems to work better. instead of having 2 seperate commands in games. You get me? So i suppose..added to the code i gave you already. add
Quote:
if ($msg =~ /^shopmenu (.*)$/) { open (MENU, ">./Lib/Store/Shop/$username.txt"); $self->sendmsg("Burger, Costs £2.30\nFries, Costs £1.00\nCoke, Costs £3.50");
Then, !shopmenu EMAILADDRESS would work. if you dont want it like that you know the bits to remove.
Joined: 19 Mar 2004 Posts: 42 Location: New Zealand
Posted: Wed Apr 07, 2004 8:32 am Post subject:
Were do i put
Quote:
if ($msg =~ /^shopmenu (.*)$/) { open (MENU, ">./Lib/Store/Shop/$username.txt"); $self->sendmsg("Burger, Costs £2.30\nFries, Costs £1.00\nCoke, Costs £3.50");
In
Quote:
if ($msg eq "shop") { if (!exists $self->{callback}) { $self->{callback} = 'shop'; &send($self, "What Would You Like to buy? !shopmenu to see what you can buy ");
return; } } else { if ($self->{callback} eq 'shop') { if ($msg eq "nothing") { &send($self, "You have left the shop, hope to see you again some time"); delete $self->{callback}; return; } foreach $name (split (/,/, $msg)) { $name =~ s/ //g; $name = lc($name); open (FILE, ">>./Lib/Store/Shop/$username.txt"); print FILE "$name\n"; close FILE; $reply .= "$name\n"; delete $self->{callback}; } &send($self, "You have bought: \n\n$reply"); delete $self->{callback}; $reply = undef;
if ($msg =~ /^shopmenu (.*)$/) { open (MENU, ">./Lib/Store/Shop/$username.txt"); $self->sendmsg("Burger, Costs £2.30\nFries, Costs £1.00\nCoke, Costs £3.50");
In
Quote:
if ($msg eq "shop") { if (!exists $self->{callback}) { $self->{callback} = 'shop'; &send($self, "What Would You Like to buy? !shopmenu to see what you can buy ");
return; } } else { if ($self->{callback} eq 'shop') { if ($msg eq "nothing") { &send($self, "You have left the shop, hope to see you again some time"); delete $self->{callback}; return; } foreach $name (split (/,/, $msg)) { $name =~ s/ //g; $name = lc($name); open (FILE, ">>./Lib/Store/Shop/$username.txt"); print FILE "$name\n"; close FILE; $reply .= "$name\n"; delete $self->{callback}; } &send($self, "You have bought: \n\n$reply"); delete $self->{callback}; $reply = undef;
} }
if its new morph
then create a file called shopmenu.pl
and put:
Quote:
if ($msg =~ /^shopmenu (.*)$/) { open (MENU, ">./Lib/Store/Shop/$username.txt"); $self->sendmsg("Burger, Costs £2.30\nFries, Costs £1.00\nCoke, Costs £3.50");
In it,
and create another called shop.pl and put this in it:
Quote:
if ($msg eq "shop") { if (!exists $self->{callback}) { $self->{callback} = 'shop'; &send($self, "What Would You Like to buy? !shopmenu to see what you can buy ");
return; } } else { if ($self->{callback} eq 'shop') { if ($msg eq "nothing") { &send($self, "You have left the shop, hope to see you again some time"); delete $self->{callback}; return; } foreach $name (split (/,/, $msg)) { $name =~ s/ //g; $name = lc($name); open (FILE, ">>./Lib/Store/Shop/$username.txt"); print FILE "$name\n"; close FILE; $reply .= "$name\n"; delete $self->{callback}; } &send($self, "You have bought: \n\n$reply"); delete $self->{callback}; $reply = undef;
User Control Panel
maybe i could convert it to morph, add me to msn (codeblooded@hotmail.com)
I Can Port Some Commands From it 