Dabar yra 2020-06-03, 15:24




Naujos temos kūrimas Atsakyti į temą  [ 1 pranešimas ] 
Sveiki,reikia pagalbos del script 
Autorius Žinutė

Užsiregistravo: 2010-10-20, 15:49
Pranešimai: 23
Forumo litai: 36
Pinigų pervedimas
Standartinė Sveiki,reikia pagalbos del script
on *:udpread:pcw:{
if ($sockerr > 0) {
return
}
:nextreada
sockread -f %pcw.sock
if ($sockbr == 0) {
return
}
if (%pcw.sock == $null) {
goto nextreada
}
else {
if (players isin %pcw.sock) {
var %zaidejai $gettok(%pcw.sock,3,32)
write sistema.txt %zaidejai Zaidejai
}
if ($chr(35) == $gettok(%pcw.sock,1,32)) && (name != $gettok(%pcw.sock,2,32)) {
write sistema.txt $gettok(%pcw.sock,2,32) $gettok(%pcw.sock,4,32) $remove($gettok(%pcw.sock,3,32),")
timer 1 $calc($gettok(%pcw.sock,2,32) * 0.5) msg %nickas 0,1 $gettok(%pcw.sock,2,32) - $remove($gettok(%pcw.sock,3,32),") ( $+ $gettok(%pcw.sock,5,32) $+ ), kodas 4.kick $gettok(%pcw.sock,4,32) 
}
if ($gettok(%pcw.sock,1,32) == ˙˙˙˙challenge) {
writeini sistema.ini %nick chnum $gettok(%pcw.sock,3,32)
}
if ($left(%pcw.sock,5) == ˙˙˙˙l) {
%pcw.sock = $remove(%pcw.sock,$left(%pcw.sock,5))
}
}
aline -p @pcw %pcw.sock
goto nextreada
}




alias laikas {
if ($readini(sistema.ini,$1,pcw) == on) {
var %t.s $readini(sistema.ini, $+ $1 $+ ,t.s)
var %f.s $readini(sistema.ini, $+ $1 $+ ,f.s)
var %s  $+ %t.s $+ , $+ %f.s
var %t 0, $+ %f.s
notice $1 %t Jusu pcw galiojimas baigiasi, noredami pratesti pcw galiojimo laika 15 minutemis rasykite mano private: %s $+ .pratesti $+ %t .
cmd $replace($gettok($readini(sistema.ini,$readini(sistema.ini,$1,chan),$1),1,32),:,$chr(32)) $readini(sistema.ini,$1,chnum) $gettok($readini(sistema.ini,$readini(sistema.ini,$1,chan),$1),2,32) say [maToxaZ] Pcw galiojimo laikas baigiasi,galite naudotis komanda .pratesti
timer 1 300 pratesimas $1
writeini sistema.ini $1 gali 1
timer 1 300 remini sistema.ini $1 gali
}
}
alias pratesimas {
if ($readini(sistema.ini,$1,pcw) == on) {
if ($ini(sistema.ini,$1,pratesimas)) {
timer 1 600 pabaiga $1
}
else {
var %t.s $readini(sistema.ini, $+ $1 $+ ,t.s)
var %f.s $readini(sistema.ini, $+ $1 $+ ,f.s)
var %s  $+ %t.s $+ , $+ %f.s
var %t 0, $+ %f.s
notice $1 %t Aciu kad naudojates musu paslaugomis.
timer 1 10 msg $readini(sistema.ini,$1,chan) %t Atsilaisvino $gettok($readini(sistema.ini,$readini(sistema.ini,$1,chan),$1),1,32) serveris, noredami ji gauti rasykite %s $+ .startpcw 
cmd $replace($gettok($readini(sistema.ini,$readini(sistema.ini,$1,chan),$1),1,32),:,$chr(32)) $readini(sistema.ini,$1,chnum) $gettok($readini(sistema.ini,$readini(sistema.ini,$1,chan),$1),2,32) say [PCW by maToxaZ] Aciu kad naudojates musu paslaugomis.
timer 1 3 cmd $replace($gettok($readini(sistema.ini,$readini(sistema.ini,$1,chan),$1),1,32),:,$chr(32)) $readini(sistema.ini,$1,chnum) $gettok($readini(sistema.ini,$readini(sistema.ini,$1,chan),$1),2,32) sv_password pcwbymatoxaz
timer 1 5 cmd $replace($gettok($readini(sistema.ini,$readini(sistema.ini,$1,chan),$1),1,32),:,$chr(32)) $readini(sistema.ini,$1,chnum) $gettok($readini(sistema.ini,$readini(sistema.ini,$1,chan),$1),2,32) changelevel de_dust
writeini sistema.ini $1 pcw off
remini sistema.ini $1 pratesimas
write $readini(sistema.ini,$1,chan) $+ .laisvi.txt $readini(sistema.ini,$1,ip) $readini(sistema.ini,$1,rcon)
}
}
}
alias pabaiga {
if ($ini(sistema.ini,$1,pcw) == on) {
var %t.s $readini(sistema.ini, $+ $1 $+ ,t.s)
var %f.s $readini(sistema.ini, $+ $1 $+ ,f.s)
var %s  $+ %t.s $+ , $+ %f.s
var %t 0, $+ %f.s
notice $1 %t Aciu kad naudojates musu paslaugomis.
timer 1 10 msg $readini(sistema.ini,$1,chan) %t Atsilaisvino $gettok($readini(sistema.ini,$readini(sistema.ini,$1,chan),$1),1,32) serveris, noredami ji gauti rasykite %s $+ .startpcw 
cmd $replace($gettok($readini(sistema.ini,$readini(sistema.ini,$1,chan),$1),1,32),:,$chr(32)) $readini(sistema.ini,$1,chnum) $gettok($readini(sistema.ini,$readini(sistema.ini,$1,chan),$1),2,32) say [PCW by maToxaZ] Aciu kad naudojates musu paslaugomis.
timer 1 3 cmd $replace($gettok($readini(sistema.ini,$readini(sistema.ini,$1,chan),$1),1,32),:,$chr(32)) $readini(sistema.ini,$1,chnum) $gettok($readini(sistema.ini,$readini(sistema.ini,$1,chan),$1),2,32) sv_password pcwbymatoxaz
timer 1 5 cmd $replace($gettok($readini(sistema.ini,$readini(sistema.ini,$1,chan),$1),1,32),:,$chr(32)) $readini(sistema.ini,$1,chnum) $gettok($readini(sistema.ini,$readini(sistema.ini,$1,chan),$1),2,32) changelevel de_dust
writeini sistema.ini $1 pcw off
remini sistema.ini $1 pratesimas
write $readini(sistema.ini,$1,chan) $+ .laisvi.txt $readini(sistema.ini,$1,ip) $readini(sistema.ini,$1,rcon)
}
}
alias ivyko {
msg $1 $3 Ivykdyta komanda $4 $+ $2 $3 $+ .
}
on *:start: {
if (!%start) {
dialog -m inbox inbox
}
else { server }
}
dialog inbox {
title "Pcw Sistema"
size -1 -1 133 156
option dbu
text "Si langa jus matysite tik viena karta, tad duomenis iveskite teisingai", 1, 9 4 110 16, center
text "Pcw boto nickas", 2, 2 25 40 8
text "Pcw boto slaptazodis", 3, 2 38 50 8
text "Serveris", 4, 2 51 24 8
text "Portas", 5, 2 65 24 8
text "Boto savininko nickas:", 6, 2 87 128 8, center
button "Toliau", 7, 3 140 56 12
button "Aciu, ne dabar", 8, 73 140 56 12
edit "Alarm", 9, 2 100 129 10, limit 30 center
edit "", 10, 58 24 63 10, autohs limit 30 center
edit "", 11, 58 36 63 10, pass autohs center
edit "", 13, 58 64 63 10, limit 7 center
combo 12, 58 50 63 50, size drop
text "Pagrindinis boto kanalas:", 14, 2 112 128 8, center
edit "#help", 15, 2 125 129 10, limit 30 center
}
on *:dialog:inbox:*:*: {
if ($devent == init) {
did -a inbox 12 irc.data.lt
did -a inbox 12 irc.ktu.lt
did -a inbox 12 irc.mikrovisata.lt
did -a inbox 12 irc.kis.lt
did -a inbox 12 irc.torrent.lt
did -a inbox 12 irc-ssl.data.lt
}
if ($devent == sclick) {
if ($did == 12) {
if ($did(inbox,12).seltext == irc-ssl.data.lt) {
did -ra inbox 13 +6668
}
else { did -ra inbox 13 6667 }
}
if ($did == 8) {
dialog -x inbox
disconnect
exit
}
if ($did == 7) {
set %start 1
set %bot.owner $did(inbox,9)
set %bot.chan $did(inbox,15)
set %bot.pw $did(inbox,11)
set %bot.nick $did(inbox,10)
writeini sistema.ini admin %bot.owner %bot.chan
writeini sistema.ini %bot.chan laikas 45
writeini sistema.ini %bot.chan t.s 4
writeini sistema.ini %bot.chan f.s 01
server $did(inbox,12).seltext $did(inbox,13)
dialog -x inbox
}
}
}


Sveiki dar kart, ziurekite yra tokia problema cia ispcw boto,pasiimu pcw ir kaip baigiasi laikas atsilaisvina arena bet pradingsta ta arena is txt failo nesuprantu kodel... O kaip noriu antra syki pasiimti jau tos arenos nebera txt faile pradingusi imi kita arena. Dekui jei padesite.


2011-11-29, 21:34
Aprašymas
Rodyti paskutinius pranešimus:  Rūšiuoti pagal  
Naujos temos kūrimas Atsakyti į temą  [ 1 pranešimas ] 


Dabar prisijungę

Vartotojai naršantys šį forumą: Registruotų vartotojų nėra ir 2 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