Jump to content

IndieRO

Members
  • Content Count

    286
  • Joined

  • Last visited

  • Days Won

    13

Everything posted by IndieRO

  1. i have script npc event tic tac toe - script 3er_2 -1,{ if ( ( .X2 && .O2 ) && ( .X2 == getcharid ( 3 ) || .O2 == getcharid ( 3 ) ) && ( ! isloggedin ( .X2, .X ) || ! isloggedin ( .O2, .O ) ) ) donpcevent "Tic Tac Toe#3z::OnResetGame"; set .@a, atoi ( strnpcinfo ( 2 ) ); if ( ( ! $@ttt_a[.@a] ) && ( $@ttt_turn ) ) { if ( getcharid ( 0 ) == getvariableofnpc ( .X, "Tic Tac Toe#3z" ) ) { if ( ( $@ttt_turn % 2 ) ) { set $@ttt_a[.@a], 1; setnpcdisplay "Poring#"+ .@a, $@ttt_ids[0] ; set .@c, 1; } else dispbottom "Is not your turn!"; } if ( getcharid ( 0 ) == getvariableofnpc ( .O, "Tic Tac Toe#3z" ) ) { if ( ! ( $@ttt_turn % 2 ) ) { set $@ttt_a[.@a], 2; setnpcdisplay "Poring#"+ .@a, $@ttt_ids[1] ; set .@c, 2; } else dispbottom "Is not your turn!"; } if ( .@c ) { set $@ttt_turn, $@ttt_turn + 1; specialeffect 44 ; set .@b, callsub ( CheckTic, .@c ); if ( .@b ) callsub Winner, .@b; else if ( $@ttt_turn >= 10 ) { if ( $@ttt_ann >= 0 ) announce "Draw game.", ( ( $@ttt_ann <= 3 ) ? $@ttt_ann : 3 ), "0x"+$@ttt_ann$ ; donpcevent "Tic Tac Toe#3z::OnResetGame"; } } } end ; OnInit: /* Item1 Amount1, Item2, Amount2, {Item...}, {Amount...} ( Max items: 64 ) */ setarray $@ttt_prizes[0],607,5; // Sprites. // ID X ID O setarray $@ttt_ids[0],1582,1568; /* Announce: -1 = No announce 0 = All. 1 = Map. 2 = Area. 3 = Self. */ set $@ttt_ann,1; // Color of the announce (winner). // Default = "30bdb5" set $@ttt_ann$,"30bdb5"; end; CheckTic: setarray .@a[0], 1, 2, 3, 1, 5, 9, 3, 5, 7, 4, 5, 6, 7, 8, 9, 1, 6, 7, 2, 5, 8, 3, 4, 9; for ( set .@b, 0; .@b < getarraysize ( .@a ) ; set .@b, .@b + 3 ) if ( $@ttt_a[.@a[.@b]] == getarg ( 0 ) && $@ttt_a[.@a[.@b + 1]] == getarg ( 0 ) && $@ttt_a[.@a[.@b + 2]] == getarg ( 0 ) ) return getarg ( 0 ) ; return 0; Winner: for ( set .@i, 0; .@i < getarraysize ( $@ttt_prizes ) ; set .@i, .@i + 2 ) getitem $@ttt_prizes[.@i], $@ttt_prizes[.@i + 1]; if ( $@ttt_ann >= 0 ) announce "The player "+ getarg ( 0 ) +" ("+ strcharinfo ( 0 ) +") has won!", ( ( $@ttt_ann <= 3 ) ? $@ttt_ann : 3 ), "0x"+$@ttt_ann$ ; donpcevent "Tic Tac Toe#3z::OnResetGame"; return ; } prontera,152,136,4 duplicate(3er_2) Poring#1 909 prontera,155,136,4 duplicate(3er_2) Poring#2 909 prontera,158,136,4 duplicate(3er_2) Poring#3 909 prontera,158,133,4 duplicate(3er_2) Poring#4 909 prontera,155,133,4 duplicate(3er_2) Poring#5 909 prontera,152,133,4 duplicate(3er_2) Poring#6 909 prontera,152,130,4 duplicate(3er_2) Poring#7 909 prontera,155,130,4 duplicate(3er_2) Poring#8 909 prontera,158,130,4 duplicate(3er_2) Poring#9 909 prontera,164,136,4 script Tic Tac Toe#3z 909,{ // NPC Name. set .@a$, "^2b86b5Tic Tac Toe^000000"; mes .@a$; setarray .@a[0], .X2, .X, .O2, .O; for ( set .@b, getarraysize ( .@a ) ; .@c < .@b ; set .@c, .@c + 2 ) { if ( isloggedin ( .@a[.@c], .@a[.@c + 1] ) ) mes "Player "+ ( .@c / 2 + 1 ) +": "+ rid2name ( ( ( .@c == 0 ) ? .X2 : .O2 ) ) +"."; else { mes "Player "+ ( .@c / 2 + 1 ) +": There isn't."; setd ( ( .@c == 0 ) ? ".X2" : ".O2" ), 0; setd ( ( .@c == 0 ) ? ".X" : ".O" ), 0; } } switch ( select ( "Register", "^911b1bExit^000000" ) ) { case 1: if ( .X && .O ) { mes "I'm sorry, but somebody else has already register before than you."; break ; } if ( .X2 == getcharid ( 3 ) || .O2 == getcharid ( 3 ) ) { mes "You're registered already."; break ; } if ( ! .X && ! .O ) { set .@a, rand ( 1, 2 ); setd ( ( .@a == 1 ) ? ".X" : ".O" ), getcharid ( 0 ); setd ( ( .@a == 1 ) ? ".X2" : ".O2" ), getcharid ( 3 ); } else { setd ( ( .X == 0 ) ? ".X" : ".O" ), getcharid ( 0 ); setd ( ( .X2 == 0 ) ? ".X2" : ".O2" ), getcharid ( 3 ); } if ( .X && .O ) { set $@ttt_turn, rand ( 1, 2 ); npctalk "The game can start, "+ strcharinfo ( 0 ) +" has been register!"; } mes "You're registered now, you're the "+ ( ( .X2 == getcharid ( 3 ) ) ? "Deviling" : "Angeling" ); break ; case 2: mes "Have a nice day."; break ; } close ; OnResetGame: while ( set ( .@i, .@i + 1 ) < 10 ) { set $@ttt_a[.@i], 0; setnpcdisplay "Poring#"+ .@i, 909 ; } set .X2, 0; set .X, 0; set .O2, 0; set .O, 0; end ; } how to make cost zeny when register somebody can help me?
  2. http://herc.ws/wiki/Building_HPM_Plugin_for_MSVC
  3. you can setting on inter-server.conf and add this log: { sql_connection: { db_hostname: "127.0.0.1" db_port: 3306 db_username: "ragnarok" db_password: "ragnarok" db_database: "herculeslog" } }
  4. yeah i tink it's already imlpemented on this commit HERE
  5. question :what a emulator do you use in your PS?
  6. sir can u teach me how to play RO on linux i was try but not lucky
  7. sir, do you play RO in Linux ??
  8. i got error on last update http://prntscr.com/ic5gdn http://prntscr.com/ic8ovg how to fix it?
  9. IndieRO

    Clan System

    thx murilo foryour awasome work
  10. i think is wrong format on script mes("<NAVI>[the Academy building]<INFO>iz_ac01,100,39</INFO></NAVI>."); <<<<<< forget one coma on last koordinat try to replace with this mes("<NAVI>[the Academy building]<INFO>iz_ac01,100,39,</INFO></NAVI>.");
  11. IndieRO

    Command @resist

    i hope somebody can convert it into plugins
  12. like as tittle said where is i can find log/map-server.leaks
  13. IndieRO

    Nemo patcher

    hi, right now i got error "Attempt to call a nil value" i use data.grf and data0.grf from Zero Client package i was fix it
  14. i use DO on live server and it's good i compare with linode and digital ocen
  15. IndieRO

    Nemo patcher

    i was installed zero installer and try to run exe and got GE
×
×
  • Create New...

Important Information

By using this site, you agree to our Terms of Use.