Advertisement
Guest User

Untitled

a guest
Jul 3rd, 2019
75
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VB.NET 1.12 KB | None | 0 0
  1. [EVENTS e_Human_ConvInit]
  2.  
  3. ON=@NPCSeeNewPlayer
  4.     // When a new person comes into range do something (attack them?)
  5.     if ( <DISTANCE> > 5 )   // too far away ?
  6.         return 1    // do nothing for now
  7.     ENDIF
  8.     FACE
  9.     IF ( <SRC.KARMA.WICKED> || <SRC.KARMA.BELLIGERENT> )
  10.         DORAND 5
  11.             SAY Nepriblizuj se ke me!
  12.             SAY Ani sem nechod!
  13.             SAY Neplytvej mym casem.
  14.             SAY Jdi pryc.
  15.             SAY Moc se tu nepoflakuj.
  16.         ENDDO
  17.     ELSE
  18.         ACT=<SRC.UID>
  19.         IF ( <SRC.FAME.INFAMOUS> || <SRC.FAME.OUTLAW> )
  20.             DORAND 3
  21.                 SAY Jdi pryc.
  22.                 SAY Moc se tu nepoflakuj.
  23.                 SAY chces se mnou mluvit? Radeji ne.
  24.             ENDDO
  25.         ELIF ( <SRC.FAME.ANONYMOUS> )
  26.             DORAND 4
  27.                 SAY Chces mi neco?
  28.                 SAY Ale koho to nevidim, <SRC.NAME>!
  29.                 SAY Prejes si neco?
  30.                 SAY Posloucham te.
  31.             ENDDO
  32.             SALUTE
  33.         ELSE
  34.             DORAND 4
  35.                 SAY Dobry den, <SRC.SEX vzacny pane/vzacna pani>.
  36.                 SAY Posloucham vas, <SRC.SEX pane/pani> <SRC.NAME>.
  37.                 SAY Prejete si neco, <SRC.SEX pane/pani> <SRC.NAME>?
  38.                 SAY Posloucham vas, <SRC.SEX pane/pani> <SRC.NAME>.
  39.             ENDDO
  40.             BOW
  41.         ENDIF
  42.         ACTION=107 // NPCACT_TALK_FOLLOW
  43.     ENDIF
  44.  
  45.     RETURN 0    // don't come here again.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement