Miten Teen Oman Trivia Botin???

elikkäs tehdään vaikka mircin pohjalle... eli tunge tää "triviabottis" remoteen :P

on *:TEXT:§aloita:#triviakanavatähän: {
if (%trivia != on) {
/msg #FFFF 6Trivian aloitti pelaaja4 $nick $+ 6!
/uusikysymys
}
}

on *:TEXT:§lopeta:#triviakanavatähän: /lopetatrivia

on *:TEXT:*:#triviakanavatähän: {
if ($1- == $gettok($read(trivia\kysymykset.txt,%kysymysnro),2,42)) {
/unset %pisteet
/set %pisteet $read(trivia\pisteet.txt, s, $nick)
/inc %pisteet
if (%voittoputkinick == $nick) /inc %voittoputki
else /set %voittoputki 1
/set %voittoputkinick $nick
/write -s $+ $nick trivia\pisteet.txt $nick %pisteet
/msg #triviakanavatähän 6 $+ $read(trivia\onnittelut.txt) $+ 4 $nick $+ 6! Vastaus oli4 $gettok($read(trivia\kysymykset.txt,%kysymysnro),2,42) $+ 6!
/msg #triviakanavatähän 6Pelaajalla4 $nick 6on nyt4 $read(trivia\pisteet.txt, s, $nick) 6pistettä. Pelaajan4 $nick 6voittoputki on4 %voittoputki 6kpl.
/unset %kysymysnro
/timer88 off
/timer33 off
/timer77 1 6 /uusikysymys
}
}

alias uusikysymys {
/timer88 off
/timer77 off
/timer33 off
/unset %trivia
/set %trivia on
/set %kysymykset $lines(trivia\kysymykset.txt)
/set %kysymysnro $rand(1,%kysymykset)
/set %vastaus $gettok($read(trivia\kysymykset.txt,%kysymysnro),2,42)
/set %vihje $replace($gettok($read(trivia\kysymykset.txt,%kysymysnro),2,42),r,@,t,@,y,@,u,@,o,@,p,@,s,@,d,@,f,@,h,@,j,@,k,@,l,@,v,@,n,@,m,@,1,@,2,@,3,@,4,@,5,@,6,@,7,@,8,@,9,@,0,@)
/msg #triviakanavatähän 4===== Kysymys %kysymysnro $+ / $+ %kysymykset (Vihje: 1/3) =====
/msg #triviakanavatähän 12 $+ $gettok($read(trivia\kysymykset.txt,%kysymysnro),1,42)
/msg #triviakanavatähän 3Vihje: %vihje $+ 
/set %aika $asctime(HH:nn:ss)
/timer88 1 45 /eivastausta
/timer33 1 15 /vihje2
}

alias vihje2 {
/timer33 off
/timer33 1 15 /vihje3
/set %vihje $replace($gettok($read(trivia\kysymykset.txt,%kysymysnro),2,42),r,@,t,@,y,@,o,@,p,@,d,@,f,@,j,@,k,@,l,@,n,@,1,@,3,@,4,@,5,@,6,@,7,@,8,@,9,@,0,@)
/msg #triviakanavatähän 4===== Kysymys %kysymysnro $+ / $+ %kysymykset (Vihje: 2/3) =====
/msg #triviakanavatähän 12 $+ $gettok($read(trivia\kysymykset.txt,%kysymysnro),1,42)
/msg #triviakanavatähän 3Vihje: %vihje $+ 
}

alias vihje3 {
/timer33 off
/set %vihje $replace($gettok($read(trivia\kysymykset.txt,%kysymysnro),2,42),t,@,p,@,f,@,h,@,j,@,k,@,l,@,n,@,1,@,3,@,4,@,5,@,6,@,7,@,9,@,0,@)
/msg #triviakanavatähän 4===== Kysymys %kysymysnro $+ / $+ %kysymykset (Vihje: 3/3) =====
/msg #triviakanavatähän 12 $+ $gettok($read(trivia\kysymykset.txt,%kysymysnro),1,42)
/msg #triviakanavatähän 3Vihje: %vihje $+ 
}

alias eivastausta {
/msg #triviakanavatähän 6Kukaan ei tiennyt vastausta! Vastaus oli4 $gettok($read(trivia\kysymykset.txt,%kysymysnro),2,42) $+ 6!
/timer33 off
/unset %kysymysnro
/unset %voittoputkinick
/timer77 1 4 /uusikysymys
}

alias lopetatrivia {
if (%trivia != off) {
/msg #triviakanavatähän 6Trivian lopetti pelaaja4 $nick $+ 6!
/timer88 off
/timer77 off
/timer33 off
/set %trivia off
/unset %kysymykset
/unset %kysymysnro
/unset %vastaus
/unset %pisteet
}
else /msg #triviakanavatähän 6Trivia ei ole päällä! Voit aloittaa sen komennolla4 !aloita6.
}


sitten teet triviabotin kansioon kansion "trivia" johon tiedoston "kysymykset" ja onnittelut" joihin tiedät varmaan mitä pistää ;)

enjoy