!ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
!³NAME:TG-NAG.V                           DATE:?4-23-1994?  ÚÄÂÄ¿          ³\
!³FULL NAME:The Gunslinger's Nag Script   TYPE: Script       ÉÍÍÍ A        ³ ³
!³VBBS Version: ?ALL?                                        ºÁÍ»UNSLINGER ³ ³
!³                                                           ÈÍͼ SCRIPT   ³ ³
!ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´ Description ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´ ³
!³This is a simple a nag script to nag your users for donations.  Two of   ³ ³
!³the sections were taken from Silly Boy scripts (The dancing guy and the  ³ ³
!³3 second count down).  You need to modify the flags to your flag settings³ ³
!³to what you use.                                                         ³ ³
!ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ ³
! ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
! -=[ Contributors ]=-                                       
$p = $flags instr B
Ifval $p <> 0 then
Go Cont
Endif
! -=[ JCUBBS Members Access ]=-
$p = $flags instr C
ifval $p <> 0 then
Go Cont
Endif
! -=[ Local Co-Sysops ]=-
$p = $flags instr S
ifval $p <> 0 then
Go Cont
Endif
$WNAG = 1 RND 9
TestVal $WNag < 3 sb-Nagl
TestVal $WNag < 6 my-f
TestVal $wNag < 9 hoola-m
EndIf
# SB-NAGL
tr "6  NON-CONTRIBUTOR NAG LINE  53 Second Delay Active0"
delay 3
# CONT
go end
# MY-F
tr $clear
LOC 12 1
TR "  5O2O"
tr "  5³2³"
tr "  6()                 7NON-CONTRIBUTER NAGLINE"
delay 1
LOC 12 1
TR "      "
tr "      "
tr "5OÄ6()2ÄO               9NON-CONTRIBUTER NAGLINE"
delay 1
loc 14 1
tr "  6()                 1NON-CONTRIBUTER NAGLINE"
tr "  5³2³"
tr "  5O2O"
delay 1
loc 14 1
tr "5OÄ6()2ÄO              9 NON-CONTRIBUTER NAGLINE"
tr "      "
tr "      "
delay 1
loc 12 1
tr "  5O2O"
tr "  5³2³"
tr "  6()                 7NON-CONTRIBUTER NAGLINE"
delay 1
tr
tr
tr
pause
tr $clear
go end
# HOOLA-M
tr $Clear
loc 15 1
tr "6NON-CONTRIBUTOR NAG LINE0"
tr "                                 U  \
 "
tr "                                 U   ³>"
tr "                                 U  << "
delay 1
loc 15 1
tr "                                                         "
tr "                                 U  \
 6GIMME A 1N6!!"
tr "                                 U   ³\  6GIMME A 2A6!!"
tr "                                 U  -<     6GIMME A 5G6!!"
delay 1
loc 15 1
tr "                                                         "
tr "                                 U   
/                       "
tr "                                 U  <³   6WHAT'S THAT SPELL??"
tr "                                 U   >>                       "
delay 1
loc 15 1
tr "                                                               "
tr "                                 U   
/      1NAG!!!         "
tr "                                 U  /³         6NAG!!!       "
tr "                                 U   >-          5NAG!!!     "
delay 1
loop
loc 15 1
tr "1Donations remove all delays and nags!!                       "
tr "                                 U  \
/                       "
tr "                                 U   ³                        "
tr "                                 U  / \                       "
tr "                                                               "
delay 2                                      
go end
# END
exit start
.