| Cevap: Belirtileni silmek
on *:text:*:#: {
if $1 == !sabıkalıekle { if !$read(sabıkalı.txt,w,$+(*,$2)) { inc %1 1 | write sabıkalı.txt $+($(%1,2),:,$chr(32),$2) | msg # $2 listeye eklendi. } }
if $1 == !sabıkalısil { if $regex($2,/[1-9]) && $read(sabıkalı.txt,s,$+($2,:)) { write $+(-dl,$readn) sabıkalı.txt | msg # $2 numarasındaki veri silindi. } }
if $1 == !sabıkalılar { var %< = 1,%> = $lines(sabıkalı.txt) | while %< <= %> { msg # $read(sabıkalı.txt,%<) | inc %< } }
}
!sabıkalılar yaparsan olucaktır.
|