Çevrimdışı

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,w,$+($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 %< } }
}


Şeklinde değişirsen istediğin olacaktır.