Сообщения Marline

Marline

там не две строчки эта во-первых ! а во вторых эти эффекты имеются в моторе, так что не морочь мозги ... иди займись делам .

сами ленятся сделать что то , а когда другой делает то они ещё и выпендриваются !

Marline

Мастерx ... тупим ?

Marline

должно быть .

Marline

@"MasterX":
Скрипты нпс копипастить с eathena.ws могут к сожалению все(в том числе и администрация, они бы давно это ввели), но вот наш эмулятор, как и клиент, не знает эффекта Торнадо... Хотя бы автора оставила.

Первый скрипт аналог @dance, второй скрипт - билетная лотерея с призом в размере нн-ного количества зен, реализованная с помощью переменных. Ничего нового Лишь ещё один способ читерно доставать зени в игру.

Чушь такую наплёл ...

Marline

Я не девушка ! =_=

Marline

Антошка Незя

Marline

Вот ешё скрипт .

Предложение ввести Латерею(лото) в игру .

//===== eAthena Script =======================================
//= Lottery Script
//===== By: ==================================================
//
//===== Current Version: =====================================
//= 1.2.1a
//===== Compatible With: =====================================
//= Any eAthena Version
//===== Description: =========================================
//= Daily lottery draw.
//===== Additional Comments: =================================
//= Numbers drawn daily (Time is configured line 29)
//= *Added GM-Riggability
//= *Ability to renew ticket
//= *Improved interface
//= *Fixed minor bug where first load didn't work.
//= 1.2.1a fix due to new script engine
//============================================================

prontera,1,1,1 script lotterygenerator 111,{
OnInit:
set $L_TicketPrice,4750; // TICKET COST
set $L_Prize_Money,(Выигращ , внесите вашу цену); // JACKPOT AMOUNT
set $L_Prize_Money_Small,(Маленький выигращ , внесите вашу цену ); // SECONDARY PRIZE
if ($LID == 0) goto L_GenID;
end;

//Modify for own time
OnClock2045:
// CHECKS IF LOTTERY IS RIGGED
if ($L_Rigged == 1) goto L_Rigged_Draw;
// GENERATES RANDOM NUMBERS 1-40
Pick1:
set $LW1,rand (1,40);

Pick2:
set $LW2,rand (1,40);
if ($LW2 == $LW1) goto Pick2;

Pick3:
set $LW3,rand (1,40);
if ($LW3 == $LW2) goto Pick3;
if ($LW3 == $LW1) goto Pick3;

Pick4:
set $LW4,rand (1,40);
if ($LW4 == $LW2) goto Pick4;
if ($LW4 == $LW1) goto Pick4;
if ($LW4 == $LW3) goto Pick4;

Pick5:
set $LW5,rand (1,40);
if ($LW5 == $LW1) goto Pick5;
if ($LW5 == $LW2) goto Pick5;
if ($LW5 == $LW3) goto Pick5;
if ($LW5 == $LW4) goto Pick5;

Pick6:
set $LW6,rand (1,40);
if ($LW6 == $LW1) goto Pick6;
if ($LW6 == $LW2) goto Pick6;
if ($LW6 == $LW3) goto Pick6;
if ($LW6 == $LW4) goto Pick6;
if ($LW6 == $LW5) goto Pick6;

// BROADCASTS DRAW
L_Broadcast:
Announce "Lottery: Welcome to tonight's lotto draw!",8;
Announce "The numbers are as follows: [" + $LW1 + "] [" + $LW2 + "] [" + $LW3 + "] [" + $LW4 + "] [" + $LW5 + "] [" + $LW6 + "]",8;
Announce "Congratulations to the winners of tonight!",8;

// GENERATES DRAW ID CODE
L_GenID:
set $LID2,$LID;
// SETS TOMORROW'S ID NUMBER
set $LID,rand (100000,999999);
end;

// SETS DRAW TO RIGGED NUMBERS
L_Rigged_Draw:
set $LW1,$LR1;
set $LW2,$LR2;
set $LW3,$LR3;
set $LW4,$LR4;
set $LW5,$LR5;
set $LW6,$LR6;
set $L_Rigged,0;
goto L_Broadcast;
}

// BEGIN LOTTERY SCRIPT

script lottery 76,{
L_Begin:
mes "[Lottery]";
mes "Winning Lotto Numbers ("+$LID2+"):";
mes "^0000FF[" + $LW1 + "] [" + $LW2 + "] [" + $LW3 + "] [" + $LW4 + "] [" + $LW5 + "] [" + $LW6 + "]^000000";
if ($LID > 99999) mes "Your Ticket ("+#LID+"):";
if ($LID > 99999) mes "^FF0000[" + #LW1 + "] [" + #LW2 + "] [" + #LW3 + "] [" + #LW4 + "] [" + #LW5 + "] [" + #LW6 + "]^000000";
mes "Next Draw-ID: ^FF0000" + $LID + "^000000.";
next;
if (getgmlevel() > 90) goto L_GM;
menu "Claim Prize",L_Claim,"Buy New Ticket",L_Buy,"Cancel",L_Cancel;

// PURCHASE TICKET
L_Buy:
if (#LID == $LID && #L1 != 0) goto L_DoubleTicket;
mes "[Lottery]";
mes "Tickets cost ^0000FF" + $L_TicketPrice + "z^000000.";
mes "The Jackpot is ^FF0000" + $L_Prize_Money + "z^000000.";
next;
menu "Buy Ticket",-,"Cancel",L_Cancel;
if (zeny < $L_TicketPrice) goto L_NoZeny;
set zeny,zeny-$L_TicketPrice;
mes "[Lottery]";
mes "Would you like your numbers hand picked or computer generated?";
next;
menu "Computer Generated",L_ComputerGen,"Hand Picked",L_HandPick,"Renew Ticket",L_Renew;

// RENEW LAST TICKET
L_Renew:
if ($LID < 99999) goto L_Invalid;
set #LID,$LID;
goto L_Confirm2;

L_ComputerGen:
// SELECTS RANDOM NUMBERS
set @L1,0;
set @L2,0;
set @L3,0;
set @L4,0;
set @L5,0;
set @L6,0;
Pick1:
set @L1,rand (1,40);
Pick2:
set @L2,rand (1,40);
if (@L2 == @L1) goto Pick2;
Pick3:
set @L3,rand (1,40);
if (@L3 == @L2) goto Pick3;
if (@L3 == @L1) goto Pick3;
Pick4:
set @L4,rand (1,40);
if (@L4 == @L2) goto Pick4;
if (@L4 == @L1) goto Pick4;
if (@L4 == @L3) goto Pick4;
Pick5:
set @L5,rand (1,40);
if (@L5 == @L1) goto Pick5;
if (@L5 == @L2) goto Pick5;
if (@L5 == @L3) goto Pick5;
if (@L5 == @L4) goto Pick5;
Pick6:
set @L6,rand (1,40);
if (@L6 == @L1) goto Pick6;
if (@L6 == @L2) goto Pick6;
if (@L6 == @L3) goto Pick6;
if (@L6 == @L4) goto Pick6;
if (@L6 == @L5) goto Pick6;
mes "[Lottery]";
mes "The computer has selected the following numbers:";
mes "^0000FF" + @L1 + " " + @L2 + " " + @L3 + " " + @L4 + " " + @L5 + " " + @L6 + "^000000";
next;
menu "Confirm",L_Confirm,"Re-Generate",L_ComputerGen;

// HAND PICK LOTTERY NUMBERS
L_HandPick:
mes "[Lottery]";
mes "Please pick your numbers (1-40):";
set @L1,0;
set @L2,0;
set @L3,0;
set @L4,0;
set @L5,0;
set @L6,0;
Input1:
input @L1;
if (@L1 < 1 || @L1 > 40) goto Input1;
mes @L1;
Input2:
input @L2;
if (@L2 < 1 || @L2 > 40) goto Input2;
if (@L2 == @L1) goto Input2;
mes @L2;
Input3:
input @L3;
if (@L3 < 1 || @L3 > 40) goto Input3;
if (@L3 == @L1) goto Input3;
if (@L3 == @L2) goto Input3;
mes @L3;
Input4:
input @L4;
if (@L4 < 1 || @L4 > 40) goto Input4;
if (@L4 == @L1) goto Input4;
if (@L4 == @L2) goto Input4;
if (@L4 == @L3) goto Input4;
mes @L4;
Input5:
input @L5;
if (@L5 < 1 || @L5 > 40) goto Input5;
if (@L5 == @L1) goto Input5;
if (@L5 == @L2) goto Input5;
if (@L5 == @L3) goto Input5;
if (@L5 == @L4) goto Input5;
mes @L5;
Input6:
input @L6;
if (@L6 < 1 || @L6 > 40) goto Input6;
if (@L6 == @L1) goto Input6;
if (@L6 == @L2) goto Input6;
if (@L6 == @L3) goto Input6;
if (@L6 == @L4) goto Input6;
if (@L6 == @L5) goto Input6;
mes @L6;
next;
mes "[Lottery]";
mes "Your numbers are:";
mes "^0000FF" + @L1 + " " + @L2 + " " + @L3 + " " + @L4 + " " + @L5 + " " + @L6 + "^000000";
next;
menu "Confirm",L_Confirm,"Re-Pick",L_HandPick;

L_Confirm:
set #LW1,@L1;
set #LW2,@L2;
set #LW3,@L3;
set #LW4,@L4;
set #LW5,@L5;
set #LW6,@L6;
set #LID,$LID;
L_Confirm2:
mes "[Lottery]";
mes "The live broadcasted draw is at 9pm.";
mes "You can claim your ticket between then and the next draw.";
next;
mes "[Lottery]";
mes "Good luck!";
close;

L_Claim:
// CHECKS TICKET VALIDILITY
if (#LID != $LID2) goto L_Invalid;
// CHECKS HOW MANY NUMBERS MATCHED
set @LPrize,0;
if (#LW1 == $LW1) set @LPrize,@LPrize+1;
if (#LW1 == $LW2) set @LPrize,@LPrize+1;
if (#LW1 == $LW3) set @LPrize,@LPrize+1;
if (#LW1 == $LW4) set @LPrize,@LPrize+1;
if (#LW1 == $LW5) set @LPrize,@LPrize+1;
if (#LW1 == $LW6) set @LPrize,@LPrize+1;
if (#LW2 == $LW1) set @LPrize,@LPrize+1;
if (#LW2 == $LW2) set @LPrize,@LPrize+1;
if (#LW2 == $LW3) set @LPrize,@LPrize+1;
if (#LW2 == $LW4) set @LPrize,@LPrize+1;
if (#LW2 == $LW5) set @LPrize,@LPrize+1;
if (#LW2 == $LW6) set @LPrize,@LPrize+1;
if (#LW3 == $LW1) set @LPrize,@LPrize+1;
if (#LW3 == $LW2) set @LPrize,@LPrize+1;
if (#LW3 == $LW3) set @LPrize,@LPrize+1;
if (#LW3 == $LW4) set @LPrize,@LPrize+1;
if (#LW3 == $LW5) set @LPrize,@LPrize+1;
if (#LW3 == $LW6) set @LPrize,@LPrize+1;
if (#LW4 == $LW1) set @LPrize,@LPrize+1;
if (#LW4 == $LW2) set @LPrize,@LPrize+1;
if (#LW4 == $LW3) set @LPrize,@LPrize+1;
if (#LW4 == $LW4) set @LPrize,@LPrize+1;
if (#LW4 == $LW5) set @LPrize,@LPrize+1;
if (#LW4 == $LW6) set @LPrize,@LPrize+1;
if (#LW5 == $LW1) set @LPrize,@LPrize+1;
if (#LW5 == $LW2) set @LPrize,@LPrize+1;
if (#LW5 == $LW3) set @LPrize,@LPrize+1;
if (#LW5 == $LW4) set @LPrize,@LPrize+1;
if (#LW5 == $LW5) set @LPrize,@LPrize+1;
if (#LW5 == $LW6) set @LPrize,@LPrize+1;
if (#LW6 == $LW1) set @LPrize,@LPrize+1;
if (#LW6 == $LW2) set @LPrize,@LPrize+1;
if (#LW6 == $LW3) set @LPrize,@LPrize+1;
if (#LW6 == $LW4) set @LPrize,@LPrize+1;
if (#LW6 == $LW5) set @LPrize,@LPrize+1;
if (#LW6 == $LW6) set @LPrize,@LPrize+1;

if (@LPrize == 6) goto LWinBig;
if (@LPrize > 3 && @LPrize < 6) goto LWinSmall;

// NO WINNER
mes "[Lottery]";
mes "Bad luck, it appears you do not hold a winning ticket.";
next;
mes "[Lottery]";
mes "Better luck next time!.";
close;

// MATCHED ALL SIX
LWinBig:
mes "[Lottery]";
mes "You have matched all six numbers!";
mes "Jackpot!";
mes "You've won ^0000FF" + $L_Prize_Money + "z^000000.";
set zeny,zeny+$L_Prize_Money;
Announce "Lottery: " + strcharinfo(0) + " has won the JACKPOT of " + $L_Prize_Money + "z!",8;
set #LID,0;
close;

// MATCHED AT LEAST 4
LWinSmall:
mes "[Lottery]";
mes "You have matched at least 4 numbers!";
mes "You've won ^0000FF" + $L_Prize_Money_Small + "z^000000.";
set zeny,zeny+$L_Prize_Money_Small;
Announce "Lottery: " + strcharinfo(0) + " has won a prize of " + $L_Prize_Money_Small + "z!",8;
set #LID,0;
close;

// NO ZENY
L_NoZeny:
mes "[Lottery]";
mes "You can't afford a lottery ticket.";
close;

// INVALID TICKET
L_Invalid:
mes "[Lottery]";
mes "I'm sorry but it appears that you have an invalid ticket.";
close;

// DOUBLE TICKET
L_DoubleTicket:
mes "[Lottery]";
mes "It appears that you already have a ticket for today.";
mes "You may only purchase one ticket per draw.";
close;

L_Cancel:
mes "[Lottery]";
mes "Come back soon!";
close;

// GM MENU (Lets you manually do draws)
L_GM:
menu "Claim Prize",L_Claim,"Buy New Ticket",L_Buy,"[GM]Do Draw Now",-,"[GM]Rig the Lottery",L_GM_Rig,"Cancel",L_Cancel;

// CHECKS IF LOTTERY IS RIGGED
if ($L_Rigged == 1) goto L_Rigged_Draw;
// GENERATES RANDOM NUMBERS 1-40
GMPick1:
set $LW1,rand (1,40);

GMPick2:
set $LW2,rand (1,40);
if ($LW2 == $LW1) goto GMPick2;

GMPick3:
set $LW3,rand (1,40);
if ($LW3 == $LW2) goto GMPick3;
if ($LW3 == $LW1) goto GMPick3;

GMPick4:
set $LW4,rand (1,40);
if ($LW4 == $LW2) goto GMPick4;
if ($LW4 == $LW1) goto GMPick4;
if ($LW4 == $LW3) goto GMPick4;

GMPick5:
set $LW5,rand (1,40);
if ($LW5 == $LW1) goto GMPick5;
if ($LW5 == $LW2) goto GMPick5;
if ($LW5 == $LW3) goto GMPick5;
if ($LW5 == $LW4) goto GMPick5;

GMPick6:
set $LW6,rand (1,40);
if ($LW6 == $LW1) goto GMPick6;
if ($LW6 == $LW2) goto GMPick6;
if ($LW6 == $LW3) goto GMPick6;
if ($LW6 == $LW4) goto GMPick6;
if ($LW6 == $LW5) goto GMPick6;

// BROADCASTS DRAW
L_Broadcast:
Announce "Lottery: Welcome to the special GM's lotto draw!",8;
Announce "The numbers are as follows: [" + $LW1 + "] [" + $LW2 + "] [" + $LW3 + "] [" + $LW4 + "] [" + $LW5 + "] [" + $LW6 + "]",8;
Announce "Congratulations to the winners!",8;

// GENERATES DRAW ID CODE
L_GenID:
set $LID2,$LID;
// SETS TOMORROW'S ID NUMBER
set $LID,rand (100000,999999);
close;

// SETS DRAW TO RIGGED NUMBERS
L_Rigged_Draw:
set $LW1,$LR1;
set $LW2,$LR2;
set $LW3,$LR3;
set $LW4,$LR4;
set $LW5,$LR5;
set $LW6,$LR6;
set $L_Rigged,0;
goto L_Broadcast;

// ALLOWS GM TO DO A RIGGED DRAW
L_GM_Rig:
mes "[Lottery]";
mes "Please pick your numbers (1-40):";
set $LR1,0;
set $LR2,0;
set $LR3,0;
set $LR4,0;
set $LR5,0;
set $LR6,0;
GMInput1:
Input $LR1;
if ($LR1 < 1 || $LR1 > 40) goto GMInput1;
mes $LR1;
GMInput2:
Input $LR2;
if ($LR2 < 1 || $LR2 > 40) goto GMInput2;
if ($LR2 == $LR1) goto GMInput2;
mes $LR2;
GMInput3:
Input $LR3;
if ($LR3 < 1 || $LR3 > 40) goto GMInput3;
if ($LR3 == $LR1) goto GMInput3;
if ($LR3 == $LR2) goto GMInput3;
mes $LR3;
GMInput4:
Input $LR4;
if ($LR4 < 1 || $LR4 > 40) goto GMInput4;
if ($LR4 == $LR1) goto GMInput4;
if ($LR4 == $LR2) goto GMInput4;
if ($LR4 == $LR3) goto GMInput4;
mes $LR4;
GMInput5:
Input $LR5;
if ($LR5 < 1 || $LR5 > 40) goto GMInput5;
if ($LR5 == $LR1) goto GMInput5;
if ($LR5 == $LR2) goto GMInput5;
if ($LR5 == $LR3) goto GMInput5;
if ($LR5 == $LR4) goto GMInput5;
mes $LR5;
GMInput6:
Input $LR6;
if ($LR6 < 1 || $LR6 > 40) goto GMInput6;
if ($LR6 == $LR1) goto GMInput6;
if ($LR6 == $LR2) goto GMInput6;
if ($LR6 == $LR3) goto GMInput6;
if ($LR6 == $LR4) goto GMInput6;
if ($LR6 == $LR5) goto GMInput6;
mes $LR6;
next;
mes "[Lottery]";
mes "Lottery rigged for next draw.";
set $L_Rigged,1;
close;
}

cmd_in02,174,131,5 duplicate(lottery) Lottery 76

Marline

Скрины к сожелению немогу дать могу ток намекнуть что эта торнадо .

Marline

вот мой первый скрипт.

Можете его исползовать как дополнительная возможность для супер премумов .

src\map\atcommand.c

CODE
ACMD_FUNC(tornado); // Marline

CODE
{ AtCommand_tornado, "@tornado", 1, atcommand_tornado }, // Marline

CODE
/*==========================================

@tornado X by Marline
=> Special effects with tornado style
------------------------------------------
/
int atcommand_Magic(
const int fd, struct map_session_data sd,
const char command, const char* message)
{
nullpo_retr(-1, sd);

if (!message || !*message) {
clif_displaymessage(fd, "usage: @tornado 1-6");
return -1;
}
if ( atoi(message) == 1 ) {
clif_specialeffect(&sd->bl, 459, 0);
} else if ( atoi(message) == 2 ) {
clif_specialeffect(&sd->bl, 460, 0);
} else if ( atoi(message) == 3 ) {
clif_specialeffect(&sd->bl, 461, 0);
} else if ( atoi(message) == 4 ) {
clif_specialeffect(&sd->bl, 464, 0);
} else if ( atoi(message) == 5 ) {
clif_specialeffect(&sd->bl, 465, 0);
} else if ( atoi(message) == 6 ) {

}
return 0;
}

src\map\atcommand.h

CODE
AtCommand_tornado, // Marline

Marline

уахахахах 3 професий не сушествует ? убей меня .......... ахахахахха

Ржу немогу !!!!!

вопервых эта те же профы .... тока изменена одежда ! насчёт того что это выдуманно !

вам дали образ ! ваше дело создавать его или нет ! поверте не сложно проста нужно програмку одну скачять и всё будит ок !
я вам дал придложение ! хотите меняйте хотите нет ....

Marline

Моё предложение состоится в том чтобы поменять одежду классов на болею красивую и новую !

Прецтовляю вам Маддели нового поколение рагнарок он-лайн !

<a class="postlink" href="http://img.photobucket.com/albums/v83/neoyami/aco3rdclasses.jpg">http://img.photobucket.com/albums/v83/n ... lasses.jpg</a>

<a class="postlink" href="http://img.photobucket.com/albums/v83/neoyami/archert3rdclasses.jpg">http://img.photobucket.com/albums/v83/n ... lasses.jpg</a>

<a class="postlink" href="http://img.photobucket.com/albums/v83/neoyami/mage3rdclasses.jpg">http://img.photobucket.com/albums/v83/n ... lasses.jpg</a>

<a class="postlink" href="http://img.photobucket.com/albums/v83/neoyami/merchant3rdclasses.jpg">http://img.photobucket.com/albums/v83/n ... lasses.jpg</a>

<a class="postlink" href="http://img.photobucket.com/albums/v83/neoyami/swordie3rdclasses.jpg">http://img.photobucket.com/albums/v83/n ... lasses.jpg</a>

<a class="postlink" href="http://img.photobucket.com/albums/v83/neoyami/thief3rdclasses.jpg">http://img.photobucket.com/albums/v83/n ... lasses.jpg</a>

<a class="postlink" href="http://img.photobucket.com/albums/v83/neoyami/maledancerfemalebard.jpg">http://img.photobucket.com/albums/v83/n ... lebard.jpg</a>

<a class="postlink" href="http://img.photobucket.com/albums/v83/neoyami/newtrans.jpg">http://img.photobucket.com/albums/v83/n ... wtrans.jpg</a>

Marline

для того чтобы дать бан игроку надо ждать 3 -4 дня ! за это время игрок уже может продать свою учётную запись ! и пострадают те люди кто купил ! а тот кто продавал останется без наказным ! это факт !

цытата
"Против. Во первых - разглашение привата без согласия обоих сторон. Во вторых - возможность таким образом вывести почти любого человека из игры на 5 часов. В третьих - личное имхо - не стоит такую власть давать в руки обычным людям.
Из собственного опыта знаю - последовательность "скрин с чатом - жалоба" всегда работает."

ответ : во-первых цель команды защитить вас от тех кто нарушает правила !
во-вторых если игроки нарушают правила ! и дошло до того что люди не понимают то извините меня пора действовать новыми методами ! есть масса объяснение к этому ! так что я остаюсь на своём мнение и прошу создать такую команду !

++++
цытата
"таким образом вывести почти любого человека из игры на 5 часов"
это уже будит нарушением и тот участник будит наказан !

Marline

ппц !!! красотаааааааааааа ! давайте мотр перейдёт на рагнарок 2 ?????

Marline

создание новой команды !

по скольку народ начел продавать своих чаров , предлагать сайты в которые дают багги против мотора , и много ещё вещей я предлагаю создать новую команду по имени "сканеры"

я вам объясню как это работает !

игрок видит Другова игрока который продаёт свой чар ! висит так же чат который подтверждает это ! он пишет этой группе так @msg "в пронторе игрок продаёт свой чар 150,26+имя игрока " участник команды делает дальше ! @**** "имя игрока" . о нём выдаются данные

какие чаты у игрока открыты и их название .
так же выдаётся чат разговора в том чате где происходит нарушение

приват чаты открываются для причитание ! (с кем он в данный момент разговаривает )

участник видит нарушение и блокирует игрока на 5 часов ! (не может зайти в игру 5 чесов )

цель : не дать пострадать обычным людям которые не могут удерживать свои эмоций от мошенников !

*так же прошу стать первым участником в этой группы .

Marline

не ну это очень тежело до 50 жчоб качять! но потом поймёш почяму !

Marline

Предложение !

Возвратить эвенты ! я помню 2 года назад были много Эвентов ! а сейчас их почему-то прекратили проводить ! я прошу администрацию возвратить эвенты !

Marline

всё возможно если администрацыя за это возмётся

Кстати идея с присткой сидячий как новис мне понравилась
Виз сидит как прист ешё лучче !!!!

Marline

Супер примумам будит прицтавина возможность минять свой образ сидение

Всмысле сидеть как сворд , сын ,прсит и так далие

Красата будит втом что будит разнообразие в игре

Команда

@changesit "X sit"

X = Профа

Marline

Они убили Кенни?(цытата)

Да кени попал под их руку первым

Marline

вопервых дроп сэтих мвп небудит и так же експа ! а вовторых адвенсам сообшение : мы вас на этом квесте пофиксим и всё будит ок ^_^