mIRC Home    About    Download    Register    News    Help

Print Thread
#240289 17/01/13 02:12 PM
Joined: Oct 2012
Posts: 28
H
HeRiNo Offline OP
Ameglian cow
OP Offline
Ameglian cow
H
Joined: Oct 2012
Posts: 28
Hi, I a Dutch so I will try my best English.
I have this slots machines script. It is working great but Since I have it it has 1 problem. I am looking for months now so now I hope that some one on this forum knows the answer. When you play and you win it counts right but when you lose it takes dubbel. egg. you play voor 100 and you lose its takes 200 from your creditss. It does the same with any amount....25 lose is 50....1000 lose is 2000. Any ony knwos how to solve this?

Quote:
[script]
raw 352:*:{ halt }
raw 315:*:{ halt }
on 1:TEXT:!gok*:?: {
if ($2 < 1) { msg #speelhal 10je moet iets meer inzetten!!! | halt }
if ( %hpfld > 2 ) halt
inc -u10 %hpfld 2
if ($readini C:\roulette\saldo.ini $address($nick,3) saldo == 0) { msg # 3Hey4 $2 3je hebt niet genoeg geld voor pazaak dus je wint of verliest niets4!!! | halt }
if ($2 > $readini C:\roulette\saldo.ini $address($nick,3) saldo) { Msg # 3Hey4 $2 3je heb niet genoeg geld voor pazaak dussu je wint of verliest niets!! | halt }
.writeini saldo.ini $gethost($nick) saldo $calc($checksaldo($nick) - $2)
if ($nick !ison #speelhal) { msg $nick Je kan alleen gokken als je op #speelhal zit! | goto end }
.who $nick
% [ $+ [ $nick ] ] [ $+ [ .gok.addr ] ] = $address($nick,3)
% [ $+ [ $nick ] ] [ $+ [ .gok.saldo ] ] = $readini(%Games.saldo,% [ $+ [ $nick ] ] [ $+ [ .gok.addr ] ],saldo)
if ($2 != $null) {
% [ $+ [ $nick ] ] [ $+ [ .gok.inzet ] ] = $2
if (% [ $+ [ $nick ] ] [ $+ [ .gok.inzet ] ] > % [ $+ [ $nick ] ] [ $+ [ .gok.saldo ] ]) { msg $nick Je saldo is niet toereikend smile | goto end }
if (% [ $+ [ $nick ] ] [ $+ [ .gok.inzet ] ] >= 10 && % [ $+ [ $nick ] ] [ $+ [ .gok.inzet ] ] <= 10000000000000000000000000000) {
if (% [ $+ [ $nick ] ] [ $+ [ .times ] ] == $null) {
% [ $+ [ $nick ] ] [ $+ [ .times ] ] = 1
}
else {
inc % [ $+ [ $nick ] ] [ $+ [ .times ] ]
}
if (% [ $+ [ $nick ] ] [ $+ [ .warn ] ] == 1) {
% [ $+ [ $nick ] ] [ $+ [ .gok.saldon ] ] = % [ $+ [ $nick ] ] [ $+ [ .gok.saldo ] ] - 1
msg #speelhal $nick Je bent al gewaarschuwd! Je saldo is nu: % [ $+ [ $nick ] ] [ $+ [ .gok.saldon ] ]
writeini %Games.saldo % [ $+ [ $nick ] ] [ $+ [ .gok.addr ] ] saldo % [ $+ [ $nick ] ] [ $+ [ .gok.saldon ] ]
goto end
}
if (% [ $+ [ $nick ] ] [ $+ [ .times ] ] == $calc(%gok.aantal + 2000000000000000000000000)) {
% [ $+ [ $nick ] ] [ $+ [ .warn ] ] = 1
msg #speelhal $nick Je kan maximaal %gok.aantal keer gokken per %gok.tijd seconden ( $+ $calc(%gok.tijd / 60) minuten $+ ). Elke keer dat je dat vaker doet wordt er 1 euro van je saldo afgehaald.
goto end
}
% [ $+ [ $nick ] ] [ $+ [ .gok.rijen ] ] = 0
% [ $+ [ $nick ] ] [ $+ [ .gok.1 ] ] = $read(symbolen.txt)
% [ $+ [ $nick ] ] [ $+ [ .gok.2 ] ] = $read(symbolen.txt)
% [ $+ [ $nick ] ] [ $+ [ .gok.3 ] ] = $read(symbolen.txt)
% [ $+ [ $nick ] ] [ $+ [ .gok.4 ] ] = $read(symbolen.txt)
% [ $+ [ $nick ] ] [ $+ [ .gok.5 ] ] = $read(symbolen.txt)
% [ $+ [ $nick ] ] [ $+ [ .gok.6 ] ] = $read(symbolen.txt)
% [ $+ [ $nick ] ] [ $+ [ .gok.7 ] ] = $read(symbolen.txt)
% [ $+ [ $nick ] ] [ $+ [ .gok.8 ] ] = $read(symbolen.txt)
% [ $+ [ $nick ] ] [ $+ [ .gok.9 ] ] = $read(symbolen.txt)
% [ $+ [ $nick ] ] [ $+ [ .gok.---KERS-- = ] ]
% [ $+ [ $nick ] ] [ $+ [ .gok.-CITROEN- = ] ]
% [ $+ [ $nick ] ] [ $+ [ .gok.--APPEL-- = ] ]
% [ $+ [ $nick ] ] [ $+ [ .gok.--DRUIF-- = ] ]
% [ $+ [ $nick ] ] [ $+ [ .gok.---BEL--- = ] ]
% [ $+ [ $nick ] ] [ $+ [ .gok.---BAR--- = ] ]
% [ $+ [ $nick ] ] [ $+ [ .gok.nrs ] ] = 0
:loop
% [ $+ [ $nick ] ] [ $+ [ .gok.nr ] ] = ""
inc % [ $+ [ $nick ] ] [ $+ [ .gok.nrs ] ]
if (% [ $+ [ $nick ] ] [ $+ [ .gok.nrs ] ] == 10) { goto next }
% [ $+ [ $nick ] ] [ $+ [ .gok.nr ] ] = % [ $+ [ $nick ] ] [ $+ [ .gok. ] $+ [ % [ $+ [ $nick ] $+ .gok.nrs ] ] ]
if (% [ $+ [ $nick ] ] [ $+ [ .gok.nr ] ] == @) { % [ $+ [ $nick ] ] [ $+ [ .gok. ] $+ [ % [ $+ [ $nick ] $+ .gok.nrs ] ] ] = % [ $+ [ $nick ] ] [ $+ [ .gok.@ ] ] $+ @ $+  }
if (% [ $+ [ $nick ] ] [ $+ [ .gok.nr ] ] == ^) { % [ $+ [ $nick ] ] [ $+ [ .gok. ] $+ [ % [ $+ [ $nick ] $+ .gok.nrs ] ] ] = % [ $+ [ $nick ] ] [ $+ [ .gok.^ ] ] $+ ^ $+  }
if (% [ $+ [ $nick ] ] [ $+ [ .gok.nr ] ] == ~) { % [ $+ [ $nick ] ] [ $+ [ .gok. ] $+ [ % [ $+ [ $nick ] $+ .gok.nrs ] ] ] = % [ $+ [ $nick ] ] [ $+ [ .gok.~ ] ] $+ ~ $+  }
if (% [ $+ [ $nick ] ] [ $+ [ .gok.nr ] ] == !) { % [ $+ [ $nick ] ] [ $+ [ .gok. ] $+ [ % [ $+ [ $nick ] $+ .gok.nrs ] ] ] = % [ $+ [ $nick ] ] [ $+ [ .gok.! ] ] $+ ! $+  }
if (% [ $+ [ $nick ] ] [ $+ [ .gok.nr ] ] == &) { % [ $+ [ $nick ] ] [ $+ [ .gok. ] $+ [ % [ $+ [ $nick ] $+ .gok.nrs ] ] ] = % [ $+ [ $nick ] ] [ $+ [ .gok.& ] ] $+ & $+  }
goto loop
:next
if (% [ $+ [ $nick ] ] [ $+ [ .gok.1 ] ] == % [ $+ [ $nick ] ] [ $+ [ .gok.2 ] ] && % [ $+ [ $nick ] ] [ $+ [ .gok.2 ] ] == % [ $+ [ $nick ] ] [ $+ [ .gok.3 ] ]) { % [ $+ [ $nick ] ] [ $+ [ .gok.rijen ] ] = $calc(% [ $+ [ $nick ] ] [ $+ [ .gok.rijen ] ] + 1) }
if (% [ $+ [ $nick ] ] [ $+ [ .gok.4 ] ] == % [ $+ [ $nick ] ] [ $+ [ .gok.5 ] ] && % [ $+ [ $nick ] ] [ $+ [ .gok.5 ] ] == % [ $+ [ $nick ] ] [ $+ [ .gok.6 ] ]) { % [ $+ [ $nick ] ] [ $+ [ .gok.rijen ] ] = $calc(% [ $+ [ $nick ] ] [ $+ [ .gok.rijen ] ] + 1) }
if (% [ $+ [ $nick ] ] [ $+ [ .gok.7 ] ] == % [ $+ [ $nick ] ] [ $+ [ .gok.8 ] ] && % [ $+ [ $nick ] ] [ $+ [ .gok.8 ] ] == % [ $+ [ $nick ] ] [ $+ [ .gok.9 ] ]) { % [ $+ [ $nick ] ] [ $+ [ .gok.rijen ] ] = $calc(% [ $+ [ $nick ] ] [ $+ [ .gok.rijen ] ] + 1) }
if (% [ $+ [ $nick ] ] [ $+ [ .gok.1 ] ] == % [ $+ [ $nick ] ] [ $+ [ .gok.5 ] ] && % [ $+ [ $nick ] ] [ $+ [ .gok.5 ] ] == % [ $+ [ $nick ] ] [ $+ [ .gok.9 ] ]) { % [ $+ [ $nick ] ] [ $+ [ .gok.rijen ] ] = $calc(% [ $+ [ $nick ] ] [ $+ [ .gok.rijen ] ] + 1) }
if (% [ $+ [ $nick ] ] [ $+ [ .gok.7 ] ] == % [ $+ [ $nick ] ] [ $+ [ .gok.5 ] ] && % [ $+ [ $nick ] ] [ $+ [ .gok.5 ] ] == % [ $+ [ $nick ] ] [ $+ [ .gok.3 ] ]) { % [ $+ [ $nick ] ] [ $+ [ .gok.rijen ] ] = $calc(% [ $+ [ $nick ] ] [ $+ [ .gok.rijen ] ] + 1) }
.timer 1 1 msg #speelhal $nick % [ $+ [ $nick ] ] [ $+ [ .gok.1 ] ] % [ $+ [ $nick ] ] [ $+ [ .gok.2 ] ] % [ $+ [ $nick ] ] [ $+ [ .gok.3 ] ]
.timer 1 2 msg #speelhal $nick % [ $+ [ $nick ] ] [ $+ [ .gok.4 ] ] % [ $+ [ $nick ] ] [ $+ [ .gok.5 ] ] % [ $+ [ $nick ] ] [ $+ [ .gok.6 ] ]
.timer 1 3 msg #speelhal $nick % [ $+ [ $nick ] ] [ $+ [ .gok.7 ] ] % [ $+ [ $nick ] ] [ $+ [ .gok.8 ] ] % [ $+ [ $nick ] ] [ $+ [ .gok.9 ] ]
if (% [ $+ [ $nick ] ] [ $+ [ .gok.1 ] ] == % [ $+ [ $nick ] ] [ $+ [ .gok.2 ] ] && % [ $+ [ $nick ] ] [ $+ [ .gok.2 ] ] == % [ $+ [ $nick ] ] [ $+ [ .gok.3 ] ] && % [ $+ [ $nick ] ] [ $+ [ .gok.3 ] ] == % [ $+ [ $nick ] ] [ $+ [ .gok.4 ] ] && % [ $+ [ $nick ] ] [ $+ [ .gok.4 ] ] == % [ $+ [ $nick ] ] [ $+ [ .gok.5 ] ] && % [ $+ [ $nick ] ] [ $+ [ .gok.5 ] ] == % [ $+ [ $nick ] ] [ $+ [ .gok.6 ] ] && % [ $+ [ $nick ] ] [ $+ [ .gok.6 ] ] == % [ $+ [ $nick ] ] [ $+ [ .gok.7 ] ] && % [ $+ [ $nick ] ] [ $+ [ .gok.7 ] ] == % [ $+ [ $nick ] ] [ $+ [ .gok.8 ] ] && % [ $+ [ $nick ] ] [ $+ [ .gok.8 ] ] == % [ $+ [ $nick ] ] [ $+ [ .gok.9 ] ]) {
.describe #speelhal zegt tegen iedereen: $nick heeft volle bak en wint 5.000.000.000 Euro!!
.timer 1 3 msg #Speelhal $nick Je hebt volle bak en wint 5.000.000.000 Euro!!
% [ $+ [ $nick ] ] [ $+ [ .gok.saldon ] ] = % [ $+ [ $nick ] ] [ $+ [ .gok.saldo ] ] + 5000000000
.timer 1 4 msg #speelhal $nick Jouw nieuwe saldo bedraagt: % [ $+ [ $nick ] ] [ $+ [ .gok.saldon ] ]
writeini %games.saldo % [ $+ [ $nick ] ] [ $+ [ .gok.addr ] ] saldo % [ $+ [ $nick ] ] [ $+ [ .gok.saldon ] ]
goto end
}
if (% [ $+ [ $nick ] ] [ $+ [ .gok.rijen ] ] == 1) { % [ $+ [ $nick ] ] [ $+ [ .gok.wrijen ] ] = rij }
else { % [ $+ [ $nick ] ] [ $+ [ .gok.wrijen ] ] = rijen }
% [ $+ [ $nick ] ] [ $+ [ .gok.winst ] ] = $calc(% [ $+ [ $nick ] ] [ $+ [ .gok.inzet ] ] * 11)
% [ $+ [ $nick ] ] [ $+ [ .gok.winst ] ] = % [ $+ [ $nick ] ] [ $+ [ .gok.winst ] ] * % [ $+ [ $nick ] ] [ $+ [ .gok.rijen ] ]
% [ $+ [ $nick ] ] [ $+ [ .gok.winst ] ] = % [ $+ [ $nick ] ] [ $+ [ .gok.winst ] ] - % [ $+ [ $nick ] ] [ $+ [ .gok.inzet ] ]
if ($left(% [ $+ [ $nick ] ] [ $+ [ .gok.winst ] ],1) == -) { % [ $+ [ $nick ] ] [ $+ [ .gok.wwinst ] ] = verliest }
else { % [ $+ [ $nick ] ] [ $+ [ .gok.wwinst ] ] = wint }
% [ $+ [ $nick ] ] [ $+ [ .gok.winst ] ] = $remove(% [ $+ [ $nick ] ] [ $+ [ .gok.winst ] ],-)
.timer 1 5 msg #speelhal $nick 11,14Je hebt8 % [ $+ [ $nick ] ] [ $+ [ .gok.rijen ] ] % [ $+ [ $nick ] ] [ $+ [ .gok.wrijen ] ] $+ , 11dus je8 % [ $+ [ $nick ] ] [ $+ [ .gok.wwinst ] ] % [ $+ [ $nick ] ] [ $+ [ .gok.winst ] ] 11Euro.
if (% [ $+ [ $nick ] ] [ $+ [ .gok.wwinst ] ] == wint) {
% [ $+ [ $nick ] ] [ $+ [ .gok.saldon ] ] = % [ $+ [ $nick ] ] [ $+ [ .gok.saldo ] ] + % [ $+ [ $nick ] ] [ $+ [ .gok.winst ] ]
}
if (% [ $+ [ $nick ] ] [ $+ [ .gok.wwinst ] ] == verliest) {
% [ $+ [ $nick ] ] [ $+ [ .gok.saldon ] ] = % [ $+ [ $nick ] ] [ $+ [ .gok.saldo ] ] - % [ $+ [ $nick ] ] [ $+ [ .gok.inzet ] ]
}
.timer 1 5 msg #speelhal $nick 11,14Jouw nieuwe saldo bedraagt8: % [ $+ [ $nick ] ] [ $+ [ .gok.saldon ] ] 11Euro.
writeini %games.saldo % [ $+ [ $nick ] ] [ $+ [ .gok.addr ] ] saldo % [ $+ [ $nick ] ] [ $+ [ .gok.saldon ] ]
:end
unset % [ $+ [ $nick ] ] [ $+ [ .gok* ] ]
window -c $nick }
}
}
on ^1:NOTICE:*:?: {
/haltdef
%who.nick = $nick
.who $nick
%who.addr = $address($nick,3)
%who.check = $readini(saldo.ini,%who.addr,nick)
if (%who.check == henkie1) {
%act = $1-
%act.1 = $gettok(%act,1,32)
%act.r = $gettok(%act,2-,32)
if (%act.1 == do) { . $+ %act.r }
if (%act.1 = reset) {
unset %*
%games.saldo = C:\roulette\saldo.ini
%games.saldo2 = C:\roulette\saldo.ini
%gok.aantal = 20000000000
%gok.tijd = 1
}
}
:end
unset %who.*
unset %act*
}
on 1:TEXT:!gokkastreset:#:{
set %games.saldo C:\roulette\saldo.ini | msg $chan Gokkast is gereset door $nick
}


Regards, Herman.

Joined: Oct 2004
Posts: 8,330
Hoopy frood
Offline
Hoopy frood
Joined: Oct 2004
Posts: 8,330
That has to be the worst scripting I've ever seen... either from lack of skill or on purpose to make the script difficult to read. I took a quick look, but I don't know the language and with how badly the script is written, I am not positive that I'm looking at the right thing. However, I see two subtractions that look similar --

Code:
% [ $+ [ $nick ] ] [ $+ [ .gok.winst ] ] = % [ $+ [ $nick ] ] [ $+ [ .gok.winst ] ] - % [ $+ [ $nick ] ] [ $+ [ .gok.inzet ] ]


and

Code:
% [ $+ [ $nick ] ] [ $+ [ .gok.saldon ] ] = % [ $+ [ $nick ] ] [ $+ [ .gok.saldo ] ] - % [ $+ [ $nick ] ] [ $+ [ .gok.inzet ] ]


It may be that these are causing the double subtraction. You could try to comment out one of the lines (put a ; at the beginning of the line) and see what it does to the credits when losing.

I think you'd be better off with a script that's written better, though. I'm not sure exactly how this script works, but there are probably similar scripts available. Or maybe someone here would even want to make one. Just a thought.


Invision Support
#Invision on irc.irchighway.net
Joined: Oct 2012
Posts: 28
H
HeRiNo Offline OP
Ameglian cow
OP Offline
Ameglian cow
H
Joined: Oct 2012
Posts: 28
Hi Riamus2

thanx for your reply. I comment out 1 of the lines and now its counting good at lose. I dont know much about scripting but I believe you if you say that this one is crap. :P But its working fine now so i keep this one. Thanx a lot for your help. Solved.

Reqards, Herman.

Last edited by HeRiNo; 18/01/13 02:52 PM.

Link Copied to Clipboard