Dabar yra 2020-09-23, 08:21




Naujos temos kūrimas Atsakyti į temą  [ 84 pranešimai(ų) ]  Eiti į Ankstesnis  1, 2, 3, 4, 5, 6
Loterijos botas 
Autorius Žinutė
Patyręs dalyvis
Patyręs dalyvis
Vartotojo avataras

Užsiregistravo: 2009-12-08, 21:19
Pranešimai: 955
Forumo litai: 1125
Pinigų pervedimas
Miestas: Vilnius
Standartinė Re: Loterijos botas
himba rašė:
Sveiki,as naujokas gal galit padeti as surasiau ta scripta ir remote ir ka toliau daryti kad tas ateitu ten ir t.t?



#1 ismokt skaityt
#2 perskaityt visa tema o ne tik ctrl + c ctrl + v
#3 padekoti sngz uz gera scripta

_________________
!!! <-

search.php & Google

Respect Existence or Expect Resistance


2011-08-22, 14:34
Aprašymas

Užsiregistravo: 2011-01-17, 17:00
Pranešimai: 41
Forumo litai: 75
Pinigų pervedimas
Standartinė Re: Loterijos botas
iso rašė:
Mantukass rašė:
Kaip padaryt kad kai atsijungia nuo mirc irgi unreg eitu
on *:Quit:#: {
? :wtf:


Pradzia yra, o pabaiga manau nuo "!unreg" galejai nukopint...

Kodas:
on *:quit: {
    if (%loterija) {
      if ($ini(loterija.ini,loterija,$nick)) {
        if ($ini(loterija.ini,iplog,$address($nick,2))) {
          remini loterija.ini iplog $address($nick,2)
        }
        remini loterija.ini loterija $nick
        msg %ch Žaidėjas $nick išregistruotas, žaidėjų: $ini(loterija.ini,loterija,0) $+ / $+ %players
      }
}
}




O ką rašyt šitos eilutėj
Kodas:
on *:quit: {

kad išregistruotų žaidėją, kai jis išeina iš kanalo, o ne išjungia mirc?


2012-03-24, 23:49
Aprašymas
Kalbusis dalyvis
Kalbusis dalyvis
Vartotojo avataras

Užsiregistravo: 2006-02-05, 16:05
Pranešimai: 1556
Forumo litai: 939
Pinigų pervedimas
Miestas: Klaipeda
Standartinė Re: Loterijos botas
on *:part:%ch: {

_________________
Niekas nezino ka savyje slepia, kol neparagauja valdzios.


2012-03-25, 15:40
Aprašymas WWW

Užsiregistravo: 2011-01-17, 17:00
Pranešimai: 41
Forumo litai: 75
Pinigų pervedimas
Standartinė Re: Loterijos botas
Kaip padaryti, kad prizą galimėtų rašyti ir su tarpais?

Pvz:

!start 10 MP3 Grotuvas

ir vėliau parašius !prizas atvaizduotų viską irgi normaliai su tarpais.


2012-03-26, 12:09
Aprašymas
Patyręs dalyvis
Patyręs dalyvis
Vartotojo avataras

Užsiregistravo: 2009-12-08, 21:19
Pranešimai: 955
Forumo litai: 1125
Pinigų pervedimas
Miestas: Vilnius
Standartinė Re: Loterijos botas
Bonqe rašė:
Kaip padaryti, kad prizą galimėtų rašyti ir su tarpais?

Pvz:

!start 10 MP3 Grotuvas

ir vėliau parašius !prizas atvaizduotų viską irgi normaliai su tarpais.




O tai tu gal apsispresk?

Arba rasai cia - ir nekuri nauju temu, arba nerasai cia nes jau sukurei nauja tema ?

atsakiau tavo sukurtoje temoje :)

_________________
!!! <-

search.php & Google

Respect Existence or Expect Resistance


2012-03-26, 17:19
Aprašymas
Kalbusis dalyvis
Kalbusis dalyvis
Vartotojo avataras

Užsiregistravo: 2006-02-05, 16:05
Pranešimai: 1556
Forumo litai: 939
Pinigų pervedimas
Miestas: Klaipeda
Standartinė Re: Loterijos botas
Taigi,

Jei loterijoje neisregistruojate zaideju, kai jie iseina is irc QUit arba is kanalo Part, tai jums galbut pravers sis papildymas. Botas automatiskai patikrins ar laimetojas yra kanale ir ar jo nikas yra identifikuotas.


Loterijos bote pakeiskite sita vieta :
Kodas:
            %winner = $ini(loterija.ini,loterija,$rand(1,$ini(loterija.ini,loterija,0)))
            msg %ch renkamas laimėtojas...
            remini loterija.ini loterija
            remini loterija.ini iplog
            inc %kiek
            set %last $ctime
            timer 1 5 msg %ch nugalėjo: %winner | unset %winner


Kad ji atrodytu TAIP:

Kodas:
            %winner = $ini(loterija.ini,loterija,$rand(1,$ini(loterija.ini,loterija,0)))
            msg %ch renkamas loterijos nugaletojas ...
            remini loterija.ini loterija
            remini loterija.ini iplog
            inc %kiek
            set %last $ctime
            mode %ch RMN
            ns status %winner
            timer1 1 3 msg %ch Laimejo nikas: %winner
            timer2 1 5 msg %ch Tikrinamas laimetojo tapatumas...
            timer3 1 7 laimetojas





Bei irasykite sita skripta po loterijos boto skriptu:

Kodas:
on *:notice:*:?: {
  if ($nick == NickServ) {
  set %status $3 }
}

alias laimetojas {
  if (%winner !ison %ch) {
    msg %ch Laimetojo %winner nera kanale
    unset %winner
    unset %status
    mode %ch -RMNm
  }
  elseif (%status != 3) {
    msg %ch Laimetojo %winner nikas neidentifikuotas
    unset %winner
    unset %status
    mode %ch -RMNm
  }
  elseif (%winner ison %ch && %status == 3) {
    msg %ch Laimetojas %winner atitiko keliamus reikalavimus, jam bus iteiktas prizas!
    mode %ch v %winner
    unset %status
    unset %winner
  mode %ch -RMNm }
}

_________________
Niekas nezino ka savyje slepia, kol neparagauja valdzios.


2012-09-25, 11:52
Aprašymas WWW

Užsiregistravo: 2014-01-05, 13:44
Pranešimai: 2
Forumo litai: 2
Pinigų pervedimas
Standartinė Re: Loterijos botas
Dekui uz bota :) Zinau kad yra tinginiu tai as pasidalinsiu scriptu kur nera nosiniu nesk ai buna loterija atrodo siaubingai su spalvomis taciau daugiau nieko naujo tik spalva ir nera nosiniu :) Beje splava raudona-balta

On *:connect:{
identify %psw
mode $me +R
join %ch
}
On *:text:*:%ch:{
if ($1 == !start) {
if ($level($nick) == admin) {
if ($2 isnum) && ($3) {
if (!%loterija) {
set %players $2
set %prizas $3
set %loterija 1
msg %ch 4,1Loterija 0,1prasideda. 4,1Zaideju 0,1skaicius:4,1 0/ $+ %players $+ ,0,1 prizas:4,1 %prizas
}
else { notice $nick 4,1Loterija 0,1jau 4,1paleista }
}
else { notice $nick 4,1blogai 0,1nurodyti 4,1parametrai: 0,1!start 4,1zaideju_skaicius 0,1prizas }
}
else { notice $nick 0,1Neturite 4,1priejimo. }
}
elseif ($1 == !stop) {
if ($level($nick) == admin) {
if (%loterija) { unset %loterija
remini loterija.ini loterija
remini loterija.ini iplog
msg %ch 0,1Loterija 4,1sustabdyta
}
else { notice $nick 0,1Registracija 4,1nepaleista }
}
else { notice $nick 0,1Neturite 4,1priejimo. }
}
elseif ($1 == !reg) {
if (%loterija) {
if (!$ini(loterija.ini,loterija,$nick)) {
if (!$ini(loterija.ini,iplog,$address($nick,2))) {
writeini loterija.ini loterija $nick 1
writeini loterija.ini iplog $address($nick,2) 1
msg %ch 0,1Nickas 4,1 $nick 0,1uzregistruotas, 4,1zaideju:0,1 $ini(loterija.ini,loterija,0) $+ / $+ %players
if ($ini(loterija.ini,loterija,0) == %players) {
unset %loterija
%winner = $ini(loterija.ini,loterija,$rand(1,$ini(loterija.ini,loterija,0)))
msg %ch 0,1renkamas 4,1laimetojas...
remini loterija.ini loterija
remini loterija.ini iplog
inc %kiek
set %last $ctime
timer 1 5 msg %ch 0,1nugalejo:4,1 %winner | unset %winner 0,1sveikinu!
}
}
else { notice $nick 4,1Vienam 0,1ip 4,1adresui 0,1leidziama 4,1viena 0,1registracija }
}
else { notice $nick 4,1Jus 0,1jau 4,1uzregistruotas }
}
else { notice $nick 4,1Siuo 0,1metu 4,1loterija 0,1nevyksta }
}
elseif ($1 == !unreg) {
if (%loterija) {
if ($ini(loterija.ini,loterija,$nick)) {
if ($ini(loterija.ini,iplog,$address($nick,2))) {
remini loterija.ini iplog $address($nick,2)
}
remini loterija.ini loterija $nick
msg %ch 0,1Zaidejas4,1 $nick 0,1isregistruotas, 4,1zaideju:0,1 $ini(loterija.ini,loterija,0) $+ / $+ %players
}
else { notice $nick 4,1Jus 0,1neregistruotas 4,1siame 0,1zaidime }
}
else { notice $nick 0,1Siuo 4,1metu 0,1loterija 4,1nevyksta }
}
elseif ($1 == !last) { notice $nick 4,1Paskutinis 0,1zaidimas 4,1vyko 0,1pries4,1 $duration($calc($ctime - %last)) }
elseif ($1 == !kiek) { notice $nick 0,1Viso 4,1zaista: %kiek }

elseif ($1 == !prizas) {
if (%loterija) {
notice $nick 0,1Prizas:4,1 %prizas
}
else { notice $nick 4,1Siuo 0,1metu 4,1loterija 0,1nevyksta }
}
elseif ($1 == !viso) {
if (%loterija) {
notice $nick Zaideju: $ini(loterija.ini,loterija,0)
}
else { notice $nick 0,1Siuo 4,1metu 0,1loterija 4,1nevyksta }
}
}


Tikiuos padejau bent kazkiek ;] :)


2014-01-05, 13:50
Aprašymas

Užsiregistravo: 2014-01-05, 13:44
Pranešimai: 2
Forumo litai: 2
Pinigų pervedimas
Standartinė Re: Loterijos botas
Iso man buna taip
Paraso ten kas laimejo
Tada tikrinamas tapatumas
Bet toliau nieko galetum padet? :)


2014-01-05, 14:01
Aprašymas
Patyręs dalyvis
Patyręs dalyvis
Vartotojo avataras

Užsiregistravo: 2009-12-08, 21:19
Pranešimai: 955
Forumo litai: 1125
Pinigų pervedimas
Miestas: Vilnius
Standartinė Re: Loterijos botas
koki nors errora status lange meta?

_________________
!!! <-

search.php & Google

Respect Existence or Expect Resistance


2014-01-31, 07:33
Aprašymas
Rodyti paskutinius pranešimus:  Rūšiuoti pagal  
Naujos temos kūrimas Atsakyti į temą  [ 84 pranešimai(ų) ]  Eiti į Ankstesnis  1, 2, 3, 4, 5, 6


Dabar prisijungę

Vartotojai naršantys šį forumą: Registruotų vartotojų nėra ir 6 svečių


Jūs negalite kurti naujų temų šiame forume
Jūs negalite atsakinėti į temas šiame forume
Jūs negalite redaguoti savo pranešimų šiame forume
Jūs negalite trinti savo pranešimų šiame forume
Jūs negalite prikabinti failų šiame forume

Ieškoti:
Pereiti į:  
cron
© phpBB Group. Veikia phpBB pagrindu.
Dizaino autorius Vjacheslav Trushkin, adaptavo Igor „MucTuK“ Gubaidulin
Vertė Vilius Šumskas © 2003, 2005, 2007