wizard1970
-
Posts
34 -
Joined
-
Last visited
Content Type
Profiles
Forums
Events
Posts posted by wizard1970
-
-
but in the SCRIPT.INI i have like this:
qnormal= \\quention ► %2 points ◄ 
 (co) nº %1 ►► %3 ?
%2 points is the points
nº %1 number of the question and
%3 the question that will get them to the document called questions
how i put the code in here??
qnormal= \\quention ► %2 points ◄ 
 (co) nº %1 ►► %3 ?
the trivia is st5.0
-
no, is a small server, do not know what, just changed the interface and now the 
 doesn't work
there is some list or something where i can pick ? or a code etc...
thanks
-
\\Question ► 7 points ◄
nº 51 ►► What swimming stroke is named after an insect?
in the old interface 
 works well but the new interface 
 will not separate the lines
\\Question ► 14 points ◄ nº 56 ►► What swimming stroke is named after an insect?
Any idea to separate the lines?
Like this:
\\Question ► 7 points ◄ and a code to put other line below nº 56 ►► What swimming stroke is named after an insect?
this doesn't work 

thanks
-
How i put a time code in this game for 1 minute
thanks for any help
menu menubar {
=Hangman=
.Hangman ( $+ $group(#hangman) $+ )
..New Game:{ /resetguess }
..Set Word:{ set %originalword $$?="Set Your Word." | set %turnsleft %numberoftries | set %capitalguess $replace(%originalword, a, !, b, @, c, ?, d, $, e, %, f, ^, g, &, h, *, i, /, j, \, k, -, l, =, m, [, n, ], o,;, p, >, q, <, r, 1, s, 2, t, 3, u, 4, v, 5, w, 6, x, 7, y, 8, z, 9) | echo -a 1,1---1,4[Current Word]=[ $+ %originalword $+ ] }
..New Random Word:{ $resetguess }
..-
..Set Number Of Tries:{ set %numberoftries $$?="Number Of Turns?" | set %turnsleft %numberoftries }
..=SCORE IT=:{ $HangmanScore }
..-
..How To Play:{ /ctcpreply $chan TIME 
-- How to play -- 
 1) In order for the game to recognise your guess u must type 
 !hguess [your letter] 
~ For example: "!hguess a" will tell the computer you are guessing the letter a }
..Game Status
...Enable:{ .enable #hangman | .disable #wisperguess | .disable #quietguess | .disable #numberguess | /msg $chan S eTahoma;0 Hangman Started - For a list of game commands, type !hcmds - To Play, type !hguess [your letter] | /echo 0,12 Hangman 0,4 Started !
}
...Disable:{ .disable #hangman | /msg $chan S eTahoma;0 Hangman Terminated - Game Over | /echo 0,12 Hangman 0,4 Ended ! }
..Current Settings
...Word Length $len(%originalword)
...Turns Left %turnsleft
...Total Words $lines(Games/Hangwords.txt)
}
#hangman on
on *:TEXT:*.hangman:#:{ msg $chan S Tahoma;0 $nick , Lets Play HANGMAN To Play, type .hg [your letter] EX: ".hg a" means you're guessing the letter: a (Y) For help type: .Hhelp and for other commands: .hcmds ~ Enjoy }
on *:TEXT:*.hcmds:#:{ msg $chan S eTahoma;0 [[ .setword, .newword, .percent, .sayword, .length, .numberofwords, .numberoftries, .Hhelp, .hg ]] }
on *:TEXT:*.setword*:*:{ set %originalword $2- | set %turnsleft %numberoftries | set %capitalguess $replace(%originalword, a, !, b, @, c, ?, d, $, e, %, f, ^, g, &, h, *, i, /, j, \, k, -, l, =, m, [, n, ], o,;, p, >, q, <, r, 1, s, 2, t, 3, u, 4, v, 5, w, 6, x, 7, y, 8, z, 9) | echo -a 1,1---1,4[Current Word]=[ $+ %originalword $+ ] }
on *:TEXT:*.newword:#:{ $resetguess }
on *:TEXT:*.percent:#:{ set %lettersleft4 $calc $len(%capitalguess) | set %percentguess $calc((%lettersleft2 / %lettersleft4) * 100)) | msg $chan [[ %percentguess ]] }
on *:TEXT:*.sayword:#:{ msg $chan [[ %originalword ]] }
on *:TEXT:*.length:#:{ msg $chan [[ $len(%originalword) ]] }
on *:TEXT:*.numberofwords:#:{ msg $chan [[ Total Words: $lines(Games/Hangwords.txt) ]] }
on *:TEXT:*.numberoftries*:#:{ set %numberoftries $2 | set %turnsleft %numberoftries }
on *:TEXT:*.Hhelp*:#:{ /ctcpreply $nick TIME 
-- How to play -- 
1)In order for the game to recognise your guess you must type 
!hguess [your letter] 
~ For example: "!hguess a" will tell the computer you are guessing the letter: a }
on *:TEXT:*.hscore:#:{ $HangmanScore }
alias HangmanScore {
set %n 1
/msg $chan [ Scoring HangMan ]]
goto chanscore
:chanscore {
if ($readini(hangmanscores.ini,Scores,$nick($chan,%n)) != $null) {
/msg $chan [ $nick($chan,%n) $+ 's Score: $readini(hangmanscores.ini,Scores,$nick($chan,%n)) ]]
}
if (%n >= $nick($chan,0)) { goto end }
}
inc %n
goto chanscore
:end {
/msg $chan [ Scoring Complete ]
}
}
alias resetguess {
set %lettersguessed
set %turnsleft %numberoftries
set %originalword $read(Games\Hangwords.txt)
if (%originalword isin %wordsused) { /resetguess }
%wordsused = %wordsused + %originalword
if ($len(%wordsused) >= 50) { /unset -q %wordsused }
set %capitalguess $replace(%originalword, a, !, b, @, c, ?, d, $, e, %, f, ^, g, &, h, *, i, /, j, \, k, -, l, =, m, [, n, ], o,;, p, >, q, <, r, 1, s, 2, t, 3, u, 4, v, 5, w, 6, x, 7, y, 8, z, 9)
echo -a 1,1---1,4[Current Word]=[ $+ %originalword $+ ]
msg $chan [[ New Word Set ]-[ Length: $len(%originalword) ]
}
alias strip {
set %lettersleft $remove(%capitalguess3,_, )
set %lettersleft2 $len(%lettersleft)
set %lettersleft3 $calc($len(%capitalguess) - %lettersleft2)
}
alias percent {
set %lettersleft4 $len(%capitalguess)
set %percentguess $calc((%lettersleft2 / %lettersleft4) * 100))
}
on *:TEXT:*!hg*:#: {
if ($2- == %originalword) { { %scoring = $readini(hangmanscores.ini,Scores,$nick) | set %scoring2 $calc(%scoring + 1) | writeini hangmanscores.ini Scores $nick %scoring2 | set %nickscore $readini(hangmanscores.ini,Scores,$nick) } /msg $chan S Tahoma;0 [[ $nick got it ]-[ %originalword ]-[ $nick 's Score: %nickscore ]] | /resetguess | halt } else goto onlyone
:onlyone
if ($len($2-) >= 2) { msg $chan S Papyrus;0 [[ $nick only one letter at a time please ]] | halt } else goto notinit
:notinit
if ($2 == $null) { halt } else goto letters
:letters {
if (a isin $2) || if (a isin %originalword) { set %capitalguess $replace(%capitalguess, !, a) }
if (b isin $2) || if (b isin %originalword) { set %capitalguess $replace(%capitalguess, @, }
if (c isin $2) || if (c isin %originalword) { set %capitalguess $replace(%capitalguess, ?, c) }
if (d isin $2) || if (d isin %originalword) { set %capitalguess $replace(%capitalguess, $, d) }
if (e isin $2) || if (e isin %originalword) { set %capitalguess $replace(%capitalguess, %, e) }
if (f isin $2) || if (f isin %originalword) { set %capitalguess $replace(%capitalguess, ^, f) }
if (g isin $2) || if (g isin %originalword) { set %capitalguess $replace(%capitalguess, &, g) }
if (h isin $2) || if (h isin %originalword) { set %capitalguess $replace(%capitalguess, *, h) }
if (i isin $2) || if (i isin %originalword) { set %capitalguess $replace(%capitalguess, /, i) }
if (j isin $2) || if (j isin %originalword) { set %capitalguess $replace(%capitalguess, \, j) }
if (k isin $2) || if (k isin %originalword) { set %capitalguess $replace(%capitalguess, -, k) }
if (l isin $2) || if (l isin %originalword) { set %capitalguess $replace(%capitalguess, =, l) }
if (m isin $2) || if (m isin %originalword) { set %capitalguess $replace(%capitalguess, [, m) }
if (n isin $2) || if (n isin %originalword) { set %capitalguess $replace(%capitalguess, ], n) }
if (o isin $2) || if (o isin %originalword) { set %capitalguess $replace(%capitalguess,;, o) }
if (p isin $2) || if (p isin %originalword) { set %capitalguess $replace(%capitalguess, >, p) }
if (q isin $2) || if (q isin %originalword) { set %capitalguess $replace(%capitalguess, <, q) }
if (r isin $2) || if (r isin %originalword) { set %capitalguess $replace(%capitalguess, 1, r) }
if (s isin $2) || if (s isin %originalword) { set %capitalguess $replace(%capitalguess, 2, s) }
if (t isin $2) || if (t isin %originalword) { set %capitalguess $replace(%capitalguess, 3, t) }
if (u isin $2) || if (u isin %originalword) { set %capitalguess $replace(%capitalguess, 4, u) }
if (v isin $2) || if (v isin %originalword) { set %capitalguess $replace(%capitalguess, 5, v) }
if (w isin $2) || if (w isin %originalword) { set %capitalguess $replace(%capitalguess, 6, w) }
if (x isin $2) || if (x isin %originalword) { set %capitalguess $replace(%capitalguess, 7, x) }
if (y isin $2) || if (y isin %originalword) { set %capitalguess $replace(%capitalguess, 8, y) }
if (z isin $2) || if (z isin %originalword) { set %capitalguess $replace(%capitalguess, 9, z) }
set %capitalguess3 $replace(%capitalguess, !, _, @, _, ?, _, $, _, %, _, ^, _, &, _, *, _, /, _, \, _, -, _, =, _, [, _, ], _,;, _, >, _, <, _, 1, _, 2, _, 3, _, 4, _, 5, _, 6, _, 7, _, 8, _, 9, _)
if (%capitalguess3 == %originalword) { { %scoring = $readini(hangmanscores.ini,Scores,$nick) | set %scoring2 $calc(%scoring + 1) | writeini hangmanscores.ini Scores $nick %scoring2 | set %nickscore $readini(hangmanscores.ini,Scores,$nick) } msg $chan S Tahoma;0 [[ $nick got it ]-[ %originalword ]-[ $nick 's Score: %nickscore ]] | resetguess | halt }
if ($2 isin %lettersguessed) { msg $chan S Tahoma;0 [[ Letters Already Used: %lettersguessed ]] | halt }
set %lettersguessed %lettersguessed $2
$strip
$percent
if (%turnsleft == 0) { msg $chan S Tahoma;0 [[Ooops, Looks like you ran out of guesses]-[ Your dude just got hanged ]-[The word was: %originalword $+ ] | resetguess | halt }
if ($2 isin %originalword) { msg $chan S Papyrus;0 [[ %capitalguess3 ]-[ $upper( $2 ) is in it ]-[ Letters Left: %lettersleft3 ]-[ Tries Left: %turnsleft ]] | halt } else
set %turnsleft $calc(%turnsleft - 1)
msg $chan S Papyrus;0 [[ %capitalguess3 ]-[ Letters Left: %lettersleft3 ]-[ Tries Left: %turnsleft ]-[ $2 ]]
}
}
#hangman end
on *:TEXT:*.addhang*:#: {
if ($2) { write GAMES\hangwords.txt $2- | msg $nick TIME Tnx, your word has been added to hangman (Y) }
-
Hello, it is possible put timer in this code?
on *:join:#:{
mode # +v $nick
}
I want to put a timer whith 5 seconds, the nick enter in the room and wait 5 seconds
-
works great, thanks for the good work, congratulations
thanks guys
-
and this?
I want to put only owners doing this command
on 5:text:*:#: {
tokenize 32 $strip($1-)
if ($1 == !mute) {
if ($address($2,2)) mode $chan +bb ~q: $+ $v1 ~n: $+ $v1
else msg $chan No address found for $2 $+ .
mode $chan -aohv $2 $2 $2 $2
msg $chan $2 Just Muted You For Reason: $iif($3,$3-,Blatent Retardation.)
}
on 5:text:*:#:{
tokenize 32 $strip($1-)
if ($1 == !unmute) {
if ($address($2,2)) mode $chan -bb ~q: $+ $v1 ~n: $+ $v11
else msg $chan No address found for $2 $+ .
mode $chan +v $2
msg $chan You have been unmuted... That was your only warning.. Do not annoy me again or you will be banned.
}
}
is possible?
thanks
-
I have a script and when I try to enter the room, gives this error
/dll: unable to open 'C:\DOCUME~1\....\MYDOCU~1\Os' (line 221, conn.mrc)
and the lines are:
Line 221 --> dll %m SetMircVersion $version
dll %m MarkDialog %d
dll %m SetControlMDX %d 2 ListView report grid flatsb nosortheader > $bc.ff(views.mdx)
did -i %d 2 1 headerdims 120 34 35 160
did -i %d 2 1 headertext sala $chr(9) usr $chr(9) cat $chr(9) tópico
did -i %d 2 1 seticon normal 0, $+ $bc.ff(bc.ico)
slist
Anybody know what this is?
thanks
-
Thanks to all, works perfectly
-
well, i have a script, and i want that script tell how long is in the room
"Hello (nick) my name is....and im online ......."
something like that
-
There is a code to tell who enters in the room, how long the bot is online?
thanks
-
I do not want the script for war, wanted for a few nicks in my room, only this, but thank you for the attention
-
there is a script that put many nicks in the room? like 20 or 30 nicks
thanks
-
I search and search and nothing, perhaps i search for the wrong word
-
I want to give my points to a player in the game st5.0
!give nick 500
thanks
-
i try to make this game like this, but obviously doesn't work
someone could help and try to find where the error is?
thank you
menu channel { Jo-Ken-Po Game - $iif($timer(jkp0),On,Off): $iif($timer(jkp0),.timerjkp0 off,.timerjkp0 0 850 .signal JoKenPo) } On *:signal:JoKenPo: { if ($timer(jkp7)) return unset %jkp.* var %mao = $rand(1,99) var %s = $rand(1,100) if (%mao > 0 && %mao <= 70) { set jkpbet $rand(50,1000) } else { set jkpbet $rand(50,1000) } set jkptotal 0 if (%mao > 0 && %mao <= 33) { set jkp.win rock | set jkp.lose paper | set myplay scissors } elseif (%mao > 33 && %mao <= 66) { set jkp.win paper | set jkp.lose scissors | set myplay rock } else { set jkp.win scissors | set jkp.lose rock | set myplay paper } .enable #jkpinput .timerjkp1 1 1 mstat *s1 
 Jo-Ken-Po Game $& 
 choose between !paper !rock or !scissors .timerjkp2 1 3 mstat *s1 
 Win or lose points $& 
◠Use !paper !rock or !scissors .timerjkp3 1 13 mstat *s1 you have 20 seconds .timerjkp4 1 23 mstat *s1 you have 10 seconds .timerjkp5 1 28 mstat *s1 you have 5 seconds .timerjkp7 1 33 jkpstop } #jkpinput off on *:text: *:#:{ if (rock isin $1 || scissors isin $1 || paper isin $1) { if ($2) { if ($2 isnum) { if ($2 > 0 && $2 <= $thget(jkpbet)) { if ($2 <= $stx_points($nick)) { set jkptotal $calc($get(jkptotal) + 1) set JTemp.jkp. $+ $get(jkptotal) $nick if ($1 isin $get(jkp.win)) { set2 jkp win set2 jbet $2 } elseif ($1 isin $get(jkp.lose)) { set2 jkp lose set2 jbet $calc((-1) * $2) } else { set2 jkp tie set2 jbet 0 } mstat *s1 $nick - chose $1 and bet $2 points! } else { .mtime $nick , sorry, but can not bet more than you have! } } else { .mtime $nick you can bet between 1 and $thget(jkpbet) $+ ! } } else { .mtime $nick Hey, $nick , you already bet } } #jkpinput end alias jkpstop { .disable #jkpinput mstat *s1 time to bet is finish, I choose $get(myplay) 
 nice job to who won! - nice try, its a tie! - better next time for those who lost %ij = 1 .timerst_next 1 $sts(delay_wrong) st question set jtemp.cng $get($eval(JTemp.jbet. $+ $get($eval(JTemp.jkp. $+ %ij,1)),1)) setvar $get($eval(JTemp.jkp. $+ %ij,1)) Score $calc($realvar($get($eval(JTemp.jkp. $+ %ij,1)), Score) + $get(jtemp.cng)) set $eval(Score. $+ $get($eval(JTemp.jkp. $+ %ij,1)),1) $calc($get($eval(Score. $+ $get($eval(JTemp.jkp. $+ %ij,1)),1)) + $get(temp.cng)) if ($get($eval(JTemp.jbet. $+ $get($eval(JTemp.jkp. $+ %ij,1)),1)) == 0) { .mstat *s1 $get($eval(JTemp.jkp. $+ %ij,1)) : (*) $get($eval(JTemp.jkp. $+ %ij,1)) (*) its a tie!;) } else { .mstat *s1 $get($eval(JTemp.jkp. $+ %ij,1)) : (*) $get($eval(JTemp.jkp. $+ %ij,1)) (*) $iif($get($eval(JTemp.jbet. $+ $get($eval(JTemp.jkp. $+ %ij,1)),1)) > 0,Win $get($eval(JTemp.jbet. $+ $get($eval(JTemp.jkp. $+ %ij,1)),1)), loses $calc($get($eval(JTemp.jbet. $+ $get($eval(JTemp.jkp. $+ %ij,1)),1)) * -1)) ponto $+ $iif($get($eval(JTemp.jbet. $+ $get($eval(JTemp.jkp. $+ %ij,1)),1)) != 1,s) $+ ! Points: $stx_points($nick)($get($eval(JTemp.jkp. $+ %ij,1))) } inc %ij } } unset %jkp.* }
-
now it works
thanks travis for you help
-
well the timer it works fine but the message the end of the game not appears
msg $1 Game Over
-
Where i put this? :noidea:
-
how i put a timer is this game, lets say.....1 minute
i want put a timer like this
""msg $chan $nick has started a cookie guessing game! guess by saying !cg NUMBER, you have 1 minute""
thanks
on *:TEXT:!cguess*:#:{
if (%numberzz == $null) goto this
if (%numberzz != $null) goto that
:this
msg $chan $nick has started a cookie guessing game! guess by saying !cg NUMBER.
set %numberzz $rand(0,100)
echo 3 -a %numberzz
.notice Sephiroth1n6 the answer is %numberzz
halt
:that
.notice $nick a game is in progress. please wait until the game is over, or you could just type !stopcookie
halt
}
on *:TEXT:!stopcookie*:#:{
if (%numberz != $null) goto not
if (%numberz == $null) goto yup
:not
msg $chan Cookie Guessing Stopped By $nick $+ . The Answer Was %numberz $+ .
unset %numberzz
halt
:yup
.notice $nick There Is Currently No Game In Progress.
halt
}
on *:TEXT:!cg *:#:{
if ($2 > %numberzz) goto greater
if ($2 < %numberzz) goto lesser
if ($2 == %numberzz) goto equal
if (%numberzz == $null) goto whom
else goto what
:greater
msg $chan $nick $+ , That Answer Was Wrong! But Keep Guessing. Try a Lower Number!
halt
:lesser
msg $chan $nick $+ , That Answer Was Wrong! But Keep Guessing. Try a Higher Number!
halt
:equal
msg $chan $nick Guessed The Correct Number of cookies, %numberzz and gets to eat them all!!!
unset %numberzz
halt
:what
halt
:whom .notice $nick there is currently no game in progress. Type !cguess to start a game.
halt
}
-
no one can find the error?
I do ! paper or !paper and answer is "already chosen"
please
thanks
-
well maybe is something else, i tray but doesn't work
-
someone knows how to put the command in this game? the command is !paper !rock or scissors, i think that is here on *:text:! *:#:{
but how?
;_______________________________________________________________________________
_____
;::::::::::::::::::: Jo-Ken-Po
;¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
¯¯¯¯¯
alias -l st_jo_ken_pon {
if ($timer(jkp7)) return
unset %jkp.*
%jkp.max = 3
set %jkp.jkpal $r(1,3)
if (%jkp.jkpal == 1) { set %jkp.myplay scissors | set %jkp.lose paper | set %jkp.win rock }
if (%jkp.jkpal == 2) { set %jkp.myplay rock | set %jkp.lose scissors | set %jkp.win Paper }
if (%jkp.jkpal == 3) { set %jkp.myplay paper | set %jkp.lose rock | set %jkp.win scissors }
var %i = 1
while (%i <= %jkp.max) { %jkp.vrij = $addtok(%jkp.vrij,%i,32) | inc %i }
.enable #jkpinput
.timerjkp1 1 1 mstat *s1 
 ►► Jo Ken Po $&

 rock, paper ou scissors
.timerjkp2 1 3 mstat *s1 
 Win or Lose Points $&

 Use! <element> to play!!
.timerjkp3 1 13 mstat *s1 you have 20 seconds to play
.timerjkp4 1 23 mstat *s1 you have 10 seconds to play
.timerjkp5 1 28 mstat *s1 you have 15 seconds to play
.timerjkp7 1 33 jkpstop
}
#jkpinput off
on *:text:! *:#:{
if (%jkp. [ $+ [ $nick ] ]) mtime $nick you have chose %jkp. [ $+ [ $nick ] ] before !
else {
if (!$istok(%jkp.vrij,$2,32)) mtime $nick has been chose $2 .
else {
%jkp.vrij = $remtok(%jkp.vrij,$2,32)
%jkp. [ $+ [ $nick ] ] = $2
mtime $nick you chose $2 !
if ($2 == %jkp.myplay) %jkp.tie = $nick
if ($2 == %jkp.lose) %jkp.lose = $nick
if ($2 == %jkp.win) %jkp.win = $nick
}
}
else mtime $nick $nick You have to choose.
}
#jkpinput end
alias jkpstop {
.disable #jkpinput
mstat *s1 end of Jo Ken Po▓▒ 
 %jkp.myplay ► tie %jkp.lose ► -50 points %jkp.win ► 100 Points
.timerst_next 1 $sts(delay_wrong) st question
if (%jkp.win) {
stx_addpoints %jkp.win 100
mtime %jkp.win $stm %jkp.win You get 100 points in Jo Ken Po
}
if (%jkp.lose) {
stx_addpoints %jkp.lose -50
mtime %jkp.perde $stm %jkp.loose you looses 50 points in Jo Ken Po
}
if (%jkp.tie) {
stx_addpoints %jkp.tie 0
mtime %jkp.tie $stm %jkp.tie its a tie with Jo Ken Po
}
unset %jkp.*
}
-
the code above is working, the only thing is when i do paper 50 ou rock 10 nothing happens, i think that something is missing in command to choose that I want to play
Help
in General IRCd
Posted
not understand much of it, so i don't understand what you mean, sorry