Please Log-in or Register to get full access to the forums.

Lost Password?

Post Reply 
 
Thread Rating:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Script] [L2Net]Rb Checker
06-24-2011, 11:58
Post: #1
[L2Net]Rb Checker
[hide]I see some post with request of this script. I have one i was found time ago.

Code:
// RaidBoss Checker
// Server: all
// Autor: mochitto
// Date: 6. 6. 2010
// Special thanks for L2.NET contributors
// rev.: 14
// Alojado en la página www.l2farm.superforo.net
PRINT_TEXT "SCRIPT STARTED!]"
INCLUDE StdLib/NPC.l2c

// Define section
// ===============================
DEFINE_GLOBAL STRING RB_NAME "Queen Ant"        // RaidBoss full name. You can search on http://l2jdp.com/l2jdb
DEFINE_GLOBAL STRING MSG_ALIVE "<&RB_NAME&> is alive!"  // Custom message for RaidBoss spawn You can use <&RB_NAME&>
DEFINE_GLOBAL INT CHECK_INTERVAL 5000         // Checking interval in ms (1sec = 1000ms)
DEFINE_GLOBAL INT ALARM 1                     // if 1 - On RB spawn play l2.net alarm and show message box
DEFINE_GLOBAL INT COUNTPMS 2                          // count pm then be sended
DEFINE_GLOBAL INT PMSINTERVAL 5000                    // inteval with pm pack send in ms (1s = 1000ms)

DEFINE_GLOBAL ARRAYLIST PLAYERS 0  // DONT EDIT!!!
DEFINE_GLOBAL ARRAYLIST NPCS 0     // DONT EDIT!!!

// Players list who will send message for RBspawn
// You can add next playrs if put next line: PLAYERS.add "#$playerName"
PLAYERS.add "#$Kadaj"

// Main section - DONT EDIT NEXT
// ===============================

WHILE ZERO == ZERO
    CHECK_RB
    SLEEP "<&CHECK_INTERVAL&>"
WEND

PRINT_TEXT "STOP SCRIPT!]"
END_SCRIPT

// Function section
// ===============================
FUNCTION CHECK_RB
    GET_NPCS NPCS
    FOREACH A NPC NPCS
        IF NPCS.A.NAME == RB_NAME
            PRINT_TEXT  "== <&RB_NAME&> ALIVE"
            IF ALARM == #i1
                MESSAGE_BOX "RaidBoss ALIVE" "RaidBoss: <&RB_NAME&> is alive!" "<&WARNING&>"
                PLAYALARM
            ENDIF
            ALERT_PLAYERS
            PRINT_TEXT "STOP SCRIPT!]"
            END_SCRIPT
        ENDIF
    NEXTEACH
    PRINT_TEXT "== <&RB_NAME&> DEAD"
RETURN VOID

FUNCTION ALERT_PLAYERS
    FOR A 0 "<&COUNTPMS&>" 1
        FOREACH A STRING PLAYERS
            SAY_TEXT "<&CHANNEL_PRIVATE&>" "<&MSG_ALIVE&>" "<&PLAYERS.a&>"
            SLEEP 500
        NEXTEACH
        SLEEP "<&PMSINTERVAL&>"
    NEXT
    PRINT_TEXT "== MESSAGES SENDED"
RETURN VOID

Enjoy it.
[/hide]

Being good is easy, how difficult is&nbsp; be fair.
Quote
Post Reply 


Possibly Related Threads...
Thread: Author Replies: Views: Last Post
  [Bot] help l2net l2chaos 0 274 12-20-2011 22:04
Last Post: l2chaos
  Help with L2Net dynamite 0 855 02-16-2011 15:57
Last Post: dynamite
  Get IP to bot easy on l2net ;) nija 1 1,007 11-24-2009 18:14
Last Post: Soul
  [Share] AIO Auto Enchant - L2NET script (safe from auto kick)(Gracia Final) Pod3r 14 4,402 07-31-2009 20:03
Last Post: Soul
  [Share] Enchanting one by one at L2Net (made by easy2k4) (GRACIA FINAL) Pod3r 0 1,026 07-04-2009 17:12
Last Post: Pod3r

Forum Jump:


User(s) browsing this thread: 1 Guest(s)