Slot Machine game

Please Register to submit score.

Average Score	5.7
Scores Submitted	3
Date Added	May 04, 2008
Last Updated	May 05, 2008
Tags	fun game machine slot

Introduction

;Slot Machine game
;Written by cr0sis -irc.affinitygamers.com
;Version 1.1

Load into remotes (don't just copy and paste)

Place the script in you /mirc/ root folder (where the .exe is)
and on that client, type /load -rs slotmachine.mrc

YOU MUST USE THIS ON A SECOND CLIENT AND PLAY WITH IT ON YOUR REGULAR

Commands: !slot, !stats, !stats <player> ( without the < or > )

Single player game, nothing more, but anyone can play at any time and if they don't win they add 1 point to the jackpot.
Feel free to modify the base jackpot (before loading, of if you do it after loading, unload and load it again) -> SET %jackpot 100
Change 200 to anything you want and that's the set amount, each play adds 1 to that number, and the winner gets all accumulated + base points.

Also
PLEASE don't whine at me if you forget to change this line:
TIMER [ $+ [ %nickslot ] ] 1 10 ECHO -s timer for %nickslot deactivated

This line handles the delay between turns, so users can't spam, the number BEFORE echo (10 in my script) is the time users must wait between plays. Edit to suit you/your players.

Grab the Code

;Slot Machine game
;Written by cr0sis -irc.affinitygamers.com
;Version 1.2
==================================================================
on *:LOAD:{
  SET %Winners 0
  SET %jackpot 100
  SET %symbol.0 1,8 BELL 
  SET %symbol.1 1,4 CHERRY 
  SET %symbol.2 1,6 PLUM 
  SET %symbol.3 1,9 WEED 
  SET %symbol.4 0,4 STRAWBERRY 
  SET %symbol.5 0,1 COAL 
  SET %symbol.6 1,11 BLUEBERRY 
  SET %symbol.7 1,7 ORANGE 
  SET %symbol.8 4,3 APPLE 
}

ON *:UNLOAD:{
  UNSET %jackpot
  UNSET %symbol.*
}

on *:TEXT:!slot:#:{
  SET %chanslot $chan
  SET %nickslot $nick
  IF ($timer(%nickslot) == $null) {
    TIMER [ $+ [ %nickslot ] ] 1 5 ECHO -s timer for %nickslot deactivated
    INC %jackpot
    NOTICE %nickslot 1 Credit used from your affinitygamers.com account.
    MSG %chanslot [7SLOT-MACHINE] Current Jackpot: %jackpot  :::  Rolling the wheels.
    PLAYSLOT
  }
  ELSE {
    NOTICE %nickslot You have to wait $timer(%nickslot).secs seconds before playing again.
  }
}

alias playslot {
  IF ( %slot.lose. [ $+ [ %nickslot ] ] == $null ) SET %slot.lose. [ $+ [ %nickslot ] ] 0
  INC %slot.lose. [ $+ [ %nickslot ] ]
  SET %col.0 %symbol. [ $+ [ $rand(0,8) ] ]
  SET %col.1 %symbol. [ $+ [ $rand(0,8) ] ]
  SET %col.2 %symbol. [ $+ [ $rand(0,8) ] ]
  IF (%col.0 == %col.1) && (%col.1 == %col.2) {
    SET %winlineslot 0 1,8 J 1,4 A 1,9 C 1,7 K 1,13 P 1,11 O 1,5 T    !!! %nickslot just won %jackpot points in channel %chanslot !
    INC %Winners
    SET %Last.Winner %nickslot
    SET %Last.Amount %jackpot
    SET %slot.win. [ $+ [ %nickslot ] ] $calc( %slot.lose. [ $+ [ %nickslot ] ] + %jackpot )
    SET %jackpot 200
  }
  MSG %chanslot %col.0 %col.1 %col.2   :::  $iif(%winlineslot == $null,%nickslot lost,%nickslot win)

IF (%winlineslot != $null) AMSG %winlineslot
  UNSET %winlineslot
}

on *:TEXT:!stats*:#:{
  SET %tmpnick $iif($2 == $null,$nick,$2)
  SET %tmpwon $iif( %slot.win. [ $+ [ %tmpnick ] ] == $null,0, %slot.win. [ $+ [ %tmpnick ] ] )
  SET %tmplose $iif( %slot.lose. [ $+ [ %tmpnick ] ] == $null,0, %slot.lose. [ $+ [ %tmpnick ] ] )
  MSG $chan %tmpnick $+ 's Slot Machine stats: Won Amount: %tmpwon Lost games: %tmplose Net: $calc(%tmpwon - %tmplose)
  NOTICE $nick Last winner was: %Last.Winner and they won %Last.Amount points
  NOTICE $nick Chance of winning: 1.5625%  Number of Winners: %Winners

}

; {}

Comments

(10) RSS

Go to Bottom

cr0sis

Comments: 7

mIRC Snippet: Slot Machine game
Posted on May 4, 2008 3:24 pm

on *:INPUT:#: { set %chanslot $chan | set %nickslot $me | inc %jackpot | notice %nickslot 1 point added to the jackpot | MSG %chanslot [SLOT-MACHINE] Current Jackpot: %jackpot ::: Rolling the wheels. | PLAYSLOT }

^ Single player code, or better yet split everything off after set %nickslot onto an alias and use it instead for both

cr0sis

Comments: 7

mIRC Snippet: Slot Machine game
Posted on May 4, 2008 3:41 pm

Btw if you have a community website with its own "currency" (Like mine has points which you accumulate by posting in the forums and spend by changing your avatar/title etc) Then you can add a socket script in that client and use this game to give the winner all the accumulated game points.
It's addictive for large channels without this, even more so with, I've had it finished for under 2 hours and already more than 500 in points has been given away!

cr0sis

Comments: 7

mIRC Snippet: Slot Machine game
Posted on May 4, 2008 6:57 pm

Update: Already added !stats and said so in the introduction

mountaindew

Comments: 1,423

mIRC Snippet: Slot Machine game
Posted on May 5, 2008 1:59 pm

Just do:

Code:

unset %symbol.*

instead of doing it for each number ;)

cr0sis

Comments: 7

mIRC Snippet: Slot Machine game
Posted on May 5, 2008 5:25 pm

Fixed :)
I wrote it with the intention of keeping it for my own community tbh, and so for myself, but now it's released it's only right that I make it smaller and more efficient :D

AuToMaG

Comments: 2

mIRC Snippet: Slot Machine game
Posted on May 9, 2008 3:07 pm

fun game to play but is there any way of changing the win %

Mitchell

Comments: 23

mIRC Snippet: Slot Machine game
Posted on May 9, 2008 5:39 pm

great game :) well done, it's simple, yet fun.

cr0sis

Comments: 7

mIRC Snippet: Slot Machine game
Posted on May 9, 2008 6:46 pm

Yeah automag, change the number of "Pictures"

Here:
on *:LOAD:{
SET %Winners 0
SET %jackpot 100
SET %symbol.0 1,8 BELL
SET %symbol.1 1,4 CHERRY
SET %symbol.2 1,6 PLUM
SET %symbol.3 1,9 WEED
SET %symbol.4 0,4 STRAWBERRY
SET %symbol.5 0,1 COAL
SET %symbol.6 1,11 BLUEBERRY
SET %symbol.7 1,7 ORANGE
SET %symbol.8 4,3 APPLE
}

Take out as many lines as you want, leaving atleast 3 in. There are 9 there, my initial calculation was for 8, so when the !stats shows the win %, it's wrong... The real number is 1.234%

If you do take out one/some in that list, please make sure you also mofify:
SET %col.0 %symbol. [ $+ [ $rand(0,8) ] ]
SET %col.1 %symbol. [ $+ [ $rand(0,8) ] ]
SET %col.2 %symbol. [ $+ [ $rand(0,8) ] ]

$rand(0,8) <-- This is for 9 symbols, change it from 0,8 based on how many you use, for example if you you six... you'd enter 0,5 in each of the three lines

cr0sis

Comments: 7

mIRC Snippet: Slot Machine game
Posted on May 9, 2008 6:50 pm

Oh and don't forget, I worked out the win % in my head and just put that number into the script

NOTICE $nick Chance of winning: 1.5625% Number of Winners: %Winnerss

SHOULD read 1.234%, 1.5625% is for 8 symbols (I'm using 9), you'll have to do the working out yourself for how many symbols you will be using.

AuToMaG

Comments: 2

mIRC Snippet: Slot Machine game
Posted on May 9, 2008 7:51 pm

perfect thanks....
and one more thing how who i make it show stats for everyone @ once rather then single..

like this:

ViRuS's Slot Machine stats: Won Amount: 712 Lost games: 453 Net: 259
AuToMaG's Slot Machine stats: Won Amount: 320 Lost games: 250 Net: 123

and so on...thanks again i'm not that good @ this script stuff...lol

Slot Machine game

Introduction

Grab the Code

Comments

cr0sis

My Snippet Tags

Contact

Sponsors


Last seen: May 07, 2008 Profile Snippets (2) Comments Received (14) Comments Submitted (7)