How To Make A Panic bot stay online forever

**Gizmo92883** Sat Jan 22, 2011 12:17 am

most scripts have panic bots running around but they dont last forerver

For Example this will last a few seconds

Code:: our $state = 0; while (1) { if (!$o->consume) { print scalar(localtime).": [$$] *YAWN* ($state)\n"; select(undef,undef,undef,1); if (!$state) { } elsif ($state==1) { $o->doJoinRoom($o->{room}); $o->doSendPosition(300,300); $o->doSendMessage("$o->{message1}"); sleep 5; $o->doSendMessage("$o->{message2}"); sleep 5; $o->doSendMessage("$o->{message3}"); sleep 4; last; } $state++; } }

But to make it last forever change last; to $state = 0;
Example

Code:: our $state = 0; while (1) { if (!$o->consume) { print scalar(localtime).": [$$] *YAWN* ($state)\n"; select(undef,undef,undef,1); if (!$state) { } elsif ($state==1) { $o->doJoinRoom($o->{room}); $o->doSendPosition(300,300); $o->doSendMessage("$o->{message1}"); sleep 5; $o->doSendMessage("$o->{message2}"); sleep 5; $o->doSendMessage("$o->{message3}"); sleep 4; $state = 0; } $state++; } }